recognize +! and set-vector (#706)

"
This commit is contained in:
water111
2021-07-17 15:00:10 -04:00
committed by GitHub
parent 1e90da8e7c
commit 4989470828
48 changed files with 557 additions and 1038 deletions
@@ -5,10 +5,10 @@
;; Used lq/sq
(defmethod TODO-RENAME-9 trajectory ((obj trajectory) (arg0 float) (arg1 vector))
(set! (-> arg1 quad) (-> obj initial-position quad))
(set! (-> arg1 x) (+ (-> arg1 x) (* arg0 (-> obj initial-velocity x))))
(set! (-> arg1 y) (+ (-> arg1 y) (* arg0 (-> obj initial-velocity y))))
(set! (-> arg1 z) (+ (-> arg1 z) (* arg0 (-> obj initial-velocity z))))
(set! (-> arg1 y) (+ (-> arg1 y) (* (* (* 0.5 arg0) arg0) (-> obj gravity))))
(+! (-> arg1 x) (* arg0 (-> obj initial-velocity x)))
(+! (-> arg1 y) (* arg0 (-> obj initial-velocity y)))
(+! (-> arg1 z) (* arg0 (-> obj initial-velocity z)))
(+! (-> arg1 y) (* (* (* 0.5 arg0) arg0) (-> obj gravity)))
arg1
)
@@ -19,7 +19,7 @@
trajectory
((obj trajectory) (arg0 float) (arg1 vector))
(set! (-> arg1 quad) (-> obj initial-velocity quad))
(set! (-> arg1 y) (+ (-> arg1 y) (* arg0 (-> obj gravity))))
(+! (-> arg1 y) (* arg0 (-> obj gravity)))
arg1
)