buff example

raygint

@@ -1 +1 @@
-Subproject commit 2403783b3a7574828815aa9be9b541342d4684fa
+Subproject commit 26e8e1e1aa8fe666156d9c4089ad907145ee4584

test.fe

@@ -1,11 +1,30 @@
-(= x 0) (= y 0)
-(while (< y 224)
- (= x (+ x 1))
- (= y (+ y 1))
+(= incr (mac (n) (list '= n (list '+ n 1))))
+(= decr (mac (n) (list '= n (list '- n 1))))
+
+(= draw-player (fn ()
+ (dcolor 31 31 31)
+ (drect player-x player-y 16 16)
+))
+
+(= update (fn ()
+ (incr player-x)
+ (incr player-y)
+))
+
+(= draw (fn ()
  (dblock
-  (dcolor 0 0 0) 
+  (dcolor 0 0 0)
   (dclear)
-  (dcolor 31 31 31)
-  (drect x y 16 16)
+  (draw-player)
  )
-)
+))
+
+(= main (fn ()
+ (= player-x 0) (= player-y 0)
+ (while (< player-y 224)
+  (update)
+  (draw)
+ )
+))
+
+(main)