45 lines
885 B
Scheme
45 lines
885 B
Scheme
|
(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)
|