Lisp Game Programming <Step3-3>
step3の3番目は設計したクラスのインスタンスの生成
ship ⇒ *image0* の0番目のデータをx:224、y:416の位置にstate(alive)で生成すると、以下のような形になる
(defun Common-shooter ()
"main routine"
・・・・・・
; step 3
(let ((ship (make-instance 'entity :imageid 0 :id 0 :x 224 :y 416 :width 32 :height 32 :dx 4 :dy 4 :state 1)))
・・・・・・
(sdl:with-events (:poll)
・・・・・・
(sdl:update-display))))