WIP chickadee port

anim.scm

@@ -0,0 +1,44 @@
+(use-modules (chickadee)
+             (chickadee graphics color)
+             (chickadee graphics sprite)
+             (chickadee graphics text)
+             (chickadee graphics path)
+             (chickadee math vector)
+             (chickadee math rect)
+             (system repl coop-server))
+
+(define repl (spawn-coop-repl-server))
+
+(define (update dt)
+  (poll-coop-repl-server repl))
+
+(define tekst "Nekaaaaj")
+(define stevec 0)
+(define (draw alpha)
+  (set! stevec (+ stevec 1))
+  (dodaj-objekte)
+  (obj-anim)
+  (izrisi))
+
+(define (dodaj-objekte)
+  '())
+
+(define (obj-anim)
+  (display stevec)
+  '())
+(define (izrisi)
+  (draw-canvas
+   (make-canvas
+    (with-style ((stroke-color green)
+                (stroke-width 4.0))
+    (stroke (circle (vec2 100.0 100.0) stevec))
+    ))))
+
+(define (reset-stevec)
+  (set! stevec 0))
+
+(reset-stevec)
+
+(run-game
+ #:draw draw
+ #:update update)