(setq next (random-tetramine)))
(t (incf y) (start-timer timer)))))
- (draw-square :size 1 :texture texture)
- (translate -25 19)
- (draw-grid (join-grids tetramine grid x y))
- (translate 40 40)
- (draw-grid next)))
+ (draw-square :size 20 :texture texture)))
+; (translate -25 19)
+; (draw-grid (join-grids tetramine grid x y))
+; (translate 40 40)
+; (draw-grid next)))
(run-game "Gacela Tetris" (tetramine))