mirror of
https://github.com/open-goal/jak-project
synced 2026-08-06 09:54:10 -04:00
Tyler Wilding
103 lines
3.5 KiB
Common Lisp
Vendored
Generated
103 lines
3.5 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 6 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 112 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-client-engine*, type engine
|
|
(define *prim-client-engine* (new 'global 'engine 'prim-client 32 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)
|
|
|
|
|
|
|
|
|