mirror of
https://github.com/open-goal/jak-project
synced 2026-06-20 00:08:14 -04:00
Hat Kid
ea93d32acc
- `pat-h` - `engines` - `res-h` - `res` - `fact-h` - `game-info-h` - `wind-h` - `merc-h` - `shadow-vu1-h` - `shadow-cpu-h` - `dynamics-h` - `memcard-h` - `surface-h` - part of `gui-h` - `ambient-h` - `speech-h` - `prototype-h` - `smush-control-h` - `generic-merc-h` - `generic-work-h` - `collide-func-h` - `collide-mesh-h` - `collide-shape-h` (only missing the `new` method for `collide-shape` because we don't have `process-drawable` yet and that also needs joint stuff etc.) - `collide-touch-h` - `collide-edge-grab-h` - `lightning-h` This also adds argument name remaps for the `relocate` and `mem-usage` methods (Jak 1 and 2 ref tests were updated, but not the gsrc).
100 lines
3.4 KiB
Common Lisp
Vendored
Generated
100 lines
3.4 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; failed to figure out what this is:
|
|
(kmemopen global "engines")
|
|
|
|
;; definition for symbol *background-draw-engine*, type engine
|
|
(define *background-draw-engine* (new 'global 'engine 'draw 10 connection))
|
|
|
|
;; definition for symbol *matrix-engine*, type (array handle)
|
|
(define *matrix-engine* (new 'global 'boxed-array handle 384))
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *matrix-engine* length) 0)
|
|
|
|
;; definition for symbol *cloth-engine*, type (array handle)
|
|
(define *cloth-engine* (new 'global 'boxed-array handle 32))
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *cloth-engine* length) 0)
|
|
|
|
;; definition for symbol *part-engine*, type engine
|
|
(define *part-engine* (new 'global 'engine 'sparticle-launcher 256 connection))
|
|
|
|
;; definition of type particle-local-space-info
|
|
(deftype particle-local-space-info (connection)
|
|
((params basic 3 :overlay-at param1)
|
|
(mat-prev matrix :inline)
|
|
(mat-new matrix :inline)
|
|
(hand handle)
|
|
(flags part-local-space-flags)
|
|
(pad uint32 1)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type particle-local-space-info
|
|
(defmethod inspect ((this particle-local-space-info))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'particle-local-space-info)
|
|
(format #t "~1Tnext0: ~`connectable`P~%" (-> this next0))
|
|
(format #t "~1Tprev0: ~`connectable`P~%" (-> this prev0))
|
|
(format #t "~1Tnext1: ~`connectable`P~%" (-> this next1))
|
|
(format #t "~1Tprev1: ~`connectable`P~%" (-> this prev1))
|
|
(format #t "~1Tparam0: ~A~%" (-> this param0))
|
|
(format #t "~1Tparam1: ~A~%" (-> this param1))
|
|
(format #t "~1Tparam2: ~A~%" (-> this param2))
|
|
(format #t "~1Tparam3: ~A~%" (-> this param3))
|
|
(format #t "~1Tquad[2] @ #x~X~%" (&-> this next0))
|
|
(format #t "~1Tparams[3] @ #x~X~%" (-> this params))
|
|
(format #t "~1Tmat-prev: #<matrix @ #x~X>~%" (-> this mat-prev))
|
|
(format #t "~1Tmat-new: #<matrix @ #x~X>~%" (-> this mat-new))
|
|
(format #t "~1Thand: ~D~%" (-> this hand))
|
|
(format #t "~1Tflags: ~D~%" (-> this flags))
|
|
(format #t "~1Tpad[1] @ #x~X~%" (-> this pad))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition for symbol *cam-post-hook-engine*, type engine
|
|
(define *cam-post-hook-engine* (new 'global 'engine 'cam-post-hook-engine 4 connection))
|
|
|
|
;; definition for symbol *part-local-space-engine*, type engine
|
|
(define *part-local-space-engine*
|
|
(new 'global 'engine 'particle-local-space-info 15 particle-local-space-info)
|
|
)
|
|
|
|
;; definition for symbol *camera-engine*, type engine
|
|
(define *camera-engine* (new 'global 'engine 'camera-eng 128 connection))
|
|
|
|
;; this part is debug only
|
|
(when *debug-segment*
|
|
;; definition for symbol *debug-engine*, type engine
|
|
(define *debug-engine* (new 'debug 'engine 'debug 64 connection))
|
|
|
|
)
|
|
;; definition for symbol *pad-engine*, type engine
|
|
(define *pad-engine* (new 'global 'engine 'pad 4 connection))
|
|
|
|
;; definition for symbol *lightning-engine*, type engine
|
|
(define *lightning-engine* (new 'global 'engine 'lightning-control 64 connection))
|
|
|
|
;; definition for symbol *hud-engine*, type engine
|
|
(define *hud-engine* (new 'global 'engine 'hud 16 connection))
|
|
|
|
;; definition for symbol *prim-engine*, type engine
|
|
(define *prim-engine* (new 'global 'engine 'prim-strip 128 connection))
|
|
|
|
;; definition for symbol *task-manager-engine*, type engine
|
|
(define *task-manager-engine* (new 'global 'engine 'task-manager 16 connection))
|
|
|
|
;; failed to figure out what this is:
|
|
(kmemclose)
|
|
|
|
|
|
|
|
|