tests: update ref tests

This commit is contained in:
Tyler Wilding 2024-07-20 15:23:06 -04:00
parent 9a66e64976
commit fe3be924cb
No known key found for this signature in database
GPG key ID: BF7B068C2FEFD7EF
2 changed files with 8 additions and 8 deletions

View file

@ -1434,7 +1434,7 @@
(+ -205.4294994422315
(* 245.07283711809043 aspect-ratio)
(* -81.04347133064093 aspect-ratio aspect-ratio)
(* 9.423126530695802 aspect-ratio aspect-ratio aspect-ratio)))))
(* 9.423126530695802 aspect-ratio aspect-ratio aspect-ratio)))))
(defun pc-sprite-adjust-cross-x ((aspect-ratio float))
(cond
@ -1578,7 +1578,7 @@
(+ -32.088654921966715
(* 56.69193997766507 aspect-ratio)
(* -29.856150879331594 aspect-ratio aspect-ratio)
(* 4.401442349782235 aspect-ratio aspect-ratio aspect-ratio)))))
(* 4.401442349782235 aspect-ratio aspect-ratio aspect-ratio)))))
(defun pc-sprite-adjust-percent-x ((aspect-ratio float))
(cond
@ -1632,7 +1632,7 @@
(+ -3.26385961093079
(* 6.476532684613467 aspect-ratio)
(* -4.083859180614655 aspect-ratio aspect-ratio)
(* 0.819204392897082 aspect-ratio aspect-ratio aspect-ratio)))))
(* 0.819204392897082 aspect-ratio aspect-ratio aspect-ratio)))))
(defun pc-sprite-adjust-orb-glow-x ((aspect-ratio float))
(cond
@ -1668,7 +1668,7 @@
(+ -6.52771922186158
(* 12.953065369226934 aspect-ratio)
(* -8.16771836122931 aspect-ratio aspect-ratio)
(* 1.638408785794164 aspect-ratio aspect-ratio aspect-ratio)))))
(* 1.638408785794164 aspect-ratio aspect-ratio aspect-ratio)))))
(defun pc-sprite-adjust-cell-x ((aspect-ratio float))
(cond

View file

@ -144,7 +144,7 @@
(x-offset int32)
)
(:methods
(dumb-15 (_type_) none)
(spawn-particles! (_type_) none)
)
(:states
hud-coming-in
@ -257,7 +257,7 @@
;; definition for method 14 of type first-person-hud
;; INFO: Return type mismatch int vs none.
(defmethod dumb-15 ((this first-person-hud))
(defmethod spawn-particles! ((this first-person-hud))
(dotimes (s5-0 (-> this nb-of-particles))
(set! (-> this particles s5-0 pos x) (+ -256.0 (-> this particles s5-0 init-pos x)))
(set! (-> this particles s5-0 pos y)
@ -322,7 +322,7 @@
)
)
:post (behavior ()
(dumb-15 self)
(spawn-particles! self)
)
)
@ -355,7 +355,7 @@
)
)
:post (behavior ()
(dumb-15 self)
(spawn-particles! self)
)
)