2023-10-10 09:41:05 -04:00
|
|
|
;;-*-Lisp-*-
|
|
|
|
|
(in-package goal)
|
|
|
|
|
|
|
|
|
|
;; name: sparticle-h.gc
|
|
|
|
|
;; name in dgo: sparticle-h
|
|
|
|
|
;; dgos: GAME
|
|
|
|
|
|
2024-02-03 15:03:10 -05:00
|
|
|
(declare-type sprite-vec-data-2d structure)
|
|
|
|
|
|
|
|
|
|
(defenum sp-cpuinfo-flag
|
|
|
|
|
:bitfield #t
|
|
|
|
|
:type uint32
|
|
|
|
|
)
|
|
|
|
|
|
2023-10-10 09:41:05 -04:00
|
|
|
;; DECOMP BEGINS
|
|
|
|
|
|
2024-02-03 15:03:10 -05:00
|
|
|
(define *sp-60-hz* #t)
|
|
|
|
|
|
|
|
|
|
(deftype sparticle-cpuinfo (structure)
|
|
|
|
|
"The per-particle information. This stays on the CPU, and isn't uploaded to the VU."
|
|
|
|
|
((sprite sprite-vec-data-2d)
|
|
|
|
|
(adgif adgif-shader)
|
|
|
|
|
(radius float)
|
|
|
|
|
(omega float)
|
|
|
|
|
(vel-sxvel vector :inline)
|
|
|
|
|
(rot-syvel vector :inline)
|
|
|
|
|
(fade rgbaf :inline)
|
|
|
|
|
(acc vector :inline)
|
|
|
|
|
(rotvel3d quaternion :inline)
|
|
|
|
|
(vel vector3s :inline :overlay-at (-> vel-sxvel data 0))
|
|
|
|
|
(accel vector3s :inline :overlay-at (-> acc data 0))
|
|
|
|
|
(scalevelx float :overlay-at (-> vel-sxvel data 3))
|
|
|
|
|
(scalevely float :overlay-at (-> rot-syvel data 3))
|
|
|
|
|
(friction float)
|
|
|
|
|
(timer int32)
|
|
|
|
|
(flags sp-cpuinfo-flag)
|
|
|
|
|
(user-int32 int32)
|
|
|
|
|
(user-uint32 uint32 :overlay-at user-int32)
|
|
|
|
|
(user-float float :overlay-at user-int32)
|
|
|
|
|
(user-pntr uint32 :overlay-at user-int32)
|
|
|
|
|
(user-object basic :overlay-at user-int32)
|
|
|
|
|
(user-sprite sprite-vec-data-2d :overlay-at user-int32)
|
|
|
|
|
(sp-func (function sparticle-system sparticle-cpuinfo sprite-vec-data-3d uint none))
|
|
|
|
|
(next-time uint32)
|
|
|
|
|
(next-launcher basic)
|
|
|
|
|
(cache-alpha float)
|
|
|
|
|
(valid uint8)
|
|
|
|
|
(clock-index uint8)
|
|
|
|
|
(user1-int16 uint16)
|
|
|
|
|
(key sparticle-launch-control)
|
|
|
|
|
(binding sparticle-launch-state)
|
|
|
|
|
(data uint32 1 :overlay-at omega)
|
|
|
|
|
(datab int8 4 :overlay-at omega)
|
|
|
|
|
(dataf float 1 :overlay-at omega)
|
|
|
|
|
(datac uint8 1 :overlay-at omega)
|
|
|
|
|
)
|
|
|
|
|
)
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(deftype sparticle-launchinfo (structure)
|
|
|
|
|
"Settings for launching a particle. These are a temporary thing consumed by the assembly particle code, and modified by particle callbacks."
|
|
|
|
|
((launchrot vector :inline)
|
|
|
|
|
(conerot vector :inline)
|
|
|
|
|
(rotate-x float)
|
|
|
|
|
(rotate-y float)
|
|
|
|
|
(rotate-z float)
|
|
|
|
|
(coneradius float)
|
|
|
|
|
(rotate vector :inline :overlay-at rotate-x)
|
|
|
|
|
(scale-x float)
|
|
|
|
|
(scale-y float)
|
|
|
|
|
(scale-z float)
|
|
|
|
|
(dummy float)
|
|
|
|
|
(scale vector :inline :overlay-at scale-x)
|
|
|
|
|
(data uint8 1 :overlay-at (-> launchrot data 0))
|
|
|
|
|
)
|
|
|
|
|
)
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(deftype sparticle-system (basic)
|
|
|
|
|
"An entire particle 'system', which is a pipeline for spawning, updating, and generating sprite-renderer DMA data.
|
|
|
|
|
There are separate systems for different modes of sprite rendering: 2D/billboard, full 3D, and screen-space (HUD)"
|
|
|
|
|
((blocks int32 2)
|
|
|
|
|
(length int32 2)
|
|
|
|
|
(num-alloc int32 2)
|
|
|
|
|
(is-3d basic)
|
|
|
|
|
(flags uint32)
|
|
|
|
|
(alloc-table (pointer uint64))
|
|
|
|
|
(cpuinfo-table (inline-array sparticle-cpuinfo))
|
|
|
|
|
(vecdata-table pointer)
|
|
|
|
|
(adgifdata-table (inline-array adgif-shader))
|
|
|
|
|
)
|
|
|
|
|
)
|
