mirror of
https://github.com/open-goal/jak-project
synced 2026-08-07 18:23:13 -04:00
Tyler Wilding
c72a086e49
Fixes #3210  TIL that on the PS4/PS5, mirror mode breaks the upscaling
841 lines
25 KiB
Common Lisp
Vendored
Generated
841 lines
25 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; definition of type sound-stream-name
|
|
(deftype sound-stream-name (structure)
|
|
((name uint8 48)
|
|
)
|
|
:pack-me
|
|
)
|
|
|
|
;; definition for method 3 of type sound-stream-name
|
|
(defmethod inspect ((this sound-stream-name))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'sound-stream-name)
|
|
(format #t "~1Tname[48] @ #x~X~%" (-> this name))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type sound-id
|
|
(deftype sound-id (uint32)
|
|
()
|
|
(:methods
|
|
(unused-9 () none)
|
|
)
|
|
)
|
|
|
|
;; definition of type sound-bank-id
|
|
(deftype sound-bank-id (uint32)
|
|
()
|
|
)
|
|
|
|
;; definition of type sound-name
|
|
(deftype sound-name (uint128)
|
|
((lo uint64 :offset 0 :size 64)
|
|
(hi uint64 :offset 64 :size 64)
|
|
)
|
|
)
|
|
|
|
;; definition of type sound-rpc-cmd
|
|
(deftype sound-rpc-cmd (structure)
|
|
((rsvd1 uint16)
|
|
(command sound-command)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type sound-rpc-cmd
|
|
(defmethod inspect ((this sound-rpc-cmd))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'sound-rpc-cmd)
|
|
(format #t "~1Trsvd1: ~D~%" (-> this rsvd1))
|
|
(format #t "~1Tcommand: ~D~%" (-> this command))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type sound-play-params
|
|
(deftype sound-play-params (structure)
|
|
((mask uint16)
|
|
(pitch-mod int16)
|
|
(bend int16)
|
|
(fo-min int16)
|
|
(fo-max int16)
|
|
(fo-curve int8)
|
|
(priority int8)
|
|
(volume int32)
|
|
(trans int32 3)
|
|
(group uint8)
|
|
(reg uint8 3)
|
|
(group-and-regs uint32 :overlay-at group)
|
|
)
|
|
:allow-misaligned
|
|
)
|
|
|
|
;; definition for method 3 of type sound-play-params
|
|
(defmethod inspect ((this sound-play-params))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'sound-play-params)
|
|
(format #t "~1Tmask: ~D~%" (-> this mask))
|
|
(format #t "~1Tpitch-mod: ~D~%" (-> this pitch-mod))
|
|
(format #t "~1Tbend: ~D~%" (-> this bend))
|
|
(format #t "~1Tfo-min: ~D~%" (-> this fo-min))
|
|
(format #t "~1Tfo-max: ~D~%" (-> this fo-max))
|
|
(format #t "~1Tfo-curve: ~D~%" (-> this fo-curve))
|
|
(format #t "~1Tpriority: ~D~%" (-> this priority))
|
|
(format #t "~1Tvolume: ~D~%" (-> this volume))
|
|
(format #t "~1Ttrans[3] @ #x~X~%" (-> this trans))
|
|
(format #t "~1Tgroup: ~D~%" (-> this group))
|
|
(format #t "~1Treg[3] @ #x~X~%" (-> this reg))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type sound-rpc-bank-cmd
|
|
(deftype sound-rpc-bank-cmd (sound-rpc-cmd)
|
|
((bank-name sound-name)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type sound-rpc-bank-cmd
|
|
;; INFO: Used lq/sq
|
|
(defmethod inspect ((this sound-rpc-bank-cmd))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'sound-rpc-bank-cmd)
|
|
(format #t "~1Trsvd1: ~D~%" (-> this rsvd1))
|
|
(format #t "~1Tcommand: ~D~%" (-> this command))
|
|
(format #t "~1Tbank-name: ~D~%" (-> this bank-name))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type sound-rpc-test-cmd
|
|
(deftype sound-rpc-test-cmd (sound-rpc-cmd)
|
|
((ee-addr pointer)
|
|
(param0 uint16)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type sound-rpc-test-cmd
|
|
(defmethod inspect ((this sound-rpc-test-cmd))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'sound-rpc-test-cmd)
|
|
(format #t "~1Trsvd1: ~D~%" (-> this rsvd1))
|
|
(format #t "~1Tcommand: ~D~%" (-> this command))
|
|
(format #t "~1Tee-addr: ~D~%" (-> this ee-addr))
|
|
(format #t "~1Tparam0: ~D~%" (-> this param0))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type sound-rpc-sound-cmd
|
|
(deftype sound-rpc-sound-cmd (sound-rpc-cmd)
|
|
((id sound-id)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type sound-rpc-sound-cmd
|
|
(defmethod inspect ((this sound-rpc-sound-cmd))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'sound-rpc-sound-cmd)
|
|
(format #t "~1Trsvd1: ~D~%" (-> this rsvd1))
|
|
(format #t "~1Tcommand: ~D~%" (-> this command))
|
|
(format #t "~1Tid: ~D~%" (-> this id))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type sound-rpc-group-cmd
|
|
(deftype sound-rpc-group-cmd (sound-rpc-cmd)
|
|
((group sound-group)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type sound-rpc-group-cmd
|
|
(defmethod inspect ((this sound-rpc-group-cmd))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'sound-rpc-group-cmd)
|
|
(format #t "~1Trsvd1: ~D~%" (-> this rsvd1))
|
|
(format #t "~1Tcommand: ~D~%" (-> this command))
|
|
(format #t "~1Tgroup: ~D~%" (-> this group))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type sound-rpc-load-bank
|
|
(deftype sound-rpc-load-bank (sound-rpc-bank-cmd)
|
|
((ee-addr pointer)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type sound-rpc-load-bank
|
|
;; INFO: Used lq/sq
|
|
(defmethod inspect ((this sound-rpc-load-bank))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'sound-rpc-load-bank)
|
|
(format #t "~1Trsvd1: ~D~%" (-> this rsvd1))
|
|
(format #t "~1Tcommand: ~D~%" (-> this command))
|
|
(format #t "~1Tbank-name: ~D~%" (-> this bank-name))
|
|
(format #t "~1Tee-addr: ~D~%" (-> this ee-addr))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type sound-rpc-load-music
|
|
(deftype sound-rpc-load-music (sound-rpc-bank-cmd)
|
|
()
|
|
)
|
|
|
|
;; definition for method 3 of type sound-rpc-load-music
|
|
;; INFO: Used lq/sq
|
|
(defmethod inspect ((this sound-rpc-load-music))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'sound-rpc-load-music)
|
|
(format #t "~1Trsvd1: ~D~%" (-> this rsvd1))
|
|
(format #t "~1Tcommand: ~D~%" (-> this command))
|
|
(format #t "~1Tbank-name: ~D~%" (-> this bank-name))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type sound-rpc-unload-bank
|
|
(deftype sound-rpc-unload-bank (sound-rpc-bank-cmd)
|
|
()
|
|
)
|
|
|
|
;; definition for method 3 of type sound-rpc-unload-bank
|
|
;; INFO: Used lq/sq
|
|
(defmethod inspect ((this sound-rpc-unload-bank))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'sound-rpc-unload-bank)
|
|
(format #t "~1Trsvd1: ~D~%" (-> this rsvd1))
|
|
(format #t "~1Tcommand: ~D~%" (-> this command))
|
|
(format #t "~1Tbank-name: ~D~%" (-> this bank-name))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type sound-rpc-play
|
|
(deftype sound-rpc-play (sound-rpc-sound-cmd)
|
|
((name sound-name)
|
|
(params sound-play-params :inline)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type sound-rpc-play
|
|
;; INFO: Used lq/sq
|
|
(defmethod inspect ((this sound-rpc-play))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'sound-rpc-play)
|
|
(format #t "~1Trsvd1: ~D~%" (-> this rsvd1))
|
|
(format #t "~1Tcommand: ~D~%" (-> this command))
|
|
(format #t "~1Tid: ~D~%" (-> this id))
|
|
(format #t "~1Tname: ~D~%" (-> this name))
|
|
(format #t "~1Tparams: #<sound-play-params @ #x~X>~%" (-> this params))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type sound-rpc-pause-sound
|
|
(deftype sound-rpc-pause-sound (sound-rpc-sound-cmd)
|
|
()
|
|
)
|
|
|
|
;; definition for method 3 of type sound-rpc-pause-sound
|
|
(defmethod inspect ((this sound-rpc-pause-sound))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'sound-rpc-pause-sound)
|
|
(format #t "~1Trsvd1: ~D~%" (-> this rsvd1))
|
|
(format #t "~1Tcommand: ~D~%" (-> this command))
|
|
(format #t "~1Tid: ~D~%" (-> this id))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type sound-rpc-stop-sound
|
|
(deftype sound-rpc-stop-sound (sound-rpc-sound-cmd)
|
|
()
|
|
)
|
|
|
|
;; definition for method 3 of type sound-rpc-stop-sound
|
|
(defmethod inspect ((this sound-rpc-stop-sound))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'sound-rpc-stop-sound)
|
|
(format #t "~1Trsvd1: ~D~%" (-> this rsvd1))
|
|
(format #t "~1Tcommand: ~D~%" (-> this command))
|
|
(format #t "~1Tid: ~D~%" (-> this id))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type sound-rpc-continue-sound
|
|
(deftype sound-rpc-continue-sound (sound-rpc-sound-cmd)
|
|
()
|
|
)
|
|
|
|
;; definition for method 3 of type sound-rpc-continue-sound
|
|
(defmethod inspect ((this sound-rpc-continue-sound))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'sound-rpc-continue-sound)
|
|
(format #t "~1Trsvd1: ~D~%" (-> this rsvd1))
|
|
(format #t "~1Tcommand: ~D~%" (-> this command))
|
|
(format #t "~1Tid: ~D~%" (-> this id))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type sound-rpc-set-param
|
|
(deftype sound-rpc-set-param (sound-rpc-sound-cmd)
|
|
((params sound-play-params :inline)
|
|
(auto-time int32)
|
|
(auto-from int32)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type sound-rpc-set-param
|
|
(defmethod inspect ((this sound-rpc-set-param))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'sound-rpc-set-param)
|
|
(format #t "~1Trsvd1: ~D~%" (-> this rsvd1))
|
|
(format #t "~1Tcommand: ~D~%" (-> this command))
|
|
(format #t "~1Tid: ~D~%" (-> this id))
|
|
(format #t "~1Tparams: #<sound-play-params @ #x~X>~%" (-> this params))
|
|
(format #t "~1Tauto-time: ~D~%" (-> this auto-time))
|
|
(format #t "~1Tauto-from: ~D~%" (-> this auto-from))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type sound-rpc-set-master-volume
|
|
(deftype sound-rpc-set-master-volume (sound-rpc-group-cmd)
|
|
((volume int32)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type sound-rpc-set-master-volume
|
|
(defmethod inspect ((this sound-rpc-set-master-volume))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'sound-rpc-set-master-volume)
|
|
(format #t "~1Trsvd1: ~D~%" (-> this rsvd1))
|
|
(format #t "~1Tcommand: ~D~%" (-> this command))
|
|
(format #t "~1Tgroup: ~D~%" (-> this group))
|
|
(format #t "~1Tvolume: ~D~%" (-> this volume))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type sound-rpc-pause-group
|
|
(deftype sound-rpc-pause-group (sound-rpc-group-cmd)
|
|
()
|
|
)
|
|
|
|
;; definition for method 3 of type sound-rpc-pause-group
|
|
(defmethod inspect ((this sound-rpc-pause-group))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'sound-rpc-pause-group)
|
|
(format #t "~1Trsvd1: ~D~%" (-> this rsvd1))
|
|
(format #t "~1Tcommand: ~D~%" (-> this command))
|
|
(format #t "~1Tgroup: ~D~%" (-> this group))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type sound-rpc-stop-group
|
|
(deftype sound-rpc-stop-group (sound-rpc-group-cmd)
|
|
()
|
|
)
|
|
|
|
;; definition for method 3 of type sound-rpc-stop-group
|
|
(defmethod inspect ((this sound-rpc-stop-group))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'sound-rpc-stop-group)
|
|
(format #t "~1Trsvd1: ~D~%" (-> this rsvd1))
|
|
(format #t "~1Tcommand: ~D~%" (-> this command))
|
|
(format #t "~1Tgroup: ~D~%" (-> this group))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type sound-rpc-continue-group
|
|
(deftype sound-rpc-continue-group (sound-rpc-group-cmd)
|
|
()
|
|
)
|
|
|
|
;; definition for method 3 of type sound-rpc-continue-group
|
|
(defmethod inspect ((this sound-rpc-continue-group))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'sound-rpc-continue-group)
|
|
(format #t "~1Trsvd1: ~D~%" (-> this rsvd1))
|
|
(format #t "~1Tcommand: ~D~%" (-> this command))
|
|
(format #t "~1Tgroup: ~D~%" (-> this group))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type sound-rpc-get-irx-version
|
|
(deftype sound-rpc-get-irx-version (sound-rpc-cmd)
|
|
((major uint32)
|
|
(minor uint32)
|
|
(ee-addr pointer)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type sound-rpc-get-irx-version
|
|
(defmethod inspect ((this sound-rpc-get-irx-version))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'sound-rpc-get-irx-version)
|
|
(format #t "~1Trsvd1: ~D~%" (-> this rsvd1))
|
|
(format #t "~1Tcommand: ~D~%" (-> this command))
|
|
(format #t "~1Tmajor: ~D~%" (-> this major))
|
|
(format #t "~1Tminor: ~D~%" (-> this minor))
|
|
(format #t "~1Tee-addr: ~D~%" (-> this ee-addr))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type sound-rpc-set-language
|
|
(deftype sound-rpc-set-language (sound-rpc-cmd)
|
|
((lang uint32)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type sound-rpc-set-language
|
|
(defmethod inspect ((this sound-rpc-set-language))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'sound-rpc-set-language)
|
|
(format #t "~1Trsvd1: ~D~%" (-> this rsvd1))
|
|
(format #t "~1Tcommand: ~D~%" (-> this command))
|
|
(format #t "~1Tlang: ~D~%" (-> this lang))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type sound-rpc-set-stereo-mode
|
|
(deftype sound-rpc-set-stereo-mode (sound-rpc-cmd)
|
|
((mode int32)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type sound-rpc-set-stereo-mode
|
|
(defmethod inspect ((this sound-rpc-set-stereo-mode))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'sound-rpc-set-stereo-mode)
|
|
(format #t "~1Trsvd1: ~D~%" (-> this rsvd1))
|
|
(format #t "~1Tcommand: ~D~%" (-> this command))
|
|
(format #t "~1Tmode: ~D~%" (-> this mode))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type sound-rpc-set-reverb
|
|
(deftype sound-rpc-set-reverb (sound-rpc-cmd)
|
|
((core uint8)
|
|
(reverb int32)
|
|
(left uint32)
|
|
(right uint32)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type sound-rpc-set-reverb
|
|
(defmethod inspect ((this sound-rpc-set-reverb))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'sound-rpc-set-reverb)
|
|
(format #t "~1Trsvd1: ~D~%" (-> this rsvd1))
|
|
(format #t "~1Tcommand: ~D~%" (-> this command))
|
|
(format #t "~1Tcore: ~D~%" (-> this core))
|
|
(format #t "~1Treverb: ~D~%" (-> this reverb))
|
|
(format #t "~1Tleft: ~D~%" (-> this left))
|
|
(format #t "~1Tright: ~D~%" (-> this right))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type sound-rpc-set-ear-trans
|
|
(deftype sound-rpc-set-ear-trans (sound-rpc-cmd)
|
|
((ear-trans1 int32 3)
|
|
(ear-trans0 int32 3)
|
|
(cam-trans int32 3)
|
|
(cam-angle int32)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type sound-rpc-set-ear-trans
|
|
(defmethod inspect ((this sound-rpc-set-ear-trans))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'sound-rpc-set-ear-trans)
|
|
(format #t "~1Trsvd1: ~D~%" (-> this rsvd1))
|
|
(format #t "~1Tcommand: ~D~%" (-> this command))
|
|
(format #t "~1Tear-trans1[3] @ #x~X~%" (-> this ear-trans1))
|
|
(format #t "~1Tear-trans0[3] @ #x~X~%" (-> this ear-trans0))
|
|
(format #t "~1Tcam-trans[3] @ #x~X~%" (-> this cam-trans))
|
|
(format #t "~1Tcam-angle: ~D~%" (-> this cam-angle))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type sound-rpc-set-flava
|
|
(deftype sound-rpc-set-flava (sound-rpc-cmd)
|
|
((flava uint8)
|
|
(excitement uint8)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type sound-rpc-set-flava
|
|
(defmethod inspect ((this sound-rpc-set-flava))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'sound-rpc-set-flava)
|
|
(format #t "~1Trsvd1: ~D~%" (-> this rsvd1))
|
|
(format #t "~1Tcommand: ~D~%" (-> this command))
|
|
(format #t "~1Tflava: ~D~%" (-> this flava))
|
|
(format #t "~1Texcitement: ~D~%" (-> this excitement))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type sound-rpc-set-midi-reg
|
|
(deftype sound-rpc-set-midi-reg (sound-rpc-cmd)
|
|
((reg int32)
|
|
(value int16)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type sound-rpc-set-midi-reg
|
|
(defmethod inspect ((this sound-rpc-set-midi-reg))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'sound-rpc-set-midi-reg)
|
|
(format #t "~1Trsvd1: ~D~%" (-> this rsvd1))
|
|
(format #t "~1Tcommand: ~D~%" (-> this command))
|
|
(format #t "~1Treg: ~D~%" (-> this reg))
|
|
(format #t "~1Tvalue: ~D~%" (-> this value))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type sound-rpc-shutdown
|
|
(deftype sound-rpc-shutdown (sound-rpc-cmd)
|
|
()
|
|
)
|
|
|
|
;; definition for method 3 of type sound-rpc-shutdown
|
|
(defmethod inspect ((this sound-rpc-shutdown))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'sound-rpc-shutdown)
|
|
(format #t "~1Trsvd1: ~D~%" (-> this rsvd1))
|
|
(format #t "~1Tcommand: ~D~%" (-> this command))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type sound-rpc-set-fps
|
|
(deftype sound-rpc-set-fps (sound-rpc-cmd)
|
|
((fps uint8)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type sound-rpc-set-fps
|
|
(defmethod inspect ((this sound-rpc-set-fps))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'sound-rpc-set-fps)
|
|
(format #t "~1Trsvd1: ~D~%" (-> this rsvd1))
|
|
(format #t "~1Tcommand: ~D~%" (-> this command))
|
|
(format #t "~1Tfps: ~D~%" (-> this fps))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type sound-rpc-list-sounds
|
|
(deftype sound-rpc-list-sounds (sound-rpc-cmd)
|
|
()
|
|
)
|
|
|
|
;; definition for method 3 of type sound-rpc-list-sounds
|
|
(defmethod inspect ((this sound-rpc-list-sounds))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'sound-rpc-list-sounds)
|
|
(format #t "~1Trsvd1: ~D~%" (-> this rsvd1))
|
|
(format #t "~1Tcommand: ~D~%" (-> this command))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type sound-rpc-unload-music
|
|
(deftype sound-rpc-unload-music (sound-rpc-cmd)
|
|
()
|
|
)
|
|
|
|
;; definition for method 3 of type sound-rpc-unload-music
|
|
(defmethod inspect ((this sound-rpc-unload-music))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'sound-rpc-unload-music)
|
|
(format #t "~1Trsvd1: ~D~%" (-> this rsvd1))
|
|
(format #t "~1Tcommand: ~D~%" (-> this command))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type sound-rpc-union
|
|
(deftype sound-rpc-union (structure)
|
|
((data uint32 20)
|
|
(load-bank sound-rpc-load-bank :overlay-at (-> data 0))
|
|
(unload-bank sound-rpc-unload-bank :overlay-at (-> data 0))
|
|
(play sound-rpc-play :overlay-at (-> data 0))
|
|
(pause-sound sound-rpc-pause-sound :overlay-at (-> data 0))
|
|
(stop-sound sound-rpc-stop-sound :overlay-at (-> data 0))
|
|
(continue-sound sound-rpc-continue-sound :overlay-at (-> data 0))
|
|
(set-param sound-rpc-set-param :overlay-at (-> data 0))
|
|
(set-master-volume sound-rpc-set-master-volume :overlay-at (-> data 0))
|
|
(pause-group sound-rpc-pause-group :overlay-at (-> data 0))
|
|
(stop-group sound-rpc-stop-group :overlay-at (-> data 0))
|
|
(continue-group sound-rpc-continue-group :overlay-at (-> data 0))
|
|
(get-irx-version sound-rpc-get-irx-version :overlay-at (-> data 0))
|
|
(set-language sound-rpc-set-language :overlay-at (-> data 0))
|
|
(set-reverb sound-rpc-set-reverb :overlay-at (-> data 0))
|
|
(set-ear-trans sound-rpc-set-ear-trans :overlay-at (-> data 0))
|
|
(set-flava sound-rpc-set-flava :overlay-at (-> data 0))
|
|
(set-midi-reg sound-rpc-set-midi-reg :overlay-at (-> data 0))
|
|
(set-fps sound-rpc-set-fps :overlay-at (-> data 0))
|
|
(shutdown sound-rpc-shutdown :overlay-at (-> data 0))
|
|
(list-sounds sound-rpc-list-sounds :overlay-at (-> data 0))
|
|
(unload-music sound-rpc-unload-music :overlay-at (-> data 0))
|
|
(mirror-mode sound-rpc-set-mirror-mode :overlay-at (-> data 0))
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type sound-rpc-union
|
|
(defmethod inspect ((this sound-rpc-union))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'sound-rpc-union)
|
|
(format #t "~1Tdata[20] @ #x~X~%" (-> this data))
|
|
(format #t "~1Tload-bank: #<sound-rpc-load-bank @ #x~X>~%" (-> this load-bank))
|
|
(format #t "~1Tunload-bank: #<sound-rpc-unload-bank @ #x~X>~%" (-> this load-bank))
|
|
(format #t "~1Tplay: #<sound-rpc-play @ #x~X>~%" (-> this load-bank))
|
|
(format #t "~1Tpause-sound: #<sound-rpc-pause-sound @ #x~X>~%" (-> this load-bank))
|
|
(format #t "~1Tstop-sound: #<sound-rpc-stop-sound @ #x~X>~%" (-> this load-bank))
|
|
(format #t "~1Tcontinue-sound: #<sound-rpc-continue-sound @ #x~X>~%" (-> this load-bank))
|
|
(format #t "~1Tset-param: #<sound-rpc-set-param @ #x~X>~%" (-> this load-bank))
|
|
(format #t "~1Tset-master-volume: #<sound-rpc-set-master-volume @ #x~X>~%" (-> this load-bank))
|
|
(format #t "~1Tpause-group: #<sound-rpc-pause-group @ #x~X>~%" (-> this load-bank))
|
|
(format #t "~1Tstop-group: #<sound-rpc-stop-group @ #x~X>~%" (-> this load-bank))
|
|
(format #t "~1Tcontinue-group: #<sound-rpc-continue-group @ #x~X>~%" (-> this load-bank))
|
|
(format #t "~1Tget-irx-version: #<sound-rpc-get-irx-version @ #x~X>~%" (-> this load-bank))
|
|
(format #t "~1Tset-language: #<sound-rpc-set-language @ #x~X>~%" (-> this load-bank))
|
|
(format #t "~1Tset-reverb: #<sound-rpc-set-reverb @ #x~X>~%" (-> this load-bank))
|
|
(format #t "~1Tset-ear-trans: #<sound-rpc-set-ear-trans @ #x~X>~%" (-> this load-bank))
|
|
(format #t "~1Tset-flava: #<sound-rpc-set-flava @ #x~X>~%" (-> this load-bank))
|
|
(format #t "~1Tset-midi-reg: #<sound-rpc-set-midi-reg @ #x~X>~%" (-> this load-bank))
|
|
(format #t "~1Tset-fps: #<sound-rpc-set-fps @ #x~X>~%" (-> this load-bank))
|
|
(format #t "~1Tshutdown: #<sound-rpc-shutdown @ #x~X>~%" (-> this load-bank))
|
|
(format #t "~1Tlist-sounds: #<sound-rpc-list-sounds @ #x~X>~%" (-> this load-bank))
|
|
(format #t "~1Tunload-music: #<sound-rpc-unload-music @ #x~X>~%" (-> this load-bank))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type sound-spec
|
|
(deftype sound-spec (basic)
|
|
((mask sound-mask)
|
|
(num float)
|
|
(group sound-group)
|
|
(reg uint8 3)
|
|
(group-and-regs uint32 :overlay-at group)
|
|
(sound-name-char uint8 16)
|
|
(sound-name sound-name :overlay-at (-> sound-name-char 0))
|
|
(trans int32 4)
|
|
(volume int32)
|
|
(pitch-mod int32)
|
|
(bend int32)
|
|
(fo-min int16)
|
|
(fo-max int16)
|
|
(fo-curve int8)
|
|
(priority int8)
|
|
(auto-time int32)
|
|
(auto-from int32)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type sound-spec
|
|
;; INFO: Used lq/sq
|
|
(defmethod inspect ((this sound-spec))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this (-> this type))
|
|
(format #t "~1Tmask: ~D~%" (-> this mask))
|
|
(format #t "~1Tnum: ~f~%" (-> this num))
|
|
(format #t "~1Tgroup: ~D~%" (-> this group))
|
|
(format #t "~1Treg[3] @ #x~X~%" (-> this reg))
|
|
(format #t "~1Tsound-name-char: ~g~%" (&-> this sound-name))
|
|
(format #t "~1Tsound-name: ~D~%" (-> this sound-name))
|
|
(format #t "~1Ttrans[4] @ #x~X~%" (-> this trans))
|
|
(format #t "~1Tvolume: ~D~%" (-> this volume))
|
|
(format #t "~1Tpitch-mod: ~D~%" (-> this pitch-mod))
|
|
(format #t "~1Tbend: ~D~%" (-> this bend))
|
|
(format #t "~1Tfo-min: ~D~%" (-> this fo-min))
|
|
(format #t "~1Tfo-max: ~D~%" (-> this fo-max))
|
|
(format #t "~1Tfo-curve: ~D~%" (-> this fo-curve))
|
|
(format #t "~1Tpriority: ~D~%" (-> this priority))
|
|
(format #t "~1Tauto-time: ~D~%" (-> this auto-time))
|
|
(format #t "~1Tauto-from: ~D~%" (-> this auto-from))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition for symbol *current-sound-id*, type sound-id
|
|
(define *current-sound-id* (the-as sound-id #x10000))
|
|
|
|
;; definition of type ambient-sound
|
|
(deftype ambient-sound (basic)
|
|
((spec sound-spec)
|
|
(playing-id sound-id)
|
|
(trans vector :inline)
|
|
(name sound-name)
|
|
(play-time time-frame)
|
|
(time-base time-frame)
|
|
(time-random time-frame)
|
|
(volume int32)
|
|
(pitch int32)
|
|
(falloff-near int32)
|
|
(falloff-far int32)
|
|
(falloff-mode int32)
|
|
(params (pointer float))
|
|
(param-count int32)
|
|
(entity entity)
|
|
(sound-count int32)
|
|
)
|
|
(:methods
|
|
(new (symbol type basic vector) _type_)
|
|
(update! (_type_) int)
|
|
(change-sound! (_type_ sound-name) int)
|
|
(update-trans! (_type_ vector) int)
|
|
(update-vol! (_type_ float) int)
|
|
(update-pitch-mod! (_type_ float) none)
|
|
(set-falloff-far! (_type_ float) none)
|
|
(stop! (_type_) int)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type ambient-sound
|
|
;; INFO: Used lq/sq
|
|
(defmethod inspect ((this ambient-sound))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this (-> this type))
|
|
(format #t "~1Tspec: ~A~%" (-> this spec))
|
|
(format #t "~1Tplaying-id: ~D~%" (-> this playing-id))
|
|
(format #t "~1Ttrans: ~`vector`P~%" (-> this trans))
|
|
(format #t "~1Tname: ~D~%" (-> this name))
|
|
(format #t "~1Tplay-time: ~D~%" (-> this play-time))
|
|
(format #t "~1Ttime-base: ~D~%" (-> this time-base))
|
|
(format #t "~1Ttime-random: ~D~%" (-> this time-random))
|
|
(format #t "~1Tvolume: ~D~%" (-> this volume))
|
|
(format #t "~1Tpitch: ~D~%" (-> this pitch))
|
|
(format #t "~1Tfalloff-near: ~D~%" (-> this falloff-near))
|
|
(format #t "~1Tfalloff-far: ~D~%" (-> this falloff-far))
|
|
(format #t "~1Tfalloff-mode: ~D~%" (-> this falloff-mode))
|
|
(format #t "~1Tparams: #x~X~%" (-> this params))
|
|
(format #t "~1Tparam-count: ~D~%" (-> this param-count))
|
|
(format #t "~1Tentity: ~A~%" (-> this entity))
|
|
(format #t "~1Tsound-count: ~D~%" (-> this sound-count))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
0
|