You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
15 lines
346 B
15 lines
346 B
;;;; scene.lisp
|
|
(in-package :break)
|
|
|
|
(defun init-scene (scene)
|
|
(map nil #'kill *balls*)
|
|
(map nil #'kill *tiles*)
|
|
(setf *balls* (list (make-ball nil nil)))
|
|
(setf *tiles* (map 'list #'make-tile scene))
|
|
(step-game))
|
|
|
|
(defvar *test-scene*
|
|
(list
|
|
(v! 100 100 0) (v! 80 100 0) (v! 60 100 0)
|
|
(v! 100 90 0) (v! 100 80 0) (v! 100 70 0)))
|