(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)