🚀 go-pugleaf

$@$3$N(J NG $@$,$"$s$^$j<d$7$$$N$G!"<ALd$7$^$9!#(J

$@!V(JLISP $@%^%7%s!&%W%m%0%i%_%s%05;K!!W!!%V%m%`%j%$Cx(J/$@D9C+@n=c0lLu(J
$@$K$D$$$F$N<ALd$G$9!#(J

P.100 $@$N%j%9%H$r$=$N$^$^!"(J

(defmethod (accelerate moving-object) (pct-thrust delta-time)
  (ignore pct-thrust delta-time))

(defflavor engine-mixin
    (thrust
     orientation)
    (moving-object)
  :initable-instance-variables)      --  $@Dj5A(J-1

(defmethod (accelerate engine-mixin) (pct-thrust delta-time)
  (let* ((true-thrust (* thrust pcg-thrust .01))
	 (thrust-x (* true-thrust (cos orientateion)))
	 (thrust-y (* true-thrust (sin orientation))))
    (incf x-velocity (* thrust-x delta-time))
    (incf y-velocity (* thrust-y delta-time))))

(defflavor ship
    ()
    (engine-mixin moving-object))    --  $@Dj5A(J-2

$@Dj5A(J-1 $@$G!"(Jengine-mixin $@$O!"(Jmoving-object $@$r7Q>5$7$F$$$^$9$,!"(J
$@Dj5A(J-2 $@$G!"(Jship $@$O!"(J engine-mixin $@$H(J moving-object $@$NN>J}$r7Q>5$7$F$$$^$9!#(J
engine-mixin $@$O$9$G$K(J moving-object $@$r7Q>5$7$F$$$k$N$G!";d$O!"(Jship$@!!$r(J

(defflavor ship
    ()
    (engine-mixin))                  --  $@Dj5A(J-3

$@$HDj5A$9$k$@$1$G$h$$$H;W$&$N$G$9$,!"$3$l$@$H$I$3$,$^$:$$$N$G$7$g$&$+!)(J

  kuroda@msi.co.jp ($@9uED<wCK(J)