dan
/
flight-sim
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fix an error

This commit is contained in:
Dan Ballard 2011-08-17 22:01:11 -07:00
parent ecece3590d
commit f2eb4cea36
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
engine.lisp
View File

@ -51,7 +51,7 @@
(defmethod get-accel ((src engine-object) (target game-object)) (defmethod get-accel ((src engine-object) (target game-object))
(let* ((scalar-proj (scalar-proj (scale-vector-1 (direction (force (body src)))) (scale-vector-1 (coords (body src))))) (let* ((scalar-proj (scalar-proj (scale-vector-1 (direction (force src))) (scale-vector-1 (coords (body src)))))
(accel (/ (newtons (force src)) (mass (body target)))) (accel (/ (newtons (force src)) (mass (body target))))
(accel-vec (scale-vector scalar-proj accel))) (accel-vec (scale-vector scalar-proj accel)))
accel-vec)) accel-vec))