mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 21:27:52 -04:00
24578b64b9
* hardcode `time-frame`things * Update cam-states_REF.gc * Update level-info_REF.gc * update refs 1 * update refs 2 * update refs 3 * update refs 4 * update refs 5 * update detection and casting * Update FormExpressionAnalysis.cpp * update refs 6 * update mood decomp * update refs 7 * update refs 8 * remove temp entity birth code * update time-frame casts * fix compiler * hardcode stuff and fix some types * fix some bitfield detection being wrong * bug fixes * detect seconds on adds with immediate * update refs 9 * fix casts and rand-vu-int-range bugs (update refs 10) * update refs 11 * update 12 * update 13 * update 14 * Update game-info_REF.gc * improve cpad macros detection * remove unused code * update refs * clang * update source code * Update cam-states.gc * `lavatube-energy` finish * update refs * fix actor bank stuff * Update navigate.gc * reduce entity default stack size * Update transformq-h.gc * oops forgot these * fix code and tests * fix mood sound stuff * Update load-dgo.gc * Update README.md
117 lines
4.1 KiB
Common Lisp
117 lines
4.1 KiB
Common Lisp
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; name: vol-h.gc
|
|
;; name in dgo: vol-h
|
|
;; dgos: GAME, ENGINE
|
|
|
|
;; DECOMP BEGINS
|
|
|
|
(deftype plane-volume (structure)
|
|
((volume-type symbol :offset-assert 0)
|
|
(point-count int16 :offset-assert 4)
|
|
(normal-count int16 :offset-assert 6)
|
|
(first-point (pointer vector) :offset-assert 8)
|
|
(first-normal (pointer vector) :offset-assert 12)
|
|
(num-planes int32 :offset-assert 16)
|
|
(plane (inline-array plane) :offset-assert 20)
|
|
)
|
|
:pack-me
|
|
:method-count-assert 12
|
|
:size-assert #x18
|
|
:flag-assert #xc00000018
|
|
(:methods
|
|
(dummy-9 (_type_ symbol vector-array vector-array) symbol 9)
|
|
(debug-draw (_type_) none 10)
|
|
(dummy-11 (_type_ vector float) symbol 11)
|
|
)
|
|
)
|
|
|
|
|
|
(deftype vol-control (basic)
|
|
((flags uint32 :offset-assert 4)
|
|
(process process-drawable :offset-assert 8)
|
|
(pos-vol-count int32 :offset-assert 12)
|
|
(pos-vol plane-volume 32 :inline :offset-assert 16)
|
|
(neg-vol-count int32 :offset-assert 784)
|
|
(neg-vol plane-volume 32 :inline :offset-assert 788)
|
|
(debug-point vector-array :offset-assert 1556)
|
|
(debug-normal vector-array :offset-assert 1560)
|
|
)
|
|
:method-count-assert 12
|
|
:size-assert #x61c
|
|
:flag-assert #xc0000061c
|
|
(:methods
|
|
(new (symbol type process-drawable) _type_ 0)
|
|
(dummy-9 (_type_) symbol 9)
|
|
(dummy-10 (_type_ vector) symbol 10)
|
|
(TODO-RENAME-11 (_type_) symbol 11)
|
|
)
|
|
)
|
|
|
|
|
|
(defmethod new vol-control ((allocation symbol) (type-to-make type) (arg0 process-drawable))
|
|
(let ((gp-0 (the-as object (object-new allocation type-to-make (the-as int (-> type-to-make size))))))
|
|
(when (zero? (the-as vol-control gp-0))
|
|
(go process-drawable-art-error "memory")
|
|
(set! gp-0 0)
|
|
(goto cfg-13)
|
|
)
|
|
(set! (-> (the-as vol-control gp-0) process) arg0)
|
|
(let* ((s5-1 (the-as res-lump (-> (the-as vol-control gp-0) process entity)))
|
|
(s4-0 (-> ((method-of-type res-lump lookup-tag-idx) (the-as entity s5-1) 'vol 'exact 0.0) lo))
|
|
)
|
|
(when (>= (the-as int s4-0) 0)
|
|
(let ((s3-0 (the-as int s4-0))
|
|
(s2-0 (-> s5-1 tag s4-0))
|
|
)
|
|
0
|
|
(while (= (-> s2-0 name) (-> s5-1 tag s4-0 name))
|
|
(let ((v1-12 (make-property-data s5-1 0.0 (the-as res-tag-pair s3-0) (the-as pointer #f)))
|
|
(a0-8 (-> (the-as vol-control gp-0) pos-vol (-> (the-as vol-control gp-0) pos-vol-count)))
|
|
)
|
|
(set! (-> a0-8 num-planes) (the-as int (-> s2-0 elt-count)))
|
|
(set! (-> a0-8 plane) (the-as (inline-array plane) v1-12))
|
|
)
|
|
(+! (-> (the-as vol-control gp-0) pos-vol-count) 1)
|
|
(+! s3-0 1)
|
|
(set! s2-0 (-> s5-1 tag s3-0))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(let* ((s5-2 (the-as res-lump (-> (the-as vol-control gp-0) process entity)))
|
|
(s4-1 (-> ((method-of-type res-lump lookup-tag-idx) (the-as entity s5-2) 'cutoutvol 'exact 0.0) lo))
|
|
)
|
|
(when (>= (the-as int s4-1) 0)
|
|
(let ((s3-1 (the-as int s4-1))
|
|
(s2-1 (-> s5-2 tag s4-1))
|
|
)
|
|
0
|
|
(while (= (-> s2-1 name) (-> s5-2 tag s4-1 name))
|
|
(let ((v1-31 (make-property-data s5-2 0.0 (the-as res-tag-pair s3-1) (the-as pointer #f)))
|
|
(a0-19 (-> (the-as vol-control gp-0) neg-vol (-> (the-as vol-control gp-0) neg-vol-count)))
|
|
)
|
|
(set! (-> a0-19 num-planes) (the-as int (-> s2-1 elt-count)))
|
|
(set! (-> a0-19 plane) (the-as (inline-array plane) v1-31))
|
|
)
|
|
(+! (-> (the-as vol-control gp-0) neg-vol-count) 1)
|
|
(+! s3-1 1)
|
|
(set! s2-1 (-> s5-2 tag s3-1))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(label cfg-13)
|
|
(the-as vol-control gp-0)
|
|
)
|
|
)
|
|
|
|
(defmethod TODO-RENAME-11 vol-control ((obj vol-control))
|
|
(and *display-vol-marks* (logtest? (-> obj flags) 1))
|
|
)
|
|
|
|
|
|
|
|
|