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

;; definition for method 10 of type drawable-tree-array
;; INFO: Return type mismatch int vs none.
(defmethod draw drawable-tree-array ((obj drawable-tree-array) (arg0 drawable-tree-array) (arg1 display-frame))
  (let ((v1-1 (-> (the-as terrain-context #x70000000) bsp lev-index)))
    (case (-> *level* level v1-1 display?)
      (('special 'special-vis #f)
       )
      (else
        (dotimes (s3-0 (-> obj length))
          (draw (-> obj trees s3-0) (-> arg0 trees s3-0) arg1)
          )
        )
      )
    )
  0
  (none)
  )

;; definition for method 14 of type drawable-tree-array
;; INFO: Return type mismatch int vs none.
(defmethod collect-stats drawable-tree-array ((obj drawable-tree-array))
  (dotimes (s5-0 (-> obj length))
    (collect-stats (-> obj trees s5-0))
    )
  0
  (none)
  )

;; definition for method 15 of type drawable-tree-array
;; INFO: Return type mismatch int vs none.
(defmethod debug-draw drawable-tree-array ((obj drawable-tree-array) (arg0 drawable) (arg1 display-frame))
  (dotimes (s3-0 (-> obj length))
    (debug-draw (-> obj trees s3-0) (-> (the-as drawable-tree-array arg0) trees s3-0) arg1)
    )
  0
  (none)
  )

;; definition for method 16 of type drawable-tree
(defmethod unpack-vis drawable-tree ((obj drawable-tree) (arg0 (pointer int8)) (arg1 (pointer int8)))
  (local-vars (t5-1 int))
  (let* ((v1-0 (the-as drawable-inline-array-node (-> obj data 0)))
         (a3-1 (/ (-> v1-0 data 0 id) 8))
         (t0-0 (-> v1-0 length))
         (v1-1 (&+ arg0 a3-1))
         (a3-3 (/ (+ t0-0 7) 8))
         )
    (dotimes (t0-1 a3-3)
      (let ((t1-0 (-> arg1 0)))
        (set! arg1 (&-> arg1 1))
        (set! (-> v1-1 0) t1-0)
        )
      (set! v1-1 (&-> v1-1 1))
      )
    )
  (let ((v1-5 (+ (-> obj length) -1)))
    (when (nonzero? v1-5)
      (dotimes (a3-5 v1-5)
        (let* ((t0-4 (-> obj data a3-5))
               (t2-0 (-> obj data (+ a3-5 1)))
               (t1-5 (/ (-> (the-as drawable-inline-array-node t0-4) data 0 id) 8))
               (t2-2 (/ (-> (the-as drawable-inline-array-node t2-0) data 0 id) 8))
               (t0-5 (-> (the-as drawable-inline-array-node t0-4) length))
               (t1-6 (&+ arg0 t1-5))
               (t2-3 (&+ arg0 t2-2))
               )
          (while #t
            (let ((t3-0 (-> t1-6 0)))
              (set! t1-6 (&-> t1-6 1))
              (let ((t4-0 128))
                (label cfg-7)
                (b! (zero? (logand t3-0 t4-0)) cfg-9 :delay (set! t5-1 (-> arg1 0)))
                (set! arg1 (&-> arg1 1))
                (set! (-> t2-3 0) t5-1)
                (label cfg-9)
                (+! t0-5 -1)
                (b! (zero? t0-5) cfg-12 :delay (shift-arith-right-32 t4-0 t4-0 1))
                (b! (nonzero? t4-0) cfg-7 :delay (set! t2-3 (&-> t2-3 1)))
                )
              )
            )
          )
        (label cfg-12)
        (nop!)
        0
        )
      )
    )
  arg1
  )