mirror of
https://github.com/open-goal/jak-project
synced 2026-07-29 15:44:03 -04:00
jak2 ref
This commit is contained in:
Hat Kid
+15
-15
@@ -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)
|
||||
)
|
||||
|
||||
+3
-3
@@ -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)))
|
||||
)
|
||||
|
||||
+1
-1
@@ -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")
|
||||
|
||||
+1
-1
@@ -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)
|
||||
)
|
||||
|
||||
Reference in New Issue
Block a user