experiments: added an animation to the example

experiments/example.nim

@@ -1,5 +1,5 @@
 
-import vdom, components, karax, karaxdsl, jdict, jstrutils
+import vdom, components, karax, karaxdsl, jdict, jstrutils, dom
 
 var
   images: seq[cstring] = @[cstring"a", "b", "c", "d"]
@@ -7,14 +7,29 @@ var
 proc carousel*(key: VKey): VNode {.component.} =
   state:
     var counter: int = 0
+    var cntdown: int = 5
+    var timer: Timeout = nil
+
+  proc docount() =
+    cntdown = cntdown - 1
+    if cntdown == 0:
+      counter = (counter + 1) mod images.len
+      cntdown = 5
+    else:
+      timer = setTimeout(docount, 30)
+    redraw()
 
   proc next(ev: Event; n: VNode) =
-    counter = (counter + 1) mod images.len
+    if timer != nil:
+      clearTimeout(timer)
+    timer = setTimeout(docount, 30)
 
   result = buildHtml(tdiv(key=key)):
     text images[counter]
     button(onclick = next):
       text "Next"
+    if cntdown != 5:
+      text &cntdown
 
 proc createDom(): VNode =
   result = buildHtml(table):