`(kakko ,man)

Find a guide into tomorrow by taking lessons from the past

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