mirror of
https://github.com/open-goal/jak-project
synced 2026-08-21 14:54:53 -04:00
Merge remote-tracking branch 'origin/master' into j2/progress
This commit is contained in:
Tyler Wilding
+12
-12
@@ -123,9 +123,9 @@
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(defstate cam-combiner-active (camera-combiner)
|
||||
:event (behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
|
||||
:event (behavior ((proc process) (arg1 int) (event-type symbol) (event event-message-block))
|
||||
(local-vars (v0-0 none))
|
||||
(let ((v1-0 arg2))
|
||||
(let ((v1-0 event-type))
|
||||
(the-as
|
||||
object
|
||||
(cond
|
||||
@@ -135,7 +135,7 @@
|
||||
v0-0
|
||||
)
|
||||
((= v1-0 'set-interpolation)
|
||||
(let ((f0-1 (the float (-> arg3 param 0))))
|
||||
(let ((f0-1 (the float (-> event param 0))))
|
||||
(cond
|
||||
((>= 0.0 f0-1)
|
||||
(set! (-> self interp-val) 1.0)
|
||||
@@ -171,24 +171,24 @@
|
||||
(a0-14 0)
|
||||
(a1-4 "ERROR <GMJ>: missing camera-slave parameter to *camera-combiner* start-tracking~%")
|
||||
)
|
||||
(let ((v1-8 (-> arg3 param 0)))
|
||||
(let ((v1-8 (-> event param 0)))
|
||||
(rtype-of v1-8)
|
||||
)
|
||||
(t9-3 a0-14 a1-4)
|
||||
)
|
||||
)
|
||||
((not (type? (-> arg3 param 0) camera-slave))
|
||||
((not (type? (-> event param 0) camera-slave))
|
||||
(let ((t9-5 format)
|
||||
(a0-16 0)
|
||||
(a1-6 "ERROR <GMJ>: invalid type '~A' to *camera-combiner* start-tracking~%")
|
||||
(v1-11 (-> arg3 param 0))
|
||||
(v1-11 (-> event param 0))
|
||||
)
|
||||
(t9-5 a0-16 a1-6 (rtype-of v1-11))
|
||||
)
|
||||
)
|
||||
((zero? (-> self tracking-status))
|
||||
(set! (-> self tracking-status) (the-as uint 1))
|
||||
(let ((gp-1 (the-as camera-slave (-> arg3 param 0))))
|
||||
(let ((gp-1 (the-as camera-slave (-> event param 0))))
|
||||
(set! (-> self tracking-options) (the-as int (-> gp-1 options)))
|
||||
(set! (-> self tracking no-follow) (-> gp-1 tracking no-follow))
|
||||
(copy-to (-> self tracking tilt-adjust) (-> gp-1 tracking tilt-adjust))
|
||||
@@ -209,17 +209,17 @@
|
||||
(a0-23 0)
|
||||
(a1-12 "ERROR <GMJ>: missing camera-slave parameter to *camera-combiner* copy-tracking~%")
|
||||
)
|
||||
(let ((v1-23 (-> arg3 param 0)))
|
||||
(let ((v1-23 (-> event param 0)))
|
||||
(rtype-of v1-23)
|
||||
)
|
||||
(t9-11 a0-23 a1-12)
|
||||
)
|
||||
)
|
||||
((not (type? (-> arg3 param 0) camera-slave))
|
||||
((not (type? (-> event param 0) camera-slave))
|
||||
(let ((t9-13 format)
|
||||
(a0-25 0)
|
||||
(a1-14 "ERROR <GMJ>: invalid type '~A' to *camera-combiner* copy-tracking~%")
|
||||
(v1-25 (-> arg3 param 0))
|
||||
(v1-25 (-> event param 0))
|
||||
)
|
||||
(t9-13 a0-25 a1-14 (rtype-of v1-25))
|
||||
)
|
||||
@@ -229,7 +229,7 @@
|
||||
)
|
||||
(else
|
||||
(set! (-> self tracking-status) (the-as uint 1))
|
||||
(let ((gp-3 (the-as camera-slave (-> arg3 param 0))))
|
||||
(let ((gp-3 (the-as camera-slave (-> event param 0))))
|
||||
(set! (-> self tracking-options) (the-as int (-> gp-3 options)))
|
||||
(set! (-> self tracking no-follow) (-> gp-3 tracking no-follow))
|
||||
(copy-to (-> self tracking tilt-adjust) (-> gp-3 tracking tilt-adjust))
|
||||
@@ -285,7 +285,7 @@
|
||||
)
|
||||
0
|
||||
)
|
||||
(when (and (zero? (logand (-> *camera* master-options) 1)) (!= (-> self tracking-status) 0))
|
||||
(when (and (not (logtest? (-> *camera* master-options) 1)) (!= (-> self tracking-status) 0))
|
||||
(set! (-> self tracking-status) (the-as uint 0))
|
||||
0
|
||||
)
|
||||
|
||||
+4
-4
@@ -2468,7 +2468,7 @@
|
||||
)
|
||||
(format arg0 ": on")
|
||||
)
|
||||
((zero? (logand ((method-of-type res-lump get-property-value)
|
||||
((not (logtest? ((method-of-type res-lump get-property-value)
|
||||
(-> self cam-entity)
|
||||
(the-as symbol arg2)
|
||||
'exact
|
||||
@@ -2479,7 +2479,7 @@
|
||||
)
|
||||
s5-0
|
||||
)
|
||||
)
|
||||
)
|
||||
(format arg0 ": off(maya)")
|
||||
)
|
||||
(else
|
||||
@@ -3380,13 +3380,13 @@
|
||||
((and (logtest? (-> arg0 options) 8) (logtest? (-> *cpad-list* cpads 0 button0-abs 0) (-> arg0 button)))
|
||||
#f
|
||||
)
|
||||
((and (zero? (logand (-> arg0 options) 28))
|
||||
((and (not (logtest? (-> arg0 options) 28))
|
||||
(logtest? (-> arg0 options) 1)
|
||||
(zero? (logand (-> *cpad-list* cpads 0 button0-rel 0) (-> arg0 button)))
|
||||
)
|
||||
#f
|
||||
)
|
||||
((and (zero? (logand (-> arg0 options) 29))
|
||||
((and (not (logtest? (-> arg0 options) 29))
|
||||
(zero? (logand (-> *cpad-list* cpads 0 button0-abs 0) (-> arg0 button)))
|
||||
)
|
||||
#f
|
||||
|
||||
+8
-8
@@ -29,11 +29,11 @@
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(defstate cam-point-watch (camera-slave)
|
||||
:event (behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
|
||||
(let ((v1-0 arg2))
|
||||
:event (behavior ((proc process) (arg1 int) (event-type symbol) (event event-message-block))
|
||||
(let ((v1-0 event-type))
|
||||
(the-as object (if (= v1-0 'teleport)
|
||||
#f
|
||||
(cam-standard-event-handler arg0 arg1 arg2 arg3)
|
||||
(cam-standard-event-handler proc arg1 event-type event)
|
||||
)
|
||||
)
|
||||
)
|
||||
@@ -51,7 +51,7 @@
|
||||
(let ((s5-0 (new-stack-vector0))
|
||||
(gp-0 (new-stack-vector0))
|
||||
)
|
||||
(when (zero? (logand (-> *camera* settings master-options) (cam-master-options IGNORE_ANALOG)))
|
||||
(when (not (logtest? (-> *camera* settings master-options) (cam-master-options IGNORE_ANALOG)))
|
||||
(let ((f28-0 (analog-input (the-as int (-> *cpad-list* cpads 0 leftx)) 128.0 48.0 110.0 -1.0))
|
||||
(f30-0 (analog-input (the-as int (-> *cpad-list* cpads 0 lefty)) 128.0 48.0 110.0 -1.0))
|
||||
(f26-0 (analog-input (the-as int (-> *cpad-list* cpads 0 rightx)) 128.0 48.0 110.0 -1.0))
|
||||
@@ -369,7 +369,7 @@
|
||||
)
|
||||
)
|
||||
)
|
||||
(when (zero? (logand (-> *camera* settings master-options) (cam-master-options IGNORE_ANALOG)))
|
||||
(when (not (logtest? (-> *camera* settings master-options) (cam-master-options IGNORE_ANALOG)))
|
||||
(let ((f28-14 (analog-input (the-as int (-> *cpad-list* cpads arg3 leftx)) 128.0 48.0 110.0 -1.0))
|
||||
(f30-14 (analog-input (the-as int (-> *cpad-list* cpads arg3 lefty)) 128.0 48.0 110.0 -1.0))
|
||||
(f26-0 (analog-input (the-as int (-> *cpad-list* cpads arg3 rightx)) 128.0 48.0 110.0 -1.0))
|
||||
@@ -478,11 +478,11 @@
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(defstate cam-free-floating (camera-slave)
|
||||
:event (behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
|
||||
(let ((v1-0 arg2))
|
||||
:event (behavior ((proc process) (arg1 int) (event-type symbol) (event event-message-block))
|
||||
(let ((v1-0 event-type))
|
||||
(the-as object (if (= v1-0 'teleport)
|
||||
#f
|
||||
(cam-standard-event-handler arg0 arg1 arg2 arg3)
|
||||
(cam-standard-event-handler proc arg1 event-type event)
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
+59
-59
@@ -3,11 +3,11 @@
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(defstate cam-really-fixed (camera-slave)
|
||||
:event (behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
|
||||
(let ((v1-0 arg2))
|
||||
:event (behavior ((proc process) (arg1 int) (event-type symbol) (event event-message-block))
|
||||
(let ((v1-0 event-type))
|
||||
(the-as object (if (= v1-0 'teleport)
|
||||
#f
|
||||
(cam-standard-event-handler arg0 arg1 arg2 arg3)
|
||||
(cam-standard-event-handler proc arg1 event-type event)
|
||||
)
|
||||
)
|
||||
)
|
||||
@@ -32,11 +32,11 @@
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(defstate cam-fixed (camera-slave)
|
||||
:event (behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
|
||||
(let ((v1-0 arg2))
|
||||
:event (behavior ((proc process) (arg1 int) (event-type symbol) (event event-message-block))
|
||||
(let ((v1-0 event-type))
|
||||
(the-as object (if (= v1-0 'teleport)
|
||||
#f
|
||||
(cam-standard-event-handler arg0 arg1 arg2 arg3)
|
||||
(cam-standard-event-handler proc arg1 event-type event)
|
||||
)
|
||||
)
|
||||
)
|
||||
@@ -71,11 +71,11 @@
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(defstate cam-fixed-read-entity (camera-slave)
|
||||
:event (behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
|
||||
(let ((v1-0 arg2))
|
||||
:event (behavior ((proc process) (arg1 int) (event-type symbol) (event event-message-block))
|
||||
(let ((v1-0 event-type))
|
||||
(the-as object (if (= v1-0 'teleport)
|
||||
#f
|
||||
(cam-standard-event-handler arg0 arg1 arg2 arg3)
|
||||
(cam-standard-event-handler proc arg1 event-type event)
|
||||
)
|
||||
)
|
||||
)
|
||||
@@ -110,11 +110,11 @@
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(defstate cam-pov (camera-slave)
|
||||
:event (behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
|
||||
(let ((v1-0 arg2))
|
||||
:event (behavior ((proc process) (arg1 int) (event-type symbol) (event event-message-block))
|
||||
(let ((v1-0 event-type))
|
||||
(the-as object (if (= v1-0 'teleport)
|
||||
#f
|
||||
(cam-standard-event-handler arg0 arg1 arg2 arg3)
|
||||
(cam-standard-event-handler proc arg1 event-type event)
|
||||
)
|
||||
)
|
||||
)
|
||||
@@ -176,11 +176,11 @@
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(defstate cam-pov180 (camera-slave)
|
||||
:event (behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
|
||||
(let ((v1-0 arg2))
|
||||
:event (behavior ((proc process) (arg1 int) (event-type symbol) (event event-message-block))
|
||||
(let ((v1-0 event-type))
|
||||
(the-as object (if (= v1-0 'teleport)
|
||||
#f
|
||||
(cam-standard-event-handler arg0 arg1 arg2 arg3)
|
||||
(cam-standard-event-handler proc arg1 event-type event)
|
||||
)
|
||||
)
|
||||
)
|
||||
@@ -357,11 +357,11 @@
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(defstate cam-standoff (camera-slave)
|
||||
:event (behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
|
||||
(let ((v1-0 arg2))
|
||||
:event (behavior ((proc process) (arg1 int) (event-type symbol) (event event-message-block))
|
||||
(let ((v1-0 event-type))
|
||||
(the-as object (cond
|
||||
((= v1-0 'set-standoff-dist)
|
||||
(vector-normalize! (-> self pivot-pt) (the-as float (-> arg3 param 0)))
|
||||
(vector-normalize! (-> self pivot-pt) (the-as float (-> event param 0)))
|
||||
(cam-standoff-calc-trans)
|
||||
)
|
||||
((= v1-0 'set-standoff-height)
|
||||
@@ -370,12 +370,12 @@
|
||||
(-> self pivot-pt)
|
||||
(-> self pivot-pt)
|
||||
(-> *camera* local-down)
|
||||
(the-as float (-> arg3 param 0))
|
||||
(the-as float (-> event param 0))
|
||||
)
|
||||
(cam-standoff-calc-trans)
|
||||
)
|
||||
(else
|
||||
(cam-standard-event-handler arg0 arg1 arg2 arg3)
|
||||
(cam-standard-event-handler proc arg1 event-type event)
|
||||
)
|
||||
)
|
||||
)
|
||||
@@ -400,7 +400,7 @@
|
||||
(none)
|
||||
)
|
||||
:trans (behavior ()
|
||||
(if (zero? (logand (-> *camera* master-options) 1))
|
||||
(if (not (logtest? (-> *camera* master-options) 1))
|
||||
(cam-slave-go cam-free-floating)
|
||||
)
|
||||
(none)
|
||||
@@ -498,11 +498,11 @@
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(defstate cam-eye (camera-slave)
|
||||
:event (behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
|
||||
(let ((v1-0 arg2))
|
||||
:event (behavior ((proc process) (arg1 int) (event-type symbol) (event event-message-block))
|
||||
(let ((v1-0 event-type))
|
||||
(the-as object (if (= v1-0 'teleport)
|
||||
#f
|
||||
(cam-standard-event-handler arg0 arg1 arg2 arg3)
|
||||
(cam-standard-event-handler proc arg1 event-type event)
|
||||
)
|
||||
)
|
||||
)
|
||||
@@ -532,7 +532,7 @@
|
||||
(none)
|
||||
)
|
||||
:trans (behavior ()
|
||||
(if (zero? (logand (-> *camera* master-options) 1))
|
||||
(if (not (logtest? (-> *camera* master-options) 1))
|
||||
(go cam-free-floating)
|
||||
)
|
||||
(none)
|
||||
@@ -544,7 +544,7 @@
|
||||
(let ((s4-0 (vector-reset! (new-stack-vector0)))
|
||||
(s5-0 (new-stack-matrix0))
|
||||
)
|
||||
(when (zero? (logand (-> *camera* settings master-options) (cam-master-options IGNORE_ANALOG)))
|
||||
(when (not (logtest? (-> *camera* settings master-options) (cam-master-options IGNORE_ANALOG)))
|
||||
(let ((f30-0 (analog-input
|
||||
(the-as int (+ (-> *cpad-list* cpads 0 rightx) -256 (-> *cpad-list* cpads 0 leftx)))
|
||||
0.0
|
||||
@@ -594,7 +594,7 @@
|
||||
)
|
||||
(matrix-axis-angle! s5-0 (-> *camera* local-down) (-> s4-0 y))
|
||||
(matrix*! (the-as matrix (-> self tracking)) (the-as matrix (-> self tracking)) s5-0)
|
||||
(when (zero? (logand (-> self options) 8))
|
||||
(when (not (logtest? (-> self options) 8))
|
||||
(if (< (vector-dot (the-as vector (&-> self stack 96)) (-> *camera* local-down)) 0.0)
|
||||
(forward-down->inv-matrix
|
||||
(the-as matrix (-> self tracking))
|
||||
@@ -611,7 +611,7 @@
|
||||
(matrix-axis-angle! s5-0 (the-as vector (-> self tracking)) (- (-> s4-0 x)))
|
||||
(matrix*! (the-as matrix (-> self tracking)) (the-as matrix (-> self tracking)) s5-0)
|
||||
)
|
||||
(when (zero? (logand (-> self options) 8))
|
||||
(when (not (logtest? (-> self options) 8))
|
||||
(let ((f30-1 (vector-dot (-> *camera* local-down) (the-as vector (&-> self stack 112)))))
|
||||
(set! (-> (new 'stack-no-clear 'vector) quad) (the-as uint128 0))
|
||||
(when (< (sin (-> *CAM_EYE-bank* max-degrees)) (fabs f30-1))
|
||||
@@ -739,7 +739,7 @@
|
||||
(none)
|
||||
)
|
||||
:trans (behavior ()
|
||||
(if (zero? (logand (-> *camera* master-options) 1))
|
||||
(if (not (logtest? (-> *camera* master-options) 1))
|
||||
(cam-slave-go cam-free-floating)
|
||||
)
|
||||
(none)
|
||||
@@ -761,11 +761,11 @@
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(defstate cam-decel (camera-slave)
|
||||
:event (behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
|
||||
(let ((v1-0 arg2))
|
||||
:event (behavior ((proc process) (arg1 int) (event-type symbol) (event event-message-block))
|
||||
(let ((v1-0 event-type))
|
||||
(the-as object (if (= v1-0 'teleport)
|
||||
#f
|
||||
(cam-standard-event-handler arg0 arg1 arg2 arg3)
|
||||
(cam-standard-event-handler proc arg1 event-type event)
|
||||
)
|
||||
)
|
||||
)
|
||||
@@ -816,11 +816,11 @@
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(defstate cam-endlessfall (camera-slave)
|
||||
:event (behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
|
||||
(let ((v1-0 arg2))
|
||||
:event (behavior ((proc process) (arg1 int) (event-type symbol) (event event-message-block))
|
||||
(let ((v1-0 event-type))
|
||||
(the-as object (if (= v1-0 'teleport)
|
||||
#f
|
||||
(cam-standard-event-handler arg0 arg1 arg2 arg3)
|
||||
(cam-standard-event-handler proc arg1 event-type event)
|
||||
)
|
||||
)
|
||||
)
|
||||
@@ -879,7 +879,7 @@
|
||||
(f28-0 (acos f0-1))
|
||||
(s4-0 (new 'stack-no-clear 'matrix))
|
||||
)
|
||||
(when (zero? (logand (-> *camera* settings master-options) (cam-master-options IGNORE_ANALOG)))
|
||||
(when (not (logtest? (-> *camera* settings master-options) (cam-master-options IGNORE_ANALOG)))
|
||||
(let ((f24-0 (analog-input
|
||||
(the-as int (-> *cpad-list* cpads 0 rightx))
|
||||
128.0
|
||||
@@ -1157,7 +1157,7 @@
|
||||
;; failed to figure out what this is:
|
||||
(defstate cam-circular (camera-slave)
|
||||
:trans (behavior ()
|
||||
(if (zero? (logand (-> *camera* master-options) 1))
|
||||
(if (not (logtest? (-> *camera* master-options) 1))
|
||||
(cam-slave-go cam-free-floating)
|
||||
)
|
||||
(none)
|
||||
@@ -1188,7 +1188,7 @@
|
||||
(none)
|
||||
)
|
||||
:trans (behavior ()
|
||||
(if (zero? (logand (-> *camera* master-options) 1))
|
||||
(if (not (logtest? (-> *camera* master-options) 1))
|
||||
(cam-slave-go cam-free-floating)
|
||||
)
|
||||
(none)
|
||||
@@ -2199,7 +2199,7 @@
|
||||
(cam-los-setup-lateral arg2 s4-1 arg1)
|
||||
)
|
||||
(cond
|
||||
((zero? (logand (-> self options) 1024))
|
||||
((not (logtest? (-> self options) 1024))
|
||||
)
|
||||
((= (-> self string-vel-dir) 5)
|
||||
)
|
||||
@@ -4886,9 +4886,9 @@
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(defstate cam-string (camera-slave)
|
||||
:event (behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
|
||||
:event (behavior ((proc process) (arg1 int) (event-type symbol) (event event-message-block))
|
||||
(local-vars (v0-0 none))
|
||||
(let ((v1-0 arg2))
|
||||
(let ((v1-0 event-type))
|
||||
(the-as
|
||||
object
|
||||
(cond
|
||||
@@ -4896,7 +4896,7 @@
|
||||
(set! (-> self butt-timer) (the-as uint (+ (-> self clock frame-counter) (seconds 0.25))))
|
||||
(set! (-> self butt-seek) (the-as basic #t))
|
||||
(set! v0-0 (the-as none (-> self butt-vector)))
|
||||
(set! (-> (the-as vector v0-0) quad) (-> (the-as vector (-> arg3 param 0)) quad))
|
||||
(set! (-> (the-as vector v0-0) quad) (-> (the-as vector (-> event param 0)) quad))
|
||||
v0-0
|
||||
)
|
||||
((= v1-0 'teleport)
|
||||
@@ -4906,18 +4906,18 @@
|
||||
)
|
||||
)
|
||||
((= v1-0 'joystick)
|
||||
(set! (-> self phony-joystick-x) (the-as float (-> arg3 param 0)))
|
||||
(set! (-> self phony-joystick-y) (the-as float (-> arg3 param 1)))
|
||||
(set! (-> self phony-joystick-x) (the-as float (-> event param 0)))
|
||||
(set! (-> self phony-joystick-y) (the-as float (-> event param 1)))
|
||||
(set! v0-0 (the-as none #t))
|
||||
(set! (-> self have-phony-joystick) (the-as basic v0-0))
|
||||
v0-0
|
||||
)
|
||||
((= v1-0 'tween-dist)
|
||||
(cond
|
||||
((-> arg3 param 0)
|
||||
((-> event param 0)
|
||||
(set! (-> self string-val-locked) (the-as basic #t))
|
||||
(let ((s5-0 (the-as object (-> arg3 param 0)))
|
||||
(gp-1 (the-as object (-> arg3 param 1)))
|
||||
(let ((s5-0 (the-as object (-> event param 0)))
|
||||
(gp-1 (the-as object (-> event param 1)))
|
||||
)
|
||||
(if (!= (-> (the-as vector s5-0) y) 4095996000.0)
|
||||
(seek!
|
||||
@@ -4960,10 +4960,10 @@
|
||||
)
|
||||
((= v1-0 'set-dist)
|
||||
(cond
|
||||
((-> arg3 param 0)
|
||||
((-> event param 0)
|
||||
(set! (-> self string-val-locked) (the-as basic #t))
|
||||
(set! (-> self string-min-val quad) (-> (the-as vector (-> arg3 param 0)) quad))
|
||||
(set! (-> self string-max-val quad) (-> (the-as vector (-> arg3 param 1)) quad))
|
||||
(set! (-> self string-min-val quad) (-> (the-as vector (-> event param 0)) quad))
|
||||
(set! (-> self string-max-val quad) (-> (the-as vector (-> event param 1)) quad))
|
||||
(set! (-> self string-max-val x) (fmax (-> self string-max-val x) (-> self string-min-val x)))
|
||||
(set! (-> self string-max-val y) (fmax (-> self string-max-val y) (-> self string-min-val y)))
|
||||
(set! (-> self string-max-val z) (fmax (-> self string-max-val z) (-> self string-min-val z)))
|
||||
@@ -4976,11 +4976,11 @@
|
||||
)
|
||||
((= v1-0 'relative-position)
|
||||
(cond
|
||||
((-> arg3 param 0)
|
||||
((-> event param 0)
|
||||
(set! (-> self string-val-locked) (the-as basic #t))
|
||||
(set! (-> self string-relative) (the-as basic #t))
|
||||
(set! v0-0 (the-as none (-> self relative-position)))
|
||||
(set! (-> (the-as vector v0-0) quad) (-> (the-as vector (-> arg3 param 0)) quad))
|
||||
(set! (-> (the-as vector v0-0) quad) (-> (the-as vector (-> event param 0)) quad))
|
||||
v0-0
|
||||
)
|
||||
(else
|
||||
@@ -4991,13 +4991,13 @@
|
||||
)
|
||||
)
|
||||
((= v1-0 'set-max-angle-offset)
|
||||
(set! (-> self max-angle-offset) (the-as float (-> arg3 param 0)))
|
||||
(set! (-> self max-angle-offset) (the-as float (-> event param 0)))
|
||||
)
|
||||
((= v1-0 'blocked-side?)
|
||||
(-> self los-state)
|
||||
)
|
||||
(else
|
||||
(cam-standard-event-handler arg0 arg1 arg2 arg3)
|
||||
(cam-standard-event-handler proc arg1 event-type event)
|
||||
)
|
||||
)
|
||||
)
|
||||
@@ -5160,7 +5160,7 @@
|
||||
(none)
|
||||
)
|
||||
:trans (behavior ()
|
||||
(if (zero? (logand (-> *camera* master-options) 1))
|
||||
(if (not (logtest? (-> *camera* master-options) 1))
|
||||
(cam-slave-go cam-free-floating)
|
||||
)
|
||||
(none)
|
||||
@@ -5246,11 +5246,11 @@
|
||||
(none)
|
||||
)
|
||||
:trans (behavior ()
|
||||
(if (zero? (logand (-> *camera* master-options) 1))
|
||||
(if (not (logtest? (-> *camera* master-options) 1))
|
||||
(cam-slave-go cam-free-floating)
|
||||
)
|
||||
(when (not (paused?))
|
||||
(when (zero? (logand (-> *camera* settings master-options) (cam-master-options IGNORE_ANALOG)))
|
||||
(when (not (logtest? (-> *camera* settings master-options) (cam-master-options IGNORE_ANALOG)))
|
||||
(let ((f0-0 (analog-input (the-as int (-> *cpad-list* cpads 0 righty)) 128.0 32.0 110.0 0.05)))
|
||||
(cond
|
||||
((< (* 0.05 (- 1.0 (-> self view-off-param))) f0-0)
|
||||
@@ -5271,7 +5271,7 @@
|
||||
(set! (-> self view-off z)
|
||||
(lerp (-> *CAM_STICK-bank* min-z) (-> *CAM_STICK-bank* max-z) (-> self view-off-param))
|
||||
)
|
||||
(when (zero? (logand (-> *camera* settings master-options) (cam-master-options IGNORE_ANALOG)))
|
||||
(when (not (logtest? (-> *camera* settings master-options) (cam-master-options IGNORE_ANALOG)))
|
||||
(let ((f0-16 (analog-input
|
||||
(the-as int (-> *cpad-list* cpads 0 rightx))
|
||||
128.0
|
||||
@@ -5396,7 +5396,7 @@
|
||||
(none)
|
||||
)
|
||||
:trans (behavior ()
|
||||
(if (zero? (logand (-> *camera* master-options) 1))
|
||||
(if (not (logtest? (-> *camera* master-options) 1))
|
||||
(cam-slave-go cam-free-floating)
|
||||
)
|
||||
(none)
|
||||
|
||||
+133
-803
@@ -89,837 +89,167 @@
|
||||
|
||||
;; definition for function update-visible
|
||||
;; INFO: Used lq/sq
|
||||
;; ERROR: failed type prop at 290: Could not figure out load: (set! v1 (l.w s3))
|
||||
(defun update-visible ((a0-0 math-camera))
|
||||
(local-vars
|
||||
(v0-0 none)
|
||||
(v0-1 none)
|
||||
(v0-2 none)
|
||||
(v0-3 none)
|
||||
(v0-4 none)
|
||||
(v0-5 object)
|
||||
(v0-6 none)
|
||||
(v0-7 none)
|
||||
(v0-8 none)
|
||||
(v0-9 symbol)
|
||||
(v1-0 symbol)
|
||||
(v1-2 int)
|
||||
(v1-3 int)
|
||||
(v1-4 int)
|
||||
(v1-5 level)
|
||||
(v1-6 level-group)
|
||||
(v1-7 int)
|
||||
(v1-10 int)
|
||||
(v1-11 int)
|
||||
(v1-12 int)
|
||||
(v1-13 symbol)
|
||||
(v1-15 bsp-header)
|
||||
(v1-16 int)
|
||||
(v1-17 int)
|
||||
(v1-18 symbol)
|
||||
(v1-19 symbol)
|
||||
(v1-20 symbol)
|
||||
(v1-21 symbol)
|
||||
(v1-22 symbol)
|
||||
(v1-23 symbol)
|
||||
(v1-24 level-vis-info)
|
||||
(v1-25 bsp-header)
|
||||
(v1-26 symbol)
|
||||
(v1-28 symbol)
|
||||
(v1-29 int)
|
||||
(v1-30 int)
|
||||
(v1-31 int)
|
||||
(v1-32 symbol)
|
||||
(v1-33 symbol)
|
||||
(v1-34 symbol)
|
||||
(v1-37 type)
|
||||
(v1-38 none)
|
||||
(v1-40 int)
|
||||
(v1-44 symbol)
|
||||
(v1-45 symbol)
|
||||
(v1-46 level-group)
|
||||
(v1-48 bsp-header)
|
||||
(v1-50 bsp-header)
|
||||
(v1-52 level-group)
|
||||
(v1-53 int)
|
||||
(v1-56 symbol)
|
||||
(v1-57 symbol)
|
||||
(v1-58 symbol)
|
||||
(v1-60 int)
|
||||
(v1-61 int)
|
||||
(v1-62 int)
|
||||
(v1-63 int)
|
||||
(v1-64 int)
|
||||
(v1-65 int)
|
||||
(v1-66 symbol)
|
||||
(v1-68 symbol)
|
||||
(v1-69 symbol)
|
||||
(v1-70 symbol)
|
||||
(v1-71 symbol)
|
||||
(v1-72 int)
|
||||
(v1-73 int)
|
||||
(v1-74 bsp-header)
|
||||
(v1-75 bsp-header)
|
||||
(v1-76 bsp-header)
|
||||
(v1-77 uint)
|
||||
(v1-78 bsp-header)
|
||||
(v1-79 uint)
|
||||
(v1-81 none)
|
||||
(v1-82 symbol)
|
||||
(v1-83 symbol)
|
||||
(v1-84 symbol)
|
||||
(v1-86 bsp-header)
|
||||
(v1-87 bsp-header)
|
||||
(v1-88 bsp-header)
|
||||
(v1-89 uint)
|
||||
(v1-91 none)
|
||||
(v1-92 none)
|
||||
(v1-93 none)
|
||||
(v1-94 none)
|
||||
(v1-95 none)
|
||||
(v1-96 none)
|
||||
(v1-97 none)
|
||||
(v1-98 none)
|
||||
(v1-99 none)
|
||||
(v1-102 none)
|
||||
(v1-103 none)
|
||||
(v1-105 none)
|
||||
(v1-106 none)
|
||||
(v1-107 none)
|
||||
(v1-108 none)
|
||||
(v1-109 none)
|
||||
(v1-111 none)
|
||||
(v1-112 none)
|
||||
(v1-115 level-group)
|
||||
(v1-116 int)
|
||||
(a0-1 level-group)
|
||||
(a0-2 symbol)
|
||||
(a0-4 bsp-header)
|
||||
(a0-5 (inline-array bsp-node))
|
||||
(a0-6 symbol)
|
||||
(a0-7 symbol)
|
||||
(a0-9 bsp-header)
|
||||
(a0-11 level-group)
|
||||
(a0-12 symbol)
|
||||
(a0-13 pointer)
|
||||
(a0-14 symbol)
|
||||
(a0-15 basic)
|
||||
(a0-17 int)
|
||||
(a0-18 int)
|
||||
(a0-19 int)
|
||||
(a0-20 uint)
|
||||
(a0-23 symbol)
|
||||
(a0-24 level)
|
||||
(a0-25 int)
|
||||
(a0-26 int)
|
||||
(a0-27 level-vis-info)
|
||||
(a0-28 symbol)
|
||||
(a0-29 symbol)
|
||||
(a0-30 pointer)
|
||||
(a0-31 pointer)
|
||||
(a0-32 cpad-list)
|
||||
(a0-33 cpad-info)
|
||||
(a0-34 pad-buttons)
|
||||
(a0-35 pad-buttons)
|
||||
(a0-36 level-group)
|
||||
(a0-37 symbol)
|
||||
(a0-38 int)
|
||||
(a0-39 int)
|
||||
(a0-40 string)
|
||||
(a0-41 int)
|
||||
(a0-42 int)
|
||||
(a0-43 none)
|
||||
(a0-45 none)
|
||||
(a0-47 none)
|
||||
(a0-49 none)
|
||||
(a0-50 none)
|
||||
(a0-51 none)
|
||||
(a0-52 none)
|
||||
(a0-53 none)
|
||||
(a0-54 none)
|
||||
(a0-55 none)
|
||||
(a0-56 none)
|
||||
(a0-57 none)
|
||||
(a0-58 none)
|
||||
(a0-59 none)
|
||||
(a0-60 none)
|
||||
(a0-61 none)
|
||||
(a0-62 none)
|
||||
(a0-63 none)
|
||||
(a0-64 none)
|
||||
(a0-65 none)
|
||||
(a0-66 none)
|
||||
(a0-67 none)
|
||||
(a0-68 none)
|
||||
(a0-69 none)
|
||||
(a0-70 none)
|
||||
(a0-71 none)
|
||||
(a0-72 none)
|
||||
(a0-73 none)
|
||||
(a0-74 none)
|
||||
(a0-75 none)
|
||||
(a0-76 none)
|
||||
(a0-77 none)
|
||||
(a0-78 none)
|
||||
(a0-79 none)
|
||||
(a0-80 none)
|
||||
(a0-81 none)
|
||||
(a0-82 none)
|
||||
(a0-83 none)
|
||||
(a1-0 symbol)
|
||||
(a1-1 vector)
|
||||
(a1-2 (pointer uint16))
|
||||
(a1-3 vis-info-flag)
|
||||
(a1-4 bsp-header)
|
||||
(a1-5 uint)
|
||||
(a1-9 int)
|
||||
(a1-10 (pointer uint16))
|
||||
(a1-11 (pointer uint16))
|
||||
(a1-12 int)
|
||||
(a1-13 int)
|
||||
(a1-14 string)
|
||||
(a1-15 int)
|
||||
(a1-16 int)
|
||||
(a1-17 none)
|
||||
(a1-18 none)
|
||||
(a1-19 none)
|
||||
(a1-20 none)
|
||||
(a1-21 none)
|
||||
(a1-22 none)
|
||||
(a1-23 none)
|
||||
(a1-24 none)
|
||||
(a1-25 none)
|
||||
(a1-26 none)
|
||||
(a1-27 none)
|
||||
(a1-28 none)
|
||||
(a1-29 none)
|
||||
(a1-30 none)
|
||||
(a1-31 none)
|
||||
(a1-32 none)
|
||||
(a1-33 none)
|
||||
(a1-34 none)
|
||||
(a1-35 none)
|
||||
(a1-36 none)
|
||||
(a1-37 none)
|
||||
(a1-38 none)
|
||||
(a1-39 none)
|
||||
(a1-40 none)
|
||||
(a1-41 none)
|
||||
(a2-0 int)
|
||||
(a2-1 uint)
|
||||
(a2-2 int)
|
||||
(a2-4 symbol)
|
||||
(a2-5 int)
|
||||
(a2-7 none)
|
||||
(a2-8 none)
|
||||
(a2-9 none)
|
||||
(a3-0 uint)
|
||||
(a3-1 int)
|
||||
(a3-2 int)
|
||||
(a3-3 int)
|
||||
(a3-4 none)
|
||||
(a3-5 none)
|
||||
(a3-6 none)
|
||||
(t0-0 int)
|
||||
(t0-2 uint)
|
||||
(t0-3 none)
|
||||
(t0-4 none)
|
||||
(t0-5 none)
|
||||
(t1-0 uint)
|
||||
(t2-0 string)
|
||||
(t3-0 string)
|
||||
(s2-0 int)
|
||||
(s3-0 uint)
|
||||
(s4-0 level-vis-info)
|
||||
(s4-1 uint)
|
||||
(s5-0 int)
|
||||
(s5-1 level)
|
||||
(s5-2 level)
|
||||
(t9-0 (function bsp-header vector none))
|
||||
(t9-1 (function pointer pointer int none))
|
||||
(t9-2 (function none))
|
||||
(t9-3 (function pointer pointer int none))
|
||||
(t9-4 (function pointer pointer int none))
|
||||
(t9-5 (function _varargs_ object))
|
||||
(t9-6 none)
|
||||
(t9-7 none)
|
||||
(t9-8 none)
|
||||
(gp-1 int)
|
||||
(gp-2 int)
|
||||
(sp-0 none)
|
||||
(f0-0 none)
|
||||
(f0-1 none)
|
||||
(f0-2 none)
|
||||
(f0-3 none)
|
||||
(f0-4 none)
|
||||
(f0-5 none)
|
||||
(f0-6 none)
|
||||
(f0-7 none)
|
||||
(f0-8 none)
|
||||
(f0-9 none)
|
||||
(f0-10 none)
|
||||
(f0-11 none)
|
||||
(f0-12 none)
|
||||
(f0-13 none)
|
||||
(f0-14 none)
|
||||
(f0-15 none)
|
||||
(f0-16 none)
|
||||
(f0-17 none)
|
||||
(f0-18 none)
|
||||
(f0-19 none)
|
||||
(f0-20 none)
|
||||
(f0-21 none)
|
||||
(f0-22 none)
|
||||
(f0-23 none)
|
||||
(f0-24 none)
|
||||
(f0-25 none)
|
||||
(f1-0 none)
|
||||
(f1-1 none)
|
||||
(f1-2 none)
|
||||
(f1-3 none)
|
||||
(f1-4 none)
|
||||
(f1-5 none)
|
||||
(f1-6 none)
|
||||
(f1-7 none)
|
||||
(f1-8 none)
|
||||
(f1-9 none)
|
||||
(f1-10 none)
|
||||
(f1-11 none)
|
||||
(f1-12 none)
|
||||
(f1-13 none)
|
||||
(f1-14 none)
|
||||
(f1-15 none)
|
||||
(f1-16 none)
|
||||
(f1-17 none)
|
||||
(f1-18 none)
|
||||
(f1-19 none)
|
||||
(f1-20 none)
|
||||
(f1-21 none)
|
||||
(f1-22 none)
|
||||
(f1-23 none)
|
||||
(f1-24 none)
|
||||
(f1-25 none)
|
||||
(f1-26 none)
|
||||
(f1-27 none)
|
||||
(f1-28 none)
|
||||
(f1-29 none)
|
||||
(f1-30 none)
|
||||
(f1-31 none)
|
||||
(f1-32 none)
|
||||
(f1-33 none)
|
||||
(f1-34 none)
|
||||
(f1-35 none)
|
||||
(f1-36 none)
|
||||
(f1-37 none)
|
||||
(f1-38 none)
|
||||
(f1-39 none)
|
||||
(f1-40 none)
|
||||
(f1-41 none)
|
||||
(f1-42 none)
|
||||
(f1-43 none)
|
||||
(f1-44 none)
|
||||
(f1-45 none)
|
||||
(f1-46 none)
|
||||
(f1-47 none)
|
||||
)
|
||||
(when (begin (set! v1-0 *artist-fix-visible*) (not v1-0))
|
||||
(set! s5-0 0)
|
||||
(while (begin (set! v1-6 *level*) (set! v1-7 (-> v1-6 length)) (<.si s5-0 v1-7))
|
||||
(when (begin
|
||||
(set! v1-2 5232)
|
||||
(set! v1-3 (*.si v1-2 s5-0))
|
||||
(set! v1-4 (+ v1-3 256))
|
||||
(set! a0-1 *level*)
|
||||
(set! v1-5 (+ v1-4 a0-1))
|
||||
(set! a0-2 'active)
|
||||
(set! a1-0 (-> v1-5 status))
|
||||
(= a1-0 a0-2)
|
||||
(defun update-visible ((arg0 math-camera))
|
||||
(local-vars (s4-0 level-vis-info))
|
||||
(when (not *artist-fix-visible*)
|
||||
(dotimes (s5-0 (-> *level* length))
|
||||
(let ((v1-5 (-> *level* level s5-0)))
|
||||
(when (= (-> v1-5 status) 'active)
|
||||
(if (and (nonzero? (-> v1-5 bsp nodes)) (or *update-leaf-when-outside-bsp* (-> v1-5 inside-boxes)))
|
||||
(bsp-camera-asm (-> v1-5 bsp) (-> arg0 trans))
|
||||
)
|
||||
(when (begin
|
||||
(and (begin (set! a0-4 (-> v1-5 bsp)) (set! a0-5 (-> a0-4 nodes)) (nonzero? a0-5))
|
||||
(or (begin (set! a0-7 *update-leaf-when-outside-bsp*) a0-7) (set! a0-6 (-> v1-5 inside-boxes)))
|
||||
)
|
||||
a0-6
|
||||
)
|
||||
(set! t9-0 bsp-camera-asm)
|
||||
(set! a0-9 (-> v1-5 bsp))
|
||||
(set! a1-1 (-> a0-0 trans))
|
||||
(call! a0-9 a1-1)
|
||||
(set! a0-10 v0-0)
|
||||
)
|
||||
)
|
||||
(set! s5-0 (+ s5-0 1))
|
||||
)
|
||||
(set! gp-1 0)
|
||||
(while (begin (set! v1-52 *level*) (set! v1-53 (-> v1-52 length)) (<.si gp-1 v1-53))
|
||||
(when (begin
|
||||
(set! v1-10 5232)
|
||||
(set! v1-11 (*.si v1-10 gp-1))
|
||||
(set! v1-12 (+ v1-11 256))
|
||||
(set! a0-11 *level*)
|
||||
(set! s5-1 (+ v1-12 a0-11))
|
||||
(set! v1-13 'active)
|
||||
(set! a0-12 (-> s5-1 status))
|
||||
(= a0-12 v1-13)
|
||||
)
|
||||
(cond
|
||||
((begin
|
||||
(or (begin
|
||||
(if (begin
|
||||
(set! v1-15 (-> s5-1 bsp))
|
||||
(set! v1-16 (-> v1-15 visible-list-length))
|
||||
(set! v1-17 (+ v1-16 15))
|
||||
(set! a2-0 (sra v1-17 4))
|
||||
(set! v1-18 (-> s5-1 all-visible?))
|
||||
v1-18
|
||||
)
|
||||
(set! v1-19 (-> s5-1 all-visible?))
|
||||
(set! v1-19 #t)
|
||||
)
|
||||
(set! (-> s5-1 all-visible?) v1-19)
|
||||
(set! v1-20 (-> s5-1 force-all-visible?))
|
||||
(not v1-20)
|
||||
)
|
||||
(set! v1-21 (-> s5-1 inside-boxes))
|
||||
)
|
||||
v1-21
|
||||
)
|
||||
(cond
|
||||
((begin
|
||||
(or (begin (set! v1-22 *artist-all-visible*) v1-22)
|
||||
(begin (set! v1-24 (-> s5-1 vis-info 0)) (set! v1-23 (not v1-24)))
|
||||
)
|
||||
v1-23
|
||||
)
|
||||
(when (begin
|
||||
(set! t9-1 quad-copy!)
|
||||
(set! a0-13 (-> s5-1 vis-bits))
|
||||
(set! v1-25 (-> s5-1 bsp))
|
||||
(set! a1-2 (-> v1-25 all-visible-list))
|
||||
(call! a0-13 a1-2 a2-0)
|
||||
(set! v1-26 'loading)
|
||||
(set! a0-14 (-> s5-1 all-visible?))
|
||||
(= a0-14 v1-26)
|
||||
)
|
||||
(set! v1-28 #t)
|
||||
(set! (-> s5-1 all-visible?) v1-28)
|
||||
)
|
||||
)
|
||||
((begin
|
||||
(when (begin
|
||||
(and (begin
|
||||
(set! v1-29 (-> s5-1 vis-self-index))
|
||||
(set! v1-30 (sll v1-29 2))
|
||||
(set! v1-31 (+ v1-30 s5-1))
|
||||
(set! s4-0 (dynamic-array-field-access v1-31 vis-info PLACEHOLDER))
|
||||
(set! v1-32 #f)
|
||||
s4-0
|
||||
)
|
||||
(set! a0-15 (-> s4-0 from-bsp))
|
||||
)
|
||||
a0-15
|
||||
)
|
||||
(when (begin
|
||||
(set! v1-33 #t)
|
||||
(set! a0-17 #x8000)
|
||||
(set! a0-18 (sll a0-17 16))
|
||||
(set! a1-3 (-> s4-0 flags))
|
||||
(set! a0-19 (logand a0-18 a1-3))
|
||||
(cmove-#f-zero v1-32 a0-19 v1-33)
|
||||
(set! a0-20 (-> s4-0 length))
|
||||
(set! a1-4 (-> s4-0 from-bsp))
|
||||
(set! a1-5 (-> a1-4 current-leaf-idx))
|
||||
(<.ui a0-20 a1-5)
|
||||
)
|
||||
(set! v1-32 #f)
|
||||
(set! a0-22 v1-32)
|
||||
)
|
||||
(dotimes (gp-1 (-> *level* length))
|
||||
(let ((s5-1 (-> *level* level gp-1)))
|
||||
(when (= (-> s5-1 status) 'active)
|
||||
(let ((a2-0 (/ (+ (-> s5-1 bsp visible-list-length) 15) 16)))
|
||||
(set! (-> s5-1 all-visible?) (if (-> s5-1 all-visible?)
|
||||
(-> s5-1 all-visible?)
|
||||
#t
|
||||
)
|
||||
)
|
||||
v1-32
|
||||
)
|
||||
(when (begin
|
||||
(if (begin (set! v1-34 'loading) (set! a0-23 (-> s5-1 all-visible?)) (!= a0-23 v1-34))
|
||||
(set! (-> s5-1 all-visible?) #f)
|
||||
)
|
||||
(set! a0-24 s5-1)
|
||||
(set! v1-37 (-> a0-24 type))
|
||||
(set! t9-2 (method-of-type v1-37 level-method-16))
|
||||
(set! a1-6 s4-0)
|
||||
(set! a2-1 (-> s4-0 ramdisk))
|
||||
(set! a3-0 (-> s4-0 string-block))
|
||||
(set! v0-2 (call!))
|
||||
(set! v1-38 v0-2)
|
||||
v1-38
|
||||
)
|
||||
(set! v1-40 8)
|
||||
(while (nonzero? v1-40)
|
||||
(when (begin
|
||||
(set! v1-40 (+ v1-40 -1))
|
||||
(set! a0-25 (sll v1-40 2))
|
||||
(set! a0-26 (+ a0-25 s5-1))
|
||||
(set! a0-27 (dynamic-array-field-access a0-26 vis-info PLACEHOLDER))
|
||||
a0-27
|
||||
)
|
||||
(when (!= a0-27 s4-0)
|
||||
(set! a1-9 -1)
|
||||
(set! (-> a0-27 current-vis-string) (the-as uint a1-9))
|
||||
)
|
||||
)
|
||||
)
|
||||
(set! (-> s5-1 all-visible?) #f)
|
||||
)
|
||||
)
|
||||
(else
|
||||
(and (begin (set! v1-44 (-> s5-1 all-visible?)) (set! a0-28 'loading) (set! a0-29 (= v1-44 a0-28)) a0-29)
|
||||
(begin (set! v1-46 *level*) (set! v1-45 (-> v1-46 play?)))
|
||||
)
|
||||
(cond
|
||||
((or (not (-> s5-1 force-all-visible?)) (-> s5-1 inside-boxes))
|
||||
(cond
|
||||
(v1-45
|
||||
)
|
||||
((or *artist-all-visible* (not (-> s5-1 vis-info 0)))
|
||||
(quad-copy! (-> s5-1 vis-bits) (-> s5-1 bsp all-visible-list) a2-0)
|
||||
(if (= (-> s5-1 all-visible?) 'loading)
|
||||
(set! (-> s5-1 all-visible?) #t)
|
||||
)
|
||||
)
|
||||
((begin
|
||||
(set! s4-0 (-> s5-1 vis-info (-> s5-1 vis-self-index)))
|
||||
(let ((v1-32 #f))
|
||||
(when (and s4-0 (-> s4-0 from-bsp))
|
||||
(set! v1-32 (logtest? (vis-info-flag vis-valid) (-> s4-0 flags)))
|
||||
(if (< (-> s4-0 length) (-> s4-0 from-bsp current-leaf-idx))
|
||||
(set! v1-32 #f)
|
||||
)
|
||||
)
|
||||
v1-32
|
||||
)
|
||||
)
|
||||
(if (!= (-> s5-1 all-visible?) 'loading)
|
||||
(set! (-> s5-1 all-visible?) #f)
|
||||
)
|
||||
(when (update-vis! s5-1 s4-0 (-> s4-0 ramdisk) (the-as (pointer uint8) (-> s4-0 string-block)))
|
||||
(countdown (v1-40 8)
|
||||
(let ((a0-27 (-> s5-1 vis-info v1-40)))
|
||||
(when a0-27
|
||||
(if (!= a0-27 s4-0)
|
||||
(set! (-> a0-27 current-vis-string) (the-as uint -1))
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
(set! (-> s5-1 all-visible?) #f)
|
||||
)
|
||||
)
|
||||
((and (= (-> s5-1 all-visible?) 'loading) (-> *level* play?))
|
||||
)
|
||||
(else
|
||||
(set! t9-3 quad-copy!)
|
||||
(set! a0-30 (-> s5-1 vis-bits))
|
||||
(set! v1-48 (-> s5-1 bsp))
|
||||
(set! a1-10 (-> v1-48 all-visible-list))
|
||||
(call! a0-30 a1-10 a2-0)
|
||||
(set! v1-49 v0-3)
|
||||
(quad-copy! (-> s5-1 vis-bits) (-> s5-1 bsp all-visible-list) a2-0)
|
||||
)
|
||||
)
|
||||
)
|
||||
(else
|
||||
(quad-copy! (-> s5-1 vis-bits) (-> s5-1 bsp all-visible-list) a2-0)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
(if (and *artist-fix-visible* (cpad-pressed? 0 r2))
|
||||
(set! *fix-visible-level-mask* (logand (+ *fix-visible-level-mask* 1) 63))
|
||||
)
|
||||
(dotimes (gp-2 (-> *level* length))
|
||||
(let ((s5-2 (-> *level* level gp-2)))
|
||||
(when (= (-> s5-2 status) 'active)
|
||||
(cond
|
||||
((or *artist-fix-visible* *stats-bsp*)
|
||||
(set! (-> s5-2 render?) (zero? (logand *fix-visible-level-mask* (ash 1 (-> s5-2 index)))))
|
||||
(format
|
||||
*stdcon*
|
||||
"~0kleaf-index ~8S ~C = ~d node ~d ~S ~S~%"
|
||||
(-> s5-2 name)
|
||||
(if (not (logtest? *fix-visible-level-mask* (ash 1 (-> s5-2 index))))
|
||||
88
|
||||
32
|
||||
)
|
||||
(-> s5-2 bsp current-leaf-idx)
|
||||
(-> s5-2 bsp cam-box-idx)
|
||||
(if (zero? (-> s5-2 bsp cam-using-back))
|
||||
"front"
|
||||
"back"
|
||||
)
|
||||
(if (nonzero? (-> s5-2 bsp cam-outside-bsp))
|
||||
"outside"
|
||||
""
|
||||
)
|
||||
)
|
||||
)
|
||||
(else
|
||||
(set! t9-4 quad-copy!)
|
||||
(set! a0-31 (-> s5-1 vis-bits))
|
||||
(set! v1-50 (-> s5-1 bsp))
|
||||
(set! a1-11 (-> v1-50 all-visible-list))
|
||||
(call! a0-31 a1-11 a2-0)
|
||||
(set! v1-51 v0-4)
|
||||
(set! (-> s5-2 render?) #t)
|
||||
)
|
||||
)
|
||||
)
|
||||
(set! gp-1 (+ gp-1 1))
|
||||
)
|
||||
)
|
||||
(when (begin
|
||||
(and (begin (set! v1-56 *artist-fix-visible*) v1-56) (begin
|
||||
(set! v1-58 #t)
|
||||
(set! a0-32 *cpad-list*)
|
||||
(set! a0-33 (-> a0-32 cpads 0))
|
||||
(set! a0-34 (-> a0-33 button0-rel 0))
|
||||
(set! a0-35 (logand a0-34 512))
|
||||
(cmove-#f-zero v1-57 a0-35 v1-58)
|
||||
)
|
||||
)
|
||||
v1-57
|
||||
)
|
||||
(set! v1-60 *fix-visible-level-mask*)
|
||||
(set! v1-61 (+ v1-60 1))
|
||||
(set! v1-62 (logand v1-61 63))
|
||||
(set! *fix-visible-level-mask* v1-62)
|
||||
)
|
||||
(set! gp-2 0)
|
||||
(while (begin (set! v1-115 *level*) (set! v1-116 (-> v1-115 length)) (<.si gp-2 v1-116))
|
||||
(when (begin
|
||||
(set! v1-63 5232)
|
||||
(set! v1-64 (*.si v1-63 gp-2))
|
||||
(set! v1-65 (+ v1-64 256))
|
||||
(set! a0-36 *level*)
|
||||
(set! s5-2 (+ v1-65 a0-36))
|
||||
(set! v1-66 'active)
|
||||
(set! a0-37 (-> s5-2 status))
|
||||
(= a0-37 v1-66)
|
||||
)
|
||||
(when (begin
|
||||
(cond
|
||||
((begin (or (begin (set! v1-68 *artist-fix-visible*) v1-68) (set! v1-69 *stats-bsp*)) v1-69)
|
||||
(set! v1-70 #t)
|
||||
(set! a0-38 *fix-visible-level-mask*)
|
||||
(set! a1-12 1)
|
||||
(set! a2-2 (-> s5-2 index))
|
||||
(set! a1-13 (ash.si a1-12 a2-2))
|
||||
(set! a0-39 (logand a0-38 a1-13))
|
||||
(cmove-#f-nonzero v1-71 a0-39 v1-70)
|
||||
(set! (-> s5-2 render?) v1-71)
|
||||
(set! t9-5 format)
|
||||
(set! a0-40 *stdcon*)
|
||||
(set! a1-14 L105)
|
||||
(set! a2-4 (-> s5-2 name))
|
||||
(set! v1-72 *fix-visible-level-mask*)
|
||||
(set! a3-1 1)
|
||||
(set! t0-0 (-> s5-2 index))
|
||||
(set! a3-2 (ash.si a3-1 t0-0))
|
||||
(if (begin (set! v1-73 (logand v1-72 a3-2)) (zero? v1-73))
|
||||
(set! a3-3 88)
|
||||
(set! a3-3 (the-as int 32))
|
||||
)
|
||||
(if (begin
|
||||
(set! v1-74 (-> s5-2 bsp))
|
||||
(set! t0-2 (-> v1-74 current-leaf-idx))
|
||||
(set! v1-75 (-> s5-2 bsp))
|
||||
(set! t1-0 (-> v1-75 cam-box-idx))
|
||||
(set! v1-76 (-> s5-2 bsp))
|
||||
(set! v1-77 (-> v1-76 cam-using-back))
|
||||
(zero? v1-77)
|
||||
(when (and *artist-fix-visible* (zero? (logand *fix-visible-level-mask* (ash 1 (-> s5-2 index)))))
|
||||
(let ((s4-1 (-> s5-2 bsp current-leaf-idx))
|
||||
(s3-0 (-> s5-2 bsp vis-spheres))
|
||||
)
|
||||
(-> s5-2 bsp unk-data 17)
|
||||
(when (nonzero? s3-0)
|
||||
(dotimes (s2-0 (-> s3-0 length))
|
||||
(let* ((v1-93 (the int (-> s3-0 data s2-0 w)))
|
||||
(a0-43 (abs v1-93))
|
||||
)
|
||||
(set! t2-0 L104)
|
||||
(set! t2-0 (the-as string L103))
|
||||
)
|
||||
(if (begin (set! v1-78 (-> s5-2 bsp)) (set! v1-79 (-> v1-78 cam-outside-bsp)) (nonzero? v1-79))
|
||||
(set! t3-0 L102)
|
||||
(set! t3-0 (the-as string L101))
|
||||
)
|
||||
(call! a0-40 a1-14 a2-4 a3-3 t0-2 t1-0 t2-0 t3-0)
|
||||
(set! v1-80 v0-5)
|
||||
)
|
||||
(else
|
||||
(set! v1-81 (the-as none #t))
|
||||
(set! (-> s5-2 render?) (the-as symbol v1-81))
|
||||
)
|
||||
)
|
||||
(and (begin (set! v1-82 *artist-fix-visible*) v1-82) (begin
|
||||
(set! v1-84 #t)
|
||||
(set! a0-41 *fix-visible-level-mask*)
|
||||
(set! a1-15 1)
|
||||
(set! a2-5 (-> s5-2 index))
|
||||
(set! a1-16 (ash.si a1-15 a2-5))
|
||||
(set! a0-42 (logand a0-41 a1-16))
|
||||
(cmove-#f-nonzero v1-83 a0-42 v1-84)
|
||||
)
|
||||
)
|
||||
v1-83
|
||||
)
|
||||
(when (begin
|
||||
(set! v1-86 (-> s5-2 bsp))
|
||||
(set! s4-1 (-> v1-86 current-leaf-idx))
|
||||
(set! v1-87 (-> s5-2 bsp))
|
||||
(set! s3-0 (-> v1-87 unk-data 9))
|
||||
(set! v1-88 (-> s5-2 bsp))
|
||||
(set! v1-89 (-> v1-88 unk-data 17))
|
||||
(nonzero? s3-0)
|
||||
)
|
||||
(set! s2-0 0)
|
||||
(while (begin (set! v1-99 (the-as none (l.w s3-0))) (<.si s2-0 v1-99))
|
||||
(when (begin
|
||||
(set! v1-91 (the-as none (sll s2-0 4)))
|
||||
(set! v1-92 (the-as none (+ s3-0 v1-91)))
|
||||
(set! f0-0 (the-as none (l.f (+ v1-92 24))))
|
||||
(set! f0-1 (the-as none (f2i f0-0)))
|
||||
(set! v1-93 (the-as none (fpr->gpr f0-1)))
|
||||
(set! a0-43 (the-as none v1-93))
|
||||
(set! a0-43 (the-as none (abs a0-43)))
|
||||
(= a0-43 s4-1)
|
||||
(when (= a0-43 s4-1)
|
||||
(if (>= v1-93 0)
|
||||
(add-debug-sphere #t (bucket-id debug2) (-> s3-0 data s2-0) (meters 1) (new 'static 'rgba :b #xff :a #x80))
|
||||
(add-debug-sphere #t (bucket-id debug2) (-> s3-0 data s2-0) (meters 1) (new 'static 'rgba :r #xff :a #x80))
|
||||
)
|
||||
)
|
||||
(cond
|
||||
((>=0.si v1-93)
|
||||
(set! t9-6 (the-as none add-debug-sphere))
|
||||
(set! a0-45 (the-as none #t))
|
||||
(set! a1-17 (the-as none 324))
|
||||
(set! v1-94 (the-as none (sll s2-0 4)))
|
||||
(set! v1-95 (the-as none (+ v1-94 12)))
|
||||
(set! a2-7 (the-as none (+ v1-95 s3-0)))
|
||||
(set! a3-4 (the-as none #x45800000))
|
||||
(set! v1-96 (the-as none #x80ff))
|
||||
(set! t0-3 (the-as none (sll v1-96 16)))
|
||||
(call!)
|
||||
(set! a0-46 (the-as none v0-6))
|
||||
)
|
||||
(else
|
||||
(set! t9-7 (the-as none add-debug-sphere))
|
||||
(set! a0-47 (the-as none #t))
|
||||
(set! a1-18 (the-as none 324))
|
||||
(set! v1-97 (the-as none (sll s2-0 4)))
|
||||
(set! v1-98 (the-as none (+ v1-97 12)))
|
||||
(set! a2-8 (the-as none (+ v1-98 s3-0)))
|
||||
(set! a3-5 (the-as none #x45800000))
|
||||
(set! t0-4 (the-as none (the-as uint #x800000ff)))
|
||||
(call!)
|
||||
(set! a0-48 (the-as none v0-7))
|
||||
)
|
||||
)
|
||||
)
|
||||
(set! s2-0 (the-as int (+ s2-0 1)))
|
||||
)
|
||||
)
|
||||
(when (begin
|
||||
(set! v1-102 (the-as none (-> s5-2 bsp)))
|
||||
(set! v1-103 (the-as none (l.wu (+ v1-102 116))))
|
||||
(nonzero? v1-103)
|
||||
(when (nonzero? (-> s5-2 bsp nodes))
|
||||
(let ((v1-107 (-> s5-2 bsp nodes (-> s5-2 bsp cam-box-idx)))
|
||||
(a2-9 (new 'stack-no-clear 'vector))
|
||||
)
|
||||
(set! (-> a2-9 quad) (-> s5-2 bsp bsp-offset quad))
|
||||
(let ((a3-6 (new 'stack-no-clear 'vector)))
|
||||
(set! (-> a3-6 quad) (-> s5-2 bsp bsp-offset quad))
|
||||
(cond
|
||||
((zero? (-> s5-2 bsp cam-using-back))
|
||||
(+! (-> a2-9 x) (the float (* (the-as int (-> v1-107 front-box-min x)) (the int (-> s5-2 bsp bsp-scale x)))))
|
||||
(+! (-> a2-9 y) (the float (* (the-as int (-> v1-107 front-box-min y)) (the int (-> s5-2 bsp bsp-scale y)))))
|
||||
(+! (-> a2-9 z) (the float (* (the-as int (-> v1-107 front-box-min z)) (the int (-> s5-2 bsp bsp-scale z)))))
|
||||
(+! (-> a3-6 x) (the float (* (the-as int (-> v1-107 front-box-max x)) (the int (-> s5-2 bsp bsp-scale x)))))
|
||||
(+! (-> a3-6 y) (the float (* (the-as int (-> v1-107 front-box-max y)) (the int (-> s5-2 bsp bsp-scale y)))))
|
||||
(+! (-> a3-6 z) (the float (* (the-as int (-> v1-107 front-box-max z)) (the int (-> s5-2 bsp bsp-scale z)))))
|
||||
)
|
||||
(else
|
||||
(+! (-> a2-9 x) (the float (* (the-as int (-> v1-107 back-box-min x)) (the int (-> s5-2 bsp bsp-scale x)))))
|
||||
(+! (-> a2-9 y) (the float (* (the-as int (-> v1-107 back-box-min y)) (the int (-> s5-2 bsp bsp-scale y)))))
|
||||
(+! (-> a2-9 z) (the float (* (the-as int (-> v1-107 back-box-min z)) (the int (-> s5-2 bsp bsp-scale z)))))
|
||||
(+! (-> a3-6 x) (the float (* (the-as int (-> v1-107 back-box-max x)) (the int (-> s5-2 bsp bsp-scale x)))))
|
||||
(+! (-> a3-6 y) (the float (* (the-as int (-> v1-107 back-box-max y)) (the int (-> s5-2 bsp bsp-scale y)))))
|
||||
(+! (-> a3-6 z) (the float (* (the-as int (-> v1-107 back-box-max z)) (the int (-> s5-2 bsp bsp-scale z)))))
|
||||
)
|
||||
)
|
||||
(add-debug-box #t (bucket-id debug2) a2-9 a3-6 (new 'static 'rgba :g #xff :b #xff :a #x80))
|
||||
)
|
||||
(cond
|
||||
((begin
|
||||
(set! v1-105 (the-as none (l.wu (+ s5-2 92))))
|
||||
(set! v1-106 (the-as none (l.wu (+ v1-105 116))))
|
||||
(set! a0-49 (the-as none 20))
|
||||
(set! a1-19 (the-as none (l.wu (+ s5-2 92))))
|
||||
(set! a1-20 (the-as none (l.hu (+ a1-19 150))))
|
||||
(set! a0-50 (the-as none (*.ui a0-49 a1-20)))
|
||||
(set! v1-107 (the-as none (+ v1-106 a0-50)))
|
||||
(set! a2-9 (the-as none (+ sp-0 16)))
|
||||
(set! a0-51 (the-as none (l.wu (+ s5-2 92))))
|
||||
(set! a0-52 (the-as none (+ a0-51 300)))
|
||||
(set! a0-53 (the-as none (l.q a0-52)))
|
||||
(s.q! a2-9 a0-53)
|
||||
(set! a3-6 (the-as none (+ sp-0 32)))
|
||||
(set! a0-54 (the-as none (l.wu (+ s5-2 92))))
|
||||
(set! a0-55 (the-as none (+ a0-54 300)))
|
||||
(set! a0-56 (the-as none (l.q a0-55)))
|
||||
(s.q! a3-6 a0-56)
|
||||
(set! a0-57 (the-as none (l.wu (+ s5-2 92))))
|
||||
(set! a0-58 (the-as none (l.bu (+ a0-57 149))))
|
||||
(zero? a0-58)
|
||||
)
|
||||
(set! f0-2 (the-as none (l.f a2-9)))
|
||||
(set! a0-59 (the-as none (l.b (+ v1-107 4))))
|
||||
(set! a1-21 (the-as none (l.wu (+ s5-2 92))))
|
||||
(set! f1-0 (the-as none (l.f (+ a1-21 284))))
|
||||
(set! f1-1 (the-as none (f2i f1-0)))
|
||||
(set! a1-22 (the-as none (fpr->gpr f1-1)))
|
||||
(set! a0-60 (the-as none (*.si a0-59 a1-22)))
|
||||
(set! f1-2 (the-as none (gpr->fpr a0-60)))
|
||||
(set! f1-3 (the-as none (i2f f1-2)))
|
||||
(set! f0-3 (the-as none (+.s f0-2 f1-3)))
|
||||
(s.f! a2-9 f0-3)
|
||||
(set! f0-4 (the-as none (l.f (+ a2-9 4))))
|
||||
(set! a0-61 (the-as none (l.b (+ v1-107 5))))
|
||||
(set! a1-23 (the-as none (l.wu (+ s5-2 92))))
|
||||
(set! f1-4 (the-as none (l.f (+ a1-23 288))))
|
||||
(set! f1-5 (the-as none (f2i f1-4)))
|
||||
(set! a1-24 (the-as none (fpr->gpr f1-5)))
|
||||
(set! a0-62 (the-as none (*.si a0-61 a1-24)))
|
||||
(set! f1-6 (the-as none (gpr->fpr a0-62)))
|
||||
(set! f1-7 (the-as none (i2f f1-6)))
|
||||
(set! f0-5 (the-as none (+.s f0-4 f1-7)))
|
||||
(s.f! (+ a2-9 4) f0-5)
|
||||
(set! f0-6 (the-as none (l.f (+ a2-9 8))))
|
||||
(set! a0-63 (the-as none (l.b (+ v1-107 6))))
|
||||
(set! a1-25 (the-as none (l.wu (+ s5-2 92))))
|
||||
(set! f1-8 (the-as none (l.f (+ a1-25 292))))
|
||||
(set! f1-9 (the-as none (f2i f1-8)))
|
||||
(set! a1-26 (the-as none (fpr->gpr f1-9)))
|
||||
(set! a0-64 (the-as none (*.si a0-63 a1-26)))
|
||||
(set! f1-10 (the-as none (gpr->fpr a0-64)))
|
||||
(set! f1-11 (the-as none (i2f f1-10)))
|
||||
(set! f0-7 (the-as none (+.s f0-6 f1-11)))
|
||||
(s.f! (+ a2-9 8) f0-7)
|
||||
(set! f0-8 (the-as none (l.f a3-6)))
|
||||
(set! a0-65 (the-as none (l.b (+ v1-107 8))))
|
||||
(set! a1-27 (the-as none (l.wu (+ s5-2 92))))
|
||||
(set! f1-12 (the-as none (l.f (+ a1-27 284))))
|
||||
(set! f1-13 (the-as none (f2i f1-12)))
|
||||
(set! a1-28 (the-as none (fpr->gpr f1-13)))
|
||||
(set! a0-66 (the-as none (*.si a0-65 a1-28)))
|
||||
(set! f1-14 (the-as none (gpr->fpr a0-66)))
|
||||
(set! f1-15 (the-as none (i2f f1-14)))
|
||||
(set! f0-9 (the-as none (+.s f0-8 f1-15)))
|
||||
(s.f! a3-6 f0-9)
|
||||
(set! f0-10 (the-as none (l.f (+ a3-6 4))))
|
||||
(set! a0-67 (the-as none (l.b (+ v1-107 9))))
|
||||
(set! a1-29 (the-as none (l.wu (+ s5-2 92))))
|
||||
(set! f1-16 (the-as none (l.f (+ a1-29 288))))
|
||||
(set! f1-17 (the-as none (f2i f1-16)))
|
||||
(set! a1-30 (the-as none (fpr->gpr f1-17)))
|
||||
(set! a0-68 (the-as none (*.si a0-67 a1-30)))
|
||||
(set! f1-18 (the-as none (gpr->fpr a0-68)))
|
||||
(set! f1-19 (the-as none (i2f f1-18)))
|
||||
(set! f0-11 (the-as none (+.s f0-10 f1-19)))
|
||||
(s.f! (+ a3-6 4) f0-11)
|
||||
(set! f0-12 (the-as none (l.f (+ a3-6 8))))
|
||||
(set! v1-108 (the-as none (l.b (+ v1-107 10))))
|
||||
(set! a0-69 (the-as none (l.wu (+ s5-2 92))))
|
||||
(set! f1-20 (the-as none (l.f (+ a0-69 292))))
|
||||
(set! f1-21 (the-as none (f2i f1-20)))
|
||||
(set! a0-70 (the-as none (fpr->gpr f1-21)))
|
||||
(set! v1-109 (the-as none (*.si v1-108 a0-70)))
|
||||
(set! f1-22 (the-as none (gpr->fpr v1-109)))
|
||||
(set! f1-23 (the-as none (i2f f1-22)))
|
||||
(set! f0-13 (the-as none (+.s f0-12 f1-23)))
|
||||
(s.f! (+ a3-6 8) f0-13)
|
||||
(set! v1-110 (the-as none (fpr->gpr f0-13)))
|
||||
)
|
||||
(else
|
||||
(set! f0-14 (the-as none (l.f a2-9)))
|
||||
(set! a0-71 (the-as none (l.b (+ v1-107 12))))
|
||||
(set! a1-31 (the-as none (l.wu (+ s5-2 92))))
|
||||
(set! f1-24 (the-as none (l.f (+ a1-31 284))))
|
||||
(set! f1-25 (the-as none (f2i f1-24)))
|
||||
(set! a1-32 (the-as none (fpr->gpr f1-25)))
|
||||
(set! a0-72 (the-as none (*.si a0-71 a1-32)))
|
||||
(set! f1-26 (the-as none (gpr->fpr a0-72)))
|
||||
(set! f1-27 (the-as none (i2f f1-26)))
|
||||
(set! f0-15 (the-as none (+.s f0-14 f1-27)))
|
||||
(s.f! a2-9 f0-15)
|
||||
(set! f0-16 (the-as none (l.f (+ a2-9 4))))
|
||||
(set! a0-73 (the-as none (l.b (+ v1-107 13))))
|
||||
(set! a1-33 (the-as none (l.wu (+ s5-2 92))))
|
||||
(set! f1-28 (the-as none (l.f (+ a1-33 288))))
|
||||
(set! f1-29 (the-as none (f2i f1-28)))
|
||||
(set! a1-34 (the-as none (fpr->gpr f1-29)))
|
||||
(set! a0-74 (the-as none (*.si a0-73 a1-34)))
|
||||
(set! f1-30 (the-as none (gpr->fpr a0-74)))
|
||||
(set! f1-31 (the-as none (i2f f1-30)))
|
||||
(set! f0-17 (the-as none (+.s f0-16 f1-31)))
|
||||
(s.f! (+ a2-9 4) f0-17)
|
||||
(set! f0-18 (the-as none (l.f (+ a2-9 8))))
|
||||
(set! a0-75 (the-as none (l.b (+ v1-107 14))))
|
||||
(set! a1-35 (the-as none (l.wu (+ s5-2 92))))
|
||||
(set! f1-32 (the-as none (l.f (+ a1-35 292))))
|
||||
(set! f1-33 (the-as none (f2i f1-32)))
|
||||
(set! a1-36 (the-as none (fpr->gpr f1-33)))
|
||||
(set! a0-76 (the-as none (*.si a0-75 a1-36)))
|
||||
(set! f1-34 (the-as none (gpr->fpr a0-76)))
|
||||
(set! f1-35 (the-as none (i2f f1-34)))
|
||||
(set! f0-19 (the-as none (+.s f0-18 f1-35)))
|
||||
(s.f! (+ a2-9 8) f0-19)
|
||||
(set! f0-20 (the-as none (l.f a3-6)))
|
||||
(set! a0-77 (the-as none (l.b (+ v1-107 16))))
|
||||
(set! a1-37 (the-as none (l.wu (+ s5-2 92))))
|
||||
(set! f1-36 (the-as none (l.f (+ a1-37 284))))
|
||||
(set! f1-37 (the-as none (f2i f1-36)))
|
||||
(set! a1-38 (the-as none (fpr->gpr f1-37)))
|
||||
(set! a0-78 (the-as none (*.si a0-77 a1-38)))
|
||||
(set! f1-38 (the-as none (gpr->fpr a0-78)))
|
||||
(set! f1-39 (the-as none (i2f f1-38)))
|
||||
(set! f0-21 (the-as none (+.s f0-20 f1-39)))
|
||||
(s.f! a3-6 f0-21)
|
||||
(set! f0-22 (the-as none (l.f (+ a3-6 4))))
|
||||
(set! a0-79 (the-as none (l.b (+ v1-107 17))))
|
||||
(set! a1-39 (the-as none (l.wu (+ s5-2 92))))
|
||||
(set! f1-40 (the-as none (l.f (+ a1-39 288))))
|
||||
(set! f1-41 (the-as none (f2i f1-40)))
|
||||
(set! a1-40 (the-as none (fpr->gpr f1-41)))
|
||||
(set! a0-80 (the-as none (*.si a0-79 a1-40)))
|
||||
(set! f1-42 (the-as none (gpr->fpr a0-80)))
|
||||
(set! f1-43 (the-as none (i2f f1-42)))
|
||||
(set! f0-23 (the-as none (+.s f0-22 f1-43)))
|
||||
(s.f! (+ a3-6 4) f0-23)
|
||||
(set! f0-24 (the-as none (l.f (+ a3-6 8))))
|
||||
(set! v1-111 (the-as none (l.b (+ v1-107 18))))
|
||||
(set! a0-81 (the-as none (l.wu (+ s5-2 92))))
|
||||
(set! f1-44 (the-as none (l.f (+ a0-81 292))))
|
||||
(set! f1-45 (the-as none (f2i f1-44)))
|
||||
(set! a0-82 (the-as none (fpr->gpr f1-45)))
|
||||
(set! v1-112 (the-as none (*.si v1-111 a0-82)))
|
||||
(set! f1-46 (the-as none (gpr->fpr v1-112)))
|
||||
(set! f1-47 (the-as none (i2f f1-46)))
|
||||
(set! f0-25 (the-as none (+.s f0-24 f1-47)))
|
||||
(s.f! (+ a3-6 8) f0-25)
|
||||
(set! v1-113 (the-as none (fpr->gpr f0-25)))
|
||||
)
|
||||
)
|
||||
(set! t9-8 (the-as none add-debug-box))
|
||||
(set! a0-83 (the-as none #t))
|
||||
(set! a1-41 (the-as none 324))
|
||||
(set! t0-5 (the-as none (the-as uint #x80ffff00)))
|
||||
(call!)
|
||||
(set! v1-114 (the-as none v0-8))
|
||||
)
|
||||
)
|
||||
)
|
||||
(set! gp-2 (the-as int (+ gp-2 1)))
|
||||
)
|
||||
(set! v0-9 #f)
|
||||
(ret-value v0-9)
|
||||
#f
|
||||
)
|
||||
|
||||
;; definition for symbol *save-camera-inv-rot*, type matrix
|
||||
|
||||
+1
-1
@@ -938,7 +938,7 @@
|
||||
)
|
||||
(set! (-> obj free-point) -134250495)
|
||||
(dotimes (v1-21 32)
|
||||
(when (zero? (logand s5-0 1))
|
||||
(when (not (logtest? s5-0 1))
|
||||
(set! (-> obj point v1-21 next) (-> obj free-point))
|
||||
(set! (-> obj free-point) v1-21)
|
||||
)
|
||||
|
||||
Reference in New Issue
Block a user