(in-package :gacela)
+(setq *frames-per-second* 15)
+
(defun tetramine-i ()
(let ((color '(1 0 0)))
`((,color ,color ,color ,color))))
(setq next (random-tetramine)))
(t (incf y) (start-timer timer)))))
-; (draw-square :size 200)))
- (funcall background)))
-; (translate -288 218)
-; (draw-grid (join-grids tetramine grid x y))
-; (translate 440 440)
-; (draw-grid next)))
+ (funcall background)
+ (translate -288 218)
+ (draw-grid (join-grids tetramine grid x y))
+ (translate 440 440)
+ (draw-grid next)))
(let ((frame 0.0) (fps (make-timer)) (update (make-timer)))
(start-timer update)