(defun init-blocks nil (setf (get 'a :body) (make-cube 20 20 20)) (send (get 'a :body) :name "A") (setf (get (get 'a :body) :face-color) :darkred) (send (get 'a :body) :locate #f(100 100 0)) (setf (get 'b :body) (make-cube 20 20 20)) (send (get 'b :body) :name "B") (send (get 'b :body) :locate #f(0 100 0)) (setf (get (get 'b :body) :face-color) :gray70) (setf (get 'c :body) (make-cube 20 20 20)) (send (get 'c :body) :name "C") (send (get 'c :body) :locate #f(0 0 0)) (setf (get (get 'c :body) :face-color) :gray30) (setq *blocks* (list (get 'a :body) (get 'b :body) (get 'c :body))) )