mirror of
https://github.com/open-goal/jak-project
synced 2026-06-01 01:40:07 -04:00
ManDude
80a002f8c0
* make birthing work * fix float representation on defskelgroup * test * update * debugger improvements & dont upload aux sprites * ? * fix progress * fixes * fixes * Create bea.gd * fix test * fix xmm reg clobbering in kernel (water) * cleanup cam-start * clear gamepad state every frame * allow controller connects and disconnects while running
34 lines
1012 B
Common Lisp
34 lines
1012 B
Common Lisp
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; name: cam-start.gc
|
|
;; name in dgo: cam-start
|
|
;; dgos: GAME, ENGINE
|
|
|
|
;; definition for function cam-stop
|
|
;; INFO: Return type mismatch (state camera-slave) vs state.
|
|
(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)
|
|
(set! *camera-base-mode* cam-string)
|
|
(none)
|
|
)
|
|
|
|
;; definition for function cam-start
|
|
;; INFO: Return type mismatch int vs none.
|
|
(defun cam-start ((arg0 symbol))
|
|
(cam-stop)
|
|
(make-init-process camera-combiner cam-combiner-init :from *camera-dead-pool* :to *camera-pool* :stack *scratch-memory-top*)
|
|
(set! *camera* (the-as camera-master (ppointer->process (make-init-process camera-master cam-master-init :from *camera-master-dead-pool* :to *camera-pool* :stack *scratch-memory-top*))))
|
|
(if arg0
|
|
(reset-cameras)
|
|
)
|
|
(none)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(cam-start #f)
|