mirror of
https://github.com/open-goal/jak-project
synced 2026-06-10 12:55:45 -04:00
Hat Kid
99866cec88
- `fma-sphere` - `prim-beam-h` - `cam-start` - `ragdoll` - `light-trails-h` - `light-trails` - `menu` - `water` - `water-flow` - `hud` - `hud-classes` - `progress` - `progress-draw` --- The `get-texture` macro replaces calls to `lookup-texture-by-id` and `lookup-texture-by-id-fast`. The `defpart` macro detection was modified to print a pair like `(texture-name tpage-name)` for the texture field that gets turned into a `texture-id` constant. Only used in Jak 3 at the moment, I'll probably go through the other games at a later point.
51 lines
1.9 KiB
Common Lisp
Vendored
Generated
51 lines
1.9 KiB
Common Lisp
Vendored
Generated
;;-*-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)
|
|
#f
|
|
)
|
|
|
|
;; definition for function cam-start
|
|
;; WARN: Return type mismatch int vs none.
|
|
(defun cam-start ((arg0 symbol))
|
|
(cam-stop)
|
|
(set! *camera-combiner* (the-as camera-combiner (ppointer->process (process-spawn
|
|
camera-combiner
|
|
:init cam-combiner-init
|
|
:name "camera-combiner"
|
|
:from *camera-dead-pool*
|
|
:to *camera-pool*
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(set! *camera* (the-as camera-master (ppointer->process (process-spawn
|
|
camera-master
|
|
:init cam-master-init
|
|
:name "camera-master"
|
|
:from *camera-master-dead-pool*
|
|
:to *camera-pool*
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(if arg0
|
|
(reset-cameras)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(cam-start #f)
|
|
|
|
|
|
|
|
|