;;-*-Lisp-*-
(in-package goal)

;; definition of type background-work
(deftype background-work (basic)
  ((tfrag-tree-count              int32                          :offset-assert   4)
   (tfrag-trees                   drawable-tree-tfrag          8 :offset-assert   8)
   (tfrag-levels                  level                        8 :offset-assert  40)
   (trans-tfrag-tree-count        int32                          :offset-assert  72)
   (trans-tfrag-trees             drawable-tree-trans-tfrag    8 :offset-assert  76)
   (trans-tfrag-levels            level                        8 :offset-assert 108)
   (dirt-tfrag-tree-count         int32                          :offset-assert 140)
   (dirt-tfrag-trees              drawable-tree-dirt-tfrag     8 :offset-assert 144)
   (dirt-tfrag-levels             level                        8 :offset-assert 176)
   (ice-tfrag-tree-count          int32                          :offset-assert 208)
   (ice-tfrag-trees               drawable-tree-ice-tfrag      8 :offset-assert 212)
   (ice-tfrag-levels              level                        8 :offset-assert 244)
   (lowres-tfrag-tree-count       int32                          :offset-assert 276)
   (lowres-tfrag-trees            drawable-tree-lowres-tfrag   8 :offset-assert 280)
   (lowres-tfrag-levels           level                        8 :offset-assert 312)
   (lowres-trans-tfrag-tree-count int32                          :offset-assert 344)
   (lowres-trans-tfrag-trees      drawable-tree-trans-tfrag    8 :offset-assert 348)
   (lowres-trans-tfrag-levels     level                        8 :offset-assert 380)
   (shrub-tree-count              int32                          :offset-assert 412)
   (shrub-trees                   drawable-tree-instance-shrub 8 :offset-assert 416)
   (shrub-levels                  level                        8 :offset-assert 448)
   (tie-tree-count                int32                          :offset-assert 480)
   (tie-trees                     drawable-tree-instance-tie   8 :offset-assert 484)
   (tie-levels                    level                        8 :offset-assert 516)
   (tie-generic                   basic                        8 :offset-assert 548)
   (wait-to-vu0                   uint32                         :offset-assert 580)
   )
  :method-count-assert 9
  :size-assert         #x248
  :flag-assert         #x900000248
  )

;; definition for method 3 of type background-work
(defmethod inspect background-work ((obj background-work))
  (format #t "[~8x] ~A~%" obj (-> obj type))
  (format #t "~Ttfrag-tree-count: ~D~%" (-> obj tfrag-tree-count))
  (format #t "~Ttfrag-trees[8] @ #x~X~%" (-> obj tfrag-trees))
  (format #t "~Ttfrag-levels[8] @ #x~X~%" (-> obj tfrag-levels))
  (format #t "~Ttrans-tfrag-tree-count: ~D~%" (-> obj trans-tfrag-tree-count))
  (format #t "~Ttrans-tfrag-trees[8] @ #x~X~%" (-> obj trans-tfrag-trees))
  (format #t "~Ttrans-tfrag-levels[8] @ #x~X~%" (-> obj trans-tfrag-levels))
  (format #t "~Tdirt-tfrag-tree-count: ~D~%" (-> obj dirt-tfrag-tree-count))
  (format #t "~Tdirt-tfrag-trees[8] @ #x~X~%" (-> obj dirt-tfrag-trees))
  (format #t "~Tdirt-tfrag-levels[8] @ #x~X~%" (-> obj dirt-tfrag-levels))
  (format #t "~Tice-tfrag-tree-count: ~D~%" (-> obj ice-tfrag-tree-count))
  (format #t "~Tice-tfrag-trees[8] @ #x~X~%" (-> obj ice-tfrag-trees))
  (format #t "~Tice-tfrag-levels[8] @ #x~X~%" (-> obj ice-tfrag-levels))
  (format #t "~Tlowres-tfrag-tree-count: ~D~%" (-> obj lowres-tfrag-tree-count))
  (format #t "~Tlowres-tfrag-trees[8] @ #x~X~%" (-> obj lowres-tfrag-trees))
  (format #t "~Tlowres-tfrag-levels[8] @ #x~X~%" (-> obj lowres-tfrag-levels))
  (format
   #t
   "~Tlowres-trans-tfrag-tree-count: ~D~%"
   (-> obj lowres-trans-tfrag-tree-count)
   )
  (format
   #t
   "~Tlowres-trans-tfrag-trees[8] @ #x~X~%"
   (-> obj lowres-trans-tfrag-trees)
   )
  (format
   #t
   "~Tlowres-trans-tfrag-levels[8] @ #x~X~%"
   (-> obj lowres-trans-tfrag-levels)
   )
  (format #t "~Tshrub-tree-count: ~D~%" (-> obj shrub-tree-count))
  (format #t "~Tshrub-trees[8] @ #x~X~%" (-> obj shrub-trees))
  (format #t "~Tshrub-levels[8] @ #x~X~%" (-> obj shrub-levels))
  (format #t "~Ttie-tree-count: ~D~%" (-> obj tie-tree-count))
  (format #t "~Ttie-trees[8] @ #x~X~%" (-> obj tie-trees))
  (format #t "~Ttie-levels[8] @ #x~X~%" (-> obj tie-levels))
  (format #t "~Ttie-generic[8] @ #x~X~%" (-> obj tie-generic))
  (format #t "~Twait-to-vu0: ~D~%" (-> obj wait-to-vu0))
  obj
  )

;; failed to figure out what this is:
0