This commit is contained in:
Hat Kid
2024-12-07 16:43:55 +01:00
parent a294f298c0
commit 407db66d5c
151 changed files with 473 additions and 496 deletions
+4 -4
View File
@@ -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*
+1 -1
View File
@@ -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)))
)
)
+2 -2
View File
@@ -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)
)
)
+24 -24
View File
@@ -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)))
+2 -2
View File
@@ -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))
+9 -9
View File
@@ -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