mirror of
https://github.com/open-goal/jak-project
synced 2026-05-26 07:39:12 -04:00
Tyler Wilding
d37e6c548e
* started process on `camera` * the bulk of `camera` is finished, with the exception of a few * decomp: Confirmed function ret value * decomp: `cam-combiner` dead code issue * stash * decomp: finish `cam-combiner` * decomp: finish `cam-start` * decomp: mostly finish `cam-update`, just needs polish now * `cam-standard-event-handler` still causing issues * `cam-combiner` issues with top-level `s6` usage * decomp: update reference tests * decomp: finalize `cam-start` * decomp: `cam-update` cleaned up everything except the array of planes issue * label correction * still blocked in cam-combiner over casting issues * decomp: resolve issues in `cam-start` * decomp: finalize `cam-update` * stash * decomp: finalize `cam-combiner` * decomp: finalize `camera` * decomp: address feedback
75 lines
1.8 KiB
Common Lisp
Vendored
75 lines
1.8 KiB
Common Lisp
Vendored
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; definition for function cam-stop
|
|
(defun cam-stop ()
|
|
(kill-by-name 'camera-master *active-pool*)
|
|
(kill-by-name 'camera-slave *active-pool*)
|
|
(kill-by-name 'camera-combiner *active-pool*)
|
|
(set! *camera* #f)
|
|
(set! *camera-combiner* #f)
|
|
(let ((v0-3 cam-string))
|
|
(set! *camera-base-mode* v0-3)
|
|
v0-3
|
|
)
|
|
)
|
|
|
|
;; definition for function cam-start
|
|
;; INFO: Return type mismatch int vs none.
|
|
(defun cam-start ((arg0 symbol))
|
|
(cam-stop)
|
|
(let ((s5-0 (get-process *camera-dead-pool* camera-combiner #x4000)))
|
|
(when s5-0
|
|
(let ((t9-2 (method-of-type camera-combiner activate)))
|
|
(t9-2
|
|
(the-as camera-combiner s5-0)
|
|
*camera-pool*
|
|
'camera-combiner
|
|
(the-as pointer #x70004000)
|
|
)
|
|
)
|
|
((the-as (function process object function) run-function-in-process)
|
|
s5-0
|
|
cam-combiner-init
|
|
)
|
|
(-> s5-0 ppointer)
|
|
)
|
|
)
|
|
(let* ((s5-1 (get-process *camera-master-dead-pool* camera-master #x4000))
|
|
(v1-5 (when s5-1
|
|
(let ((t9-5 (method-of-type camera-master activate)))
|
|
(t9-5
|
|
(the-as camera-master s5-1)
|
|
*camera-pool*
|
|
'camera-master
|
|
(the-as pointer #x70004000)
|
|
)
|
|
)
|
|
((the-as (function process object function) set-to-run)
|
|
(the-as process (-> s5-1 main-thread))
|
|
cam-master-init
|
|
)
|
|
(-> s5-1 ppointer)
|
|
)
|
|
)
|
|
)
|
|
(set! *camera* (the-as camera-master (if v1-5
|
|
(-> v1-5 0 self)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(if arg0
|
|
(reset-cameras)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(cam-start #f)
|
|
|
|
|
|
|
|
|