mirror of
https://github.com/open-goal/jak-project
synced 2026-09-08 11:56:11 -04:00
Tyler Wilding
9c86c86c74
Breaks the 300 file milestone, also includes the majority of mips2c functions carried forward. Some functions need some fixes in the c++ code to mips2c properly, and a small handful of the mips2c functions require manual patching -- all spots were marked with `TODO - fix` that had to be commented out to get things compiling.
1525 lines
51 KiB
Common Lisp
Vendored
Generated
1525 lines
51 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; definition of type menu-string
|
|
(deftype menu-string (hud-string)
|
|
((pad int32)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type menu-string
|
|
(defmethod inspect ((this menu-string))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'menu-string)
|
|
(format #t "~1Ttext: ~A~%" (-> this text))
|
|
(format #t "~1Tscale: ~f~%" (-> this scale))
|
|
(format #t "~1Twidth: ~f~%" (-> this width))
|
|
(format #t "~1Theight: ~f~%" (-> this height))
|
|
(format #t "~1Tcolor: ~D~%" (-> this color))
|
|
(format #t "~1Tflags: ~D~%" (-> this flags))
|
|
(format #t "~1Tpos: #<vector4w @ #x~X>~%" (-> this pos))
|
|
(format #t "~1Talpha: ~f~%" (-> this alpha))
|
|
(format #t "~1Ttime: ~f~%" (-> this time))
|
|
(format #t "~1Teffect: ~D~%" (-> this effect))
|
|
(format #t "~1Teffect-color: ~D~%" (-> this effect-color))
|
|
(format #t "~1Ttext-length: ~D~%" (-> this text-length))
|
|
(format #t "~1Talpha: ~f~%" (-> this alpha))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type menu-option-info
|
|
(deftype menu-option-info (structure)
|
|
((display-name-id uint32)
|
|
(sym basic)
|
|
(extra basic)
|
|
(extra-object basic :overlay-at extra)
|
|
(extra-int int32 :overlay-at extra)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type menu-option-info
|
|
(defmethod inspect ((this menu-option-info))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'menu-option-info)
|
|
(format #t "~1Tdisplay-name-id: ~D~%" (-> this display-name-id))
|
|
(format #t "~1Tsym: ~A~%" (-> this sym))
|
|
(format #t "~1Textra: ~A~%" (-> this extra))
|
|
(format #t "~1Textra-object: ~A~%" (-> this extra))
|
|
(format #t "~1Textra-int: ~D~%" (-> this extra))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type strings-extra-struct
|
|
(deftype strings-extra-struct (structure)
|
|
((text uint8 128)
|
|
(extra basic)
|
|
(extra-object basic :overlay-at extra)
|
|
(extra-int int32 :overlay-at extra)
|
|
(extra-int16 int16 2 :overlay-at extra)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type strings-extra-struct
|
|
(defmethod inspect ((this strings-extra-struct))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'strings-extra-struct)
|
|
(format #t "~1Ttext[128] @ #x~X~%" (-> this text))
|
|
(format #t "~1Textra: ~A~%" (-> this extra))
|
|
(format #t "~1Textra-object: ~A~%" (-> this extra))
|
|
(format #t "~1Textra-int: ~D~%" (-> this extra))
|
|
(format #t "~1Textra-int16[2] @ #x~X~%" (&-> this extra))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type menu-selection-struct
|
|
(deftype menu-selection-struct (structure)
|
|
((array-ptr basic)
|
|
(selection-index int32)
|
|
(last-sym basic)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type menu-selection-struct
|
|
(defmethod inspect ((this menu-selection-struct))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'menu-selection-struct)
|
|
(format #t "~1Tarray-ptr: ~A~%" (-> this array-ptr))
|
|
(format #t "~1Tselection-index: ~D~%" (-> this selection-index))
|
|
(format #t "~1Tlast-sym: ~A~%" (-> this last-sym))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type animation-info
|
|
(deftype animation-info (structure)
|
|
((enter-anim int32)
|
|
(exit-anim int32)
|
|
(running-anim int32)
|
|
(anim-speed float)
|
|
(enter-delay uint32)
|
|
(3d-offset vector :inline)
|
|
(3d-offset-x float :overlay-at (-> 3d-offset data 0))
|
|
(3d-offset-y float :overlay-at (-> 3d-offset data 1))
|
|
(3d-offset-z float :overlay-at (-> 3d-offset data 2))
|
|
(3d-offset-w float :overlay-at (-> 3d-offset data 3))
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type animation-info
|
|
(defmethod inspect ((this animation-info))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'animation-info)
|
|
(format #t "~1Tenter-anim: ~D~%" (-> this enter-anim))
|
|
(format #t "~1Texit-anim: ~D~%" (-> this exit-anim))
|
|
(format #t "~1Trunning-anim: ~D~%" (-> this running-anim))
|
|
(format #t "~1Tanim-speed: ~f~%" (-> this anim-speed))
|
|
(format #t "~1Tenter-delay: ~D~%" (-> this enter-delay))
|
|
(format #t "~1T3d-offset: #<vector @ #x~X>~%" (-> this 3d-offset))
|
|
(format #t "~1T3d-offset-x: ~f~%" (-> this 3d-offset x))
|
|
(format #t "~1T3d-offset-y: ~f~%" (-> this 3d-offset y))
|
|
(format #t "~1T3d-offset-z: ~f~%" (-> this 3d-offset z))
|
|
(format #t "~1T3d-offset-w: ~f~%" (-> this 3d-offset w))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type base-menu-info
|
|
(deftype base-menu-info (structure)
|
|
((menu-type basic)
|
|
(children basic)
|
|
(name-symbol basic)
|
|
(3d-menu-type basic)
|
|
(trans-info animation-info)
|
|
(joint-index int8)
|
|
(joint-index-2 int8)
|
|
(box-index int8)
|
|
(flags uint8)
|
|
(joints basic)
|
|
(anim-delay uint32)
|
|
(width int32)
|
|
(height int32)
|
|
(scale-y float)
|
|
(scale-x float)
|
|
(user-data uint32)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type base-menu-info
|
|
(defmethod inspect ((this base-menu-info))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'base-menu-info)
|
|
(format #t "~1Tmenu-type: ~A~%" (-> this menu-type))
|
|
(format #t "~1Tchildren: ~A~%" (-> this children))
|
|
(format #t "~1Tname-symbol: ~A~%" (-> this name-symbol))
|
|
(format #t "~1T3d-menu-type: ~A~%" (-> this 3d-menu-type))
|
|
(format #t "~1Ttrans-info: #<animation-info @ #x~X>~%" (-> this trans-info))
|
|
(format #t "~1Tjoint-index: ~D~%" (-> this joint-index))
|
|
(format #t "~1Tjoint-index-2: ~D~%" (-> this joint-index-2))
|
|
(format #t "~1Tbox-index: ~D~%" (-> this box-index))
|
|
(format #t "~1Tflags: ~D~%" (-> this flags))
|
|
(format #t "~1Tjoints: ~A~%" (-> this joints))
|
|
(format #t "~1Tanim-delay: ~D~%" (-> this anim-delay))
|
|
(format #t "~1Twidth: ~D~%" (-> this width))
|
|
(format #t "~1Theight: ~D~%" (-> this height))
|
|
(format #t "~1Tscale-y: ~f~%" (-> this scale-y))
|
|
(format #t "~1Tscale-x: ~f~%" (-> this scale-x))
|
|
(format #t "~1Tuser-data: ~D~%" (-> this user-data))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type base-menu
|
|
(deftype base-menu (process-drawable)
|
|
((child-handles basic)
|
|
(info-ptr base-menu-info)
|
|
(focused? basic)
|
|
(3d-menu-2d-offset vector :inline)
|
|
(pos-x float)
|
|
(pos-y float)
|
|
(pos-z float)
|
|
(menu-time uint32)
|
|
(width int32)
|
|
(height int32)
|
|
(width-array basic)
|
|
(height-array basic)
|
|
(joint-mat matrix :inline)
|
|
(offset-matrix matrix :inline)
|
|
(j-mod joint-mod-set-world :inline)
|
|
(extra-offset vector :inline)
|
|
(pad int8)
|
|
(hidden? basic)
|
|
)
|
|
(:methods
|
|
(base-menu-method-50 () none)
|
|
(base-menu-method-51 () none)
|
|
(base-menu-method-52 () none)
|
|
(base-menu-method-53 () none)
|
|
(base-menu-method-54 () none)
|
|
(base-menu-method-55 () none)
|
|
(base-menu-method-56 () none)
|
|
(base-menu-method-57 () none)
|
|
(base-menu-method-58 () none)
|
|
(base-menu-method-59 () none)
|
|
(base-menu-method-60 () none)
|
|
(base-menu-method-61 () none)
|
|
(base-menu-method-62 () none)
|
|
(base-menu-method-63 () none)
|
|
(base-menu-method-64 () none)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type base-menu
|
|
(defmethod inspect ((this base-menu))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(let ((t9-0 (method-of-type process-drawable inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(format #t "~2Tchild-handles: ~A~%" (-> this child-handles))
|
|
(format #t "~2Tinfo-ptr: #<base-menu-info @ #x~X>~%" (-> this info-ptr))
|
|
(format #t "~2Tfocused?: ~A~%" (-> this focused?))
|
|
(format #t "~2T3d-menu-2d-offset: #<vector @ #x~X>~%" (-> this 3d-menu-2d-offset))
|
|
(format #t "~2Tpos-x: ~f~%" (-> this pos-x))
|
|
(format #t "~2Tpos-y: ~f~%" (-> this pos-y))
|
|
(format #t "~2Tpos-z: ~f~%" (-> this pos-z))
|
|
(format #t "~2Tmenu-time: ~D~%" (-> this menu-time))
|
|
(format #t "~2Twidth: ~D~%" (-> this width))
|
|
(format #t "~2Theight: ~D~%" (-> this height))
|
|
(format #t "~2Twidth-array: ~A~%" (-> this width-array))
|
|
(format #t "~2Theight-array: ~A~%" (-> this height-array))
|
|
(format #t "~2Tjoint-mat: #<matrix @ #x~X>~%" (-> this joint-mat))
|
|
(format #t "~2Toffset-matrix: #<matrix @ #x~X>~%" (-> this offset-matrix))
|
|
(format #t "~2Tj-mod: #<joint-mod-set-world @ #x~X>~%" (-> this j-mod))
|
|
(format #t "~2Textra-offset: #<vector @ #x~X>~%" (-> this extra-offset))
|
|
(format #t "~2Tpad: ~D~%" (-> this pad))
|
|
(format #t "~2Thidden?: ~A~%" (-> this hidden?))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type jakx-logo-menu
|
|
(deftype jakx-logo-menu (base-menu)
|
|
()
|
|
)
|
|
|
|
;; definition for method 3 of type jakx-logo-menu
|
|
(defmethod inspect ((this jakx-logo-menu))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(let ((t9-0 (method-of-type base-menu inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition for symbol *jakx-logo-seen?*, type symbol
|
|
(define *jakx-logo-seen?* #f)
|
|
|
|
;; definition of type map-menu
|
|
(deftype map-menu (base-menu)
|
|
()
|
|
(:methods
|
|
(map-menu-method-65 () none)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type map-menu
|
|
(defmethod inspect ((this map-menu))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(let ((t9-0 (method-of-type base-menu inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type selection-menu-manager
|
|
(deftype selection-menu-manager (base-menu)
|
|
((selection-index int32)
|
|
(prev-selection-index int32)
|
|
(enabled basic)
|
|
)
|
|
(:methods
|
|
(selection-menu-manager-method-65 () none)
|
|
(selection-menu-manager-method-66 () none)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type selection-menu-manager
|
|
(defmethod inspect ((this selection-menu-manager))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(let ((t9-0 (method-of-type base-menu inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(format #t "~2Tselection-index: ~D~%" (-> this selection-index))
|
|
(format #t "~2Tprev-selection-index: ~D~%" (-> this prev-selection-index))
|
|
(format #t "~2Tenabled: ~A~%" (-> this enabled))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type sprite-info
|
|
(deftype sprite-info (structure)
|
|
((offset vector :inline)
|
|
(offset-x float :overlay-at (-> offset data 0))
|
|
(offset-y float :overlay-at (-> offset data 1))
|
|
(offset-z float :overlay-at (-> offset data 2))
|
|
(offset-w float :overlay-at (-> offset data 3))
|
|
(pos-z int32)
|
|
(tex-name basic)
|
|
(tex-id uint32)
|
|
(scale-x float)
|
|
(scale-y float)
|
|
(flags uint16)
|
|
(offset-from-index int8)
|
|
(offset-dir uint8)
|
|
(texture-index int8)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type sprite-info
|
|
(defmethod inspect ((this sprite-info))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'sprite-info)
|
|
(format #t "~1Toffset: #<vector @ #x~X>~%" (-> this offset))
|
|
(format #t "~1Toffset-x: ~f~%" (-> this offset x))
|
|
(format #t "~1Toffset-y: ~f~%" (-> this offset y))
|
|
(format #t "~1Toffset-z: ~f~%" (-> this offset z))
|
|
(format #t "~1Toffset-w: ~f~%" (-> this offset w))
|
|
(format #t "~1Tpos-z: ~D~%" (-> this pos-z))
|
|
(format #t "~1Ttex-name: ~A~%" (-> this tex-name))
|
|
(format #t "~1Ttex-id: ~D~%" (-> this tex-id))
|
|
(format #t "~1Tscale-x: ~f~%" (-> this scale-x))
|
|
(format #t "~1Tscale-y: ~f~%" (-> this scale-y))
|
|
(format #t "~1Tflags: ~D~%" (-> this flags))
|
|
(format #t "~1Toffset-from-index: ~D~%" (-> this offset-from-index))
|
|
(format #t "~1Toffset-dir: ~D~%" (-> this offset-dir))
|
|
(format #t "~1Ttexture-index: ~D~%" (-> this texture-index))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type transition-info
|
|
(deftype transition-info (animation-info)
|
|
((enter-pos-x float)
|
|
(enter-pos-y float)
|
|
(enter-alpha float)
|
|
(running-alpha float)
|
|
(exit-alpha float)
|
|
(running-pos-x float)
|
|
(running-pos-y float)
|
|
(exit-pos-x float)
|
|
(exit-pos-y float)
|
|
(move-rate float)
|
|
(scroll-offset-x int32)
|
|
(scroll-offset-y int32)
|
|
(scroll-rate float)
|
|
)
|
|
:pack-me
|
|
)
|
|
|
|
;; definition for method 3 of type transition-info
|
|
(defmethod inspect ((this transition-info))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'transition-info)
|
|
(format #t "~1Tenter-anim: ~D~%" (-> this enter-anim))
|
|
(format #t "~1Texit-anim: ~D~%" (-> this exit-anim))
|
|
(format #t "~1Trunning-anim: ~D~%" (-> this running-anim))
|
|
(format #t "~1Tanim-speed: ~f~%" (-> this anim-speed))
|
|
(format #t "~1Tenter-delay: ~D~%" (-> this enter-delay))
|
|
(format #t "~1T3d-offset: #<vector @ #x~X>~%" (-> this 3d-offset))
|
|
(format #t "~1T3d-offset-x: ~f~%" (-> this 3d-offset x))
|
|
(format #t "~1T3d-offset-y: ~f~%" (-> this 3d-offset y))
|
|
(format #t "~1T3d-offset-z: ~f~%" (-> this 3d-offset z))
|
|
(format #t "~1T3d-offset-w: ~f~%" (-> this 3d-offset w))
|
|
(format #t "~1Tenter-pos-x: ~f~%" (-> this enter-pos-x))
|
|
(format #t "~1Tenter-pos-y: ~f~%" (-> this enter-pos-y))
|
|
(format #t "~1Tenter-alpha: ~f~%" (-> this enter-alpha))
|
|
(format #t "~1Trunning-alpha: ~f~%" (-> this running-alpha))
|
|
(format #t "~1Texit-alpha: ~f~%" (-> this exit-alpha))
|
|
(format #t "~1Trunning-pos-x: ~f~%" (-> this running-pos-x))
|
|
(format #t "~1Trunning-pos-y: ~f~%" (-> this running-pos-y))
|
|
(format #t "~1Texit-pos-x: ~f~%" (-> this exit-pos-x))
|
|
(format #t "~1Texit-pos-y: ~f~%" (-> this exit-pos-y))
|
|
(format #t "~1Tmove-rate: ~f~%" (-> this move-rate))
|
|
(format #t "~1Tscroll-offset-x: ~D~%" (-> this scroll-offset-x))
|
|
(format #t "~1Tscroll-offset-y: ~D~%" (-> this scroll-offset-y))
|
|
(format #t "~1Tscroll-rate: ~f~%" (-> this scroll-rate))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type sprite-menu-info
|
|
(deftype sprite-menu-info (base-menu-info)
|
|
((trans-info transition-info :override)
|
|
(sprites-info basic)
|
|
(color uint32)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type sprite-menu-info
|
|
(defmethod inspect ((this sprite-menu-info))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'sprite-menu-info)
|
|
(format #t "~1Tmenu-type: ~A~%" (-> this menu-type))
|
|
(format #t "~1Tchildren: ~A~%" (-> this children))
|
|
(format #t "~1Tname-symbol: ~A~%" (-> this name-symbol))
|
|
(format #t "~1T3d-menu-type: ~A~%" (-> this 3d-menu-type))
|
|
(format #t "~1Ttrans-info: #<transition-info @ #x~X>~%" (-> this trans-info))
|
|
(format #t "~1Tjoint-index: ~D~%" (-> this joint-index))
|
|
(format #t "~1Tjoint-index-2: ~D~%" (-> this joint-index-2))
|
|
(format #t "~1Tbox-index: ~D~%" (-> this box-index))
|
|
(format #t "~1Tflags: ~D~%" (-> this flags))
|
|
(format #t "~1Tjoints: ~A~%" (-> this joints))
|
|
(format #t "~1Tanim-delay: ~D~%" (-> this anim-delay))
|
|
(format #t "~1Twidth: ~D~%" (-> this width))
|
|
(format #t "~1Theight: ~D~%" (-> this height))
|
|
(format #t "~1Tscale-y: ~f~%" (-> this scale-y))
|
|
(format #t "~1Tscale-x: ~f~%" (-> this scale-x))
|
|
(format #t "~1Tuser-data: ~D~%" (-> this user-data))
|
|
(format #t "~1Tsprites-info: ~A~%" (-> this sprites-info))
|
|
(format #t "~1Tcolor: ~D~%" (-> this color))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type hud-sprite-array
|
|
(deftype hud-sprite-array (inline-array-class)
|
|
((data hud-sprite :inline :dynamic)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type hud-sprite-array
|
|
(defmethod inspect ((this hud-sprite-array))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this (-> this type))
|
|
(format #t "~1Tlength: ~D~%" (-> this length))
|
|
(format #t "~1Tallocated-length: ~D~%" (-> this allocated-length))
|
|
(format #t "~1Tdata[0] @ #x~X~%" (-> this data))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> hud-sprite-array heap-base) (the-as uint 64))
|
|
|
|
;; definition of type sprite-menu
|
|
(deftype sprite-menu (base-menu)
|
|
((sprites basic)
|
|
(alpha float)
|
|
)
|
|
(:methods
|
|
(sprite-menu-method-65 () none)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type sprite-menu
|
|
(defmethod inspect ((this sprite-menu))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(let ((t9-0 (method-of-type base-menu inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(format #t "~2Tsprites: ~A~%" (-> this sprites))
|
|
(format #t "~2Talpha: ~f~%" (-> this alpha))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type menu-prim-strip-client
|
|
(deftype menu-prim-strip-client (prim-client)
|
|
((strip basic)
|
|
)
|
|
(:methods
|
|
(menu-prim-strip-client-method-10 () none)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type menu-prim-strip-client
|
|
(defmethod inspect ((this menu-prim-strip-client))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this (-> this type))
|
|
(format #t "~1Tstrip: ~A~%" (-> this strip))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type prim-strip-menu
|
|
(deftype prim-strip-menu (sprite-menu)
|
|
((p-client-array basic)
|
|
(colors basic)
|
|
)
|
|
(:methods
|
|
(prim-strip-menu-method-66 () none)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type prim-strip-menu
|
|
(defmethod inspect ((this prim-strip-menu))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(let ((t9-0 (method-of-type sprite-menu inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(format #t "~2Tp-client-array: ~A~%" (-> this p-client-array))
|
|
(format #t "~2Tcolors: ~A~%" (-> this colors))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type sprite-ptr-info
|
|
(deftype sprite-ptr-info (sprite-info)
|
|
((sprite-ptr basic)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type sprite-ptr-info
|
|
(defmethod inspect ((this sprite-ptr-info))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'sprite-ptr-info)
|
|
(format #t "~1Toffset: #<vector @ #x~X>~%" (-> this offset))
|
|
(format #t "~1Toffset-x: ~f~%" (-> this offset x))
|
|
(format #t "~1Toffset-y: ~f~%" (-> this offset y))
|
|
(format #t "~1Toffset-z: ~f~%" (-> this offset z))
|
|
(format #t "~1Toffset-w: ~f~%" (-> this offset w))
|
|
(format #t "~1Tpos-z: ~D~%" (-> this pos-z))
|
|
(format #t "~1Ttex-name: ~A~%" (-> this tex-name))
|
|
(format #t "~1Ttex-id: ~D~%" (-> this tex-id))
|
|
(format #t "~1Tscale-x: ~f~%" (-> this scale-x))
|
|
(format #t "~1Tscale-y: ~f~%" (-> this scale-y))
|
|
(format #t "~1Tflags: ~D~%" (-> this flags))
|
|
(format #t "~1Toffset-from-index: ~D~%" (-> this offset-from-index))
|
|
(format #t "~1Toffset-dir: ~D~%" (-> this offset-dir))
|
|
(format #t "~1Ttexture-index: ~D~%" (-> this texture-index))
|
|
(format #t "~1Tsprite-ptr: ~A~%" (-> this sprite-ptr))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type sprite-ptr-menu-info
|
|
(deftype sprite-ptr-menu-info (sprite-menu-info)
|
|
()
|
|
)
|
|
|
|
;; definition for method 3 of type sprite-ptr-menu-info
|
|
(defmethod inspect ((this sprite-ptr-menu-info))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'sprite-ptr-menu-info)
|
|
(format #t "~1Tmenu-type: ~A~%" (-> this menu-type))
|
|
(format #t "~1Tchildren: ~A~%" (-> this children))
|
|
(format #t "~1Tname-symbol: ~A~%" (-> this name-symbol))
|
|
(format #t "~1T3d-menu-type: ~A~%" (-> this 3d-menu-type))
|
|
(format #t "~1Ttrans-info: #<transition-info @ #x~X>~%" (-> this trans-info))
|
|
(format #t "~1Tjoint-index: ~D~%" (-> this joint-index))
|
|
(format #t "~1Tjoint-index-2: ~D~%" (-> this joint-index-2))
|
|
(format #t "~1Tbox-index: ~D~%" (-> this box-index))
|
|
(format #t "~1Tflags: ~D~%" (-> this flags))
|
|
(format #t "~1Tjoints: ~A~%" (-> this joints))
|
|
(format #t "~1Tanim-delay: ~D~%" (-> this anim-delay))
|
|
(format #t "~1Twidth: ~D~%" (-> this width))
|
|
(format #t "~1Theight: ~D~%" (-> this height))
|
|
(format #t "~1Tscale-y: ~f~%" (-> this scale-y))
|
|
(format #t "~1Tscale-x: ~f~%" (-> this scale-x))
|
|
(format #t "~1Tuser-data: ~D~%" (-> this user-data))
|
|
(format #t "~1Tsprites-info: ~A~%" (-> this sprites-info))
|
|
(format #t "~1Tcolor: ~D~%" (-> this color))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type sprite-ptr-menu
|
|
(deftype sprite-ptr-menu (prim-strip-menu)
|
|
()
|
|
)
|
|
|
|
;; definition for method 3 of type sprite-ptr-menu
|
|
(defmethod inspect ((this sprite-ptr-menu))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(let ((t9-0 (method-of-type prim-strip-menu inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type index-sprite-list-menu-info
|
|
(deftype index-sprite-list-menu-info (sprite-menu-info)
|
|
((pad1 uint32 2)
|
|
(index-list basic)
|
|
(horiz-list? basic)
|
|
(item-offset int32)
|
|
(color-array basic)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type index-sprite-list-menu-info
|
|
(defmethod inspect ((this index-sprite-list-menu-info))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'index-sprite-list-menu-info)
|
|
(format #t "~1Tmenu-type: ~A~%" (-> this menu-type))
|
|
(format #t "~1Tchildren: ~A~%" (-> this children))
|
|
(format #t "~1Tname-symbol: ~A~%" (-> this name-symbol))
|
|
(format #t "~1T3d-menu-type: ~A~%" (-> this 3d-menu-type))
|
|
(format #t "~1Ttrans-info: #<transition-info @ #x~X>~%" (-> this trans-info))
|
|
(format #t "~1Tjoint-index: ~D~%" (-> this joint-index))
|
|
(format #t "~1Tjoint-index-2: ~D~%" (-> this joint-index-2))
|
|
(format #t "~1Tbox-index: ~D~%" (-> this box-index))
|
|
(format #t "~1Tflags: ~D~%" (-> this flags))
|
|
(format #t "~1Tjoints: ~A~%" (-> this joints))
|
|
(format #t "~1Tanim-delay: ~D~%" (-> this anim-delay))
|
|
(format #t "~1Twidth: ~D~%" (-> this width))
|
|
(format #t "~1Theight: ~D~%" (-> this height))
|
|
(format #t "~1Tscale-y: ~f~%" (-> this scale-y))
|
|
(format #t "~1Tscale-x: ~f~%" (-> this scale-x))
|
|
(format #t "~1Tuser-data: ~D~%" (-> this user-data))
|
|
(format #t "~1Tsprites-info: ~A~%" (-> this sprites-info))
|
|
(format #t "~1Tcolor: ~D~%" (-> this color))
|
|
(format #t "~1Tsprites-info: ~A~%" (-> this sprites-info))
|
|
(format #t "~1Ttrans-info: #<transition-info @ #x~X>~%" (-> this trans-info))
|
|
(format #t "~1Tindex-list: ~A~%" (-> this index-list))
|
|
(format #t "~1Thoriz-list?: ~A~%" (-> this horiz-list?))
|
|
(format #t "~1Titem-offset: ~D~%" (-> this item-offset))
|
|
(format #t "~1Tcolor-array: ~A~%" (-> this color-array))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type index-sprite-list-menu
|
|
(deftype index-sprite-list-menu (prim-strip-menu)
|
|
((index-list basic)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type index-sprite-list-menu
|
|
(defmethod inspect ((this index-sprite-list-menu))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(let ((t9-0 (method-of-type prim-strip-menu inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(format #t "~2Tindex-list: ~A~%" (-> this index-list))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type string-info
|
|
(deftype string-info (structure)
|
|
((offset vector :inline)
|
|
(offset-x float :overlay-at (-> offset data 0))
|
|
(offset-y float :overlay-at (-> offset data 1))
|
|
(offset-z float :overlay-at (-> offset data 2))
|
|
(offset-w float :overlay-at (-> offset data 3))
|
|
(pos-z int32)
|
|
(id uint32)
|
|
(font-scale float)
|
|
(width float)
|
|
(height float)
|
|
(string-ptr basic)
|
|
(string-ptr-needs-format basic)
|
|
(font-flags uint16)
|
|
(font-color uint8)
|
|
(font-color-2 uint8)
|
|
(font-color-3 uint8)
|
|
(offset-dir uint8)
|
|
(offset-from-index int8)
|
|
(offset-type-from int8)
|
|
(is-player-string basic)
|
|
(tmp-talking int32)
|
|
(extra-arg basic)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type string-info
|
|
(defmethod inspect ((this string-info))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'string-info)
|
|
(format #t "~1Toffset: #<vector @ #x~X>~%" (-> this offset))
|
|
(format #t "~1Toffset-x: ~f~%" (-> this offset x))
|
|
(format #t "~1Toffset-y: ~f~%" (-> this offset y))
|
|
(format #t "~1Toffset-z: ~f~%" (-> this offset z))
|
|
(format #t "~1Toffset-w: ~f~%" (-> this offset w))
|
|
(format #t "~1Tpos-z: ~D~%" (-> this pos-z))
|
|
(format #t "~1Tid: ~D~%" (-> this id))
|
|
(format #t "~1Tfont-scale: ~f~%" (-> this font-scale))
|
|
(format #t "~1Twidth: ~f~%" (-> this width))
|
|
(format #t "~1Theight: ~f~%" (-> this height))
|
|
(format #t "~1Tstring-ptr: ~A~%" (-> this string-ptr))
|
|
(format #t "~1Tstring-ptr-needs-format: ~A~%" (-> this string-ptr-needs-format))
|
|
(format #t "~1Tfont-flags: ~D~%" (-> this font-flags))
|
|
(format #t "~1Tfont-color: ~D~%" (-> this font-color))
|
|
(format #t "~1Tfont-color-2: ~D~%" (-> this font-color-2))
|
|
(format #t "~1Tfont-color-3: ~D~%" (-> this font-color-3))
|
|
(format #t "~1Toffset-dir: ~D~%" (-> this offset-dir))
|
|
(format #t "~1Toffset-from-index: ~D~%" (-> this offset-from-index))
|
|
(format #t "~1Toffset-type-from: ~D~%" (-> this offset-type-from))
|
|
(format #t "~1Tis-player-string: ~A~%" (-> this is-player-string))
|
|
(format #t "~1Ttmp-talking: ~D~%" (-> this tmp-talking))
|
|
(format #t "~1Textra-arg: ~A~%" (-> this extra-arg))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type menu-string-array
|
|
(deftype menu-string-array (inline-array-class)
|
|
((data menu-string :inline :dynamic)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type menu-string-array
|
|
(defmethod inspect ((this menu-string-array))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this (-> this type))
|
|
(format #t "~1Tlength: ~D~%" (-> this length))
|
|
(format #t "~1Tallocated-length: ~D~%" (-> this allocated-length))
|
|
(format #t "~1Tdata[0] @ #x~X~%" (-> this data))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> menu-string-array heap-base) (the-as uint 80))
|
|
|
|
;; definition of type string-menu-info
|
|
(deftype string-menu-info (sprite-menu-info)
|
|
((strings-info basic)
|
|
(text-ids basic)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type string-menu-info
|
|
(defmethod inspect ((this string-menu-info))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'string-menu-info)
|
|
(format #t "~1Tmenu-type: ~A~%" (-> this menu-type))
|
|
(format #t "~1Tchildren: ~A~%" (-> this children))
|
|
(format #t "~1Tname-symbol: ~A~%" (-> this name-symbol))
|
|
(format #t "~1T3d-menu-type: ~A~%" (-> this 3d-menu-type))
|
|
(format #t "~1Ttrans-info: #<transition-info @ #x~X>~%" (-> this trans-info))
|
|
(format #t "~1Tjoint-index: ~D~%" (-> this joint-index))
|
|
(format #t "~1Tjoint-index-2: ~D~%" (-> this joint-index-2))
|
|
(format #t "~1Tbox-index: ~D~%" (-> this box-index))
|
|
(format #t "~1Tflags: ~D~%" (-> this flags))
|
|
(format #t "~1Tjoints: ~A~%" (-> this joints))
|
|
(format #t "~1Tanim-delay: ~D~%" (-> this anim-delay))
|
|
(format #t "~1Twidth: ~D~%" (-> this width))
|
|
(format #t "~1Theight: ~D~%" (-> this height))
|
|
(format #t "~1Tscale-y: ~f~%" (-> this scale-y))
|
|
(format #t "~1Tscale-x: ~f~%" (-> this scale-x))
|
|
(format #t "~1Tuser-data: ~D~%" (-> this user-data))
|
|
(format #t "~1Tsprites-info: ~A~%" (-> this sprites-info))
|
|
(format #t "~1Tcolor: ~D~%" (-> this color))
|
|
(format #t "~1Tstrings-info: ~A~%" (-> this strings-info))
|
|
(format #t "~1Ttext-ids: ~A~%" (-> this text-ids))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type string-menu
|
|
(deftype string-menu (prim-strip-menu)
|
|
((strings basic)
|
|
(text-ids basic)
|
|
)
|
|
(:methods
|
|
(string-menu-method-67 () none)
|
|
(string-menu-method-68 () none)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type string-menu
|
|
(defmethod inspect ((this string-menu))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(let ((t9-0 (method-of-type prim-strip-menu inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(format #t "~2Tstrings: ~A~%" (-> this strings))
|
|
(format #t "~2Ttext-ids: ~A~%" (-> this text-ids))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type options-bar-indicator
|
|
(deftype options-bar-indicator (string-menu)
|
|
()
|
|
)
|
|
|
|
;; definition for method 3 of type options-bar-indicator
|
|
(defmethod inspect ((this options-bar-indicator))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(let ((t9-0 (method-of-type string-menu inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type game-text-menu-info
|
|
(deftype game-text-menu-info (string-menu-info)
|
|
((text-id uint32)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type game-text-menu-info
|
|
(defmethod inspect ((this game-text-menu-info))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'game-text-menu-info)
|
|
(format #t "~1Tmenu-type: ~A~%" (-> this menu-type))
|
|
(format #t "~1Tchildren: ~A~%" (-> this children))
|
|
(format #t "~1Tname-symbol: ~A~%" (-> this name-symbol))
|
|
(format #t "~1T3d-menu-type: ~A~%" (-> this 3d-menu-type))
|
|
(format #t "~1Ttrans-info: #<transition-info @ #x~X>~%" (-> this trans-info))
|
|
(format #t "~1Tjoint-index: ~D~%" (-> this joint-index))
|
|
(format #t "~1Tjoint-index-2: ~D~%" (-> this joint-index-2))
|
|
(format #t "~1Tbox-index: ~D~%" (-> this box-index))
|
|
(format #t "~1Tflags: ~D~%" (-> this flags))
|
|
(format #t "~1Tjoints: ~A~%" (-> this joints))
|
|
(format #t "~1Tanim-delay: ~D~%" (-> this anim-delay))
|
|
(format #t "~1Twidth: ~D~%" (-> this width))
|
|
(format #t "~1Theight: ~D~%" (-> this height))
|
|
(format #t "~1Tscale-y: ~f~%" (-> this scale-y))
|
|
(format #t "~1Tscale-x: ~f~%" (-> this scale-x))
|
|
(format #t "~1Tuser-data: ~D~%" (-> this user-data))
|
|
(format #t "~1Tsprites-info: ~A~%" (-> this sprites-info))
|
|
(format #t "~1Tcolor: ~D~%" (-> this color))
|
|
(format #t "~1Tstrings-info: ~A~%" (-> this strings-info))
|
|
(format #t "~1Ttext-ids: ~A~%" (-> this text-ids))
|
|
(format #t "~1Ttext-id: ~D~%" (-> this text-id))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type game-text-menu
|
|
(deftype game-text-menu (string-menu)
|
|
((text-id uint32)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type game-text-menu
|
|
(defmethod inspect ((this game-text-menu))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(let ((t9-0 (method-of-type string-menu inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(format #t "~2Ttext-id: ~D~%" (-> this text-id))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type dynamic-string-menu
|
|
(deftype dynamic-string-menu (string-menu)
|
|
()
|
|
)
|
|
|
|
;; definition for method 3 of type dynamic-string-menu
|
|
(defmethod inspect ((this dynamic-string-menu))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(let ((t9-0 (method-of-type string-menu inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type dynamic-driver-info
|
|
(deftype dynamic-driver-info (dynamic-string-menu)
|
|
()
|
|
)
|
|
|
|
;; definition for method 3 of type dynamic-driver-info
|
|
(defmethod inspect ((this dynamic-driver-info))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(let ((t9-0 (method-of-type dynamic-string-menu inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type dropdown-trans-info
|
|
(deftype dropdown-trans-info (transition-info)
|
|
((selected-offset vector)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type dropdown-trans-info
|
|
(defmethod inspect ((this dropdown-trans-info))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'dropdown-trans-info)
|
|
(format #t "~1Tenter-anim: ~D~%" (-> this enter-anim))
|
|
(format #t "~1Texit-anim: ~D~%" (-> this exit-anim))
|
|
(format #t "~1Trunning-anim: ~D~%" (-> this running-anim))
|
|
(format #t "~1Tanim-speed: ~f~%" (-> this anim-speed))
|
|
(format #t "~1Tenter-delay: ~D~%" (-> this enter-delay))
|
|
(format #t "~1T3d-offset: #<vector @ #x~X>~%" (-> this 3d-offset))
|
|
(format #t "~1T3d-offset-x: ~f~%" (-> this 3d-offset x))
|
|
(format #t "~1T3d-offset-y: ~f~%" (-> this 3d-offset y))
|
|
(format #t "~1T3d-offset-z: ~f~%" (-> this 3d-offset z))
|
|
(format #t "~1T3d-offset-w: ~f~%" (-> this 3d-offset w))
|
|
(format #t "~1Tenter-pos-x: ~f~%" (-> this enter-pos-x))
|
|
(format #t "~1Tenter-pos-y: ~f~%" (-> this enter-pos-y))
|
|
(format #t "~1Tenter-alpha: ~f~%" (-> this enter-alpha))
|
|
(format #t "~1Trunning-alpha: ~f~%" (-> this running-alpha))
|
|
(format #t "~1Texit-alpha: ~f~%" (-> this exit-alpha))
|
|
(format #t "~1Trunning-pos-x: ~f~%" (-> this running-pos-x))
|
|
(format #t "~1Trunning-pos-y: ~f~%" (-> this running-pos-y))
|
|
(format #t "~1Texit-pos-x: ~f~%" (-> this exit-pos-x))
|
|
(format #t "~1Texit-pos-y: ~f~%" (-> this exit-pos-y))
|
|
(format #t "~1Tmove-rate: ~f~%" (-> this move-rate))
|
|
(format #t "~1Tscroll-offset-x: ~D~%" (-> this scroll-offset-x))
|
|
(format #t "~1Tscroll-offset-y: ~D~%" (-> this scroll-offset-y))
|
|
(format #t "~1Tscroll-rate: ~f~%" (-> this scroll-rate))
|
|
(format #t "~1Tselected-offset: #<vector @ #x~X>~%" (-> this selected-offset))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type dropdown-item-info
|
|
(deftype dropdown-item-info (string-menu-info)
|
|
((trans-info dropdown-trans-info :override)
|
|
(selection-box-width int32)
|
|
(selection-box-height int32)
|
|
(selection-type basic)
|
|
(selection-extra int32)
|
|
(selection-box-offset vector :inline)
|
|
(selection-box-offset-x float :overlay-at (-> selection-box-offset data 0))
|
|
(selection-box-offset-y float :overlay-at (-> selection-box-offset data 1))
|
|
(selection-box-offset-z float :overlay-at (-> selection-box-offset data 2))
|
|
(selection-box-offset-w float :overlay-at (-> selection-box-offset data 3))
|
|
(selection-box-color uint32)
|
|
(down-index-modifier int8)
|
|
(up-index-modifier int8)
|
|
(left-index-modifier int8)
|
|
(right-index-modifier int8)
|
|
(selection-box-texture-index int8)
|
|
(reset-pad uint8)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type dropdown-item-info
|
|
(defmethod inspect ((this dropdown-item-info))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'dropdown-item-info)
|
|
(format #t "~1Tmenu-type: ~A~%" (-> this menu-type))
|
|
(format #t "~1Tchildren: ~A~%" (-> this children))
|
|
(format #t "~1Tname-symbol: ~A~%" (-> this name-symbol))
|
|
(format #t "~1T3d-menu-type: ~A~%" (-> this 3d-menu-type))
|
|
(format #t "~1Ttrans-info: #<dropdown-trans-info @ #x~X>~%" (-> this trans-info))
|
|
(format #t "~1Tjoint-index: ~D~%" (-> this joint-index))
|
|
(format #t "~1Tjoint-index-2: ~D~%" (-> this joint-index-2))
|
|
(format #t "~1Tbox-index: ~D~%" (-> this box-index))
|
|
(format #t "~1Tflags: ~D~%" (-> this flags))
|
|
(format #t "~1Tjoints: ~A~%" (-> this joints))
|
|
(format #t "~1Tanim-delay: ~D~%" (-> this anim-delay))
|
|
(format #t "~1Twidth: ~D~%" (-> this width))
|
|
(format #t "~1Theight: ~D~%" (-> this height))
|
|
(format #t "~1Tscale-y: ~f~%" (-> this scale-y))
|
|
(format #t "~1Tscale-x: ~f~%" (-> this scale-x))
|
|
(format #t "~1Tuser-data: ~D~%" (-> this user-data))
|
|
(format #t "~1Tsprites-info: ~A~%" (-> this sprites-info))
|
|
(format #t "~1Tcolor: ~D~%" (-> this color))
|
|
(format #t "~1Tstrings-info: ~A~%" (-> this strings-info))
|
|
(format #t "~1Ttext-ids: ~A~%" (-> this text-ids))
|
|
(format #t "~1Tselection-box-width: ~D~%" (-> this selection-box-width))
|
|
(format #t "~1Tselection-box-height: ~D~%" (-> this selection-box-height))
|
|
(format #t "~1Tselection-type: ~A~%" (-> this selection-type))
|
|
(format #t "~1Tselection-extra: ~D~%" (-> this selection-extra))
|
|
(format #t "~1Tselection-box-offset: #<vector @ #x~X>~%" (-> this selection-box-offset))
|
|
(format #t "~1Tselection-box-offset-x: ~f~%" (-> this selection-box-offset x))
|
|
(format #t "~1Tselection-box-offset-y: ~f~%" (-> this selection-box-offset y))
|
|
(format #t "~1Tselection-box-offset-z: ~f~%" (-> this selection-box-offset z))
|
|
(format #t "~1Tselection-box-offset-w: ~f~%" (-> this selection-box-offset w))
|
|
(format #t "~1Tselection-box-color: ~D~%" (-> this selection-box-color))
|
|
(format #t "~1Tdown-index-modifier: ~D~%" (-> this down-index-modifier))
|
|
(format #t "~1Tup-index-modifier: ~D~%" (-> this up-index-modifier))
|
|
(format #t "~1Tleft-index-modifier: ~D~%" (-> this left-index-modifier))
|
|
(format #t "~1Tright-index-modifier: ~D~%" (-> this right-index-modifier))
|
|
(format #t "~1Tselection-box-texture-index: ~D~%" (-> this selection-box-texture-index))
|
|
(format #t "~1Treset-pad: ~D~%" (-> this reset-pad))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type dropdown-item
|
|
(deftype dropdown-item (string-menu)
|
|
((selected basic)
|
|
(p-client-selection basic)
|
|
(prev-selection int32)
|
|
(enabled basic)
|
|
(selected-offset vector :inline)
|
|
)
|
|
(:methods
|
|
(dropdown-item-method-69 () none)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type dropdown-item
|
|
(defmethod inspect ((this dropdown-item))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(let ((t9-0 (method-of-type string-menu inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(format #t "~2Tselected: ~A~%" (-> this selected))
|
|
(format #t "~2Tp-client-selection: ~A~%" (-> this p-client-selection))
|
|
(format #t "~2Tprev-selection: ~D~%" (-> this prev-selection))
|
|
(format #t "~2Tenabled: ~A~%" (-> this enabled))
|
|
(format #t "~2Tselected-offset: #<vector @ #x~X>~%" (-> this selected-offset))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type item-list-selection-info
|
|
(deftype item-list-selection-info (dropdown-item-info)
|
|
((menu-options-info-sym basic)
|
|
(add-string uint32)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type item-list-selection-info
|
|
(defmethod inspect ((this item-list-selection-info))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'item-list-selection-info)
|
|
(format #t "~1Tmenu-type: ~A~%" (-> this menu-type))
|
|
(format #t "~1Tchildren: ~A~%" (-> this children))
|
|
(format #t "~1Tname-symbol: ~A~%" (-> this name-symbol))
|
|
(format #t "~1T3d-menu-type: ~A~%" (-> this 3d-menu-type))
|
|
(format #t "~1Ttrans-info: #<dropdown-trans-info @ #x~X>~%" (-> this trans-info))
|
|
(format #t "~1Tjoint-index: ~D~%" (-> this joint-index))
|
|
(format #t "~1Tjoint-index-2: ~D~%" (-> this joint-index-2))
|
|
(format #t "~1Tbox-index: ~D~%" (-> this box-index))
|
|
(format #t "~1Tflags: ~D~%" (-> this flags))
|
|
(format #t "~1Tjoints: ~A~%" (-> this joints))
|
|
(format #t "~1Tanim-delay: ~D~%" (-> this anim-delay))
|
|
(format #t "~1Twidth: ~D~%" (-> this width))
|
|
(format #t "~1Theight: ~D~%" (-> this height))
|
|
(format #t "~1Tscale-y: ~f~%" (-> this scale-y))
|
|
(format #t "~1Tscale-x: ~f~%" (-> this scale-x))
|
|
(format #t "~1Tuser-data: ~D~%" (-> this user-data))
|
|
(format #t "~1Tsprites-info: ~A~%" (-> this sprites-info))
|
|
(format #t "~1Tcolor: ~D~%" (-> this color))
|
|
(format #t "~1Tstrings-info: ~A~%" (-> this strings-info))
|
|
(format #t "~1Ttext-ids: ~A~%" (-> this text-ids))
|
|
(format #t "~1Tselection-box-width: ~D~%" (-> this selection-box-width))
|
|
(format #t "~1Tselection-box-height: ~D~%" (-> this selection-box-height))
|
|
(format #t "~1Tselection-type: ~A~%" (-> this selection-type))
|
|
(format #t "~1Tselection-extra: ~D~%" (-> this selection-extra))
|
|
(format #t "~1Tselection-box-offset: #<vector @ #x~X>~%" (-> this selection-box-offset))
|
|
(format #t "~1Tselection-box-offset-x: ~f~%" (-> this selection-box-offset x))
|
|
(format #t "~1Tselection-box-offset-y: ~f~%" (-> this selection-box-offset y))
|
|
(format #t "~1Tselection-box-offset-z: ~f~%" (-> this selection-box-offset z))
|
|
(format #t "~1Tselection-box-offset-w: ~f~%" (-> this selection-box-offset w))
|
|
(format #t "~1Tselection-box-color: ~D~%" (-> this selection-box-color))
|
|
(format #t "~1Tdown-index-modifier: ~D~%" (-> this down-index-modifier))
|
|
(format #t "~1Tup-index-modifier: ~D~%" (-> this up-index-modifier))
|
|
(format #t "~1Tleft-index-modifier: ~D~%" (-> this left-index-modifier))
|
|
(format #t "~1Tright-index-modifier: ~D~%" (-> this right-index-modifier))
|
|
(format #t "~1Tselection-box-texture-index: ~D~%" (-> this selection-box-texture-index))
|
|
(format #t "~1Treset-pad: ~D~%" (-> this reset-pad))
|
|
(format #t "~1Tmenu-options-info-sym: ~A~%" (-> this menu-options-info-sym))
|
|
(format #t "~1Tadd-string: ~D~%" (-> this add-string))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type item-list-selection
|
|
(deftype item-list-selection (dropdown-item)
|
|
((menu-options-info-ptr menu-selection-struct)
|
|
(selection-type basic)
|
|
(selection-index int32)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type item-list-selection
|
|
(defmethod inspect ((this item-list-selection))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(let ((t9-0 (method-of-type dropdown-item inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(format #t "~2Tmenu-options-info-ptr: #<menu-selection-struct @ #x~X>~%" (-> this menu-options-info-ptr))
|
|
(format #t "~2Tselection-type: ~A~%" (-> this selection-type))
|
|
(format #t "~2Tselection-index: ~D~%" (-> this selection-index))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type item-list-driver-selection
|
|
(deftype item-list-driver-selection (item-list-selection)
|
|
()
|
|
)
|
|
|
|
;; definition for method 3 of type item-list-driver-selection
|
|
(defmethod inspect ((this item-list-driver-selection))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(let ((t9-0 (method-of-type item-list-selection inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type item-num-selection-info
|
|
(deftype item-num-selection-info (item-list-selection-info)
|
|
((pad1 uint32)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type item-num-selection-info
|
|
(defmethod inspect ((this item-num-selection-info))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'item-num-selection-info)
|
|
(format #t "~1Tmenu-type: ~A~%" (-> this menu-type))
|
|
(format #t "~1Tchildren: ~A~%" (-> this children))
|
|
(format #t "~1Tname-symbol: ~A~%" (-> this name-symbol))
|
|
(format #t "~1T3d-menu-type: ~A~%" (-> this 3d-menu-type))
|
|
(format #t "~1Ttrans-info: #<dropdown-trans-info @ #x~X>~%" (-> this trans-info))
|
|
(format #t "~1Tjoint-index: ~D~%" (-> this joint-index))
|
|
(format #t "~1Tjoint-index-2: ~D~%" (-> this joint-index-2))
|
|
(format #t "~1Tbox-index: ~D~%" (-> this box-index))
|
|
(format #t "~1Tflags: ~D~%" (-> this flags))
|
|
(format #t "~1Tjoints: ~A~%" (-> this joints))
|
|
(format #t "~1Tanim-delay: ~D~%" (-> this anim-delay))
|
|
(format #t "~1Twidth: ~D~%" (-> this width))
|
|
(format #t "~1Theight: ~D~%" (-> this height))
|
|
(format #t "~1Tscale-y: ~f~%" (-> this scale-y))
|
|
(format #t "~1Tscale-x: ~f~%" (-> this scale-x))
|
|
(format #t "~1Tuser-data: ~D~%" (-> this user-data))
|
|
(format #t "~1Tsprites-info: ~A~%" (-> this sprites-info))
|
|
(format #t "~1Tcolor: ~D~%" (-> this color))
|
|
(format #t "~1Tstrings-info: ~A~%" (-> this strings-info))
|
|
(format #t "~1Ttext-ids: ~A~%" (-> this text-ids))
|
|
(format #t "~1Tselection-box-width: ~D~%" (-> this selection-box-width))
|
|
(format #t "~1Tselection-box-height: ~D~%" (-> this selection-box-height))
|
|
(format #t "~1Tselection-type: ~A~%" (-> this selection-type))
|
|
(format #t "~1Tselection-extra: ~D~%" (-> this selection-extra))
|
|
(format #t "~1Tselection-box-offset: #<vector @ #x~X>~%" (-> this selection-box-offset))
|
|
(format #t "~1Tselection-box-offset-x: ~f~%" (-> this selection-box-offset x))
|
|
(format #t "~1Tselection-box-offset-y: ~f~%" (-> this selection-box-offset y))
|
|
(format #t "~1Tselection-box-offset-z: ~f~%" (-> this selection-box-offset z))
|
|
(format #t "~1Tselection-box-offset-w: ~f~%" (-> this selection-box-offset w))
|
|
(format #t "~1Tselection-box-color: ~D~%" (-> this selection-box-color))
|
|
(format #t "~1Tdown-index-modifier: ~D~%" (-> this down-index-modifier))
|
|
(format #t "~1Tup-index-modifier: ~D~%" (-> this up-index-modifier))
|
|
(format #t "~1Tleft-index-modifier: ~D~%" (-> this left-index-modifier))
|
|
(format #t "~1Tright-index-modifier: ~D~%" (-> this right-index-modifier))
|
|
(format #t "~1Tselection-box-texture-index: ~D~%" (-> this selection-box-texture-index))
|
|
(format #t "~1Treset-pad: ~D~%" (-> this reset-pad))
|
|
(format #t "~1Tmenu-options-info-sym: ~A~%" (-> this menu-options-info-sym))
|
|
(format #t "~1Tadd-string: ~D~%" (-> this add-string))
|
|
(format #t "~1Tadd-string: ~D~%" (-> this add-string))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type menu-num-info
|
|
(deftype menu-num-info (structure)
|
|
((min int32)
|
|
(max int32)
|
|
(current-num int32)
|
|
(last-num int32)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type menu-num-info
|
|
(defmethod inspect ((this menu-num-info))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'menu-num-info)
|
|
(format #t "~1Tmin: ~D~%" (-> this min))
|
|
(format #t "~1Tmax: ~D~%" (-> this max))
|
|
(format #t "~1Tcurrent-num: ~D~%" (-> this current-num))
|
|
(format #t "~1Tlast-num: ~D~%" (-> this last-num))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type item-num-selection
|
|
(deftype item-num-selection (item-list-selection)
|
|
((num-selection int32)
|
|
(sound-id uint32)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type item-num-selection
|
|
(defmethod inspect ((this item-num-selection))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(let ((t9-0 (method-of-type item-list-selection inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(format #t "~2Tnum-selection: ~D~%" (-> this num-selection))
|
|
(format #t "~2Tsound-id: ~D~%" (-> this sound-id))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type item-num-max-selection
|
|
(deftype item-num-max-selection (item-num-selection)
|
|
((pad1 uint32)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type item-num-max-selection
|
|
(defmethod inspect ((this item-num-max-selection))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(let ((t9-0 (method-of-type item-num-selection inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(format #t "~2Tnum-selection: ~D~%" (-> this num-selection))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type games-list-selection
|
|
(deftype games-list-selection (string-menu)
|
|
((selection-index int8)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type games-list-selection
|
|
(defmethod inspect ((this games-list-selection))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(let ((t9-0 (method-of-type string-menu inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(format #t "~2Tselection-index: ~D~%" (-> this selection-index))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type player-ct-string-menu
|
|
(deftype player-ct-string-menu (string-menu)
|
|
()
|
|
)
|
|
|
|
;; definition for method 3 of type player-ct-string-menu
|
|
(defmethod inspect ((this player-ct-string-menu))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(let ((t9-0 (method-of-type string-menu inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type string-list-selection
|
|
(deftype string-list-selection (dropdown-item)
|
|
((selection-index int8)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type string-list-selection
|
|
(defmethod inspect ((this string-list-selection))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(let ((t9-0 (method-of-type dropdown-item inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(format #t "~2Tselection-index: ~D~%" (-> this selection-index))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type basic-list-selection-info
|
|
(deftype basic-list-selection-info (string-menu-info)
|
|
((menu-options-info-sym basic)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type basic-list-selection-info
|
|
(defmethod inspect ((this basic-list-selection-info))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'basic-list-selection-info)
|
|
(format #t "~1Tmenu-type: ~A~%" (-> this menu-type))
|
|
(format #t "~1Tchildren: ~A~%" (-> this children))
|
|
(format #t "~1Tname-symbol: ~A~%" (-> this name-symbol))
|
|
(format #t "~1T3d-menu-type: ~A~%" (-> this 3d-menu-type))
|
|
(format #t "~1Ttrans-info: #<transition-info @ #x~X>~%" (-> this trans-info))
|
|
(format #t "~1Tjoint-index: ~D~%" (-> this joint-index))
|
|
(format #t "~1Tjoint-index-2: ~D~%" (-> this joint-index-2))
|
|
(format #t "~1Tbox-index: ~D~%" (-> this box-index))
|
|
(format #t "~1Tflags: ~D~%" (-> this flags))
|
|
(format #t "~1Tjoints: ~A~%" (-> this joints))
|
|
(format #t "~1Tanim-delay: ~D~%" (-> this anim-delay))
|
|
(format #t "~1Twidth: ~D~%" (-> this width))
|
|
(format #t "~1Theight: ~D~%" (-> this height))
|
|
(format #t "~1Tscale-y: ~f~%" (-> this scale-y))
|
|
(format #t "~1Tscale-x: ~f~%" (-> this scale-x))
|
|
(format #t "~1Tuser-data: ~D~%" (-> this user-data))
|
|
(format #t "~1Tsprites-info: ~A~%" (-> this sprites-info))
|
|
(format #t "~1Tcolor: ~D~%" (-> this color))
|
|
(format #t "~1Tstrings-info: ~A~%" (-> this strings-info))
|
|
(format #t "~1Ttext-ids: ~A~%" (-> this text-ids))
|
|
(format #t "~1Tmenu-options-info-sym: ~A~%" (-> this menu-options-info-sym))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type basic-list-selection
|
|
(deftype basic-list-selection (string-menu)
|
|
((menu-options-info-ptr basic)
|
|
(selection-index int8)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type basic-list-selection
|
|
(defmethod inspect ((this basic-list-selection))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(let ((t9-0 (method-of-type string-menu inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(format #t "~2Tmenu-options-info-ptr: ~A~%" (-> this menu-options-info-ptr))
|
|
(format #t "~2Tselection-index: ~D~%" (-> this selection-index))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type big-text-menu-info
|
|
(deftype big-text-menu-info (sprite-menu-info)
|
|
((string-info string-info)
|
|
(text basic)
|
|
(off-2d-x float)
|
|
(off-2d-y float)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type big-text-menu-info
|
|
(defmethod inspect ((this big-text-menu-info))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'big-text-menu-info)
|
|
(format #t "~1Tmenu-type: ~A~%" (-> this menu-type))
|
|
(format #t "~1Tchildren: ~A~%" (-> this children))
|
|
(format #t "~1Tname-symbol: ~A~%" (-> this name-symbol))
|
|
(format #t "~1T3d-menu-type: ~A~%" (-> this 3d-menu-type))
|
|
(format #t "~1Ttrans-info: #<transition-info @ #x~X>~%" (-> this trans-info))
|
|
(format #t "~1Tjoint-index: ~D~%" (-> this joint-index))
|
|
(format #t "~1Tjoint-index-2: ~D~%" (-> this joint-index-2))
|
|
(format #t "~1Tbox-index: ~D~%" (-> this box-index))
|
|
(format #t "~1Tflags: ~D~%" (-> this flags))
|
|
(format #t "~1Tjoints: ~A~%" (-> this joints))
|
|
(format #t "~1Tanim-delay: ~D~%" (-> this anim-delay))
|
|
(format #t "~1Twidth: ~D~%" (-> this width))
|
|
(format #t "~1Theight: ~D~%" (-> this height))
|
|
(format #t "~1Tscale-y: ~f~%" (-> this scale-y))
|
|
(format #t "~1Tscale-x: ~f~%" (-> this scale-x))
|
|
(format #t "~1Tuser-data: ~D~%" (-> this user-data))
|
|
(format #t "~1Tsprites-info: ~A~%" (-> this sprites-info))
|
|
(format #t "~1Tcolor: ~D~%" (-> this color))
|
|
(format #t "~1Tstring-info: #<string-info @ #x~X>~%" (-> this string-info))
|
|
(format #t "~1Ttext: ~A~%" (-> this text))
|
|
(format #t "~1Toff-2d-x: ~f~%" (-> this off-2d-x))
|
|
(format #t "~1Toff-2d-y: ~f~%" (-> this off-2d-y))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type big-text-menu
|
|
(deftype big-text-menu (sprite-menu)
|
|
((big-text basic)
|
|
(vert-offset float)
|
|
(vert-extent float)
|
|
(temp-string basic)
|
|
)
|
|
(:methods
|
|
(big-text-menu-method-66 () none)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type big-text-menu
|
|
(defmethod inspect ((this big-text-menu))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(let ((t9-0 (method-of-type sprite-menu inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(format #t "~2Tbig-text: ~A~%" (-> this big-text))
|
|
(format #t "~2Tvert-offset: ~f~%" (-> this vert-offset))
|
|
(format #t "~2Tvert-extent: ~f~%" (-> this vert-extent))
|
|
(format #t "~2Ttemp-string: ~A~%" (-> this temp-string))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
0
|
|
|
|
|
|
|
|
|