feck/test.fe

31 lines
410 B
Plaintext

(= ++ (mac (n) (list '= n (list '+ n 1))))
(= -- (mac (n) (list '= n (list '- n 1))))
(= draw-player (fn ()
(dcolor 31 31 31)
(drect player-x player-y 16 16)
))
(= update (fn ()
(++ player-x)
(= player-y (+ player-y 4))
))
(= draw (fn ()
(dblock
(dcolor 0 0 0)
(dclear)
(draw-player)
)
))
(= main (fn ()
(= player-x 0) (= player-y 0)
(while (< player-y 224)
(update)
(draw)
)
))
(main)