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

;; definition of type grid-hash-word
(deftype grid-hash-word (uint8)
  ()
  )

;; definition of type grid-hash-box
(deftype grid-hash-box (structure)
  "Integer coordinate box for the spatial hash grid."
  ((min  int8  3)
   (max  int8  3)
   )
  :pack-me
  )

;; definition for method 3 of type grid-hash-box
(defmethod inspect ((this grid-hash-box))
  (when (not this)
    (set! this this)
    (goto cfg-4)
    )
  (format #t "[~8x] ~A~%" this 'grid-hash-box)
  (format #t "~1Tmin[3] @ #x~X~%" (-> this min))
  (format #t "~1Tmax[3] @ #x~X~%" (-> this max))
  (label cfg-4)
  this
  )

;; definition of type grid-hash
(deftype grid-hash (basic)
  ((work                 grid-hash-work)
   (search-box           grid-hash-box  :inline)
   (bucket-size          int16)
   (axis-scale           float          3)
   (dimension-array      int8           3)
   (vertical-cell-count  int8)
   (bucket-array         (pointer grid-hash-word))
   (box-min              float          3)
   (box-max              float          3)
   (object-count         int16)
   (bucket-count         int16)
   (min-cell-size        float)
   (bucket-memory-size   int32)
   (mem-bucket-array     (pointer grid-hash-word))
   (spr-bucket-array     (pointer grid-hash-word))
   (debug-draw           symbol)
   (use-scratch-ram      symbol)
   )
  (:methods
    (new (symbol type) _type_)
    (grid-hash-method-9 () none)
    (grid-hash-method-10 () none)
    (grid-hash-method-11 () none)
    (grid-hash-method-12 () none)
    (grid-hash-method-13 () none)
    (grid-hash-method-14 () none)
    (grid-hash-method-15 () none)
    (grid-hash-method-16 () none)
    (grid-hash-method-17 () none)
    (grid-hash-method-18 () none)
    (grid-hash-method-19 () none)
    (grid-hash-method-20 () none)
    (grid-hash-method-21 () none)
    (grid-hash-method-22 () none)
    (grid-hash-method-23 () none)
    (grid-hash-method-24 () none)
    (grid-hash-method-25 () none)
    (grid-hash-method-26 () none)
    )
  )

;; definition for method 3 of type grid-hash
(defmethod inspect ((this grid-hash))
  (when (not this)
    (set! this this)
    (goto cfg-4)
    )
  (format #t "[~8x] ~A~%" this (-> this type))
  (format #t "~1Twork: ~A~%" (-> this work))
  (format #t "~1Tsearch-box: #<grid-hash-box @ #x~X>~%" (-> this search-box))
  (format #t "~1Tbucket-size: ~D~%" (-> this bucket-size))
  (format #t "~1Taxis-scale[3] @ #x~X~%" (-> this axis-scale))
  (format #t "~1Tdimension-array[3] @ #x~X~%" (-> this dimension-array))
  (format #t "~1Tvertical-cell-count: ~D~%" (-> this vertical-cell-count))
  (format #t "~1Tbucket-array: #x~X~%" (-> this bucket-array))
  (format #t "~1Tbox-min[3] @ #x~X~%" (-> this box-min))
  (format #t "~1Tbox-max[3] @ #x~X~%" (-> this box-max))
  (format #t "~1Tobject-count: ~D~%" (-> this object-count))
  (format #t "~1Tbucket-count: ~D~%" (-> this bucket-count))
  (format #t "~1Tmin-cell-size: ~f~%" (-> this min-cell-size))
  (format #t "~1Tbucket-memory-size: ~D~%" (-> this bucket-memory-size))
  (format #t "~1Tmem-bucket-array: #x~X~%" (-> this mem-bucket-array))
  (format #t "~1Tspr-bucket-array: #x~X~%" (-> this spr-bucket-array))
  (format #t "~1Tdebug-draw: ~A~%" (-> this debug-draw))
  (format #t "~1Tuse-scratch-ram: ~A~%" (-> this use-scratch-ram))
  (label cfg-4)
  this
  )

;; definition of type find-nav-sphere-ids-params
(deftype find-nav-sphere-ids-params (structure)
  ((bsphere      sphere  :inline)
   (y-threshold  float)
   (len          int16)
   (max-len      int16)
   (mask         uint8)
   (array        (pointer uint8))
   )
  )

;; definition for method 3 of type find-nav-sphere-ids-params
(defmethod inspect ((this find-nav-sphere-ids-params))
  (when (not this)
    (set! this this)
    (goto cfg-4)
    )
  (format #t "[~8x] ~A~%" this 'find-nav-sphere-ids-params)
  (format #t "~1Tbsphere: #<sphere @ #x~X>~%" (-> this bsphere))
  (format #t "~1Ty-threshold: ~f~%" (-> this y-threshold))
  (format #t "~1Tlen: ~D~%" (-> this len))
  (format #t "~1Tmax-len: ~D~%" (-> this max-len))
  (format #t "~1Tmask: ~D~%" (-> this mask))
  (format #t "~1Tarray: #x~X~%" (-> this array))
  (label cfg-4)
  this
  )

;; definition of type sphere-hash
(deftype sphere-hash (grid-hash)
  "An extension of grid hash that holds spheres inside of the grid."
  ((sphere-array      (inline-array sphere))
   (max-object-count  int16)
   (pad               int16)
   (mem-sphere-array  uint32)
   (spr-sphere-array  uint32)
   )
  (:methods
    (new (symbol type) _type_)
    (sphere-hash-method-27 () none)
    (sphere-hash-method-28 () none)
    (sphere-hash-method-29 () none)
    (sphere-hash-method-30 () none)
    (sphere-hash-method-31 () none)
    (sphere-hash-method-32 () none)
    (sphere-hash-method-33 () none)
    (sphere-hash-method-34 () none)
    (sphere-hash-method-35 () none)
    )
  )

;; definition for method 3 of type sphere-hash
(defmethod inspect ((this sphere-hash))
  (when (not this)
    (set! this this)
    (goto cfg-4)
    )
  (format #t "[~8x] ~A~%" this (-> this type))
  (format #t "~1Twork: ~A~%" (-> this work))
  (format #t "~1Tsearch-box: #<grid-hash-box @ #x~X>~%" (-> this search-box))
  (format #t "~1Tbucket-size: ~D~%" (-> this bucket-size))
  (format #t "~1Taxis-scale[3] @ #x~X~%" (-> this axis-scale))
  (format #t "~1Tdimension-array[3] @ #x~X~%" (-> this dimension-array))
  (format #t "~1Tvertical-cell-count: ~D~%" (-> this vertical-cell-count))
  (format #t "~1Tbucket-array: #x~X~%" (-> this bucket-array))
  (format #t "~1Tbox-min[3] @ #x~X~%" (-> this box-min))
  (format #t "~1Tbox-max[3] @ #x~X~%" (-> this box-max))
  (format #t "~1Tobject-count: ~D~%" (-> this object-count))
  (format #t "~1Tbucket-count: ~D~%" (-> this bucket-count))
  (format #t "~1Tmin-cell-size: ~f~%" (-> this min-cell-size))
  (format #t "~1Tbucket-memory-size: ~D~%" (-> this bucket-memory-size))
  (format #t "~1Tmem-bucket-array: #x~X~%" (-> this mem-bucket-array))
  (format #t "~1Tspr-bucket-array: #x~X~%" (-> this spr-bucket-array))
  (format #t "~1Tdebug-draw: ~A~%" (-> this debug-draw))
  (format #t "~1Tuse-scratch-ram: ~A~%" (-> this use-scratch-ram))
  (format #t "~1Tsphere-array: #x~X~%" (-> this sphere-array))
  (format #t "~1Tmax-object-count: ~D~%" (-> this max-object-count))
  (format #t "~1Tpad: ~D~%" (-> this pad))
  (format #t "~1Tmem-sphere-array: #x~X~%" (-> this mem-sphere-array))
  (format #t "~1Tspr-sphere-array: #x~X~%" (-> this spr-sphere-array))
  (label cfg-4)
  this
  )

;; definition of type hash-object-info
(deftype hash-object-info (structure)
  ((object  basic)
   )
  )

;; definition for method 3 of type hash-object-info
(defmethod inspect ((this hash-object-info))
  (when (not this)
    (set! this this)
    (goto cfg-4)
    )
  (format #t "[~8x] ~A~%" this 'hash-object-info)
  (format #t "~1Tobject: ~A~%" (-> this object))
  (label cfg-4)
  this
  )

;; definition of type spatial-hash
(deftype spatial-hash (sphere-hash)
  "An extension of sphere-hash that associates an object with each sphere."
  ((object-array      (inline-array hash-object-info))
   (mem-object-array  (inline-array hash-object-info))
   (spr-object-array  (inline-array hash-object-info))
   )
  (:methods
    (new (symbol type) _type_)
    (spatial-hash-method-36 () none)
    (spatial-hash-method-37 () none)
    (spatial-hash-method-38 () none)
    (spatial-hash-method-39 () none)
    (spatial-hash-method-40 () none)
    (spatial-hash-method-41 () none)
    )
  )

;; definition for method 3 of type spatial-hash
(defmethod inspect ((this spatial-hash))
  (when (not this)
    (set! this this)
    (goto cfg-4)
    )
  (format #t "[~8x] ~A~%" this (-> this type))
  (format #t "~1Twork: ~A~%" (-> this work))
  (format #t "~1Tsearch-box: #<grid-hash-box @ #x~X>~%" (-> this search-box))
  (format #t "~1Tbucket-size: ~D~%" (-> this bucket-size))
  (format #t "~1Taxis-scale[3] @ #x~X~%" (-> this axis-scale))
  (format #t "~1Tdimension-array[3] @ #x~X~%" (-> this dimension-array))
  (format #t "~1Tvertical-cell-count: ~D~%" (-> this vertical-cell-count))
  (format #t "~1Tbucket-array: #x~X~%" (-> this bucket-array))
  (format #t "~1Tbox-min[3] @ #x~X~%" (-> this box-min))
  (format #t "~1Tbox-max[3] @ #x~X~%" (-> this box-max))
  (format #t "~1Tobject-count: ~D~%" (-> this object-count))
  (format #t "~1Tbucket-count: ~D~%" (-> this bucket-count))
  (format #t "~1Tmin-cell-size: ~f~%" (-> this min-cell-size))
  (format #t "~1Tbucket-memory-size: ~D~%" (-> this bucket-memory-size))
  (format #t "~1Tmem-bucket-array: #x~X~%" (-> this mem-bucket-array))
  (format #t "~1Tspr-bucket-array: #x~X~%" (-> this spr-bucket-array))
  (format #t "~1Tdebug-draw: ~A~%" (-> this debug-draw))
  (format #t "~1Tuse-scratch-ram: ~A~%" (-> this use-scratch-ram))
  (format #t "~1Tsphere-array: #x~X~%" (-> this sphere-array))
  (format #t "~1Tmax-object-count: ~D~%" (-> this max-object-count))
  (format #t "~1Tpad: ~D~%" (-> this pad))
  (format #t "~1Tmem-sphere-array: #x~X~%" (-> this mem-sphere-array))
  (format #t "~1Tspr-sphere-array: #x~X~%" (-> this spr-sphere-array))
  (format #t "~1Tobject-array: #x~X~%" (-> this object-array))
  (format #t "~1Tmem-object-array: #x~X~%" (-> this mem-object-array))
  (format #t "~1Tspr-object-array: #x~X~%" (-> this spr-object-array))
  (label cfg-4)
  this
  )

;; failed to figure out what this is:
0