mirror of
https://github.com/open-goal/jak-project
synced 2026-05-25 15:25:31 -04:00
water111
478 lines
25 KiB
Common Lisp
Vendored
Generated
478 lines
25 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; definition of type level-vis-info
|
|
(deftype level-vis-info (basic)
|
|
((level symbol :offset-assert 4)
|
|
(from-level symbol :offset-assert 8)
|
|
(from-bsp bsp-header :offset-assert 12)
|
|
(flags uint32 :offset-assert 16)
|
|
(length uint32 :offset-assert 20)
|
|
(allocated-length uint32 :offset-assert 24)
|
|
(dictionary-length uint32 :offset-assert 28)
|
|
(dictionary uint32 :offset-assert 32)
|
|
(string-block uint32 :offset-assert 36)
|
|
(ramdisk uint32 :offset-assert 40)
|
|
(vis-bits pointer :offset-assert 44)
|
|
(current-vis-string uint32 :offset-assert 48)
|
|
(vis-string uint32 :dynamic :offset-assert 52)
|
|
)
|
|
:method-count-assert 9
|
|
:size-assert #x34
|
|
:flag-assert #x900000034
|
|
)
|
|
|
|
;; definition for method 3 of type level-vis-info
|
|
(defmethod inspect level-vis-info ((obj level-vis-info))
|
|
(format #t "[~8x] ~A~%" obj (-> obj type))
|
|
(format #t "~Tlevel: ~A~%" (-> obj level))
|
|
(format #t "~Tfrom-level: ~A~%" (-> obj from-level))
|
|
(format #t "~Tfrom-bsp: ~A~%" (-> obj from-bsp))
|
|
(format #t "~Tflags: #x~X~%" (-> obj flags))
|
|
(format #t "~Tlength: ~D~%" (-> obj length))
|
|
(format #t "~Tallocated-length: ~D~%" (-> obj allocated-length))
|
|
(format #t "~Tdictionary-length: ~D~%" (-> obj dictionary-length))
|
|
(format #t "~Tdictionary: #x~X~%" (-> obj dictionary))
|
|
(format #t "~Tstring-block: #x~X~%" (-> obj string-block))
|
|
(format #t "~Tramdisk: ~D~%" (-> obj ramdisk))
|
|
(format #t "~Tvis-bits: #x~X~%" (-> obj vis-bits))
|
|
(format #t "~Tcurrent-vis-string: ~D~%" (-> obj current-vis-string))
|
|
(format #t "~Tvis-string[0] @ #x~X~%" (-> obj vis-string))
|
|
obj
|
|
)
|
|
|
|
;; definition for method 5 of type level-vis-info
|
|
;; INFO: Return type mismatch uint vs int.
|
|
(defmethod asize-of level-vis-info ((obj level-vis-info))
|
|
(the-as int (+ (-> level-vis-info size) (-> obj dictionary-length)))
|
|
)
|
|
|
|
;; definition of type level-load-info
|
|
(deftype level-load-info (basic)
|
|
((name-list symbol 3 :offset-assert 4)
|
|
(index int32 :offset-assert 16)
|
|
(name symbol :offset 4)
|
|
(visname symbol :offset 8)
|
|
(nickname symbol :offset 12)
|
|
(packages pair :offset-assert 20)
|
|
(sound-banks pair :offset-assert 24)
|
|
(music-bank symbol :offset-assert 28)
|
|
(ambient-sounds pair :offset-assert 32)
|
|
(mood symbol :offset-assert 36)
|
|
(mood-func symbol :offset-assert 40)
|
|
(ocean symbol :offset-assert 44)
|
|
(sky symbol :offset-assert 48)
|
|
(sun-fade float :offset-assert 52)
|
|
(continues pair :offset-assert 56)
|
|
(tasks pair :offset-assert 60)
|
|
(priority int32 :offset-assert 64)
|
|
(load-commands pair :offset-assert 68)
|
|
(alt-load-commands pair :offset-assert 72)
|
|
(bsp-mask uint64 :offset-assert 80)
|
|
(bsphere sphere :offset-assert 88)
|
|
(buzzer int32 :offset-assert 92)
|
|
(bottom-height meters :offset-assert 96)
|
|
(run-packages pair :offset-assert 100)
|
|
(prev-level basic :offset-assert 104)
|
|
(next-level basic :offset-assert 108)
|
|
(wait-for-load symbol :offset-assert 112)
|
|
)
|
|
:method-count-assert 9
|
|
:size-assert #x74
|
|
:flag-assert #x900000074
|
|
)
|
|
|
|
;; definition for method 3 of type level-load-info
|
|
(defmethod inspect level-load-info ((obj level-load-info))
|
|
(format #t "[~8x] ~A~%" obj (-> obj type))
|
|
(format #t "~Tname-list[3] @ #x~X~%" (&-> obj name))
|
|
(format #t "~Tindex: ~D~%" (-> obj index))
|
|
(format #t "~Tname: ~A~%" (-> obj name))
|
|
(format #t "~Tvisname: ~A~%" (-> obj visname))
|
|
(format #t "~Tnickname: ~A~%" (-> obj nickname))
|
|
(format #t "~Tpackages: ~A~%" (-> obj packages))
|
|
(format #t "~Tsound-banks: ~A~%" (-> obj sound-banks))
|
|
(format #t "~Tmusic-bank: ~A~%" (-> obj music-bank))
|
|
(format #t "~Tambient-sounds: ~A~%" (-> obj ambient-sounds))
|
|
(format #t "~Tmood: ~A~%" (-> obj mood))
|
|
(format #t "~Tmood-func: ~A~%" (-> obj mood-func))
|
|
(format #t "~Tocean: ~A~%" (-> obj ocean))
|
|
(format #t "~Tsky: ~A~%" (-> obj sky))
|
|
(format #t "~Tsun-fade: ~f~%" (-> obj sun-fade))
|
|
(format #t "~Tcontinues: ~A~%" (-> obj continues))
|
|
(format #t "~Ttasks: ~A~%" (-> obj tasks))
|
|
(format #t "~Tpriority: ~D~%" (-> obj priority))
|
|
(format #t "~Tload-commands: ~A~%" (-> obj load-commands))
|
|
(format #t "~Talt-load-commands: ~A~%" (-> obj alt-load-commands))
|
|
(format #t "~Tbsp-mask: ~D~%" (-> obj bsp-mask))
|
|
(format #t "~Tbsphere: #<sphere @ #x~X>~%" (-> obj bsphere))
|
|
(format #t "~Tbuzzer: ~D~%" (-> obj buzzer))
|
|
(format #t "~Tbottom-height: (meters ~m)~%" (-> obj bottom-height))
|
|
(format #t "~Trun-packages: ~A~%" (-> obj run-packages))
|
|
(format #t "~Tprev-level: ~A~%" (-> obj prev-level))
|
|
(format #t "~Tnext-level: ~A~%" (-> obj next-level))
|
|
(format #t "~Twait-for-load: ~A~%" (-> obj wait-for-load))
|
|
obj
|
|
)
|
|
|
|
;; definition of type login-state
|
|
(deftype login-state (basic)
|
|
((state int32 :offset-assert 4)
|
|
(pos uint32 :offset-assert 8)
|
|
(elts uint32 :offset-assert 12)
|
|
(elt drawable 16 :offset-assert 16)
|
|
)
|
|
:method-count-assert 9
|
|
:size-assert #x50
|
|
:flag-assert #x900000050
|
|
)
|
|
|
|
;; definition for method 3 of type login-state
|
|
(defmethod inspect login-state ((obj login-state))
|
|
(format #t "[~8x] ~A~%" obj (-> obj type))
|
|
(format #t "~Tstate: ~D~%" (-> obj state))
|
|
(format #t "~Tpos: ~D~%" (-> obj pos))
|
|
(format #t "~Telts: ~D~%" (-> obj elts))
|
|
(format #t "~Telt[16] @ #x~X~%" (-> obj elt))
|
|
obj
|
|
)
|
|
|
|
;; definition of type level
|
|
(deftype level (basic)
|
|
((name symbol :offset-assert 4)
|
|
(load-name symbol :offset-assert 8)
|
|
(nickname symbol :offset-assert 12)
|
|
(index int32 :offset-assert 16)
|
|
(status symbol :offset-assert 20)
|
|
(other level :offset-assert 24)
|
|
(heap kheap :inline :offset-assert 32)
|
|
(bsp bsp-header :offset-assert 48)
|
|
(art-group load-dir-art-group :offset-assert 52)
|
|
(info level-load-info :offset-assert 56)
|
|
(texture-page texture-page 9 :offset-assert 60)
|
|
(loaded-texture-page texture-page 16 :offset-assert 96)
|
|
(loaded-texture-page-count int32 :offset-assert 160)
|
|
(foreground-sink-group dma-foreground-sink-group 3 :inline :offset-assert 176)
|
|
(foreground-draw-engine engine 3 :offset-assert 272)
|
|
(entity entity-links-array :offset-assert 284)
|
|
(ambient entity-ambient-data-array :offset-assert 288)
|
|
(closest-object float 9 :offset-assert 292)
|
|
(upload-size int32 9 :offset-assert 328)
|
|
(level-distance meters :offset-assert 364)
|
|
(inside-sphere? symbol :offset-assert 368)
|
|
(inside-boxes? symbol :offset-assert 372)
|
|
(display? symbol :offset-assert 376)
|
|
(meta-inside? symbol :offset-assert 380)
|
|
(mood mood-context :offset-assert 384)
|
|
(mood-func (function mood-context float int none) :offset-assert 388)
|
|
(vis-bits pointer :offset-assert 392)
|
|
(all-visible? symbol :offset-assert 396)
|
|
(force-all-visible? symbol :offset-assert 400)
|
|
(linking basic :offset-assert 404)
|
|
(vis-info level-vis-info 8 :offset-assert 408)
|
|
(vis-self-index int32 :offset-assert 440)
|
|
(vis-adj-index int32 :offset-assert 444)
|
|
(vis-buffer uint8 2048 :offset-assert 448)
|
|
(mem-usage-block memory-usage-block :offset-assert 2496)
|
|
(mem-usage int32 :offset-assert 2500)
|
|
(code-memory-start pointer :offset-assert 2504)
|
|
(code-memory-end pointer :offset-assert 2508)
|
|
(texture-mask uint32 9 :offset-assert 2512)
|
|
(force-inside? symbol :offset-assert 2548)
|
|
(pad uint8 56 :offset-assert 2552)
|
|
)
|
|
:method-count-assert 29
|
|
:size-assert #xa30
|
|
:flag-assert #x1d00000a30
|
|
(:methods
|
|
(deactivate (_type_) _type_ 9)
|
|
(is-object-visible? (_type_ int) symbol 10)
|
|
(add-irq-to-tex-buckets! (_type_) none 11)
|
|
(unload! (_type_) _type_ 12)
|
|
(bsp-name (_type_) symbol 13)
|
|
(compute-memory-usage (_type_ object) memory-usage-block 14)
|
|
(point-in-boxes? (_type_ vector) symbol 15)
|
|
(update-vis! (_type_ level-vis-info uint uint) symbol 16)
|
|
(load-continue (_type_) _type_ 17)
|
|
(load-begin (_type_) _type_ 18)
|
|
(login-begin (_type_) _type_ 19)
|
|
(vis-load (_type_) uint 20)
|
|
(dummy-21 (_type_) none 21)
|
|
(birth (_type_) _type_ 22)
|
|
(level-status-set! (_type_ symbol) _type_ 23)
|
|
(load-required-packages (_type_) _type_ 24)
|
|
(init-vis (_type_) int 25)
|
|
(vis-clear (_type_) int 26)
|
|
(debug-print-splitbox (_type_ vector string) none 27)
|
|
(art-group-get-by-name (_type_ string) art-group 28)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type level
|
|
(defmethod inspect level ((obj level))
|
|
(format #t "[~8x] ~A~%" obj (-> obj type))
|
|
(format #t "~Tname: ~A~%" (-> obj name))
|
|
(format #t "~Tload-name: ~A~%" (-> obj load-name))
|
|
(format #t "~Tnickname: ~A~%" (-> obj nickname))
|
|
(format #t "~Tindex: ~D~%" (-> obj index))
|
|
(format #t "~Tstatus: ~A~%" (-> obj status))
|
|
(format #t "~Tother: ~A~%" (-> obj other))
|
|
(format #t "~Theap: #<kheap @ #x~X>~%" (-> obj heap))
|
|
(format #t "~Tbsp: ~A~%" (-> obj bsp))
|
|
(format #t "~Tart-group: ~A~%" (-> obj art-group))
|
|
(format #t "~Tinfo: ~A~%" (-> obj info))
|
|
(format #t "~Ttexture-page[9] @ #x~X~%" (-> obj texture-page))
|
|
(format #t "~Tloaded-texture-page[16] @ #x~X~%" (-> obj loaded-texture-page))
|
|
(format #t "~Tloaded-texture-page-count: ~D~%" (-> obj loaded-texture-page-count))
|
|
(format #t "~Tforeground-sink-group[3] @ #x~X~%" (-> obj foreground-sink-group))
|
|
(format #t "~Tforeground-draw-engine[3] @ #x~X~%" (-> obj foreground-draw-engine))
|
|
(format #t "~Tentity: ~A~%" (-> obj entity))
|
|
(format #t "~Tambient: ~A~%" (-> obj ambient))
|
|
(format #t "~Tclosest-object[9] @ #x~X~%" (-> obj closest-object))
|
|
(format #t "~Tupload-size[9] @ #x~X~%" (-> obj upload-size))
|
|
(format #t "~Tlevel-distance: (meters ~m)~%" (-> obj level-distance))
|
|
(format #t "~Tinside-sphere?: ~A~%" (-> obj inside-sphere?))
|
|
(format #t "~Tinside-boxes?: ~A~%" (-> obj inside-boxes?))
|
|
(format #t "~Tdisplay?: ~A~%" (-> obj display?))
|
|
(format #t "~Tmeta-inside?: ~A~%" (-> obj meta-inside?))
|
|
(format #t "~Tmood: ~A~%" (-> obj mood))
|
|
(format #t "~Tmood-func: ~A~%" (-> obj mood-func))
|
|
(format #t "~Tvis-bits: #x~X~%" (-> obj vis-bits))
|
|
(format #t "~Tall-visible?: ~A~%" (-> obj all-visible?))
|
|
(format #t "~Tforce-all-visible?: ~A~%" (-> obj force-all-visible?))
|
|
(format #t "~Tlinking: ~A~%" (-> obj linking))
|
|
(format #t "~Tvis-info[8] @ #x~X~%" (-> obj vis-info))
|
|
(format #t "~Tvis-self-index: ~D~%" (-> obj vis-self-index))
|
|
(format #t "~Tvis-adj-index: ~D~%" (-> obj vis-adj-index))
|
|
(format #t "~Tvis-buffer[2048] @ #x~X~%" (-> obj vis-buffer))
|
|
(format #t "~Tmem-usage-block: ~A~%" (-> obj mem-usage-block))
|
|
(format #t "~Tmem-usage: ~D~%" (-> obj mem-usage))
|
|
(format #t "~Tcode-memory-start: #x~X~%" (-> obj code-memory-start))
|
|
(format #t "~Tcode-memory-end: #x~X~%" (-> obj code-memory-end))
|
|
(format #t "~Ttexture-mask[9] @ #x~X~%" (-> obj texture-mask))
|
|
(format #t "~Tforce-inside?: ~A~%" (-> obj force-inside?))
|
|
obj
|
|
)
|
|
|
|
;; definition of type level-group
|
|
(deftype level-group (basic)
|
|
((length int32 :offset-assert 4)
|
|
(log-in-level-bsp bsp-header :offset-assert 8)
|
|
(loading-level level :offset-assert 12)
|
|
(entity-link entity-links :offset-assert 16)
|
|
(border? basic :offset-assert 20)
|
|
(vis? basic :offset-assert 24)
|
|
(want-level basic :offset-assert 28)
|
|
(receiving-level basic :offset-assert 32)
|
|
(load-commands pair :offset-assert 36)
|
|
(play? symbol :offset-assert 40)
|
|
(_hack-pad uint8 :offset 90)
|
|
(level0 level :inline :offset-assert 96)
|
|
(level1 level :inline :offset-assert 2704)
|
|
(level-default level :inline :offset-assert 5312)
|
|
(level level 3 :inline :offset 96)
|
|
(data level 3 :inline :offset 96)
|
|
(pad uint32 :offset-assert 7920)
|
|
)
|
|
:method-count-assert 27
|
|
:size-assert #x1ef4
|
|
:flag-assert #x1b00001ef4
|
|
(:methods
|
|
(level-get (_type_ symbol) level 9)
|
|
(level-get-with-status (_type_ symbol) level 10)
|
|
(level-get-for-use (_type_ symbol symbol) level 11)
|
|
(activate-levels! (_type_) int 12)
|
|
(debug-print-entities (_type_ symbol type) none 13)
|
|
(debug-draw-actors (_type_ symbol) none 14)
|
|
(actors-update (_type_) object 15)
|
|
(level-update (_type_) int 16)
|
|
(level-get-target-inside (_type_) level 17)
|
|
(alloc-levels! (_type_ symbol) int 18)
|
|
(load-commands-set! (_type_ pair) pair 19)
|
|
(art-group-get-by-name (_type_ string) art-group 20)
|
|
(load-command-get-index (_type_ symbol int) pair 21)
|
|
(update-vis-volumes (_type_) none 22)
|
|
(update-vis-volumes-from-nav-mesh (_type_) none 23)
|
|
(print-volume-sizes (_type_) none 24)
|
|
(level-status (_type_ symbol) symbol 25)
|
|
(level-get-most-disposable (_type_) level 26)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type level-group
|
|
(defmethod inspect level-group ((obj level-group))
|
|
(format #t "[~8x] ~A~%" obj (-> obj type))
|
|
(format #t "~Tlength: ~D~%" (-> obj length))
|
|
(format #t "~Tentity-link: ~`entity-links`P~%" (-> obj entity-link))
|
|
(format #t "~Tborder?: ~A~%" (-> obj border?))
|
|
(format #t "~Tvis?: ~A~%" (-> obj vis?))
|
|
(format #t "~Twant-level: ~A~%" (-> obj want-level))
|
|
(format #t "~Treceiving-level: ~A~%" (-> obj receiving-level))
|
|
(format #t "~Tload-commands: ~A~%" (-> obj load-commands))
|
|
(format #t "~Tplay?: ~A~%" (-> obj play?))
|
|
(format #t "~Tlevel[3] @ #x~X~%" (-> obj level0))
|
|
(format #t "~Tdata[3] @ #x~X~%" (-> obj level0))
|
|
(format #t "~Tlevel0: ~`level`P~%" (-> obj level0))
|
|
(format #t "~Tlevel1: ~`level`P~%" (-> obj level1))
|
|
(format #t "~Tlevel-default: ~`level`P~%" (-> obj level-default))
|
|
obj
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(if (zero? *level*)
|
|
(set! *level*
|
|
(new 'static 'level-group
|
|
:length 2
|
|
:log-in-level-bsp #f
|
|
:loading-level #f
|
|
:entity-link #f
|
|
:border? #f
|
|
:want-level #f
|
|
:load-commands '()
|
|
:play? #f
|
|
:level0
|
|
(new 'static 'level
|
|
:name #f
|
|
:status 'inactive
|
|
:foreground-sink-group
|
|
(new 'static 'inline-array dma-foreground-sink-group 3
|
|
(new 'static 'dma-foreground-sink-group
|
|
:sink
|
|
(new 'static 'array dma-foreground-sink 3
|
|
(new 'static 'dma-foreground-sink :bucket (bucket-id merc-tfrag-tex0))
|
|
(new 'static 'generic-dma-foreground-sink :bucket (bucket-id gmerc-tfrag-tex) :foreground-output-bucket 1)
|
|
)
|
|
)
|
|
(new 'static 'dma-foreground-sink-group
|
|
:sink
|
|
(new 'static 'array dma-foreground-sink 3
|
|
(new 'static 'dma-foreground-sink :bucket (bucket-id bucket-49) :foreground-texture-page 1)
|
|
(new 'static 'generic-dma-foreground-sink
|
|
:bucket (bucket-id bucket-50)
|
|
:foreground-texture-page 1
|
|
:foreground-output-bucket 1
|
|
)
|
|
)
|
|
)
|
|
(new 'static 'dma-foreground-sink-group
|
|
:sink
|
|
(new 'static 'array dma-foreground-sink 3
|
|
(new 'static 'dma-foreground-sink :bucket (bucket-id bucket-58) :foreground-texture-page 2)
|
|
(new 'static 'generic-dma-foreground-sink
|
|
:bucket (bucket-id bucket-59)
|
|
:foreground-texture-page 2
|
|
:foreground-output-bucket 1
|
|
)
|
|
)
|
|
)
|
|
)
|
|
:inside-sphere? #f
|
|
:inside-boxes? #f
|
|
:force-inside? #f
|
|
)
|
|
:level1
|
|
(new 'static 'level
|
|
:name #f
|
|
:index 1
|
|
:status 'inactive
|
|
:foreground-sink-group
|
|
(new 'static 'inline-array dma-foreground-sink-group 3
|
|
(new 'static 'dma-foreground-sink-group
|
|
:sink
|
|
(new 'static 'array dma-foreground-sink 3
|
|
(new 'static 'dma-foreground-sink :bucket (bucket-id merc-tfrag-tex1) :foreground-texture-level 1)
|
|
(new 'static 'generic-dma-foreground-sink
|
|
:bucket (bucket-id gmerc-tfrag-tex1)
|
|
:foreground-texture-level 1
|
|
:foreground-output-bucket 1
|
|
)
|
|
)
|
|
)
|
|
(new 'static 'dma-foreground-sink-group :sink (new 'static 'array dma-foreground-sink 3
|
|
(new 'static 'dma-foreground-sink
|
|
:bucket (bucket-id bucket-52)
|
|
:foreground-texture-page 1
|
|
:foreground-texture-level 1
|
|
)
|
|
(new 'static 'generic-dma-foreground-sink
|
|
:bucket (bucket-id bucket-53)
|
|
:foreground-texture-page 1
|
|
:foreground-texture-level 1
|
|
:foreground-output-bucket 1
|
|
)
|
|
)
|
|
)
|
|
(new 'static 'dma-foreground-sink-group :sink (new 'static 'array dma-foreground-sink 3
|
|
(new 'static 'dma-foreground-sink
|
|
:bucket (bucket-id bucket-61)
|
|
:foreground-texture-page 2
|
|
:foreground-texture-level 1
|
|
)
|
|
(new 'static 'generic-dma-foreground-sink
|
|
:bucket (bucket-id bucket-62)
|
|
:foreground-texture-page 2
|
|
:foreground-texture-level 1
|
|
:foreground-output-bucket 1
|
|
)
|
|
)
|
|
)
|
|
)
|
|
:inside-sphere? #f
|
|
:inside-boxes? #f
|
|
:force-inside? #f
|
|
)
|
|
:level-default
|
|
(new 'static 'level
|
|
:name 'default
|
|
:index 2
|
|
:status 'reserved
|
|
:foreground-sink-group
|
|
(new 'static 'inline-array dma-foreground-sink-group 3
|
|
(new 'static 'dma-foreground-sink-group
|
|
:sink
|
|
(new 'static 'array dma-foreground-sink 3
|
|
(new 'static 'dma-foreground-sink :bucket (bucket-id bucket-45) :foreground-texture-level 2)
|
|
(new 'static 'generic-dma-foreground-sink
|
|
:bucket (bucket-id bucket-46)
|
|
:foreground-texture-level 2
|
|
:foreground-output-bucket 1
|
|
)
|
|
)
|
|
)
|
|
(new 'static 'dma-foreground-sink-group :sink (new 'static 'array dma-foreground-sink 3
|
|
(new 'static 'dma-foreground-sink
|
|
:bucket (bucket-id bucket-55)
|
|
:foreground-texture-page 1
|
|
:foreground-texture-level 2
|
|
)
|
|
(new 'static 'generic-dma-foreground-sink
|
|
:bucket (bucket-id bucket-56)
|
|
:foreground-texture-page 1
|
|
:foreground-texture-level 2
|
|
:foreground-output-bucket 1
|
|
)
|
|
)
|
|
)
|
|
(new 'static 'dma-foreground-sink-group :sink (new 'static 'array dma-foreground-sink 3
|
|
(new 'static 'dma-foreground-sink
|
|
:bucket (bucket-id bucket-58)
|
|
:foreground-texture-page 2
|
|
:foreground-texture-level 2
|
|
)
|
|
(new 'static 'generic-dma-foreground-sink
|
|
:bucket (bucket-id bucket-59)
|
|
:foreground-texture-page 2
|
|
:foreground-texture-level 2
|
|
:foreground-output-bucket 1
|
|
)
|
|
)
|
|
)
|
|
)
|
|
:inside-sphere? #f
|
|
:inside-boxes? #f
|
|
:force-inside? #f
|
|
)
|
|
)
|
|
)
|
|
)
|