;;;; 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)))