jak2 ref

test/decompiler/reference/jak2/engine/camera/cam-debug_REF.gc

@@ -1109,7 +1109,7 @@
           (meters 0.25)
           )
         )
-    (let ((f30-0 (* 0.5 (-> *camera-combiner* fov))))
+    (let ((f30-0 (/ (-> *camera-combiner* fov) 2)))
       (camera-fov-frame
         (-> *camera-combiner* inv-camera-rot)
         (camera-pos)
@@ -1121,7 +1121,7 @@
       )
     (cond
       ((= (-> arg0 blend-to-type) (camera-blend-to-type unknown-2))
-       (let ((f0-2 (* 0.5 (-> arg0 fov))))
+       (let ((f0-2 (/ (-> arg0 fov) 2)))
          (camera-fov-frame
            (the-as matrix (-> *camera-combiner* tracking))
            (-> arg0 trans)
@@ -1133,7 +1133,7 @@
          )
        )
       (else
-        (let ((f0-4 (* 0.5 (-> arg0 fov))))
+        (let ((f0-4 (/ (-> arg0 fov) 2)))
           (camera-fov-frame
             (the-as matrix (-> arg0 tracking))
             (-> arg0 trans)
@@ -1676,7 +1676,7 @@
 ;; WARN: Return type mismatch int vs none.
 (defun camera-master-debug ((arg0 camera-master))
   (when *display-cam-other*
-    (let ((f0-1 (* 0.5 (-> *camera-other-fov* data))))
+    (let ((f0-1 (/ (-> *camera-other-fov* data) 2)))
       (camera-fov-frame
         *camera-other-matrix*
         *camera-other-trans*

test/decompiler/reference/jak2/engine/camera/cam-layout_REF.gc

@@ -1260,7 +1260,7 @@
 (defun fov->maya ((arg0 float))
   (if (= arg0 0.0)
       0.0
-      (/ 12.700255 (tan (* 0.5 arg0)))
+      (/ 12.700255 (tan (/ arg0 2)))
       )
   )
 

test/decompiler/reference/jak2/engine/camera/cam-master_REF.gc

@@ -214,10 +214,10 @@
                (let ((f30-0 (vector-dot s5-7 (-> self local-down))))
                  (vector--float*! s5-7 s5-7 (-> self local-down) f30-0)
                  (if (< 0.0 f30-0)
-                     (set! (-> self upspeed) (* 0.5 (-> self upspeed)))
+                     (set! (-> self upspeed) (/ (-> self upspeed) 2))
                      )
                  (vector+! (-> self tpos-tgt) (-> self tpos-tgt) s5-7)
-                 (let ((f0-26 (* 0.05 f30-0)))
+                 (let ((f0-26 (/ f30-0 20)))
                    (vector+float*! (-> self tpos-tgt) (-> self tpos-tgt) (-> self local-down) f0-26)
                    )
                  )

test/decompiler/reference/jak2/engine/camera/cam-states-dbg_REF.gc

@@ -56,10 +56,10 @@
                 )
             (cond
               ((cpad-hold? (-> *CAMERA-bank* joypad) r2)
-               (set! (-> s5-0 y) (- (-> s5-0 y) (* 0.2 (-> *CAM_POINT_WATCH-bank* rot-speed) (- f26-0))))
-               (set! (-> s5-0 x) (- (-> s5-0 x) (* 0.2 (-> *CAM_POINT_WATCH-bank* rot-speed) (- f0-0))))
-               (+! (-> gp-0 x) (* 0.2 (-> *CAM_POINT_WATCH-bank* speed) f28-0))
-               (+! (-> gp-0 z) (* 0.2 (-> *CAM_POINT_WATCH-bank* speed) f30-0))
+               (set! (-> s5-0 y) (- (-> s5-0 y) (* (/ (-> *CAM_POINT_WATCH-bank* rot-speed) 5) (- f26-0))))
+               (set! (-> s5-0 x) (- (-> s5-0 x) (* (/ (-> *CAM_POINT_WATCH-bank* rot-speed) 5) (- f0-0))))
+               (+! (-> gp-0 x) (* (/ (-> *CAM_POINT_WATCH-bank* speed) 5) f28-0))
+               (+! (-> gp-0 z) (* (/ (-> *CAM_POINT_WATCH-bank* speed) 5) f30-0))
                )
               (else
                 (set! (-> s5-0 y) (- (-> s5-0 y) (* 2.0 (-> *CAM_POINT_WATCH-bank* rot-speed) (- f26-0))))
@@ -128,8 +128,8 @@
          (let ((f30-0 (vector-length a0-7)))
            (cond
              (#f
-               (let* ((f28-0 (* 0.01 f30-0 (-> v1-0 x)))
-                      (f26-0 (* 0.01 f30-0 (-> v1-0 y)))
+               (let* ((f28-0 (* (/ f30-0 100) (-> v1-0 x)))
+                      (f26-0 (* (/ f30-0 100) (-> v1-0 y)))
                       (f0-5 f28-0)
                       (f0-7 (* f0-5 f0-5))
                       (f1-2 f26-0)
@@ -312,13 +312,13 @@
           ((cpad-hold? arg3 r2)
            (when (logtest? (-> *camera* settings master-options) (cam-master-options READ_BUTTONS))
              (if (cpad-hold? arg3 r1)
-                 (+! (-> arg1 y) (+ (* 0.2 (-> *CAM_FREE-bank* speed)) (analog-input
-                                                                         (the-as int (-> *cpad-list* cpads arg3 abutton 9))
-                                                                         0.0
-                                                                         32.0
-                                                                         230.0
-                                                                         (* 0.2 (-> *CAM_FREE-bank* speed))
-                                                                         )
+                 (+! (-> arg1 y) (+ (/ (-> *CAM_FREE-bank* speed) 5) (analog-input
+                                                                       (the-as int (-> *cpad-list* cpads arg3 abutton 9))
+                                                                       0.0
+                                                                       32.0
+                                                                       230.0
+                                                                       (/ (-> *CAM_FREE-bank* speed) 5)
+                                                                       )
                                     )
                      )
                  )
@@ -326,13 +326,13 @@
            (when (logtest? (-> *camera* settings master-options) (cam-master-options READ_BUTTONS))
              (if (cpad-hold? arg3 l1)
                  (set! (-> arg1 y)
-                       (- (-> arg1 y) (+ (* 0.2 (-> *CAM_FREE-bank* speed)) (analog-input
-                                                                              (the-as int (-> *cpad-list* cpads arg3 abutton 8))
-                                                                              0.0
-                                                                              32.0
-                                                                              230.0
-                                                                              (* 0.2 (-> *CAM_FREE-bank* speed))
-                                                                              )
+                       (- (-> arg1 y) (+ (/ (-> *CAM_FREE-bank* speed) 5) (analog-input
+                                                                            (the-as int (-> *cpad-list* cpads arg3 abutton 8))
+                                                                            0.0
+                                                                            32.0
+                                                                            230.0
+                                                                            (/ (-> *CAM_FREE-bank* speed) 5)
+                                                                            )
                                          )
                           )
                        )
@@ -372,16 +372,16 @@
               ((and (not s3-0) (cpad-hold? arg3 r2))
                (cond
                  ((cpad-hold? arg3 l2)
-                  (set! (-> arg0 y) (- (-> arg0 y) (* 0.5 (-> *CAM_FREE-bank* rot-speed) (- f26-0))))
-                  (set! (-> arg0 x) (- (-> arg0 x) (* 0.5 (-> *CAM_FREE-bank* rot-speed) (- f0-60))))
+                  (set! (-> arg0 y) (- (-> arg0 y) (* (/ (-> *CAM_FREE-bank* rot-speed) 2) (- f26-0))))
+                  (set! (-> arg0 x) (- (-> arg0 x) (* (/ (-> *CAM_FREE-bank* rot-speed) 2) (- f0-60))))
                   )
                  (else
                    (set! (-> arg0 y) (- (-> arg0 y) (* (- f26-0) (-> *CAM_FREE-bank* rot-speed))))
                    (set! (-> arg0 x) (- (-> arg0 x) (* (- f0-60) (-> *CAM_FREE-bank* rot-speed))))
                    )
                  )
-               (+! (-> arg1 x) (* 0.2 (-> *CAM_FREE-bank* speed) f28-14))
-               (+! (-> arg1 z) (* 0.2 (-> *CAM_FREE-bank* speed) f30-14))
+               (+! (-> arg1 x) (* (/ (-> *CAM_FREE-bank* speed) 5) f28-14))
+               (+! (-> arg1 z) (* (/ (-> *CAM_FREE-bank* speed) 5) f30-14))
                )
               ((and (not s3-0) (cpad-hold? arg3 l2))
                (+! (-> arg1 x) (* f28-14 (-> *CAM_FREE-bank* speed)))

test/decompiler/reference/jak2/engine/camera/cam-states_REF.gc

@@ -2398,7 +2398,7 @@
         (set! f28-0 0.0)
         )
     (if (-> self have-phony-joystick)
-        (set! f28-0 (* 0.05 (-> self phony-joystick-y)))
+        (set! f28-0 (/ (-> self phony-joystick-y) 20))
         )
     (if (and (-> *camera* being-attacked) (not (time-elapsed? (-> *camera* attack-start) (seconds 0.25))))
         (set! f28-0 0.05)
@@ -2421,7 +2421,7 @@
       (let ((f0-23 f26-0))
         (when (< f26-0 0.0)
           (let ((f0-26
-                  (/ (- (-> self string-min-val z) (vector-length (-> self view-flat))) (* 0.5 (-> self string-min-val z)))
+                  (/ (- (-> self string-min-val z) (vector-length (-> self view-flat))) (/ (-> self string-min-val z) 2))
                   )
                 )
             (set! f0-23 (fmin 0.75 f0-26))

test/decompiler/reference/jak2/engine/camera/camera_REF.gc

@@ -272,7 +272,7 @@
      0.0
      )
     ((>= 0.25 arg0)
-     (* 0.5 arg0)
+     (/ arg0 2)
      )
     ((>= arg0 0.75)
      (- 1.0 (* 0.5 (- 1.0 arg0)))
@@ -768,7 +768,7 @@
       (the-as vector (-> this point (-> this end-point)))
       )
     (let* ((f0-0 (vector-length s3-0))
-           (f1-1 (* 0.33333334 (- 1.5 (* 0.00024414062 f0-0))))
+           (f1-1 (* 0.33333334 (- 1.5 (/ f0-0 METER_LENGTH))))
            )
       0.0
       (let* ((f1-2 (fmax 0.0 f1-1))
@@ -798,7 +798,7 @@
               (the-as vector (+ (the-as uint (-> this point 0 direction)) (* 48 v1-18)))
               )
             (let* ((f0-5 (vector-normalize-ret-len! s2-0 1.0))
-                   (f0-6 (* 0.5 f0-5))
+                   (f0-6 (/ f0-5 2))
                    (f26-0 (* (fmin 1.0 f0-6) f30-0 (vector-dot arg0 s2-0)))
                    )
               (let ((f1-14 (vector-dot s2-0 s3-0)))
@@ -873,7 +873,7 @@
         (tracking-spline-method-19 this (* (-> this max-move) (-> pp clock time-adjust-ratio)) arg0 s4-0)
         (tracking-spline-method-14 this s4-0)
         (dotimes (s3-0 63)
-          (tracking-spline-method-18 this (* 0.015625 (-> this sample-len)) arg0 s4-0)
+          (tracking-spline-method-18 this (/ (-> this sample-len) 64) arg0 s4-0)
           )
         (vector-float*! arg0 arg0 0.015625)
         (let ((a2-3 (-> s4-0 cur-pt)))
@@ -1265,7 +1265,7 @@
                 (vector-! s2-0 s2-0 (-> arg0 follow-off))
                 (vector-float*! s2-0 s2-0 f0-23)
                 )
-              (+! (-> arg0 follow-blend) (* 0.016666668 (-> pp clock time-adjust-ratio)))
+              (+! (-> arg0 follow-blend) (/ (-> pp clock time-adjust-ratio) 60))
               (vector+! (-> arg0 follow-off) (-> arg0 follow-off) s2-0)
               )
              (else
@@ -1497,7 +1497,7 @@
             (let ((f28-0 (vector-dot s3-0 (the-as vector (-> arg0 vector)))))
               (set! sv-128 s2-0)
               (set! sv-112 (-> arg0 vector))
-              (let ((f0-7 (* 0.8 (tan (* 0.5 arg2)))))
+              (let ((f0-7 (* 0.8 (tan (/ arg2 2)))))
                 (.lvf vf1 (&-> sv-112 0 quad))
                 (let ((v1-11 f0-7))
                   (.mov vf2 v1-11)
@@ -1530,7 +1530,7 @@
           (let ((f28-1 (vector-dot s3-0 (-> arg0 vector 1))))
             (set! sv-160 s2-0)
             (set! sv-144 (-> arg0 vector 1))
-            (let ((f0-16 (* 0.525 (tan (* 0.5 arg2)))))
+            (let ((f0-16 (* 0.525 (tan (/ arg2 2)))))
               (.lvf vf1 (&-> sv-144 quad))
               (let ((v1-32 f0-16))
                 (.mov vf2 v1-32)
@@ -1556,7 +1556,7 @@
           (let ((f28-2 (vector-dot s3-0 (-> arg0 vector 1))))
             (let ((s0-1 s2-0))
               (set! sv-176 (-> arg0 vector 1))
-              (let ((f0-26 (* 0.525 (tan (* 0.5 arg2)))))
+              (let ((f0-26 (* 0.525 (tan (/ arg2 2)))))
                 (vector-float*! s0-1 sv-176 f0-26)
                 )
               )
@@ -1716,7 +1716,7 @@
       (set! sv-256 vector-into-frustum-nosmooth!)
       (set! sv-272 s1-0)
       (set! sv-288 arg1)
-      (let ((a2-5 (lerp-clamp arg3 (* 0.25 arg3) (-> arg0 underwater-blend value))))
+      (let ((a2-5 (lerp-clamp arg3 (/ arg3 4) (-> arg0 underwater-blend value))))
         (sv-256 sv-272 sv-288 a2-5)
         )
       (cond

test/decompiler/reference/jak2/engine/collide/collide-touch_REF.gc

@@ -514,7 +514,7 @@
                )
          )
     (let ((f1-2 (- (- (vector-length gp-1) (-> v1-0 prim-core world-sphere w)) (-> s4-0 prim-core world-sphere w))))
-      (vector-normalize! gp-1 (+ (-> s4-0 prim-core world-sphere w) (* 0.5 f1-2)))
+      (vector-normalize! gp-1 (+ (-> s4-0 prim-core world-sphere w) (/ f1-2 2)))
       )
     (vector+! arg0 gp-1 (the-as vector (-> s4-0 prim-core)))
     )

test/decompiler/reference/jak2/engine/common_objs/blocking-plane_REF.gc

@@ -124,11 +124,11 @@
           )
       (vector+! (-> s2-1 trans) s3-0 s4-0)
       (vector-float*! (-> s2-1 trans) (-> s2-1 trans) 0.5)
-      (+! (-> s2-1 trans y) (* 0.5 height))
+      (+! (-> s2-1 trans y) (/ height 2))
       (vector-! (the-as vector (-> s1-0 vector)) s4-0 s3-0)
       (let ((f30-1 (vector-normalize-ret-len! (the-as vector (-> s1-0 vector)) 1.0)))
-        (set! (-> s2-1 scale x) (* 0.00024414062 f30-1))
-        (set! (-> s2-1 scale y) (* 0.00024414062 height))
+        (set! (-> s2-1 scale x) (/ f30-1 METER_LENGTH))
+        (set! (-> s2-1 scale y) (/ height METER_LENGTH))
         (set! (-> s2-1 scale z) 0.0)
         (set! (-> s1-0 vector 1 quad) (-> (new 'static 'vector :y 1.0 :w 1.0) quad))
         (vector-cross! (-> s1-0 vector 2) (the-as vector (-> s1-0 vector)) (-> s1-0 vector 1))
@@ -136,7 +136,7 @@
         (matrix->quaternion (-> s2-1 quat) s1-0)
         (let ((v1-20 (-> this root root-prim local-sphere)))
           (set! (-> v1-20 x) 0.0)
-          (set! (-> v1-20 y) (* 0.00024414062 (* 0.5 height)))
+          (set! (-> v1-20 y) (* 0.00024414062 (/ height 2)))
           (set! (-> v1-20 z) 0.0)
           (let ((f0-17 0.5)
                 (f1-7 (* f30-1 f30-1))

test/decompiler/reference/jak2/engine/common_objs/collectables_REF.gc

@@ -947,7 +947,7 @@
       (set! (-> self root trans y) (-> self base y))
       (cond
         ((< (-> self root transv y) -8192.0)
-         (set! (-> self root transv y) (* -0.5 (-> self root transv y)))
+         (set! (-> self root transv y) (/ (-> self root transv y) -2))
          )
         (else
           (if (and (logtest? (-> self fact options) (actor-option suck-in))
@@ -1084,7 +1084,7 @@
              )
             (else
               (if (nonzero? (-> self part))
-                  (set! (-> self part fade) (* 0.0033333334 f0-1))
+                  (set! (-> self part fade) (/ f0-1 300))
                   )
               (when (nonzero? (-> self draw))
                 (logior! (-> self draw status) (draw-control-status force-fade))
@@ -3039,14 +3039,14 @@
                   )
                  ((and (>= f22-0 f0-5) (logtest? s2-1 (game-feature gun-red)))
                   (set! s2-0 (pickup-type ammo-red))
-                  (set! f30-0 (* 0.5 f30-0))
+                  (set! f30-0 (/ f30-0 2))
                   )
                  ((and (>= f24-0 f0-5) (logtest? s2-1 (game-feature gun-blue)))
                   (set! s2-0 (pickup-type ammo-blue))
                   )
                  ((and (>= f28-0 f0-5) (logtest? s2-1 (game-feature gun-dark)))
                   (set! s2-0 (pickup-type ammo-dark))
-                  (set! f30-0 (* 0.1 f30-0))
+                  (set! f30-0 (/ f30-0 10))
                   )
                  (else
                    (set! s2-0 (pickup-type eco-pill-dark))

test/decompiler/reference/jak2/engine/common_objs/crates_REF.gc

@@ -1363,9 +1363,9 @@
 ;; WARN: Return type mismatch int vs none.
 (defmethod smush-update! ((this crate))
   (let ((f0-0 (update! (-> this smush))))
-    (set! (-> this root scale x) (+ 1.0 (* -0.5 f0-0)))
+    (set! (-> this root scale x) (+ 1.0 (/ f0-0 -2)))
     (set! (-> this root scale y) (+ 1.0 f0-0))
-    (set! (-> this root scale z) (+ 1.0 (* -0.5 f0-0)))
+    (set! (-> this root scale z) (+ 1.0 (/ f0-0 -2)))
     )
   0
   (none)

test/decompiler/reference/jak2/engine/common_objs/dark-eco-pool_REF.gc

@@ -324,7 +324,7 @@
            (f0-9 (fmax -1.0 (fmin 1.0 f0-7)))
            )
       (set! (-> gp-0 global-scale) (* 4096.0 (* 3.0 (+ 1.0 f0-9))))
-      (set! (-> gp-0 individual-normal-scale) (+ 0.5 (* 0.5 f0-9)))
+      (set! (-> gp-0 individual-normal-scale) (+ 0.5 (/ f0-9 2)))
       )
     )
   )

test/decompiler/reference/jak2/engine/common_objs/water_REF.gc

@@ -875,7 +875,7 @@
                   (set! (-> *part-id-table* 506 init-specs 4 initial-valuef) (+ 24576.0 f30-0))
                   (set! (-> *part-id-table* 506 init-specs 19 initial-valuef) (+ 49152.0 f30-0))
                   (set! (-> *part-id-table* 506 init-specs 1 initial-valuef) (* 0.0000036621095 f28-0))
-                  (set! (-> *part-id-table* 506 init-specs 2 initial-valuef) (* 0.1 f28-0))
+                  (set! (-> *part-id-table* 506 init-specs 2 initial-valuef) (/ f28-0 10))
                   (set! (-> *part-id-table* 506 init-specs 13 initial-valuef) 0.7111111)
                   (set! (-> *part-id-table* 506 init-specs 3 initial-valuef) (-> this wake-size))
                   (set! (-> *part-id-table* 506 init-specs 5 initial-valuef) (-> this wake-size))
@@ -1134,7 +1134,7 @@
            )
          (set-time! (-> this drip-time))
          (logclear! (-> this flags) (water-flags spawn-drip))
-         (seek! (-> this drip-wetness) 0.0 (* 0.001 (-> this drip-speed)))
+         (seek! (-> this drip-wetness) 0.0 (/ (-> this drip-speed) 1000))
          (set! (-> this drip-speed) (* 1.05 (-> this drip-speed)))
          (if (= (-> this drip-wetness) 0.0)
              (set! (-> this drip-height) 0.0)
@@ -1193,9 +1193,9 @@
     (set! (-> *part-id-table* 512 init-specs 12 random-rangef) (* 13.653334 (* -0.075 f0-0)))
     (set! (-> *part-id-table* 513 init-specs 12 initial-valuef) (* 13.653334 (* -0.15 f0-0)))
     (set! (-> *part-id-table* 513 init-specs 12 random-rangef) (* 13.653334 (* -0.075 f0-0)))
-    (set! (-> *part-id-table* 519 init-specs 2 initial-valuef) (* 4096.0 (* 0.1 f0-0)))
+    (set! (-> *part-id-table* 519 init-specs 2 initial-valuef) (* 4096.0 (/ f0-0 10)))
     (set! (-> *part-id-table* 519 init-specs 2 random-rangef) (* 4096.0 (* 0.4 f0-0)))
-    (set! (-> *part-id-table* 519 init-specs 4 initial-valuef) (* 4096.0 (* 0.1 f0-0)))
+    (set! (-> *part-id-table* 519 init-specs 4 initial-valuef) (* 4096.0 (/ f0-0 10)))
     (set! (-> *part-id-table* 519 init-specs 4 random-rangef) (* 4096.0 (* 0.4 f0-0)))
     (set! (-> *part-id-table* 519 init-specs 9 initial-valuef) (* 13.653334 (* 1.5 f0-0)))
     (set! (-> *part-id-table* 519 init-specs 9 random-rangef) (* 13.653334 (* 3.4 f0-0)))
@@ -1209,11 +1209,11 @@
     (set! (-> *part-id-table* 516 init-specs 10 random-rangef) (* 13.653334 (* 2.4 f0-0)))
     (set! (-> *part-id-table* 516 init-specs 11 initial-valuef) (* 13.653334 (* 1.5 f0-0)))
     (set! (-> *part-id-table* 516 init-specs 11 random-rangef) (* 13.653334 (* 2.4 f0-0)))
-    (set! (-> *part-id-table* 520 init-specs 1 initial-valuef) (* 0.5 f0-0))
-    (set! (-> *part-id-table* 520 init-specs 2 initial-valuef) (* 4096.0 (* -0.25 f0-0)))
-    (set! (-> *part-id-table* 520 init-specs 2 random-rangef) (* 4096.0 (* 0.5 f0-0)))
-    (set! (-> *part-id-table* 520 init-specs 3 initial-valuef) (* 4096.0 (* -0.25 f0-0)))
-    (set! (-> *part-id-table* 520 init-specs 3 random-rangef) (* 4096.0 (* 0.5 f0-0)))
+    (set! (-> *part-id-table* 520 init-specs 1 initial-valuef) (/ f0-0 2))
+    (set! (-> *part-id-table* 520 init-specs 2 initial-valuef) (* 4096.0 (/ f0-0 -4)))
+    (set! (-> *part-id-table* 520 init-specs 2 random-rangef) (* 4096.0 (/ f0-0 2)))
+    (set! (-> *part-id-table* 520 init-specs 3 initial-valuef) (* 4096.0 (/ f0-0 -4)))
+    (set! (-> *part-id-table* 520 init-specs 3 random-rangef) (* 4096.0 (/ f0-0 2)))
     (set! (-> *part-id-table* 520 init-specs 10 initial-valuef) (* 13.653334 (* -0.75 f0-0)))
     (set! (-> *part-id-table* 520 init-specs 10 random-rangef) (* 13.653334 (* 1.5 f0-0)))
     (set! (-> *part-id-table* 520 init-specs 12 initial-valuef) (* 13.653334 (* -0.75 f0-0)))
@@ -1222,7 +1222,7 @@
     (set! (-> *part-id-table* 520 init-specs 11 random-rangef) (* 13.653334 (* 2.0 f0-0)))
     (set! (-> *part-id-table* 520 init-specs 15 initial-valuef) (* 13.653334 (* -0.3 f0-0)))
     (set! (-> *part-id-table* 520 init-specs 15 random-rangef) (* 13.653334 (* -0.075 f0-0)))
-    (set! (-> *part-id-table* 517 init-specs 1 initial-valuef) (* 0.5 f0-0))
+    (set! (-> *part-id-table* 517 init-specs 1 initial-valuef) (/ f0-0 2))
     (set! (-> *part-id-table* 517 init-specs 2 initial-valuef) (* 1.2 f0-0))
     (set! (-> *part-id-table* 517 init-specs 9 initial-valuef) (* 13.653334 f0-0))
     (set! (-> *part-id-table* 517 init-specs 9 random-rangef) (* 13.653334 (* 2.0 f0-0)))
@@ -1245,10 +1245,10 @@
     (set! (-> *part-id-table* 515 init-specs 13 initial-valuef) (* 13.653334 (* -0.3 f0-0)))
     (set! (-> *part-id-table* 515 init-specs 13 random-rangef) (* 13.653334 (* -0.075 f0-0)))
     (set! (-> *part-id-table* 514 init-specs 2 initial-valuef) (* 4096.0 (* 1.2 f0-0)))
-    (set! (-> *part-id-table* 514 init-specs 2 random-rangef) (* 4096.0 (* 0.2 f0-0)))
+    (set! (-> *part-id-table* 514 init-specs 2 random-rangef) (* 4096.0 (/ f0-0 5)))
     (set! (-> *part-id-table* 514 init-specs 3 initial-valuef) (* 4096.0 (* 0.4 f0-0)))
     (set! (-> *part-id-table* 514 init-specs 3 random-rangef) (* 4096.0 (* 1.2 f0-0)))
-    (set! (-> *part-id-table* 514 init-specs 7 initial-valuef) (* 4096.0 (* 0.2 f0-0)))
+    (set! (-> *part-id-table* 514 init-specs 7 initial-valuef) (* 4096.0 (/ f0-0 5)))
     (set! (-> *part-id-table* 514 init-specs 7 random-rangef) (* 4096.0 (* 2.2 f0-0)))
     (set! (-> *part-id-table* 518 init-specs 2 initial-valuef) (* 4096.0 (* 0.3 f0-0)))
     (set! (-> *part-id-table* 518 init-specs 2 random-rangef) (* 4096.0 (* 0.9 f0-0)))
@@ -1361,7 +1361,7 @@
     (set! (-> *part-id-table* 506 init-specs 4 initial-valuef) (+ 24576.0 arg0))
     (set! (-> *part-id-table* 506 init-specs 19 initial-valuef) (+ 49152.0 arg0))
     (set! (-> *part-id-table* 506 init-specs 1 initial-valuef) (* 0.0000036621095 f30-0))
-    (set! (-> *part-id-table* 506 init-specs 2 initial-valuef) (* 0.1 f30-0))
+    (set! (-> *part-id-table* 506 init-specs 2 initial-valuef) (/ f30-0 10))
     (set! (-> *part-id-table* 506 init-specs 13 initial-valuef) 0.7111111)
     (set! (-> *part-id-table* 506 init-specs 3 initial-valuef) arg3)
     (set! (-> *part-id-table* 506 init-specs 5 initial-valuef) arg3)

test/decompiler/reference/jak2/engine/debug/default-menu_REF.gc

@@ -267,13 +267,13 @@
   (case arg0
     (('close)
      (if (and *math-camera* *subdivide-settings*)
-         (* 0.00024414062 (-> *subdivide-settings* close 7))
+         (/ (-> *subdivide-settings* close 7) METER_LENGTH)
          arg3
          )
      )
     (('far)
      (if (and *math-camera* *subdivide-settings*)
-         (* 0.00024414062 (-> *subdivide-settings* far 7))
+         (/ (-> *subdivide-settings* far 7) METER_LENGTH)
          arg3
          )
      )
@@ -548,7 +548,7 @@
     (if (= arg1 (debug-menu-msg press))
         (set! (-> v1-0 camera-to-bbox-dist) (* 4096.0 arg2))
         )
-    (* 0.00024414062 (-> v1-0 camera-to-bbox-dist))
+    (/ (-> v1-0 camera-to-bbox-dist) METER_LENGTH)
     )
   )
 
@@ -1015,7 +1015,7 @@
                    )
                  )
                )
-             (* 0.00024414062 f1-2)
+             (/ f1-2 METER_LENGTH)
              )
            )
           (else
@@ -1053,7 +1053,7 @@
                  (set! (-> (the-as prototype-bucket-tie gp-0) tie-vanish-far) f0-0)
                  )
                )
-             (* 0.00024414062 f0-0)
+             (/ f0-0 METER_LENGTH)
              )
            )
           (else
@@ -2613,7 +2613,7 @@
                     (set! (-> gp-0 dists x) (* 4096.0 arg2))
                     (prototype-bucket-recalc-fields gp-0)
                     )
-                  (* 0.00024414062 (-> gp-0 dists x))
+                  (/ (-> gp-0 dists x) METER_LENGTH)
                   )
                 (else
                   (empty)
@@ -2644,7 +2644,7 @@
                     (set! (-> gp-0 dists w) (* 4096.0 arg2))
                     (prototype-bucket-recalc-fields gp-0)
                     )
-                  (* 0.00024414062 (-> gp-0 dists w))
+                  (/ (-> gp-0 dists w) METER_LENGTH)
                   )
                 (else
                   (empty)
@@ -5256,13 +5256,13 @@
                             fog-dists
                             x
                             )
-                        (* 0.00024414062
-                           (-> *overide-mood-fog-table*
+                        (/ (-> *overide-mood-fog-table*
                                data
                                (the-as uint (logand (-> *time-of-day-context* mode) (time-of-day-palette-id unk0 unk1 unk2)))
                                fog-dists
                                x
                                )
+                           METER_LENGTH
                            )
                         )
                   (set! (-> *overide-mood-fog-table*
@@ -5271,13 +5271,13 @@
                             fog-dists
                             y
                             )
-                        (* 0.00024414062
-                           (-> *overide-mood-fog-table*
+                        (/ (-> *overide-mood-fog-table*
                                data
                                (the-as uint (logand (-> *time-of-day-context* mode) (time-of-day-palette-id unk0 unk1 unk2)))
                                fog-dists
                                y
                                )
+                           METER_LENGTH
                            )
                         )
                   )
@@ -5290,10 +5290,10 @@
                   (dotimes (v1-1 8)
                     (set! (-> *overide-mood-fog-table* data v1-1 fog-color w) 1.0)
                     (set! (-> *overide-mood-fog-table* data v1-1 fog-dists x)
-                          (* 0.00024414062 (-> *overide-mood-fog-table* data v1-1 fog-dists x))
+                          (/ (-> *overide-mood-fog-table* data v1-1 fog-dists x) METER_LENGTH)
                           )
                     (set! (-> *overide-mood-fog-table* data v1-1 fog-dists y)
-                          (* 0.00024414062 (-> *overide-mood-fog-table* data v1-1 fog-dists y))
+                          (/ (-> *overide-mood-fog-table* data v1-1 fog-dists y) METER_LENGTH)
                           )
                     )
                   #f
@@ -5620,10 +5620,10 @@
                   (set! (-> *overide-mood-color-table* data v1-2 amb-color w) 1.0)
                   (set! (-> *overide-mood-fog-table* data v1-2 fog-color w) 1.0)
                   (set! (-> *overide-mood-fog-table* data v1-2 fog-dists x)
-                        (* 0.00024414062 (-> *overide-mood-fog-table* data v1-2 fog-dists x))
+                        (/ (-> *overide-mood-fog-table* data v1-2 fog-dists x) METER_LENGTH)
                         )
                   (set! (-> *overide-mood-fog-table* data v1-2 fog-dists y)
-                        (* 0.00024414062 (-> *overide-mood-fog-table* data v1-2 fog-dists y))
+                        (/ (-> *overide-mood-fog-table* data v1-2 fog-dists y) METER_LENGTH)
                         )
                   (set-vector! (-> *time-of-day-context* times v1-2) 1.0 1.0 1.0 1.0)
                   )

test/decompiler/reference/jak2/engine/debug/editable-player_REF.gc

@@ -644,7 +644,7 @@
                              )
                             (else
                               (vector-! s5-1 (edit-get-trans s1-2) s4-1)
-                              (let ((f0-9 (* 0.00390625 f30-1 (vector-length s5-1))))
+                              (let ((f0-9 (* (/ f30-1 256) (vector-length s5-1))))
                                 (set! f0-6 (fmax -40960.0 (fmin 40960.0 f0-9)))
                                 )
                               (set! (-> arg0 move-speed) f0-6)
@@ -694,7 +694,7 @@
                               )
                              (else
                                (vector-! s5-2 (edit-get-trans s1-3) s4-2)
-                               (let ((f0-21 (* 0.00390625 f30-2 (vector-length s5-2))))
+                               (let ((f0-21 (* (/ f30-2 256) (vector-length s5-2))))
                                  (set! f0-18 (fmax -40960.0 (fmin 40960.0 f0-21)))
                                  )
                                (set! (-> arg0 move-speed) f0-18)
@@ -744,7 +744,7 @@
                               )
                              (else
                                (vector-! s5-3 (edit-get-trans s1-4) s4-3)
-                               (let ((f0-32 (* 0.00390625 f30-3 (vector-length s5-3))))
+                               (let ((f0-32 (* (/ f30-3 256) (vector-length s5-3))))
                                  (set! (-> arg0 move-speed) f0-32)
                                  (set! f0-29 (fmax -40960.0 (fmin 40960.0 f0-32)))
                                  )

test/decompiler/reference/jak2/engine/debug/editable_REF.gc

@@ -1152,7 +1152,7 @@
          (* 0.00024414062 (- (-> this trans x) (-> arg0 level-offset x)))
          (* 0.00024414062 (- (-> this trans y) (-> arg0 level-offset y)))
          (* 0.00024414062 (- (-> this trans z) (-> arg0 level-offset z)))
-         (* 0.00024414062 (-> this radius))
+         (/ (-> this radius) METER_LENGTH)
          )
        (if (= (-> this direction w) 0.0)
            (format s5-0 ", dir_x=0.0, dir_y=0.0, dir_z=0.0")

test/decompiler/reference/jak2/engine/debug/nav/nav-graph-editor_REF.gc

@@ -1896,7 +1896,7 @@
         (let ((gp-0 (-> self nav-graph edge-array data (-> self selected-index))))
           (format *stdcon* "Density = ~F~%" (-> gp-0 density))
           (logior! (-> gp-0 mysql-save-flag) (mysql-save-flag update))
-          (+! (-> gp-0 density) (* 0.01 (-> *mouse* speedx)))
+          (+! (-> gp-0 density) (/ (-> *mouse* speedx) 100))
           (if (< (-> gp-0 density) 0.0)
               (set! (-> gp-0 density) 0.0)
               )

test/decompiler/reference/jak2/engine/draw/drawable_REF.gc

@@ -389,7 +389,7 @@
       )
     )
   (set! (-> arg0 rdists z) (/ 1.0 (- (-> arg0 dists w) (-> arg0 dists z))))
-  (set! (-> arg0 dists y) (* 0.5 (-> arg0 dists x)))
+  (set! (-> arg0 dists y) (/ (-> arg0 dists x) 2))
   (set! (-> arg0 rdists y) (/ 1.0 (-> arg0 dists y)))
   arg0
   )

test/decompiler/reference/jak2/engine/game/effect-control_REF.gc

@@ -1154,7 +1154,7 @@
      (sound-play-by-name
        (sound-name-with-material "zoom-land" (-> self control ground-pat) "")
        (new-sound-id)
-       (the int (* 1024.0 (* 0.000016276043 (-> self control ground-impact-vel))))
+       (the int (* 1024.0 (/ (-> self control ground-impact-vel) (meters 15))))
        0
        0
        (sound-group sfx)

test/decompiler/reference/jak2/engine/geometry/cylinder_REF.gc

@@ -83,7 +83,7 @@
           (vector-cross! s1-0 (-> this axis) (new 'static 'vector :y 1.0))
           )
       (vector-normalize! s1-0 (-> this radius))
-      (vector-float*! s0-0 (-> this axis) (* 0.125 (-> this length)))
+      (vector-float*! s0-0 (-> this axis) (/ (-> this length) 8))
       (let ((s5-0 (new 'stack-no-clear 'cylinder-verts))
             (s4-0 (new 'stack-no-clear 'cylinder-verts))
             (s3-0 (new 'stack-no-clear 'matrix))
@@ -270,7 +270,7 @@
           (vector-cross! s1-0 (-> this axis) (new 'static 'vector :y 1.0))
           )
       (vector-normalize! s1-0 (-> this radius))
-      (vector-float*! s0-0 (-> this axis) (* 0.14285715 (-> this length)))
+      (vector-float*! s0-0 (-> this axis) (/ (-> this length) 7))
       (let ((s5-0 (new 'stack-no-clear 'cylinder-flat-verts))
             (s4-0 (new 'stack-no-clear 'cylinder-flat-verts))
             (s3-0 (new 'stack-no-clear 'matrix))

test/decompiler/reference/jak2/engine/geometry/geometry_REF.gc

@@ -96,7 +96,7 @@
     (.svf (&-> arg0 quad) vf3)
     (let* ((f0-0 (vector-length arg0))
            (f1-1 (vector-dot arg0 arg2))
-           (f0-2 (- (* 0.02 f0-0) f1-1))
+           (f0-2 (- (/ f0-0 50) f1-1))
            )
       (vector+float*! arg0 arg0 arg2 (fmin 16384.0 (* 16.0 f0-2)))
       )
@@ -477,11 +477,11 @@
          (f26-0 (vector-dot arg1 arg2))
          (f28-0 (sqrtf (* 0.5 (- 1.0 f26-0))))
          )
-    (let ((f0-5 (sin (* 0.5 arg3))))
+    (let ((f0-5 (sin (/ arg3 2))))
       (cond
         ((< f0-5 f28-0)
          (set! f28-0 f0-5)
-         (set! (-> arg0 w) (cos (* 0.5 arg3)))
+         (set! (-> arg0 w) (cos (/ arg3 2)))
          )
         (else
           (set! (-> arg0 w) (sqrtf (* 0.5 (+ 1.0 f26-0))))
@@ -505,11 +505,11 @@
          (f26-0 (+ 1.0 (* arg4 (+ -1.0 (vector-dot arg1 arg2)))))
          (f28-0 (sqrtf (* 0.5 (- 1.0 f26-0))))
          )
-    (let ((f0-5 (sin (* 0.5 arg3))))
+    (let ((f0-5 (sin (/ arg3 2))))
       (cond
         ((< f0-5 f28-0)
          (set! f28-0 f0-5)
-         (set! (-> arg0 w) (cos (* 0.5 arg3)))
+         (set! (-> arg0 w) (cos (/ arg3 2)))
          )
         (else
           (set! (-> arg0 w) (sqrtf (* 0.5 (+ 1.0 f26-0))))
@@ -1704,7 +1704,7 @@
               )
           (while (> s3-0 0)
             (+! s3-0 -1)
-            (set! f28-0 (* 0.5 f28-0))
+            (set! f28-0 (/ f28-0 2))
             (let ((v1-6 (cond
                           ((< f22-0 f20-0)
                            (curve-get-pos! s1-0 s0-1 arg0)

test/decompiler/reference/jak2/engine/gfx/foreground/ripple_REF.gc

@@ -231,7 +231,7 @@
               (if (< f0-23 0.0)
                   (set! f0-23 (-> gp-0 global-scale))
                   )
-              (+ f30-0 (* 0.0078125 f1-12 f0-23))
+              (+ f30-0 (* (/ f1-12 128) f0-23))
               )
             )
           )

test/decompiler/reference/jak2/engine/gfx/hw/video_REF.gc

@@ -32,7 +32,7 @@
   (set! (-> *video-params* reset-video-mode) #t)
   (set! (-> *math-camera* isometric vector 1 y) 0.5)
   (set! (-> *math-camera* y-clip) 416.0)
-  (set! (-> *math-camera* y-pix) (* 0.5 (-> *math-camera* y-clip)))
+  (set! (-> *math-camera* y-pix) (/ (-> *math-camera* y-clip) 2))
   (set! *profile-y* 1848)
   (set! (-> *video-params* set-video-mode) #t)
   0

test/decompiler/reference/jak2/engine/gfx/math-camera_REF.gc

@@ -55,7 +55,7 @@ Without this corrector, the fogginess of the world would change as the FOV chang
   "Compute some one-time camera constants.
    These should only change when changing aspect ratio."
   (local-vars (sv-16 float))
-  (set! (-> arg0 x-ratio) (tan (* 0.5 arg3)))
+  (set! (-> arg0 x-ratio) (tan (/ arg3 2)))
   (if (= arg2 'aspect4x3)
       (set! (-> arg0 y-ratio) (* 0.75 (-> arg0 x-ratio)))
       (set! (-> arg0 y-ratio) (* 0.5625 (-> arg0 x-ratio)))

test/decompiler/reference/jak2/engine/gfx/mood/mood-funcs2_REF.gc

@@ -686,7 +686,7 @@
             (if (or (and (>= a0-37 350) (< a0-37 400)) (>= a0-37 500))
                 (+! f4-0 f0-8)
                 )
-            (let ((f0-10 (* 0.0006510417 f4-0)))
+            (let ((f0-10 (/ f4-0 1536)))
               (set! (-> arg0 times 2 w) f0-10)
               (set! (-> arg0 light-group 3 dir1 extra x) f0-10)
               )
@@ -725,7 +725,7 @@
           (if (nonzero? (-> s5-0 spec-hog-2-on))
               (set! (-> s5-0 spec-hog-2-on initial-valuef) f0-19)
               )
-          (set! (-> arg0 times 3 w) (+ 0.5 (* 0.0009765625 f0-19)))
+          (set! (-> arg0 times 3 w) (+ 0.5 (/ f0-19 1024)))
           )
         (set! (-> arg0 light-group 4 dir1 extra x) (-> arg0 times 3 w))
         (let ((v1-6 (mod v1-5 600)))
@@ -738,7 +738,7 @@
                (if (nonzero? (-> s5-0 spec-hiphog-on2))
                    (set! (-> s5-0 spec-hiphog-on2 initial-valuef) f0-24)
                    )
-               (set! (-> arg0 times 4 w) (* 0.001953125 f0-24))
+               (set! (-> arg0 times 4 w) (/ f0-24 512))
                )
              )
             (else
@@ -759,7 +759,7 @@
              (if (nonzero? (-> s5-0 spec-clock-moon))
                  (set! (-> s5-0 spec-clock-moon initial-valuef) f0-31)
                  )
-             (set-vector! (-> arg0 times 5) 0.471 0.722 1.0 (+ 0.5 (* 0.001953125 f0-31)))
+             (set-vector! (-> arg0 times 5) 0.471 0.722 1.0 (+ 0.5 (/ f0-31 512)))
              )
            )
           (else
@@ -767,7 +767,7 @@
               (if (nonzero? (-> s5-0 spec-clock-sun))
                   (set! (-> s5-0 spec-clock-sun initial-valuef) f0-35)
                   )
-              (set-vector! (-> arg0 times 5) 1.0 0.99 0.54 (+ 0.5 (* 0.0009765625 f0-35)))
+              (set-vector! (-> arg0 times 5) 1.0 0.99 0.54 (+ 0.5 (/ f0-35 1024)))
               )
             )
           )
@@ -2803,7 +2803,7 @@
             )
         (when (!= (-> gp-0 explosion) 0.0)
           (set! (-> arg0 times 7 w) (-> gp-0 explosion))
-          (let ((f0-15 (- 1.0 (* 0.5 (-> gp-0 explosion)))))
+          (let ((f0-15 (- 1.0 (/ (-> gp-0 explosion) 2))))
             (set! (-> arg0 times 2 w) (* (-> arg0 times 2 w) f0-15))
             (set! (-> arg0 times 3 w) (* (-> arg0 times 3 w) f0-15))
             (set! (-> arg0 times 0 w) (* (-> arg0 times 0 w) f0-15))
@@ -2939,7 +2939,7 @@
         ((< 0.0 (-> gp-1 flash))
          (set! (-> gp-1 level) (-> gp-1 flash))
          (set-vector! (-> gp-1 dir) 0.0 0.0 1.0 0.0)
-         (set! (-> gp-1 flash) (- (-> gp-1 flash) (* 0.5 (-> *display* base-clock seconds-per-frame))))
+         (set! (-> gp-1 flash) (- (-> gp-1 flash) (/ (-> *display* base-clock seconds-per-frame) 2)))
          (set! (-> gp-1 time) 0.0)
          )
         (else
@@ -2963,7 +2963,7 @@
             (let ((f30-0 (vector-length (-> gp-1 pos))))
               (set! (-> gp-1 dir quad) (-> gp-1 pos quad))
               (vector-normalize! (-> gp-1 dir) 1.0)
-              (set! (-> gp-1 level) (* (-> gp-1 scale) (- 1.0 (fmin 1.0 (* 0.000009765625 f30-0)))))
+              (set! (-> gp-1 level) (* (-> gp-1 scale) (- 1.0 (fmin 1.0 (/ f30-0 (meters 25))))))
               )
             (set! (-> gp-1 pos z) (- (-> gp-1 pos z) (* (-> gp-1 delta) (-> *display* base-clock seconds-per-frame))))
             )
@@ -3077,7 +3077,7 @@
       (set! (-> arg0 times 5 w) (+ (-> gp-1 purple) (-> gp-1 purple-noise)))
       (when (not (paused?))
         (seek! (-> gp-1 purple) 0.0 (* 4.0 (seconds-per-frame)))
-        (set! (-> gp-1 purple-noise) (rand-vu-float-range 0.0 (* 0.2 (-> gp-1 purple))))
+        (set! (-> gp-1 purple-noise) (rand-vu-float-range 0.0 (/ (-> gp-1 purple) 5)))
         (+! (-> gp-1 rot) (* 16384.0 (seconds-per-frame)))
         )
       )

test/decompiler/reference/jak2/engine/gfx/mood/mood-funcs_REF.gc

@@ -649,7 +649,7 @@
                )
           (cond
             ((< f0-3 15.0)
-             (set! (-> gp-1 blink) (* 0.06666667 f0-3))
+             (set! (-> gp-1 blink) (/ f0-3 15))
              )
             ((< 45.0 f0-3)
              (set! (-> gp-1 blink) (* 0.06666667 (- 60.0 f0-3)))
@@ -721,7 +721,7 @@
         (set! (-> v1-12 r) 1.0)
         )
       (let ((f0-8 (- 1.0 (get-sphere-interp a0-9 a1-3 1024000.0 2048000.0))))
-        (update-mood-weather! *mood-control* (+ 0.25 (* 0.75 f0-8)) (+ 0.5 (* 0.5 f0-8)) 30.0 30.0)
+        (update-mood-weather! *mood-control* (+ 0.25 (* 0.75 f0-8)) (+ 0.5 (/ f0-8 2)) 30.0 30.0)
         )
       )
     )
@@ -1712,7 +1712,7 @@
   (let ((v1-1 (level-get *level* 'palent)))
     (when v1-1
       (let ((v1-2 (the-as object (-> v1-1 mood-context state))))
-        (set! (-> (the-as palent-states v1-2) turret-value) (* 0.5 arg0))
+        (set! (-> (the-as palent-states v1-2) turret-value) (/ arg0 2))
         )
       )
     )
@@ -1828,9 +1828,9 @@
 ;; definition for function update-village1-lights
 (defun update-village1-lights ((arg0 mood-context))
   (let ((v1-0 (-> arg0 light-group)))
-    (set! (-> v1-0 0 dir0 extra x) (* 0.5 (-> v1-0 0 dir0 extra x)))
-    (set! (-> v1-0 0 dir1 extra x) (* 0.5 (-> v1-0 0 dir1 extra x)))
-    (set! (-> v1-0 0 dir2 extra x) (* 0.5 (-> v1-0 0 dir2 extra x)))
+    (set! (-> v1-0 0 dir0 extra x) (/ (-> v1-0 0 dir0 extra x) 2))
+    (set! (-> v1-0 0 dir1 extra x) (/ (-> v1-0 0 dir1 extra x) 2))
+    (set! (-> v1-0 0 dir2 extra x) (/ (-> v1-0 0 dir2 extra x) 2))
     (set! (-> v1-0 0 ambi extra x) (* 0.75 (-> v1-0 0 ambi extra x)))
     )
   )
@@ -1848,7 +1848,7 @@
         (set! (-> arg0 times 6 w) (- 1.0 f0-0))
         (set! (-> arg0 times 7 w) f0-0)
         (if (!= f0-0 0.0)
-            (set-filter-color! (- 1.0 (* 0.25 f0-0)) (- 1.0 (* 0.5 f0-0)) 1.0)
+            (set-filter-color! (- 1.0 (/ f0-0 4)) (- 1.0 (/ f0-0 2)) 1.0)
             )
         )
       (when (not (paused?))

test/decompiler/reference/jak2/engine/gfx/mood/mood-tables2_REF.gc

@@ -428,8 +428,8 @@
     (format
       0
       "			 :fog-start (meters ~f) :fog-end (meters ~f) :fog-min ~f :fog-max ~f ~%"
-      (* 0.00024414062 (-> *overide-table* mood-fog-table data _fog-idx fog-dists x))
-      (* 0.00024414062 (-> *overide-table* mood-fog-table data _fog-idx fog-dists y))
+      (/ (-> *overide-table* mood-fog-table data _fog-idx fog-dists x) METER_LENGTH)
+      (/ (-> *overide-table* mood-fog-table data _fog-idx fog-dists y) METER_LENGTH)
       (-> *overide-table* mood-fog-table data _fog-idx fog-dists w)
       (-> *overide-table* mood-fog-table data _fog-idx fog-dists z)
       )

test/decompiler/reference/jak2/engine/gfx/mood/mood_REF.gc

@@ -807,8 +807,8 @@
            (set! (-> arg0 times arg1 w) f30-1)
            (when (not (paused?))
              (if (< 0.75 f30-1)
-                 (set! (-> gp-0 fade) (- (-> gp-0 fade) (* 0.04 (-> pp clock time-adjust-ratio))))
-                 (set! (-> gp-0 fade) (- (-> gp-0 fade) (* 0.02 (-> pp clock time-adjust-ratio))))
+                 (set! (-> gp-0 fade) (- (-> gp-0 fade) (/ (-> pp clock time-adjust-ratio) 25)))
+                 (set! (-> gp-0 fade) (- (-> gp-0 fade) (/ (-> pp clock time-adjust-ratio) 50)))
                  )
              )
            )
@@ -1661,11 +1661,11 @@
                (format *stdcon* "overide fog ~f~%" (-> this overide fog))
                )
               (else
-                (format *stdcon* "time until random cloud ~f~%" (* 0.0033333334 (-> this time-until-random cloud)))
+                (format *stdcon* "time until random cloud ~f~%" (/ (-> this time-until-random cloud) 300))
                 (format *stdcon* "current cloud ~f~%" (-> this current-interp cloud))
                 (format *stdcon* "target cloud ~f~%" (-> this target-interp cloud))
                 (format *stdcon* "speed cloud ~f~%" (* (/ 1.0 (-> this speed-interp cloud)) (seconds-per-frame)))
-                (format *stdcon* "time until random fog ~f~%" (* 0.0033333334 (-> this time-until-random fog)))
+                (format *stdcon* "time until random fog ~f~%" (/ (-> this time-until-random fog) 300))
                 (format *stdcon* "current fog ~f~%" (-> this current-interp fog))
                 (format *stdcon* "target fog ~f~%" (-> this target-interp fog))
                 (format *stdcon* "speed fog ~f~%" (* (/ 1.0 (-> this speed-interp fog)) (seconds-per-frame)))

test/decompiler/reference/jak2/engine/gfx/mood/time-of-day_REF.gc

@@ -198,7 +198,7 @@
        (-> self time-of-day)
        )
       (('time-of-day-norm)
-       (* 0.041666668 (-> self time-of-day))
+       (/ (-> self time-of-day) 24)
        )
       (('hour)
        (-> self hours)
@@ -311,10 +311,10 @@
       (set! (-> *overide-mood-color-table* data v1-8 amb-color w) 1.0)
       (set! (-> *overide-mood-fog-table* data v1-8 fog-color w) 1.0)
       (set! (-> *overide-mood-fog-table* data v1-8 fog-dists x)
-            (* 0.00024414062 (-> *overide-mood-fog-table* data v1-8 fog-dists x))
+            (/ (-> *overide-mood-fog-table* data v1-8 fog-dists x) METER_LENGTH)
             )
       (set! (-> *overide-mood-fog-table* data v1-8 fog-dists y)
-            (* 0.00024414062 (-> *overide-mood-fog-table* data v1-8 fog-dists y))
+            (/ (-> *overide-mood-fog-table* data v1-8 fog-dists y) METER_LENGTH)
             )
       (set-vector! (-> *time-of-day-context* times v1-8) 1.0 1.0 1.0 1.0)
       )
@@ -376,7 +376,7 @@
       )
     (let* ((f0-23 (fmax (fmax (-> s4-0 x) (-> s4-0 y)) (-> s4-0 z)))
            (f2-14 (fmax (fmax (-> s5-0 x) (-> s5-0 y)) (-> s5-0 z)))
-           (f0-27 (fmin 0.85 (- 1.0 (/ (* 0.5 f2-14) (+ f0-23 f2-14)))))
+           (f0-27 (fmin 0.85 (- 1.0 (/ (/ f2-14 2) (+ f0-23 f2-14)))))
            (v0-1 (-> arg0 current-shadow-color))
            )
       (set! (-> v0-1 x) f0-27)
@@ -643,8 +643,8 @@
          (v1-1 (-> *time-of-day-context* current-fog))
          (f1-0 (-> v1-1 fog-dists x))
          (f2-0 (-> v1-1 fog-dists y))
-         (f3-1 (* 0.003921569 (-> v1-1 fog-dists w)))
-         (f4-2 (* 0.003921569 (-> v1-1 fog-dists z)))
+         (f3-1 (/ (-> v1-1 fog-dists w) 255))
+         (f4-2 (/ (-> v1-1 fog-dists z) 255))
          )
     (+ f4-2 (* (fmax 0.0 (fmin 1.0 (/ (- f0-0 f1-0) (- f2-0 f1-0)))) (- f3-1 f4-2)))
     )

test/decompiler/reference/jak2/engine/gfx/ocean/ocean-mid_REF.gc

@@ -17,7 +17,7 @@
   (set-vector! (-> arg0 constants) -0.25 -0.5 0.0 393216.0)
   (let* ((s4-0 (-> (matrix-local->world #f #f) vector 2))
          (f0-12 (- 1.5 (* 0.000015258789 (atan (-> s4-0 x) (-> s4-0 z)))))
-         (f1-1 (+ 0.5 (* -0.5 (-> s4-0 y))))
+         (f1-1 (+ 0.5 (/ (-> s4-0 y) -2)))
          )
     (set-vector! (-> arg0 constants2) f0-12 f1-1 1.0 0.0)
     )
@@ -269,7 +269,7 @@
   (let ((f0-16 (* 128.0 (-> *time-of-day-context* ocean-alpha))))
     (if (-> *time-of-day-context* sky)
         (set-vector! (-> arg0 env-color) f0-16 f0-16 f0-16 f0-16)
-        (set-vector! (-> arg0 env-color) f0-16 f0-16 (* 0.5 f0-16) f0-16)
+        (set-vector! (-> arg0 env-color) f0-16 f0-16 (/ f0-16 2) f0-16)
         )
     )
   (set-vector! (-> arg0 index-table 0) 63 84 66 0)

test/decompiler/reference/jak2/engine/gfx/ocean/ocean-near_REF.gc

@@ -47,7 +47,7 @@
   (set-vector! (-> arg0 constants) -0.25 -0.5 0.0 0.000010172526)
   (let* ((s4-0 (-> (matrix-local->world #f #f) vector 2))
          (f0-12 (- 1.5 (* 0.000015258789 (atan (-> s4-0 x) (-> s4-0 z)))))
-         (f1-1 (+ 0.5 (* -0.5 (-> s4-0 y))))
+         (f1-1 (+ 0.5 (/ (-> s4-0 y) -2)))
          )
     (set-vector! (-> arg0 constants2) f0-12 f1-1 1.0 128.0)
     )
@@ -344,7 +344,7 @@
   (let ((f0-28 (* 128.0 (-> *time-of-day-context* ocean-alpha))))
     (if (-> *time-of-day-context* sky)
         (set-vector! (-> arg0 env-color) f0-28 f0-28 f0-28 f0-28)
-        (set-vector! (-> arg0 env-color) f0-28 f0-28 (* 0.5 f0-28) f0-28)
+        (set-vector! (-> arg0 env-color) f0-28 f0-28 (/ f0-28 2) f0-28)
         )
     )
   (set! (-> arg0 drw2-adgif tag) (new 'static 'gif-tag64 :nloop #x2 :eop #x1 :nreg #x1))

test/decompiler/reference/jak2/engine/gfx/ocean/ocean-texture_REF.gc

@@ -597,8 +597,8 @@
 ;; WARN: Return type mismatch int vs none.
 (defmethod ocean-method-84 ((this ocean) (arg0 dma-buffer) (arg1 sky-upload-data) (arg2 vector4w) (arg3 float))
   (when (>= (-> arg1 sun 0 pos y) -150.0)
-    (let* ((f2-0 (* 0.00010050251 (-> arg1 sun 0 pos x)))
-           (f1-3 (* 0.00010050251 (-> arg1 sun 0 pos z)))
+    (let* ((f2-0 (/ (-> arg1 sun 0 pos x) 9950))
+           (f1-3 (/ (-> arg1 sun 0 pos z) 9950))
            (f0-6 (if (< 0.0 (-> arg1 sun 0 pos y))
                      1.0
                      (* 0.006666667 (+ 150.0 (-> arg1 sun 0 pos y)))
@@ -773,7 +773,7 @@
       (vector--float*! s2-0 arg2 (-> s3-0 sun1-normal) 9.0)
       (vector--float*! s4-0 arg2 (-> s3-0 moon-normal) 9.0)
       (vector-float*! s5-0 s5-0 (* (-> s3-0 sun0-scale) f28-0))
-      (vector+float*! s5-0 s5-0 s2-0 (* 0.25 f28-0 (-> s3-0 sun1-scale)))
+      (vector+float*! s5-0 s5-0 s2-0 (* (/ f28-0 4) (-> s3-0 sun1-scale)))
       (vector+float*! s5-0 s5-0 s4-0 (* (-> s3-0 moon-scale) f28-0))
       )
     (+! (-> arg0 x) (fmax (fmin (-> s5-0 x) f30-0) (- f30-0)))

test/decompiler/reference/jak2/engine/gfx/ocean/ocean_REF.gc

@@ -3,8 +3,8 @@
 
 ;; definition for method 21 of type ocean
 (defmethod set-corners! ((this ocean) (corner-x float) (corner-z float))
-  (let* ((f2-0 (* 0.00008138021 corner-x))
-         (f3-0 (* 0.00008138021 corner-z))
+  (let* ((f2-0 (/ corner-x (meters 3)))
+         (f3-0 (/ corner-z (meters 3)))
          (f0-2 f2-0)
          (f0-4 (- f0-2 (the float (the int f0-2))))
          (f1-6 f3-0)
@@ -35,8 +35,8 @@
     ((and (-> this heights) *ocean-map*)
      (let* ((f30-0 (- (-> arg0 x) (-> this start-corner x)))
             (f28-0 (- (-> arg0 z) (-> this start-corner z)))
-            (v1-3 (the int (* 0.0000025431316 f30-0)))
-            (a0-2 (the int (* 0.0000025431316 f28-0)))
+            (v1-3 (the int (/ f30-0 (meters 96))))
+            (a0-2 (the int (/ f28-0 (meters 96))))
             (v1-7 (-> this ocean-trans-indices data (+ (* 48 a0-2) v1-3)))
             )
        (cond
@@ -47,8 +47,8 @@
               )
           )
          ((begin
-            (let ((a0-8 (logand (the int (* 0.000010172526 f30-0)) 3))
-                  (a3-4 (logand (the int (* 0.000010172526 f28-0)) 3))
+            (let ((a0-8 (logand (the int (/ f30-0 (meters 24))) 3))
+                  (a3-4 (logand (the int (/ f28-0 (meters 24))) 3))
                   (v1-10 (-> this ocean-near-indices data (-> v1-7 child)))
                   )
               (set! v1-12 (-> (the-as (pointer int16) (+ (* (+ (* a3-4 4) a0-8) 2) (the-as int v1-10)))))
@@ -61,14 +61,12 @@
               )
           )
          (else
-           (let ((a0-14 (logand (the int (* 0.00008138021 f30-0)) 7)))
+           (let ((a0-14 (logand (the int (/ f30-0 (meters 3))) 7)))
              (cond
-               ((not (logtest? (-> this ocean-mid-masks data v1-12 mask (logand (the int (* 0.00008138021 f28-0)) 7))
-                               (ash 1 a0-14)
-                               )
+               ((not (logtest? (-> this ocean-mid-masks data v1-12 mask (logand (the int (/ f28-0 (meters 3))) 7)) (ash 1 a0-14))
                      )
                 (let* ((f1-2 (vector-vector-distance arg0 (math-camera-pos)))
-                       (f26-0 (- 1.0 (fmin 1.0 (* 0.000010172526 f1-2))))
+                       (f26-0 (- 1.0 (fmin 1.0 (/ f1-2 (meters 24)))))
                        )
                   (if (-> this ocean-near-translucent?)
                       (+ (* f26-0 (set-corners! this f30-0 f28-0)) (-> this start-corner y))
@@ -1241,7 +1239,7 @@
                 (vector-! (the-as vector s1-0) v1-5 (-> this start-corner))
                 )
               (vector4-scale! s1-0 s1-0 0.0000025431316)
-              (set! (-> s3-0 y) (* 0.0000025431316 (-> this start-corner y)))
+              (set! (-> s3-0 y) (/ (-> this start-corner y) (meters 96)))
               (.lvf vf16 (&-> this constant quad))
               (.lvf vf3 (&-> s2-0 quad))
               (.lvf vf4 (&-> s1-0 quad))

test/decompiler/reference/jak2/engine/gfx/sky/sky-tng_REF.gc

@@ -206,7 +206,7 @@
     (vector--float*! (the-as vector s2-0) arg2 (-> arg3 sun1-normal) 9.0)
     (vector--float*! (the-as vector s4-0) arg2 (-> arg3 moon-normal) 9.0)
     (vector4-scale! s5-0 s5-0 (* (-> arg3 sun0-scale) f28-0))
-    (vector4-madd! s5-0 s5-0 s2-0 (* 0.25 f28-0 (-> arg3 sun1-scale)))
+    (vector4-madd! s5-0 s5-0 s2-0 (* (/ f28-0 4) (-> arg3 sun1-scale)))
     (vector4-madd! s5-0 s5-0 s4-0 (* (-> arg3 moon-scale) f28-0))
     (+! (-> arg0 x) (fmax (fmin (-> s5-0 x) f30-0) (- f30-0)))
     (+! (-> arg0 y) (fmax (fmin (-> s5-0 z) f30-0) (- f30-0)))
@@ -251,7 +251,7 @@
       (vector4-scale!
         (the-as vector4 (-> s4-0 sun1-color))
         (the-as vector4 (-> this sun1-color))
-        (* 0.5 (-> s4-0 sun1-scale))
+        (/ (-> s4-0 sun1-scale) 2)
         )
       (vector4-scale!
         (the-as vector4 (-> s4-0 moon-color))
@@ -434,7 +434,7 @@
     (vector4-scale!
       (the-as vector4 (-> s4-0 sun1-color))
       (the-as vector4 (-> this sun1-color))
-      (* 0.5 (-> s4-0 sun1-scale))
+      (/ (-> s4-0 sun1-scale) 2)
       )
     (vector4-scale!
       (the-as vector4 (-> s4-0 moon-color))

test/decompiler/reference/jak2/engine/gfx/sprite/particles/sparticle_REF.gc

@@ -301,8 +301,8 @@
       (set! (-> arg1 radius) f28-0)
       (let ((f24-0 (sin f26-0))
             (f26-1 (cos f26-0))
-            (f22-0 (sin (* 0.5 f30-0)))
-            (f0-5 (cos (* 0.5 f30-0)))
+            (f22-0 (sin (/ f30-0 2)))
+            (f0-5 (cos (/ f30-0 2)))
             (a1-1 (new 'stack-no-clear 'vector))
             (s4-0 (new 'stack-no-clear 'vector))
             )

test/decompiler/reference/jak2/engine/gfx/sprite/sprite-distort_REF.gc

@@ -58,13 +58,7 @@
             (let ((rot (* 65536.0 (/ (the float turn) (the float turns)))))
               (set-vector! (-> tbls entry entry-idx) (* (sin rot) cam-aspx) (* (cos rot) cam-aspy) 0.0 0.0)
               (let ((s3-1 (+ entry-idx 1)))
-                (set-vector!
-                  (-> tbls entry s3-1)
-                  (* 0.001953125 cam-aspx (sin rot))
-                  (* 0.001953125 cam-aspy (cos rot))
-                  0.0
-                  0.0
-                  )
+                (set-vector! (-> tbls entry s3-1) (* (/ cam-aspx 512) (sin rot)) (* (/ cam-aspy 512) (cos rot)) 0.0 0.0)
                 (set! entry-idx (+ s3-1 1))
                 )
               )
@@ -73,7 +67,7 @@
           )
         (set-vector! (-> tbls entry entry-idx) 0.0 cam-aspy 0.0 0.0)
         (let ((v1-20 (+ entry-idx 1)))
-          (set-vector! (-> tbls entry v1-20) 0.0 (* 0.001953125 cam-aspy) 0.0 0.0)
+          (set-vector! (-> tbls entry v1-20) 0.0 (/ cam-aspy 512) 0.0 0.0)
           (+ v1-20 1)
           )
         )

test/decompiler/reference/jak2/engine/gfx/sprite/sprite-glow_REF.gc

@@ -659,7 +659,7 @@
                           1.0
                           )
                          (else
-                           (let* ((f1-1 (* 0.00024414062 a0-5))
+                           (let* ((f1-1 (/ a0-5 METER_LENGTH))
                                   (f0-4 (- f1-1 (the float (the int f1-1))))
                                   )
                              (let ((f1-3 (* 4096.0 (- f1-1 f0-4))))

test/decompiler/reference/jak2/engine/math/math_REF.gc

@@ -76,9 +76,7 @@
               (* arg0
                  (+ 0.33333334
                     (* arg0
-                       (+ -0.25
-                          (* arg0 (+ 0.2 (* arg0 (+ -0.16666666 (* arg0 (+ 0.14285715 (* arg0 (+ -0.125 (* 0.11111111 arg0)))))))))
-                          )
+                       (+ -0.25 (* arg0 (+ 0.2 (* arg0 (+ -0.16666666 (* arg0 (+ 0.14285715 (* arg0 (+ -0.125 (/ arg0 9))))))))))
                        )
                     )
                  )
@@ -106,9 +104,7 @@
                      (* f0-5
                         (+ 0.33333334
                            (* f0-5
-                              (+ -0.25
-                                 (* f0-5 (+ 0.2 (* f0-5 (+ -0.16666666 (* f0-5 (+ 0.14285715 (* f0-5 (+ -0.125 (* 0.11111111 f0-5)))))))))
-                                 )
+                              (+ -0.25 (* f0-5 (+ 0.2 (* f0-5 (+ -0.16666666 (* f0-5 (+ 0.14285715 (* f0-5 (+ -0.125 (/ f0-5 9))))))))))
                               )
                            )
                         )
@@ -141,9 +137,7 @@
                          (* f0-5
                             (+ 0.33333334
                                (* f0-5
-                                  (+ -0.25
-                                     (* f0-5 (+ 0.2 (* f0-5 (+ -0.16666666 (* f0-5 (+ 0.14285715 (* f0-5 (+ -0.125 (* 0.11111111 f0-5)))))))))
-                                     )
+                                  (+ -0.25 (* f0-5 (+ 0.2 (* f0-5 (+ -0.16666666 (* f0-5 (+ 0.14285715 (* f0-5 (+ -0.125 (/ f0-5 9))))))))))
                                   )
                                )
                             )
@@ -285,7 +279,7 @@
   0
   0
   (let* ((f0-1 (* 0.0033333334 (the float arg1)))
-         (a2-0 (the int (* 0.016666668 f0-1)))
+         (a2-0 (the int (/ f0-1 60)))
          (f0-2 (- f0-1 (* 60.0 (the float a2-0))))
          (a3-0 (the int f0-2))
          (f0-3 (- f0-2 (the float a3-0)))

test/decompiler/reference/jak2/engine/math/quaternion_REF.gc

@@ -19,7 +19,7 @@
 (defun quaternion-axis-angle! ((arg0 quaternion) (arg1 float) (arg2 float) (arg3 float) (arg4 float))
   "Construct a quaternion from an axis and angle. The axis should be normalized."
   (let ((s5-0 (new 'stack-no-clear 'vector)))
-    (sincos! s5-0 (* 0.5 arg4))
+    (sincos! s5-0 (/ arg4 2))
     (let ((f0-2 (-> s5-0 x)))
       (set! (-> arg0 x) (* arg1 f0-2))
       (set! (-> arg0 y) (* arg2 f0-2))
@@ -34,7 +34,7 @@
 (defun quaternion-vector-angle! ((arg0 quaternion) (arg1 vector) (arg2 float))
   "Construct a quaternion from an axis and angle. The axis should be normalized."
   (let ((s5-0 (new 'stack-no-clear 'vector)))
-    (sincos! s5-0 (* 0.5 arg2))
+    (sincos! s5-0 (/ arg2 2))
     (let ((f0-2 (-> s5-0 x)))
       (set! (-> arg0 x) (* (-> arg1 x) f0-2))
       (set! (-> arg0 y) (* (-> arg1 y) f0-2))
@@ -480,7 +480,7 @@
     (cond
       ((< 0.0 f0-2)
        (let ((f0-4 (sqrtf (+ 1.0 f0-2))))
-         (set! (-> arg0 w) (* 0.5 f0-4))
+         (set! (-> arg0 w) (/ f0-4 2))
          (let ((f0-5 (/ 0.5 f0-4)))
            (set! (-> arg0 x) (* f0-5 (- (-> arg1 vector 1 z) (-> arg1 vector 2 y))))
            (set! (-> arg0 y) (* f0-5 (- (-> arg1 vector 2 x) (-> arg1 vector 0 z))))
@@ -515,7 +515,7 @@
                     )
                   )
                 )
-            (set! (-> arg0 data a2-0) (* 0.5 f0-12))
+            (set! (-> arg0 data a2-0) (/ f0-12 2))
             (if (!= f0-12 0.0)
                 (set! f0-12 (/ 0.5 f0-12))
                 )

test/decompiler/reference/jak2/engine/math/transformq_REF.gc

@@ -47,7 +47,7 @@
                f30-0
                )
               (else
-                (* 0.000000001 f30-0)
+                (/ f30-0 1000000000)
                 )
               )
             )

test/decompiler/reference/jak2/engine/physics/dynamics-h_REF.gc

@@ -45,7 +45,7 @@
 
 ;; definition for function time-to-apex
 (defun time-to-apex ((arg0 float) (arg1 float))
-  (the int (/ arg0 (- (* 0.0033333334 arg1))))
+  (the int (/ arg0 (- (/ arg1 300))))
   )
 
 ;; definition for function time-to-ground
@@ -54,8 +54,8 @@
         (v0-0 0)
         )
     (while (< (- arg2) f0-0)
-      (set! arg0 (- arg0 (* 0.0033333334 arg1)))
-      (+! f0-0 (* 0.0033333334 arg0))
+      (set! arg0 (- arg0 (/ arg1 300)))
+      (+! f0-0 (/ arg0 300))
       (+! v0-0 1)
       )
     v0-0

test/decompiler/reference/jak2/engine/physics/rigid-body_REF.gc

@@ -51,7 +51,7 @@
       )
     (matrix-identity! (-> this inertial-tensor))
     (matrix-identity! (-> this inv-inertial-tensor))
-    (let ((f0-4 (* 0.083333336 f24-0)))
+    (let ((f0-4 (/ f24-0 12)))
       (let* ((f1-1 f30-0)
              (f1-3 (* f1-1 f1-1))
              (f2-0 f26-0)
@@ -1515,7 +1515,7 @@
                  (f0-9 (/ 163840.0 (get-inv-mass a0-38)))
                  )
              (vector-reset! (-> this player-force))
-             (set! (-> this player-force y) (* -0.1 f0-9 f30-2))
+             (set! (-> this player-force y) (* (/ f0-9 -10) f30-2))
              )
            )
          )

test/decompiler/reference/jak2/engine/physics/trajectory_REF.gc

@@ -4,7 +4,7 @@
 ;; definition for method 9 of type trajectory
 (defmethod compute-trans-at-time ((this trajectory) (arg0 float) (arg1 vector))
   (vector+float*! arg1 (-> this initial-position) (-> this initial-velocity) arg0)
-  (+! (-> arg1 y) (* 0.5 arg0 arg0 (-> this gravity)))
+  (+! (-> arg1 y) (* (/ arg0 2) arg0 (-> this gravity)))
   arg1
   )
 
@@ -32,7 +32,7 @@
     (vector-! (-> this initial-velocity) arg1 arg0)
     (vector-xz-normalize! (-> this initial-velocity) f0-3)
     )
-  (set! (-> this initial-velocity y) (- (/ (- (-> arg1 y) (-> arg0 y)) arg2) (* 0.5 arg2 (-> this gravity))))
+  (set! (-> this initial-velocity y) (- (/ (- (-> arg1 y) (-> arg0 y)) arg2) (* (/ arg2 2) (-> this gravity))))
   0
   (none)
   )

test/decompiler/reference/jak2/engine/ps2/timer_REF.gc

@@ -160,9 +160,9 @@
                   )
               )
         )
-    (set! (-> this time-adjust-ratio) (* 0.2 f0-6))
+    (set! (-> this time-adjust-ratio) (/ f0-6 5))
     )
-  (set! (-> this seconds-per-frame) (* 0.016666668 (-> this time-adjust-ratio)))
+  (set! (-> this seconds-per-frame) (/ (-> this time-adjust-ratio) 60))
   (set! (-> this frames-per-second) (if (= (-> this time-adjust-ratio) 0.0)
                                         0.0
                                         (* 60.0 (/ 1.0 (-> this time-adjust-ratio)))

test/decompiler/reference/jak2/engine/scene/scene_REF.gc

@@ -785,7 +785,7 @@
         )
       (let* ((v1-28 (-> s3-0 base))
              (a2-23
-               (+ (- 1793 (the-as int (shr (-> arg0 width) 1))) (the int (+ (-> arg1 origin x) (* 0.5 (-> arg1 width)))))
+               (+ (- 1793 (the-as int (shr (-> arg0 width) 1))) (the int (+ (-> arg1 origin x) (/ (-> arg1 width) 2))))
                )
              (a3-8 (+ (the int (-> arg1 origin y)) 1841))
              (a0-23 (+ a2-23 (-> arg0 width)))
@@ -802,7 +802,7 @@
       (&+! (-> s3-0 base) 112)
       (let* ((v1-32 (-> s3-0 base))
              (a1-38
-               (+ (- 1792 (the-as int (shr (-> arg0 width) 1))) (the int (+ (-> arg1 origin x) (* 0.5 (-> arg1 width)))))
+               (+ (- 1792 (the-as int (shr (-> arg0 width) 1))) (the int (+ (-> arg1 origin x) (/ (-> arg1 width) 2))))
                )
              (a3-11 (+ (the int (-> arg1 origin y)) 1840))
              (a0-30 (+ a1-38 (-> arg0 width)))

test/decompiler/reference/jak2/engine/sound/gsound_REF.gc

@@ -631,9 +631,9 @@
                   )
               )
         )
-    (set! (-> arg0 x) (the int (* 0.0625 (-> v1-0 x))))
-    (set! (-> arg0 y) (the int (* 0.0625 (-> v1-0 y))))
-    (set! (-> arg0 z) (the int (* 0.0625 (-> v1-0 z))))
+    (set! (-> arg0 x) (the int (/ (-> v1-0 x) 16)))
+    (set! (-> arg0 y) (the int (/ (-> v1-0 y) 16)))
+    (set! (-> arg0 z) (the int (/ (-> v1-0 z) 16)))
     )
   0
   )
@@ -1162,7 +1162,7 @@
 ;; definition for method 14 of type ambient-sound
 ;; WARN: Return type mismatch int vs none.
 (defmethod set-falloff-far! ((this ambient-sound) (arg0 float))
-  (set! (-> this falloff-far) (the int (* 0.00024414062 arg0)))
+  (set! (-> this falloff-far) (the int (/ arg0 METER_LENGTH)))
   0
   (none)
   )

test/decompiler/reference/jak2/engine/target/board/board-states_REF.gc

@@ -40,8 +40,8 @@
           )
       )
     (set! (-> self board turn-anim-targ) (+ (lerp-scale
-                                              (* 0.5 (-> *TARGET_BOARD-bank* turn-frames))
-                                              (* -0.5 (-> *TARGET_BOARD-bank* turn-frames))
+                                              (/ (-> *TARGET_BOARD-bank* turn-frames) 2)
+                                              (/ (-> *TARGET_BOARD-bank* turn-frames) -2)
                                               f26-0
                                               -5461.3335
                                               5461.3335
@@ -54,8 +54,8 @@
                                               32768.0
                                               )
                                             (lerp-scale
-                                              (* 0.2 (-> *TARGET_BOARD-bank* turn-frames))
-                                              (* -0.2 (-> *TARGET_BOARD-bank* turn-frames))
+                                              (/ (-> *TARGET_BOARD-bank* turn-frames) 5)
+                                              (/ (-> *TARGET_BOARD-bank* turn-frames) -5)
                                               (-> self board turn-anim-mag)
                                               1.0
                                               -1.0
@@ -63,7 +63,7 @@
                                             )
           )
     (when (and (or (< (* f30-0 (-> self board turn-anim-targ)) 0.0) (= f30-0 0.0))
-               (and (< (* 0.2 (-> *TARGET_BOARD-bank* turn-frames)) (fabs (- f30-0 (-> self board turn-anim-targ))))
+               (and (< (/ (-> *TARGET_BOARD-bank* turn-frames) 5) (fabs (- f30-0 (-> self board turn-anim-targ))))
                     (>= (current-time) (-> self control turn-lockout-end-time))
                     )
                )
@@ -2210,7 +2210,7 @@
       (else
         (let ((f30-1
                 (* (lerp-scale 0.7 1.0 (fabs (-> self board ride-lean)) 0.0 1.0)
-                   (lerp-scale 0.8 1.0 (fabs (-> self board ride-speed)) 0.0 (* 0.5 (-> self control mod-surface transv-max)))
+                   (lerp-scale 0.8 1.0 (fabs (-> self board ride-speed)) 0.0 (/ (-> self control mod-surface transv-max) 2))
                    )
                 )
               (f0-23

test/decompiler/reference/jak2/engine/target/board/target-board_REF.gc

@@ -47,7 +47,7 @@
          (set! (-> arg0 slope-down-factor) (-> arg1 slope-down-factor))
          (set! (-> arg0 seek0)
                (lerp-scale
-                 (* 0.1 (-> arg0 seek0))
+                 (/ (-> arg0 seek0) 10)
                  (-> arg0 seek0)
                  (the float (- (current-time) (-> self board spin-time)))
                  0.0
@@ -56,7 +56,7 @@
                )
          (set! (-> arg0 seek90)
                (lerp-scale
-                 (* 0.1 (-> arg0 seek90))
+                 (/ (-> arg0 seek90) 10)
                  (-> arg0 seek90)
                  (the float (- (current-time) (-> self board spin-time)))
                  0.0
@@ -72,8 +72,8 @@
          (when (not (time-elapsed? (-> self board spin-ground-start-time) (seconds 0.3)))
            (set-time! (-> self control last-attack-end-time))
            (set-time! (-> self board spin-ground-time))
-           (set! (-> arg0 seek0) (* 0.1 (-> arg0 seek0)))
-           (set! (-> arg0 seek90) (* 0.1 (-> arg0 seek90)))
+           (set! (-> arg0 seek0) (/ (-> arg0 seek0) 10))
+           (set! (-> arg0 seek90) (/ (-> arg0 seek90) 10))
            (set! (-> arg0 vel-turn) 131072.0)
            (set! (-> arg0 turnv) 91022.22)
            )
@@ -1678,7 +1678,7 @@
                    (< 0.98 (vector-dot (-> self board unknown-vector01) (-> self control standard-dynamics gravity-normal)))
                    (< f26-0 8192.0)
                    (< f30-0 8192.0)
-                   (or (< (* 0.2 f28-0) f30-0) (not (time-elapsed? (-> self board unknown-time-frame00) (seconds 0.1))))
+                   (or (< (/ f28-0 5) f30-0) (not (time-elapsed? (-> self board unknown-time-frame00) (seconds 0.1))))
                    )
           (vector+float*!
             (-> self control transv)
@@ -1999,7 +1999,7 @@
         (set! (-> s2-0 start-pos quad) (-> v1-2 prim-core world-sphere quad))
         (set! (-> s2-0 move-dist quad) (-> arg1 quad))
         (let ((a0-3 s2-0))
-          (set! (-> a0-3 radius) (* 0.5 (-> v1-2 prim-core world-sphere w)))
+          (set! (-> a0-3 radius) (/ (-> v1-2 prim-core world-sphere w) 2))
           (set! (-> a0-3 collide-with) (-> v1-2 prim-core collide-with))
           (set! (-> a0-3 ignore-process0) (-> arg0 process))
           (set! (-> a0-3 ignore-process1) #f)
@@ -2404,7 +2404,7 @@
   (let* ((f30-0 (-> self board ride-speed))
          (f0-4 (lerp-scale
                  (-> self control current-surface fric)
-                 (* 0.2 (-> self control current-surface fric))
+                 (/ (-> self control current-surface fric) 5)
                  f30-0
                  0.0
                  (-> self control current-surface transv-max)

test/decompiler/reference/jak2/engine/target/collide-reaction-target_REF.gc

@@ -162,7 +162,7 @@
           )
       (when (and (or (and (< f0-27 0.95) (>= f30-0 0.0))
                      (and (logtest? sv-32 (cshape-reaction-flags csrf05)) (< f0-27 0.3))
-                     (< f1-11 (* -0.25 (-> arg1 best-my-prim local-sphere w)))
+                     (< f1-11 (/ (-> arg1 best-my-prim local-sphere w) -4))
                      )
                  (>= (vector-dot tangent contact-normal) -0.000001)
                  )

test/decompiler/reference/jak2/engine/target/gun/gun-yellow-shot_REF.gc

@@ -122,7 +122,7 @@
       (vector-normalize! s5-1 1.0)
       (launch-particles (-> *part-id-table* 224) gp-0)
       (let ((s3-0 (new 'stack-no-clear 'matrix))
-            (f28-1 (* 0.000015258789 f30-0))
+            (f28-1 (/ f30-0 (meters 16)))
             (f30-1 (-> *part-id-table* 226 init-specs 3 initial-valuef))
             )
         (forward-up->inv-matrix s3-0 s5-1 *up-vector*)

test/decompiler/reference/jak2/engine/target/logic-target_REF.gc

@@ -622,7 +622,7 @@
           (set! f2-0 (-> a1-3 a2-6 w))
           )
         )
-      (let ((f1-1 (* 0.0625 f1-0)))
+      (let ((f1-1 (/ f1-0 16)))
         (set! (-> self control idx-of-fastest-xz-vel) a0-3)
         (set! (-> self control average-xz-vel) f1-1)
         (if (logtest? (-> self control current-surface flags) (surface-flag no-turn-around))

test/decompiler/reference/jak2/engine/target/mech/mech-part_REF.gc

@@ -158,7 +158,7 @@
       (quaternion-rotate-local-x! s1-0 s1-0 32768.0)
       (let ((a0-3 s0-0))
         (let ((v1-10 arg1))
-          (let ((a1-4 (* 0.5 arg4)))
+          (let ((a1-4 (/ arg4 2)))
             (.mov vf7 a1-4)
             )
           (.lvf vf5 (&-> arg2 quad))

test/decompiler/reference/jak2/engine/target/mech/mech-states_REF.gc

@@ -798,7 +798,7 @@
           (else
             (seek! (-> self mech jump-thrust) 0.0 (* 491520.0 (seconds-per-frame)))
             (set! (-> self mech thruster-flame-width) (* 0.021428572 (-> self mech jump-thrust)))
-            (set! (-> self mech thruster-flame-length) (* 0.028571429 (-> self mech jump-thrust)))
+            (set! (-> self mech thruster-flame-length) (/ (-> self mech jump-thrust) 35))
             )
           )
         )
@@ -1323,7 +1323,7 @@
       (dotimes (s4-0 1)
         ((method-of-type sphere new) (the-as symbol (+ (the-as uint s5-0) (* s4-0 16))) sphere)
         )
-      (let ((f30-0 (seek (-> self control collide-mode-transition) 1.0 (* 0.1 (-> self clock time-adjust-ratio)))))
+      (let ((f30-0 (seek (-> self control collide-mode-transition) 1.0 (/ (-> self clock time-adjust-ratio) 10))))
         (set! (-> (the-as sphere (&-> s5-0 x)) quad)
               (-> self control collision-spheres 2 prim-core world-sphere quad)
               )
@@ -2164,7 +2164,7 @@
             (* 491520.0 (seconds-per-frame))
             )
           (set! (-> self mech thruster-flame-width) (* 0.021428572 (-> self mech jump-thrust)))
-          (set! (-> self mech thruster-flame-length) (* 0.028571429 (-> self mech jump-thrust)))
+          (set! (-> self mech thruster-flame-length) (/ (-> self mech jump-thrust) 35))
           (let ((v1-120 (ja-group)))
             (if (and v1-120 (or (= v1-120 jakb-mech-push-ja) (= v1-120 jakb-mech-pull-ja)))
                 (ja :num! (loop! f26-1))

test/decompiler/reference/jak2/engine/target/surface-h_REF.gc

@@ -190,19 +190,19 @@ on impact, during touch, on exit, etc."
 
 ;; definition for function calc-terminal-vel
 (defun calc-terminal-vel ((arg0 float) (arg1 float) (arg2 float))
-  (- (* (/ (- (* 0.016666668 arg0) arg1) arg2) (- 1.0 arg2)) arg1)
+  (- (* (/ (- (/ arg0 60) arg1) arg2) (- 1.0 arg2)) arg1)
   )
 
 ;; definition for function calc-terminal2-vel
 (defun calc-terminal2-vel ((arg0 float) (arg1 float) (arg2 float) (arg3 float))
-  (let ((f0-4 (sqrtf (/ (- (* 0.016666668 arg0) arg1) arg2))))
+  (let ((f0-4 (sqrtf (/ (- (/ arg0 60) arg1) arg2))))
     (- f0-4 (+ arg1 (* arg2 (* f0-4 f0-4))))
     )
   )
 
 ;; definition for function calc-terminal4-vel
 (defun calc-terminal4-vel ((arg0 float) (arg1 float) (arg2 float))
-  (let ((f0-5 (sqrtf (sqrtf (/ (- (* 0.016666668 arg0) arg1) arg2)))))
+  (let ((f0-5 (sqrtf (sqrtf (/ (- (/ arg0 60) arg1) arg2)))))
     (- f0-5 (+ arg1 (* arg2 (* f0-5 f0-5 f0-5 f0-5))))
     )
   )

test/decompiler/reference/jak2/engine/target/target-anim_REF.gc

@@ -674,7 +674,7 @@
            )
          ((lambda :behavior target
             ()
-            (let ((f30-0 (fmax 0.8 (fmin 1.0 (* 0.000048828126 (-> self control ctrl-xz-vel))))))
+            (let ((f30-0 (fmax 0.8 (fmin 1.0 (/ (-> self control ctrl-xz-vel) (meters 5))))))
               (cond
                 ((and (rand-vu-percent? 0.3) (< 20480.0 (-> self control ctrl-xz-vel)))
                  (ja-no-eval :group! jakb-attack-from-stance-alt-end-ja :num! (seek! (ja-aframe 29.0 0) f30-0) :frame-num 0.0)
@@ -1031,10 +1031,10 @@
               )
             )
           (let ((f0-37 (fabs (- f20-0 f30-0))))
-            (set! f30-0 (seek f30-0 f20-0 (fmax 0.05 (fmin 0.2 (* 0.25 f0-37)))))
+            (set! f30-0 (seek f30-0 f20-0 (fmax 0.05 (fmin 0.2 (/ f0-37 4)))))
             )
           (let ((f0-42 (fabs (- f22-1 f28-0))))
-            (set! f28-0 (seek f28-0 f22-1 (fmax 0.05 (fmin 0.2 (* 0.25 f0-42)))))
+            (set! f28-0 (seek f28-0 f22-1 (fmax 0.05 (fmin 0.2 (/ f0-42 4)))))
             )
           )
         (set! (-> self control unknown-float-n12iuh3n1) f30-0)
@@ -1572,7 +1572,7 @@
     (let ((f0-11 (target-height-above-ground))
           (f1-1 (vector-dot (-> self control dynam gravity-normal) (-> self control transv)))
           )
-      (while (not (or (and (< (fabs (/ f0-11 (* 0.0033333334 f1-1))) 150.0) (< f1-1 0.0))
+      (while (not (or (and (< (fabs (/ f0-11 (/ f1-1 300))) 150.0) (< f1-1 0.0))
                       (time-elapsed? (-> self state-time) (seconds 1.7))
                       )
                   )

test/decompiler/reference/jak2/engine/target/target-carry_REF.gc

@@ -80,7 +80,7 @@
       (dotimes (s4-0 1)
         ((method-of-type sphere new) (the-as symbol (-> s5-0 s4-0)) sphere)
         )
-      (let ((f30-0 (seek (-> self control collide-mode-transition) 1.0 (* 0.1 (-> self clock time-adjust-ratio)))))
+      (let ((f30-0 (seek (-> self control collide-mode-transition) 1.0 (/ (-> self clock time-adjust-ratio) 10))))
         (set! (-> s5-0 0 quad) (-> self control collision-spheres 2 prim-core world-sphere quad))
         (set! (-> s5-0 0 r) (lerp-scale (-> *TARGET-bank* body-radius) 7372.8 f30-0 0.0 1.0))
         (let ((v1-17 gp-0))

test/decompiler/reference/jak2/engine/target/target-darkjak_REF.gc

@@ -603,7 +603,7 @@
     (set-setting! 'rapid-tracking #f 0.0 0)
     ((lambda :behavior target
        ()
-       (set! (-> self control bend-target) (* 0.5 (-> self control bend-target)))
+       (set! (-> self control bend-target) (/ (-> self control bend-target) 2))
        (if (logtest? (water-flags touch-water) (-> self water flags))
            (sound-play "swim-stroke")
            )
@@ -1943,7 +1943,3 @@
     )
   :post (-> target-grab post)
   )
-
-
-
-

test/decompiler/reference/jak2/engine/target/target-death_REF.gc

@@ -981,7 +981,7 @@
       (set! (-> sv-32 vector y) (-> sv-32 shove-up))
       )
     (when (and (focus-test? self dark) (nonzero? (-> self darkjak)))
-      (set! (-> sv-32 damage) (fmax 1.0 (ceil (* 0.5 (-> sv-32 damage)))))
+      (set! (-> sv-32 damage) (fmax 1.0 (ceil (/ (-> sv-32 damage) 2))))
       (if (< (- (-> self fact health) (-> sv-32 damage)) 1.0)
           (set! (-> sv-32 damage) (+ -1.0 (-> self fact health)))
           )

test/decompiler/reference/jak2/engine/target/target-gun_REF.gc

@@ -1659,7 +1659,7 @@
                   (dotimes (s4-1 1)
                     ((method-of-type sphere new) (the-as symbol (-> s5-2 s4-1)) sphere)
                     )
-                  (let ((f30-1 (seek (-> self control collide-mode-transition) 1.0 (* 0.1 (-> self clock time-adjust-ratio)))))
+                  (let ((f30-1 (seek (-> self control collide-mode-transition) 1.0 (/ (-> self clock time-adjust-ratio) 10))))
                     (set! (-> s5-2 0 quad) (-> self control collision-spheres 2 prim-core world-sphere quad))
                     (set! (-> s5-2 0 r) (lerp-scale (-> *TARGET-bank* body-radius) 7372.8 f30-1 0.0 1.0))
                     (let ((v1-212 gp-3))
@@ -1748,7 +1748,7 @@
         (let* ((f0-28 (deg-diff (y-angle (-> self control)) (vector-y-angle (-> self control to-target-pt-xz))))
                (f0-30 (fmax -5461.3335 (fmin 5461.3335 f0-28)))
                )
-          (seek! (-> self upper-body twist z) f0-30 (fabs (* 0.2 f0-30)))
+          (seek! (-> self upper-body twist z) f0-30 (fabs (/ f0-30 5)))
           )
         )
        )

test/decompiler/reference/jak2/engine/target/target-swim_REF.gc

@@ -187,10 +187,10 @@
               (f24-0 (fmax -1.0 (fmin 1.0 (* 1.6 (-> self control local-slope-x)))))
               )
           (let ((f1-4 (fabs (- f0-10 f28-0))))
-            (set! f28-0 (seek f28-0 f0-10 (fmax 0.05 (fmin 0.2 (* 0.25 f1-4)))))
+            (set! f28-0 (seek f28-0 f0-10 (fmax 0.05 (fmin 0.2 (/ f1-4 4)))))
             )
           (let ((f0-14 (fabs (- f24-0 f26-0))))
-            (set! f26-0 (seek f26-0 f24-0 (fmax 0.05 (fmin 0.2 (* 0.25 f0-14)))))
+            (set! f26-0 (seek f26-0 f24-0 (fmax 0.05 (fmin 0.2 (/ f0-14 4)))))
             )
           )
         (ja :chan 3 :group! jakb-walk-down-ja :dist (-> *TARGET-bank* walk-down-cycle-dist))

test/decompiler/reference/jak2/engine/target/target-tube_REF.gc

@@ -862,7 +862,7 @@
                  (f2-0 f1-2)
                  )
             (if (< f0-2 0.0)
-                (set! f0-2 (* 0.5 f0-2))
+                (set! f0-2 (/ f0-2 2))
                 )
             (vector+!
               (-> arg1 vector)

test/decompiler/reference/jak2/engine/target/target-turret-shot_REF.gc

@@ -293,7 +293,7 @@
         (launch-particles (-> *part-id-table* 608) s4-0)
         )
       (let ((s4-1 (new 'stack-no-clear 'matrix))
-            (f26-0 (* 0.000027126736 f30-0))
+            (f26-0 (/ f30-0 (meters 9)))
             (f30-1 (-> *part-id-table* 923 init-specs 3 initial-valuef))
             (f28-1 (-> *part-id-table* 923 init-specs 4 initial-valuef))
             )

test/decompiler/reference/jak2/engine/target/target-turret_REF.gc

@@ -408,7 +408,7 @@
           )
         )
       (set! (-> this sprites 28 color w)
-            (the int (* 0.00390625 (-> this fade-interp) (the float (-> this values 2 current))))
+            (the int (* (/ (-> this fade-interp) 256) (the float (-> this values 2 current))))
             )
       (set-as-offset-from!
         (-> this sprites 28)

test/decompiler/reference/jak2/engine/target/target-util_REF.gc

@@ -1208,7 +1208,7 @@
             )
           )
       )
-    (* 0.125 f30-0)
+    (/ f30-0 8)
     )
   )
 
@@ -1890,10 +1890,10 @@
         (f30-0 (fmax -1.0 (fmin 1.0 arg2)))
         )
     (let ((f1-5 (fabs (- f0-1 (-> arg0 blend 1)))))
-      (seek! (-> arg0 blend 1) f0-1 (fmax (fmin (* f1-5 arg3) (* 0.8 arg3)) (* 0.2 arg3)))
+      (seek! (-> arg0 blend 1) f0-1 (fmax (fmin (* f1-5 arg3) (* 0.8 arg3)) (/ arg3 5)))
       )
     (let ((f0-9 (fabs (- f30-0 (-> arg0 blend 2)))))
-      (seek! (-> arg0 blend 2) f30-0 (fmax (fmin (* f0-9 arg3) (* 0.8 arg3)) (* 0.2 arg3)))
+      (seek! (-> arg0 blend 2) f30-0 (fmax (fmin (* f0-9 arg3) (* 0.8 arg3)) (/ arg3 5)))
       )
     )
   (cond
@@ -2073,8 +2073,8 @@
          (cond
            ((and (< 0.0 f0-4) (focus-test? this in-air))
             (let* ((v0-1 (new 'static 'vector))
-                   (f0-5 (+ (* 0.0016666667 (-> v1-0 dynam gravity-length)) f0-4))
-                   (f0-8 (/ (* 0.5 f0-5 f0-5) (-> v1-0 dynam gravity-length)))
+                   (f0-5 (+ (/ (-> v1-0 dynam gravity-length) 600) f0-4))
+                   (f0-8 (/ (* (/ f0-5 2) f0-5) (-> v1-0 dynam gravity-length)))
                    )
               (vector+float*! v0-1 (-> v1-0 trans) (-> v1-0 dynam gravity-normal) f0-8)
               )

test/decompiler/reference/jak2/engine/target/target2_REF.gc

@@ -658,7 +658,7 @@
     (let ((f0-1 (target-height-above-ground))
           (f1-1 (vector-dot (-> self control dynam gravity-normal) (-> self control transv)))
           )
-      (while (not (and (< (fabs (/ f0-1 (* 0.0033333334 f1-1))) 40.0) (and (< f1-1 0.0) (ja-min? 0))))
+      (while (not (and (< (fabs (/ f0-1 (/ f1-1 300))) 40.0) (and (< f1-1 0.0) (ja-min? 0))))
         (suspend)
         (ja :num! (loop!))
         (set! f0-1 (target-height-above-ground))

test/decompiler/reference/jak2/engine/target/target_REF.gc

@@ -564,11 +564,11 @@
   (delete-back-vel)
   (let* ((f0-4 arg5)
          (f1-2 0.0)
-         (f2-2 (+ (* 0.0016666667 (-> self control dynam gravity-length))
+         (f2-2 (+ (/ (-> self control dynam gravity-length) 600)
                   (fmax 0.0 (vector-dot (-> self control dynam gravity-normal) (-> self control transv)))
                   )
                )
-         (f0-5 (* f0-4 (fmax f1-2 (/ (* 0.5 f2-2 f2-2) (-> self control dynam gravity-length)))))
+         (f0-5 (* f0-4 (fmax f1-2 (/ (* (/ f2-2 2) f2-2) (-> self control dynam gravity-length)))))
          (s3-1 (+ arg0 f0-5))
          )
     (let ((s2-1 (+ arg1 f0-5)))
@@ -698,7 +698,7 @@
                    (nonzero? (-> self darkjak))
                    (logtest? (-> self darkjak stage) (darkjak-stage giant))
                    )
-              (set! (-> v1-62 y) (* 0.5 (-> v1-62 y)))
+              (set! (-> v1-62 y) (/ (-> v1-62 y) 2))
               )
           (set! v0-1 (-> self control anim-collide-offset-local))
           (set! (-> v0-1 quad) (-> v1-62 quad))
@@ -2772,7 +2772,7 @@
          )
         (else
           (let* ((f1-5 (/ f0-2 (* (-> self control dynam gravity-length) (seconds-per-frame))))
-                 (f0-7 (* 0.5 f1-5 (seconds-per-frame) f0-2))
+                 (f0-7 (* (/ f1-5 2) (seconds-per-frame) f0-2))
                  )
             (let ((v1-22 (ja-group)))
               (if (and v1-22

test/decompiler/reference/jak2/engine/ui/bigmap_REF.gc

@@ -400,8 +400,8 @@
         (let ((f1-2 (* 20.0 f1-0 f0-0))
               (f0-1 (* 20.0 f0-0))
               )
-          (set! (-> a0-23 x) (the float (the int (- (-> a2-1 x) (* 0.5 f1-2)))))
-          (set! (-> a0-23 y) (the float (the int (- (-> a2-1 y) (* 0.5 f0-1)))))
+          (set! (-> a0-23 x) (the float (the int (- (-> a2-1 x) (/ f1-2 2)))))
+          (set! (-> a0-23 y) (the float (the int (- (-> a2-1 y) (/ f0-1 2)))))
           (set! (-> v1-21 x) (+ (-> a0-23 x) f1-2))
           (set! (-> v1-21 y) (+ (-> a0-23 y) f0-1))
           )

test/decompiler/reference/jak2/engine/ui/hud_REF.gc

@@ -1249,7 +1249,7 @@
   :code (behavior ()
     (until #f
       (if (not (logtest? (-> *kernel-context* prevent-from-run) (process-mask pause)))
-          (seek! (-> self offset) 0.0 (* 0.1 (-> self clock time-adjust-ratio)))
+          (seek! (-> self offset) 0.0 (/ (-> self clock time-adjust-ratio) 10))
           )
       (if (>= 0.0 (-> self offset))
           (go hud-in)
@@ -1499,7 +1499,3 @@
   0
   (none)
   )
-
-
-
-

test/decompiler/reference/jak2/engine/ui/minimap_REF.gc

@@ -1399,7 +1399,7 @@
         (set! (-> this target-inv-scale) 0.5)
         )
       )
-    (seek! (-> this offset y) (-> this target-inv-scale) (* 0.5 f30-2))
+    (seek! (-> this offset y) (-> this target-inv-scale) (/ f30-2 2))
     )
   (run-pending-updates! (-> this engine) (-> *display* base-clock frame-counter))
   (when (and (-> this ctywide) (and (= (-> this ctywide status) 'active) (!= (-> this offset w) 0.0)))
@@ -1992,23 +1992,23 @@
             (set-vector! (-> arg0 mat vector 2) (* (-> s1-0 x) f30-0) 0.0 (-> s1-0 z) 0.0)
             )
           (vector-! s2-0 (target-pos 0) (-> this minimap-corner))
-          (set! (-> s2-0 x) (* 0.00000023841858 (-> s2-0 x)))
-          (set! (-> s2-0 z) (* 0.00000023841858 (-> s2-0 z)))
+          (set! (-> s2-0 x) (/ (-> s2-0 x) (meters 1024)))
+          (set! (-> s2-0 z) (/ (-> s2-0 z) (meters 1024)))
           (vector+! (-> arg0 mat trans) s2-0 (-> this offset))
           )
         )
       (set! (-> arg0 mat trans y) 0.0)
-      (set! (-> arg0 corner 0 x) (* 0.25 (-> this offset y)))
-      (set! (-> arg0 corner 0 z) (* 0.25 (-> this offset y)))
+      (set! (-> arg0 corner 0 x) (/ (-> this offset y) 4))
+      (set! (-> arg0 corner 0 z) (/ (-> this offset y) 4))
       (set! (-> arg0 corner 0 w) 1.0)
-      (set! (-> arg0 corner 1 x) (* -0.25 (-> this offset y)))
-      (set! (-> arg0 corner 1 z) (* 0.25 (-> this offset y)))
+      (set! (-> arg0 corner 1 x) (/ (-> this offset y) -4))
+      (set! (-> arg0 corner 1 z) (/ (-> this offset y) 4))
       (set! (-> arg0 corner 1 w) 1.0)
-      (set! (-> arg0 corner 2 x) (* 0.25 (-> this offset y)))
-      (set! (-> arg0 corner 2 z) (* -0.25 (-> this offset y)))
+      (set! (-> arg0 corner 2 x) (/ (-> this offset y) 4))
+      (set! (-> arg0 corner 2 z) (/ (-> this offset y) -4))
       (set! (-> arg0 corner 2 w) 1.0)
-      (set! (-> arg0 corner 3 x) (* -0.25 (-> this offset y)))
-      (set! (-> arg0 corner 3 z) (* -0.25 (-> this offset y)))
+      (set! (-> arg0 corner 3 x) (/ (-> this offset y) -4))
+      (set! (-> arg0 corner 3 z) (/ (-> this offset y) -4))
       (set! (-> arg0 corner 3 w) 1.0)
       (vector-matrix*! (the-as vector (-> arg0 corner)) (the-as vector (-> arg0 corner)) (-> arg0 mat))
       (vector-matrix*! (-> arg0 corner 1) (-> arg0 corner 1) (-> arg0 mat))
@@ -2516,8 +2516,8 @@
             (let ((f1-16 (* 20.0 (-> *video-params* relative-x-scale) f0-48))
                   (f0-49 (* 20.0 f0-48))
                   )
-              (set! (-> arg0 corner 0 x) (the float (the int (- (-> s3-2 x) (* 0.5 f1-16)))))
-              (set! (-> arg0 corner 0 z) (the float (the int (- (-> s3-2 z) (* 0.5 f0-49)))))
+              (set! (-> arg0 corner 0 x) (the float (the int (- (-> s3-2 x) (/ f1-16 2)))))
+              (set! (-> arg0 corner 0 z) (the float (the int (- (-> s3-2 z) (/ f0-49 2)))))
               (set! (-> arg0 corner 1 x) (+ (-> arg0 corner 0 x) f1-16))
               (set! (-> arg0 corner 1 z) (+ (-> arg0 corner 0 z) f0-49))
               )

test/decompiler/reference/jak2/engine/ui/progress/progress-draw_REF.gc

@@ -5256,7 +5256,7 @@
   0
   0
   0
-  (let* ((minutes (the int (* 0.016666668 time)))
+  (let* ((minutes (the int (/ time 60)))
          (remainder-minutes (- time (* 60.0 (the float minutes))))
          (seconds (the int remainder-minutes))
          (remainder-seconds (- remainder-minutes (the float seconds)))

test/decompiler/reference/jak2/engine/ui/progress/progress_REF.gc

@@ -1167,14 +1167,14 @@
            (seek-ease
              (-> self menu-transition)
              0.0
-             (* 0.1 (-> self clock time-adjust-ratio))
+             (/ (-> self clock time-adjust-ratio) 10)
              0.4
-             (* 0.01 (-> self clock time-adjust-ratio))
+             (/ (-> self clock time-adjust-ratio) 100)
              )
            )
      )
     (else
-      (seek! (-> self menu-transition) 1.0 (* 0.1 (-> self clock time-adjust-ratio)))
+      (seek! (-> self menu-transition) 1.0 (/ (-> self clock time-adjust-ratio) 10))
       (when (and (= (-> self menu-transition) 1.0)
                  (or (and (nonzero? (-> self state-pos)) (= (-> self anim-frame) 1.0))
                      (or (and (zero? (-> self state-pos)) (= (-> self anim-frame) 0.0))
@@ -1215,12 +1215,12 @@
   (if (= (-> self ring-angle) (-> self ring-want-angle))
       (respond-to-cpad self)
       )
-  (let ((f30-0 (* 0.005 (-> self clock time-adjust-ratio))))
+  (let ((f30-0 (/ (-> self clock time-adjust-ratio) 200)))
     (cond
       ((= (-> self menu-transition) 1.0)
        (if (and (zero? (-> self state-pos)) (= (-> *progress-state* starting-state) 'main))
-           (seek! (-> self anim-frame) 0.0 (* 0.02 (-> self clock time-adjust-ratio)))
-           (seek! (-> self anim-frame) 1.0 (* 0.02 (-> self clock time-adjust-ratio)))
+           (seek! (-> self anim-frame) 0.0 (/ (-> self clock time-adjust-ratio) 50))
+           (seek! (-> self anim-frame) 1.0 (/ (-> self clock time-adjust-ratio) 50))
            )
        (let ((f0-27 (if (and (zero? (-> self state-pos)) (!= (-> *progress-state* starting-state) 'title))
                         0.0
@@ -1230,14 +1230,14 @@
              )
          (when (= (-> self next) 'bigmap)
            (set! f0-27 0.4)
-           (set! f30-0 (* 0.008 (-> self clock time-adjust-ratio)))
+           (set! f30-0 (/ (-> self clock time-adjust-ratio) 125))
            )
          (seek! (-> self pos-transition) f0-27 f30-0)
          )
        )
       ((zero? (-> self state-pos))
        (if (= (-> self current) 'bigmap)
-           (set! f30-0 (* 0.05 (-> self clock time-adjust-ratio)))
+           (set! f30-0 (/ (-> self clock time-adjust-ratio) 20))
            )
        (if (!= (-> *progress-state* starting-state) 'title)
            (seek! (-> self pos-transition) 0.0 f30-0)
@@ -1288,9 +1288,9 @@
       (set! (-> self swing) (seek-ease
                               (-> self swing)
                               4.0
-                              (* 0.05 (-> self clock time-adjust-ratio))
+                              (/ (-> self clock time-adjust-ratio) 20)
                               0.5
-                              (* 0.005 (-> self clock time-adjust-ratio))
+                              (/ (-> self clock time-adjust-ratio) 200)
                               )
             )
       (set! (-> self swing) (seek-ease
@@ -1464,9 +1464,9 @@
       (set! (-> self scanlines-alpha) (seek-ease
                                         (-> self scanlines-alpha)
                                         (- 1.0 (-> self menu-transition))
-                                        (* 0.05 (-> self clock time-adjust-ratio))
+                                        (/ (-> self clock time-adjust-ratio) 20)
                                         0.3
-                                        (* 0.001 (-> self clock time-adjust-ratio))
+                                        (/ (-> self clock time-adjust-ratio) 1000)
                                         )
             )
       (end-scan sv-152 (-> self scanlines-alpha))
@@ -1769,16 +1769,16 @@
       )
     )
   :trans (behavior ()
-    (seek! (-> self anim-frame) 0.0 (* 0.02 (-> self clock time-adjust-ratio)))
+    (seek! (-> self anim-frame) 0.0 (/ (-> self clock time-adjust-ratio) 50))
     (cond
       ((= (-> self anim-frame) 0.0)
-       (seek! (-> self pos-transition) 1.0 (* 0.02 (-> self clock time-adjust-ratio)))
+       (seek! (-> self pos-transition) 1.0 (/ (-> self clock time-adjust-ratio) 50))
        (if (= (-> self pos-transition) 1.0)
            (go-virtual gone)
            )
        )
       (else
-        (seek! (-> self pos-transition) 0.0 (* 0.02 (-> self clock time-adjust-ratio)))
+        (seek! (-> self pos-transition) 0.0 (/ (-> self clock time-adjust-ratio) 50))
         )
       )
     (set-ring-position self)
@@ -1926,13 +1926,13 @@
         (arg1
           (cond
             ((cpad-hold? 0 left l-analog-left)
-             (seek! (-> (the-as (pointer float) gp-0)) 0.0 (* 0.02 (-> self clock time-adjust-ratio)))
+             (seek! (-> (the-as (pointer float) gp-0)) 0.0 (/ (-> self clock time-adjust-ratio) 50))
              (if (!= (-> (the-as (pointer float) gp-0)) 0.0)
                  (set! s4-0 #t)
                  )
              )
             ((cpad-hold? 0 right l-analog-right)
-             (seek! (-> (the-as (pointer float) gp-0)) 1.0 (* 0.02 (-> self clock time-adjust-ratio)))
+             (seek! (-> (the-as (pointer float) gp-0)) 1.0 (/ (-> self clock time-adjust-ratio) 50))
              (if (!= (-> (the-as (pointer float) gp-0)) 1.0)
                  (set! s4-0 #t)
                  )
@@ -1945,13 +1945,13 @@
         (else
           (cond
             ((cpad-hold? 0 left l-analog-left)
-             (seek! (-> (the-as (pointer float) gp-0)) 0.0 (* 0.02 (-> self clock time-adjust-ratio)))
+             (seek! (-> (the-as (pointer float) gp-0)) 0.0 (/ (-> self clock time-adjust-ratio) 50))
              (if (!= (-> (the-as (pointer float) gp-0)) 0.0)
                  (set! s4-0 #t)
                  )
              )
             ((cpad-hold? 0 right l-analog-right)
-             (seek! (-> (the-as (pointer float) gp-0)) 1.0 (* 0.02 (-> self clock time-adjust-ratio)))
+             (seek! (-> (the-as (pointer float) gp-0)) 1.0 (/ (-> self clock time-adjust-ratio) 50))
              (if (!= (-> (the-as (pointer float) gp-0)) 1.0)
                  (set! s4-0 #t)
                  )
@@ -2952,9 +2952,9 @@
   (set! (-> arg0 sliding-height) (seek-ease
                                    (-> arg0 sliding-height)
                                    0.0
-                                   (* 0.1 (-> self clock time-adjust-ratio))
+                                   (/ (-> self clock time-adjust-ratio) 10)
                                    0.3
-                                   (* 0.001 (-> self clock time-adjust-ratio))
+                                   (/ (-> self clock time-adjust-ratio) 1000)
                                    )
         )
   (let ((s4-0 #f))
@@ -3048,9 +3048,9 @@
   (set! (-> arg0 sliding-height) (seek-ease
                                    (-> arg0 sliding-height)
                                    0.0
-                                   (* 0.1 (-> self clock time-adjust-ratio))
+                                   (/ (-> self clock time-adjust-ratio) 10)
                                    0.3
-                                   (* 0.01 (-> self clock time-adjust-ratio))
+                                   (/ (-> self clock time-adjust-ratio) 100)
                                    )
         )
   (let ((gp-0 #f))
@@ -3133,9 +3133,9 @@
   (set! (-> arg0 sliding-height) (seek-ease
                                    (-> arg0 sliding-height)
                                    0.0
-                                   (* 0.1 (-> self clock time-adjust-ratio))
+                                   (/ (-> self clock time-adjust-ratio) 10)
                                    0.3
-                                   (* 0.01 (-> self clock time-adjust-ratio))
+                                   (/ (-> self clock time-adjust-ratio) 100)
                                    )
         )
   (let ((s5-0 #f))
@@ -3183,17 +3183,17 @@
   (set! (-> progress sliding) (seek-ease
                                 (-> progress sliding)
                                 0.0
-                                (* 0.1 (-> self clock time-adjust-ratio))
+                                (/ (-> self clock time-adjust-ratio) 10)
                                 0.3
-                                (* 0.001 (-> self clock time-adjust-ratio))
+                                (/ (-> self clock time-adjust-ratio) 1000)
                                 )
         )
   (set! (-> progress sliding-off) (seek-ease
                                     (-> progress sliding-off)
                                     1.0
-                                    (* 0.1 (-> self clock time-adjust-ratio))
+                                    (/ (-> self clock time-adjust-ratio) 10)
                                     -0.3
-                                    (* 0.001 (-> self clock time-adjust-ratio))
+                                    (/ (-> self clock time-adjust-ratio) 1000)
                                     )
         )
   (when (-> *bigmap* progress-minimap)
@@ -3263,9 +3263,9 @@
     (set! (-> arg0 sliding) (seek-ease
                               (-> arg0 sliding)
                               0.0
-                              (* 0.1 (-> self clock time-adjust-ratio))
+                              (/ (-> self clock time-adjust-ratio) 10)
                               0.3
-                              (* 0.001 (-> self clock time-adjust-ratio))
+                              (/ (-> self clock time-adjust-ratio) 1000)
                               )
           )
     (cond

test/decompiler/reference/jak2/engine/ui/text_REF.gc

@@ -536,7 +536,7 @@
            )
      (set! sv-64 0)
      (if (logtest? (-> arg1 flags) (font-flags middle))
-         (+! (-> arg1 origin x) (* 0.5 (-> arg1 width)))
+         (+! (-> arg1 origin x) (/ (-> arg1 width) 2))
          )
      (set! sv-72 (-> sv-32 0))
      (set! sv-80 0)

test/decompiler/reference/jak2/engine/util/smush-control-h_REF.gc

@@ -123,7 +123,7 @@
                      (damp-period float)
                      (clock clock)
                      )
-  (when (>= (fabs (* 0.2 (-> this amp))) (fabs (get-no-update this)))
+  (when (>= (fabs (/ (-> this amp) 5)) (fabs (get-no-update this)))
     (set! (-> this amp) amplitude)
     (set! (-> this period) (the float period))
     (set! (-> this duration) (the float duration))

test/decompiler/reference/jak2/engine/util/sync-info_REF.gc

@@ -440,7 +440,7 @@
 (defmethod set-params! ((this delayed-rand-float) (arg0 int) (arg1 int) (arg2 float))
   (set! (-> this min-time) arg0)
   (set! (-> this max-time) arg1)
-  (set! (-> this max-val) (* 0.5 arg2))
+  (set! (-> this max-val) (/ arg2 2))
   (set! (-> this start-time) 0)
   (set! (-> this timer) 0)
   (set! (-> this value) 0.0)
@@ -550,8 +550,8 @@
 (defmethod set-params! ((this delayed-rand-vector) (arg0 int) (arg1 int) (arg2 float) (arg3 float))
   (set! (-> this min-time) arg0)
   (set! (-> this max-time) arg1)
-  (set! (-> this xz-max) (* 0.5 arg2))
-  (set! (-> this y-max) (* 0.5 arg3))
+  (set! (-> this xz-max) (/ arg2 2))
+  (set! (-> this y-max) (/ arg3 2))
   (set! (-> this start-time) 0)
   (set! (-> this timer) 0)
   (vector-reset! (-> this value))

test/decompiler/reference/jak2/kernel/gstring_REF.gc

@@ -695,7 +695,7 @@
             (cond
               (a0-2
                 (dotimes (a0-3 (the int f1-5))
-                  (set! f2-6 (* 0.1 f2-6))
+                  (set! f2-6 (/ f2-6 10))
                   (nop!)
                   (nop!)
                   )

test/decompiler/reference/jak2/levels/atoll/atoll-obs_REF.gc

@@ -294,7 +294,7 @@
     (quaternion-rotate-y! (-> self root quat) (-> self root quat) (* (-> self rotspeed) (seconds-per-frame)))
     (let ((f1-2 (- (-> self dest-height) (-> self root trans y))))
       (if (< 0.0 f1-2)
-          (+! (-> self root trans y) (* (fmax 6144.0 (* 0.5 f1-2)) (seconds-per-frame)))
+          (+! (-> self root trans y) (* (fmax 6144.0 (/ f1-2 2)) (seconds-per-frame)))
           )
       )
     (update! (-> self sound))
@@ -314,7 +314,7 @@
     (quaternion-rotate-y! (-> self root quat) (-> self root quat) (* (-> self rotspeed) (seconds-per-frame)))
     (let ((f1-2 (- (-> self dest-height) (-> self root trans y))))
       (if (< 0.0 f1-2)
-          (+! (-> self root trans y) (* (fmax 6144.0 (* 0.5 f1-2)) (seconds-per-frame)))
+          (+! (-> self root trans y) (* (fmax 6144.0 (/ f1-2 2)) (seconds-per-frame)))
           )
       )
     (update! (-> self sound))

test/decompiler/reference/jak2/levels/castle/boss/casboss-texture_REF.gc

@@ -160,8 +160,8 @@
               )
              (else
                (let ((f0-16 (+ 0.1 (* (-> s5-0 extra w) (sin (* 32768.0 (/ (-> s5-0 extra y) (-> s5-0 extra z))))))))
-                 (set-vector! (-> s5-0 start-color) (* 0.5 f0-16) (* 0.7 f0-16) f0-16 1.0)
-                 (set-vector! (-> s5-0 end-color) (* 0.5 f0-16) (* 0.7 f0-16) f0-16 1.0)
+                 (set-vector! (-> s5-0 start-color) (/ f0-16 2) (* 0.7 f0-16) f0-16 1.0)
+                 (set-vector! (-> s5-0 end-color) (/ f0-16 2) (* 0.7 f0-16) f0-16 1.0)
                  )
                (set! (-> s5-0 extra y) (- (-> s5-0 extra y) (* 300.0 (seconds-per-frame))))
                )

test/decompiler/reference/jak2/levels/castle/boss/castle-baron_REF.gc

@@ -1134,7 +1134,7 @@
          (f2-2 f1-1)
          (f2-4 (/ 1.0 f2-2))
          )
-    (+ 1.0 (* 0.2 f0-0))
+    (+ 1.0 (/ f0-0 5))
     (set! (-> this delta-wiggle-angle) (* 182.04445 f1-1))
     (set! (-> this wiggle-factor) (* 2.0 f2-4))
     )

test/decompiler/reference/jak2/levels/castle/castle-texture_REF.gc

@@ -736,7 +736,7 @@
         (set! (-> a1-4 data 0 end-time) f0-3)
         (set! (-> a1-4 data 1 end-time) f0-3)
         )
-      (set! f0-3 (* 0.5 f0-3))
+      (set! f0-3 (/ f0-3 2))
       )
     )
   #f

test/decompiler/reference/jak2/levels/castle/roboguard-level_REF.gc

@@ -495,10 +495,10 @@
     (ja-channel-push! 1 (seconds 0.2))
     (let ((f30-0 (rnd-float-range self 0.9 1.1)))
       (until #f
-        (ja-no-eval :group! roboguard-idle0-ja :num! (seek! 10.0 (* 0.1 f30-0)) :frame-num 9.0)
+        (ja-no-eval :group! roboguard-idle0-ja :num! (seek! 10.0 (/ f30-0 10)) :frame-num 9.0)
         (until (ja-done? 0)
           (suspend)
-          (ja :num! (seek! 10.0 (* 0.1 f30-0)))
+          (ja :num! (seek! 10.0 (/ f30-0 10)))
           )
         )
       )
@@ -1153,7 +1153,7 @@
         s5-1
         s5-1
         gp-0
-        (* (fmax 0.5 (* 0.00024414062 (-> arg0 state speed))) (seconds-per-frame))
+        (* (fmax 0.5 (/ (-> arg0 state speed) METER_LENGTH)) (seconds-per-frame))
         )
       )
     )

test/decompiler/reference/jak2/levels/city/bombbot/bombbot_REF.gc

@@ -1121,7 +1121,7 @@
                                (set! (-> t0-0 z) 0.0)
                                (set! (-> t0-0 w) 1.0)
                                (let ((v0-5 (t9-5 a0-31 a1-16 a2-22 a3-1 t0-0 (/ f28-0 f30-0))))
-                                 (set! (-> s1-0 delta-y) (* 0.05 (-> v0-5 y) (vector-length (-> s1-0 speed))))
+                                 (set! (-> s1-0 delta-y) (* (/ (-> v0-5 y) 20) (vector-length (-> s1-0 speed))))
                                  )
                                )
                              )
@@ -2625,7 +2625,7 @@
                 )
               (set! (-> v1-3 main-y) (- (-> s4-0 feet s0-0 real-position y) (-> s4-0 root trans y)))
               (set! (-> v1-3 main-y) (-> v1-3 delta-y))
-              (+! f30-0 (* 0.25 (-> v1-3 main-y)))
+              (+! f30-0 (/ (-> v1-3 main-y) 4))
               (set! (-> s1-0 quad) (-> v1-3 pos-offset quad))
               (set! (-> s1-0 y) (* -2.0 (-> v1-3 main-y)))
               (new 'stack-no-clear 'vector)

test/decompiler/reference/jak2/levels/city/common/nav-graph_REF.gc

@@ -12,7 +12,7 @@
 ;; definition for method 17 of type nav-branch
 ;; WARN: Return type mismatch int vs none.
 (defmethod set-speed-limit ((this nav-branch) (arg0 float))
-  (set! (-> this speed-limit) (the-as uint (max 0 (min 255 (the int (+ 0.5 (* 0.0009765625 arg0)))))))
+  (set! (-> this speed-limit) (the-as uint (max 0 (min 255 (the int (+ 0.5 (/ arg0 1024)))))))
   0
   (none)
   )
@@ -20,7 +20,7 @@
 ;; definition for method 18 of type nav-branch
 ;; WARN: Return type mismatch int vs none.
 (defmethod set-width ((this nav-branch) (arg0 float))
-  (set! (-> this width) (the-as uint (max 0 (min 255 (the int (+ 0.5 (* 0.00390625 arg0)))))))
+  (set! (-> this width) (the-as uint (max 0 (min 255 (the int (+ 0.5 (/ arg0 256)))))))
   0
   (none)
   )
@@ -328,7 +328,7 @@
 ;; definition for method 16 of type nav-node
 ;; WARN: Return type mismatch int vs none.
 (defmethod set-radius ((this nav-node) (arg0 float))
-  (set! (-> this radius) (the-as uint (max 0 (min 255 (the int (+ 0.5 (* 0.0009765625 arg0)))))))
+  (set! (-> this radius) (the-as uint (max 0 (min 255 (the int (+ 0.5 (/ arg0 1024)))))))
   0
   (none)
   )

test/decompiler/reference/jak2/levels/city/common/trail_REF.gc

@@ -508,7 +508,7 @@
       )
     0
     (let* ((f0-0 (-> v1-0 cell-width))
-           (f1-1 (* 0.5 f0-0))
+           (f1-1 (/ (the float f0-0) 2))
            )
       (let ((f3-0 (- (-> arg0 x) f1-1))
             (f2-2 (- (-> arg0 z) f1-1))

test/decompiler/reference/jak2/levels/city/ctywide-obs_REF.gc

@@ -495,11 +495,11 @@
           )
       (vector+! (-> s1-0 trans) s4-0 s3-0)
       (vector-float*! (-> s1-0 trans) (-> s1-0 trans) 0.5)
-      (+! (-> s1-0 trans y) (* 0.5 arg1))
+      (+! (-> s1-0 trans y) (/ arg1 2))
       (vector-! (the-as vector (-> s2-2 vector)) s3-0 s4-0)
       (let ((f30-1 (vector-normalize-ret-len! (the-as vector (-> s2-2 vector)) 1.0)))
-        (set! (-> s1-0 scale x) (* 0.00024414062 f30-1))
-        (set! (-> s1-0 scale y) (* 0.00024414062 arg1))
+        (set! (-> s1-0 scale x) (/ f30-1 METER_LENGTH))
+        (set! (-> s1-0 scale y) (/ arg1 METER_LENGTH))
         (set! (-> s1-0 scale z) 1.0)
         (set! (-> s2-2 vector 1 quad) (-> (new 'static 'vector :y 1.0 :w 1.0) quad))
         (vector-cross! (-> s2-2 vector 2) (the-as vector (-> s2-2 vector)) (-> s2-2 vector 1))
@@ -509,7 +509,7 @@
         (set! (-> this plane w) (- (vector-dot (-> s2-2 vector 2) (-> this root trans))))
         (let ((v0-8 (-> this root root-prim local-sphere)))
           (set! (-> v0-8 x) 0.0)
-          (set! (-> v0-8 y) (* 0.00024414062 (* 0.5 arg1)))
+          (set! (-> v0-8 y) (* 0.00024414062 (/ arg1 2)))
           (set! (-> v0-8 z) 0.0)
           (let ((f0-20 0.5)
                 (f1-7 (* f30-1 f30-1))
@@ -684,7 +684,7 @@
             0.0
             0.0
             0.0
-            (let* ((f28-0 (/ 1.0 (* 0.00024414062 (-> arg1 omega))))
+            (let* ((f28-0 (/ 1.0 (/ (-> arg1 omega) METER_LENGTH)))
                    (f26-0 (* (rand-vu-float-range -136.53334 136.53334) f28-0))
                    (f30-0 (* (rand-vu-float-range 0.0 136.53334) f28-0))
                    (f0-8 (* (rand-vu-float-range -13.653334 54.613335) f28-0))
@@ -1866,7 +1866,7 @@
             (.add.mul.w.vf vf6 vf4 vf0 acc :mask #b111)
             (.svf (&-> s0-0 quad) vf6)
             (let ((f30-0 (vector-vector-xz-distance s4-0 s0-0)))
-              (let ((f0-2 (* 0.0000012207031 f30-0))
+              (let ((f0-2 (/ f30-0 (meters 200)))
                     (a0-7 s4-0)
                     )
                 (let ((v1-10 s4-0))
@@ -1940,7 +1940,7 @@
                           )
                         )
                       (let ((s5-1 (new 'stack-no-clear 'quaternion)))
-                        (let ((f0-42 (/ 45511.11 (* 0.00024414062 f30-0))))
+                        (let ((f0-42 (/ 45511.11 (/ f30-0 METER_LENGTH))))
                           (quaternion-axis-angle! s5-1 1.0 0.0 0.0 (fmax (fmin (-> this angle-guns) f0-42) (- f0-42)))
                           )
                         (quaternion*!

test/decompiler/reference/jak2/levels/city/onintent/onin-game_REF.gc

@@ -1090,8 +1090,8 @@
   (let* ((a0-1 (-> arg4 control))
          (v1-1 (vector-! (new 'stack-no-clear 'vector) (-> arg2 x-y-z-sx) (-> a0-1 origin trans)))
          )
-    (set! (-> arg1 vel-sxvel x) (* 0.083333336 (-> v1-1 x)))
-    (set! (-> arg1 vel-sxvel y) (* 0.083333336 (-> v1-1 y)))
+    (set! (-> arg1 vel-sxvel x) (/ (-> v1-1 x) 12))
+    (set! (-> arg1 vel-sxvel y) (/ (-> v1-1 y) 12))
     )
   0
   (none)
@@ -1451,9 +1451,9 @@
   (let* ((a0-1 (-> arg4 control))
          (v1-1 (vector-! (new 'stack-no-clear 'vector) (-> arg2 x-y-z-sx) (-> a0-1 origin trans)))
          )
-    (set! (-> arg1 vel-sxvel x) (* -0.008333334 (-> v1-1 x)))
-    (set! (-> arg1 vel-sxvel y) (* -0.008333334 (-> v1-1 y)))
-    (set! (-> arg1 vel-sxvel z) (* -0.008333334 (-> v1-1 z)))
+    (set! (-> arg1 vel-sxvel x) (/ (-> v1-1 x) -120))
+    (set! (-> arg1 vel-sxvel y) (/ (-> v1-1 y) -120))
+    (set! (-> arg1 vel-sxvel z) (/ (-> v1-1 z) -120))
     )
   0
   (none)

test/decompiler/reference/jak2/levels/city/palace/ctypal-obs_REF.gc

@@ -241,9 +241,9 @@
     (format
       0
       "trans ~F ~F ~F~%"
-      (* 0.00024414062 (-> v1-10 trans x))
-      (* 0.00024414062 (-> v1-10 trans y))
-      (* 0.00024414062 (-> v1-10 trans z))
+      (/ (-> v1-10 trans x) METER_LENGTH)
+      (/ (-> v1-10 trans y) METER_LENGTH)
+      (/ (-> v1-10 trans z) METER_LENGTH)
       )
     )
   (set! (-> this ent) arg0)

test/decompiler/reference/jak2/levels/city/slums/kor/kid3-course_REF.gc

@@ -95,7 +95,7 @@
                         (quaternion-vector-angle!
                           (-> arg1 root quat)
                           *up-vector*
-                          (* 182.04445 (* 0.00024414062 (-> arg1 course spots 1 center w)))
+                          (* 182.04445 (/ (-> arg1 course spots 1 center w) METER_LENGTH))
                           )
                         (ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
                         (go-to-waypoint! arg1 5 #f)

test/decompiler/reference/jak2/levels/city/slums/kor/kor3-course_REF.gc

@@ -95,7 +95,7 @@
                         (quaternion-vector-angle!
                           (-> arg1 root quat)
                           *up-vector*
-                          (* 182.04445 (* 0.00024414062 (-> arg1 course spots 1 center w)))
+                          (* 182.04445 (/ (-> arg1 course spots 1 center w) METER_LENGTH))
                           )
                         (ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
                         (go-to-waypoint! arg1 5 #f)

test/decompiler/reference/jak2/levels/city/traffic/citizen/citizen-norm_REF.gc

@@ -450,7 +450,7 @@
         (if (or (= (-> this incoming knocked-type) (knocked-type knocked-type-2))
                 (= (-> this incoming knocked-type) (knocked-type knocked-type-3))
                 )
-            (set! (-> arg0 anim-speed) (* 0.5 (-> arg0 anim-speed)))
+            (set! (-> arg0 anim-speed) (/ (-> arg0 anim-speed) 2))
             )
         (let ((a0-47 (-> this skel root-channel 0)))
           (set! (-> a0-47 frame-group) (the-as art-joint-anim s4-0))

test/decompiler/reference/jak2/levels/city/traffic/citizen/citizen_REF.gc

@@ -618,7 +618,7 @@
         s5-1
         s5-1
         gp-0
-        (* (fmax 0.5 (* 0.00024414062 (-> arg0 state speed))) (seconds-per-frame))
+        (* (fmax 0.5 (/ (-> arg0 state speed) METER_LENGTH)) (seconds-per-frame))
         )
       )
     )

test/decompiler/reference/jak2/levels/city/traffic/citizen/civilian_REF.gc

@@ -1053,7 +1053,7 @@
         )
       (if (and (-> self allow-dive)
                (< (vector-length v1-8) (* (-> self dive-reaction) (vector-length (-> self cp-vec))))
-               (< (fabs (vector4-dot (-> self root trans) (the-as vector (-> self cp-plane)))) (* 0.5 (-> self cp-sphere r)))
+               (< (fabs (vector4-dot (-> self root trans) (the-as vector (-> self cp-plane)))) (/ (-> self cp-sphere r) 2))
                )
           (go-dive self)
           )

test/decompiler/reference/jak2/levels/city/traffic/citizen/guard_REF.gc

@@ -1083,7 +1083,7 @@
         (((knocked-type knocked-type-2))
          (ja-channel-push! 1 (seconds 0.1))
          (let ((a1-17 (-> this draw art-group data (-> this info knocked (-> this hit-face)))))
-           (set! (-> arg0 anim-speed) (* 0.5 (-> arg0 anim-speed)))
+           (set! (-> arg0 anim-speed) (/ (-> arg0 anim-speed) 2))
            (let ((a0-36 (-> this skel root-channel 0)))
              (set! (-> a0-36 frame-group) (the-as art-joint-anim a1-17))
              (set! (-> a0-36 param 0) (the float (+ (-> (the-as art-joint-anim a1-17) frames num-frames) -1)))
@@ -1668,7 +1668,7 @@
              (set! (-> this target-vel) (vector-length (-> this target-vel-vec)))
              (let ((s5-4 (vector-! (new 'stack-no-clear 'vector) (-> this root trans) (-> this target-pos))))
                (let* ((f0-3 (vector-length s5-4))
-                      (f0-4 (* 0.0000012207031 f0-3))
+                      (f0-4 (/ f0-3 (meters 200)))
                       (a1-9 (-> this target-pos-predict))
                       )
                  (let ((v1-62 (-> this target-pos)))
@@ -2082,7 +2082,7 @@
                (.svf (&-> a1-6 quad) vf6)
                )
              (let ((f30-2 (* 0.5 (vector-vector-xz-distance s5-0 s3-0))))
-               (vector-normalize! s4-0 (* 0.5 f30-2))
+               (vector-normalize! s4-0 (/ f30-2 2))
                (vector-normalize! s2-0 (* 2.0 f30-2))
                )
              (do-spline gp-0 s5-0 s4-0 s3-0 s2-0 0.9)

test/decompiler/reference/jak2/levels/city/traffic/citizen/metalhead-flitter_REF.gc

@@ -581,7 +581,7 @@
            (set! (-> this last-change-dir) (the-as uint (current-time)))
            (set! (-> this change-dir-time) (rand-vu-int-range (seconds 0.5) (seconds 0.7)))
            (let ((s3-2 (new 'stack-no-clear 'vector))
-                 (f0-9 (* 0.5 f30-0 (tan (-> this move-angle))))
+                 (f0-9 (* (/ f30-0 2) (tan (-> this move-angle))))
                  (s2-0 (new 'stack-no-clear 'vector))
                  )
              (if (-> this heading)

test/decompiler/reference/jak2/levels/city/traffic/citizen/metalhead-predator_REF.gc

@@ -751,7 +751,7 @@
           (.sub.vf vf6 vf4 vf5 :mask #b111)
           (.svf (&-> sv-240 quad) vf6)
           (let* ((f0-5 (vector-length sv-240))
-                 (f0-6 (* 0.0000018780048 f0-5))
+                 (f0-6 (/ f0-5 (meters 130)))
                  )
             (set! sv-256 (new 'stack-no-clear 'vector))
             (let ((s0-0 (new 'stack-no-clear 'vector))

test/decompiler/reference/jak2/levels/city/traffic/traffic-engine_REF.gc

@@ -663,9 +663,8 @@
             (+! (-> s4-0 params position z) (* (-> s4-0 vector 0 x) f0-6))
             )
           )
-        (set! (-> s4-0 vector 2 y) (+ (* 0.5 (-> s4-0 vector 2 x))
-                                      (* (-> this rand) (-> this traffic inv-density-factor) (-> arg1 spawn-spacing))
-                                      )
+        (set! (-> s4-0 vector 2 y)
+              (+ (/ (-> s4-0 vector 2 x) 2) (* (-> this rand) (-> this traffic inv-density-factor) (-> arg1 spawn-spacing)))
               )
         (vector-float*! (-> s4-0 params velocity) (the-as vector (-> s4-0 vector)) (-> s4-0 vector 2 x))
         (vector-float*! (-> s4-0 vector 1) (the-as vector (-> s4-0 vector)) (-> s4-0 vector 2 y))
@@ -1418,7 +1417,7 @@
                 (set! decay-rate 1.5)
                 )
               )
-            (set! (-> v1-1 0 decay-rate) (* 0.1 decay-rate))
+            (set! (-> v1-1 0 decay-rate) (/ decay-rate 10))
             (when (< (-> v1-1 0 danger-level) danger-level)
               (set! (-> v1-1 0 danger-level) danger-level)
               (set! (-> v1-1 0 sphere r) danger-radius)

test/decompiler/reference/jak2/levels/city/traffic/vehicle/bike_REF.gc

@@ -1151,10 +1151,10 @@
         (f28-0 (* -13653.333 (-> this controls brake)))
         (s5-0 (new 'static 'vector :x 1.0 :w 1.0))
         )
-    (quaternion-vector-angle! (-> this fin-rl rotation) s5-0 (+ f26-0 (* 0.2 f30-0)))
-    (quaternion-vector-angle! (-> this fin-rr rotation) s5-0 (+ (- f26-0) (* 0.2 f30-0)))
-    (quaternion-vector-angle! (-> this fin-fl rotation) s5-0 (- (* -0.2 f26-0) f30-0))
-    (quaternion-vector-angle! (-> this fin-fr rotation) s5-0 (- (* 0.2 f26-0) f30-0))
+    (quaternion-vector-angle! (-> this fin-rl rotation) s5-0 (+ f26-0 (/ f30-0 5)))
+    (quaternion-vector-angle! (-> this fin-rr rotation) s5-0 (+ (- f26-0) (/ f30-0 5)))
+    (quaternion-vector-angle! (-> this fin-fl rotation) s5-0 (- (/ f26-0 -5) f30-0))
+    (quaternion-vector-angle! (-> this fin-fr rotation) s5-0 (- (/ f26-0 5) f30-0))
     (quaternion-vector-angle! (-> this rudder rotation) s5-0 f30-0)
     (quaternion-vector-angle! (-> this brake-l rotation) s5-0 f28-0)
     (quaternion-vector-angle! (-> this brake-r rotation) s5-0 f28-0)
@@ -1309,8 +1309,8 @@
         (f28-0 (* 13653.333 (-> this controls brake)))
         (s5-0 (new 'static 'vector :x 1.0 :w 1.0))
         )
-    (quaternion-vector-angle! (-> this fin-rl rotation) s5-0 (+ f26-0 (* 0.2 f30-0)))
-    (quaternion-vector-angle! (-> this fin-rr rotation) s5-0 (+ (- f26-0) (* 0.2 f30-0)))
+    (quaternion-vector-angle! (-> this fin-rl rotation) s5-0 (+ f26-0 (/ f30-0 5)))
+    (quaternion-vector-angle! (-> this fin-rr rotation) s5-0 (+ (- f26-0) (/ f30-0 5)))
     (quaternion-vector-angle! (-> this rudder rotation) s5-0 f30-0)
     (quaternion-vector-angle! (-> this rudder-f rotation) s5-0 (- f30-0))
     (quaternion-vector-angle! (-> this brake-l rotation) s5-0 (- f28-0))
@@ -1488,8 +1488,8 @@
     (quaternion-vector-angle! (-> this fin-fr rotation) s5-0 f26-0)
     (quaternion-vector-angle! (-> this fin2-fl rotation) s5-0 (- f26-0))
     (quaternion-vector-angle! (-> this fin2-fr rotation) s5-0 f26-0)
-    (quaternion-vector-angle! (-> this fin-rl rotation) s5-0 (+ f26-0 (* 0.2 f30-0)))
-    (quaternion-vector-angle! (-> this fin-rr rotation) s5-0 (+ (- f26-0) (* 0.2 f30-0)))
+    (quaternion-vector-angle! (-> this fin-rl rotation) s5-0 (+ f26-0 (/ f30-0 5)))
+    (quaternion-vector-angle! (-> this fin-rr rotation) s5-0 (+ (- f26-0) (/ f30-0 5)))
     (quaternion-vector-angle! (-> this rudder rotation) s5-0 f30-0)
     (quaternion-vector-angle! (-> this brake-l rotation) s5-0 (- f28-0))
     (quaternion-vector-angle! (-> this brake-r rotation) s5-0 f28-0)

test/decompiler/reference/jak2/levels/city/traffic/vehicle/car_REF.gc

@@ -1606,10 +1606,10 @@
     (quaternion-vector-angle! (-> this steering-wheel rotation) s5-0 f0-3)
     (quaternion-vector-angle! (-> this fin-fl rotation) s5-0 (- f28-0))
     (quaternion-vector-angle! (-> this fin-fr rotation) s5-0 f28-0)
-    (quaternion-vector-angle! (-> this fin-rl rotation) s5-0 (+ (* 0.8 f28-0) (* -0.2 f30-0)))
-    (quaternion-vector-angle! (-> this fin-rr rotation) s5-0 (+ (* -0.8 f28-0) (* -0.2 f30-0)))
-    (quaternion-vector-angle! (-> this fin2-rl rotation) s5-0 (+ (* 0.2 f28-0) (* -0.8 f30-0)))
-    (quaternion-vector-angle! (-> this fin2-rr rotation) s5-0 (+ (* -0.2 f28-0) (* -0.8 f30-0)))
+    (quaternion-vector-angle! (-> this fin-rl rotation) s5-0 (+ (* 0.8 f28-0) (/ f30-0 -5)))
+    (quaternion-vector-angle! (-> this fin-rr rotation) s5-0 (+ (* -0.8 f28-0) (/ f30-0 -5)))
+    (quaternion-vector-angle! (-> this fin2-rl rotation) s5-0 (+ (/ f28-0 5) (* -0.8 f30-0)))
+    (quaternion-vector-angle! (-> this fin2-rr rotation) s5-0 (+ (/ f28-0 -5) (* -0.8 f30-0)))
     )
   0
   (none)

test/decompiler/reference/jak2/levels/city/traffic/vehicle/vehicle-effects_REF.gc

@@ -171,7 +171,7 @@
 ;; WARN: Return type mismatch object vs none.
 (defun calc-fade-vals ((arg0 float))
   "@unused just a debugging print function"
-  (let* ((f1-1 (* 0.00024414062 arg0))
+  (let* ((f1-1 (/ arg0 METER_LENGTH))
          (f0-3 (- f1-1 (the float (the int f1-1))))
          (f1-3 (* 4096.0 (- f1-1 f0-3)))
          (f1-5 (/ -1.0 (* (- 1.0 f0-3) f1-3)))
@@ -234,14 +234,14 @@
     (init-vf0-vector)
     (let* ((f0-0 (rand-vu-float-range 1.0 1.33))
            (s4-1 (* arg3 f0-0))
-           (s0-0 (fmin (* arg2 f0-0) (* 0.5 s4-1)))
+           (s0-0 (fmin (* arg2 f0-0) (/ s4-1 2)))
            (s3-1 (new 'stack-no-clear 'inline-array 'vehicle-control-point 3))
            (s2-0 (-> this info))
            )
       (let ((a1-2 (-> s3-1 0 normal)))
         (let ((v1-2 arg0))
           (let ((a0-2 arg1))
-            (let ((a2-2 (* 0.25 s4-1)))
+            (let ((a2-2 (/ s4-1 4)))
               (.mov vf7 a2-2)
               )
             (.lvf vf5 (&-> a0-2 quad))
@@ -269,13 +269,13 @@
       (let ((f0-14 (* 4.0 s0-0)))
         (set! (-> s3-1 1 local-pos w) f0-14)
         (set! (-> s3-1 1 normal w) f0-14)
-        (set! (-> s3-1 1 normal x) (* 0.025 f0-14))
+        (set! (-> s3-1 1 normal x) (/ f0-14 40))
         )
       (add! *simple-sprite-system* (the-as sprite-glow-data (-> s3-1 1)))
       (forward-up->quaternion (the-as quaternion (-> s3-1 0)) arg1 (the-as vector (-> this rbody state matrix)))
       (quaternion-rotate-local-x! (the-as quaternion (-> s3-1 0)) (the-as quaternion (-> s3-1 0)) 32768.0)
       (let ((v1-16 (-> s3-1 0 normal)))
-        (let ((a0-10 (* 0.5 s4-1)))
+        (let ((a0-10 (/ s4-1 2)))
           (.mov vf7 a0-10)
           )
         (.lvf vf5 (&-> arg1 quad))
@@ -458,7 +458,7 @@
               (-> this info part-vel)
               (-> this rbody state lin-velocity)
               (-> s5-0 0 vector 1)
-              (* 0.2 (-> this info max-engine-thrust) (+ 0.5 (-> this engine-power-factor)))
+              (* (/ (-> this info max-engine-thrust) 5) (+ 0.5 (-> this engine-power-factor)))
               )
             (let ((v1-117 (-> this info part-vel))
                   (a0-45 (-> this info part-vel))

test/decompiler/reference/jak2/levels/city/traffic/vehicle/vehicle-guard_REF.gc

@@ -388,7 +388,7 @@
              (-> gp-0 vec-12 x)
              )
           )
-      (set! (-> this aim-rot-vel s3-1) (* (-> this aim-rot-vel s3-1) (fmax 0.0 (- 1.0 (* 0.1 (-> gp-0 vec-12 x))))))
+      (set! (-> this aim-rot-vel s3-1) (* (-> this aim-rot-vel s3-1) (fmax 0.0 (- 1.0 (/ (-> gp-0 vec-12 x) 10)))))
       (+! (-> this aim-rot s3-1) (* (-> this aim-rot-vel s3-1) (-> gp-0 vec-12 x)))
       (when (or (zero? s3-1) (not (logtest? (-> this flags) (turret-flag no-rot-y-clamp))))
         (let ((f0-31 (-> this info rot-min s3-1)))

test/decompiler/reference/jak2/levels/city/traffic/vehicle/vehicle-physics_REF.gc

@@ -26,7 +26,7 @@
               (let ((f1-5 (fmin (-> this water-height) (+ (-> s0-0 world-sphere y) (-> s0-0 world-sphere w)))))
                 0.0
                 (let* ((f2-5 (fmax -1.0 (fmin 1.0 (/ (- (-> this water-height) (-> s0-0 world-sphere y)) (-> s0-0 world-sphere w)))))
-                       (f30-0 (+ 0.5 (* -0.25 f2-5 f2-5 f2-5) (* 0.75 f2-5)))
+                       (f30-0 (+ 0.5 (* (/ f2-5 -4) f2-5 f2-5) (* 0.75 f2-5)))
                        )
                   (set! (-> s4-0 local-pos 0 y) (* 0.5 (+ f0-2 f1-5)))
                   (let ((v1-18 (-> this rbody))
@@ -354,8 +354,8 @@
                     (let ((f1-20 (fmax 0.0 f0-38)))
                       (+! (-> this lift-thrust s2-1) f1-20)
                       (when (logtest? (rigid-body-object-flag flight-level-transition) (-> this flags))
-                        (+! (-> this roll-thrust 0) (* 0.05 f1-20))
-                        (+! (-> this roll-thrust 1) (* 0.05 f1-20))
+                        (+! (-> this roll-thrust 0) (/ f1-20 20))
+                        (+! (-> this roll-thrust 1) (/ f1-20 20))
                         )
                       )
                     (vector-reset! (-> arg1 force))
@@ -377,7 +377,7 @@
                             (and (> (-> this flight-level-index) 0) (< f0-40 0.0) (< (-> arg1 velocity y) 0.0))
                             )
                     (vector-reset! (-> arg1 force))
-                    (let ((f0-43 (* -0.25 (-> this info inv-lift-thruster-count)))
+                    (let ((f0-43 (/ (-> this info inv-lift-thruster-count) -4))
                           (f1-28 arg0)
                           )
                       (set! (-> arg1 force y) (* f0-43 (/ 1.0 f1-28) (-> this info info mass) (-> arg1 velocity y)))

test/decompiler/reference/jak2/levels/city/traffic/vehicle/vehicle-util_REF.gc

@@ -478,7 +478,7 @@
   (let* ((v1-1 (-> this rbody state lin-velocity))
          (f0-4 (sqrtf (+ (* (-> v1-1 x) (-> v1-1 x)) (* (-> v1-1 z) (-> v1-1 z)))))
          (f0-6 (/ (- arg0 f0-4) arg0))
-         (f1-6 (* 0.005 f0-6))
+         (f1-6 (/ f0-6 200))
          )
     (set! (-> this controls throttle) (fmax 0.0 (fmin 1.0 (+ (-> this controls throttle) f1-6))))
     )