jak-project/goal_src/jak1/levels/beach/air-h.gc

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

;; name: air-h.gc
;; name in dgo: air-h
;; dgos: BEA, L1

;; DECOMP BEGINS

(deftype air-box (structure)
  ((vecs         vector 2 :inline :offset-assert   0)
   (x-pos        float            :offset          0)
   (height-level float            :offset          4)
   (z-pos        float            :offset          8)
   (cos-angle    float            :offset         12)
   (x-length     float            :offset         16)
   (z-length     float            :offset         24)
   (sin-angle    float            :offset         28)
   )
  :method-count-assert 9
  :size-assert         #x20
  :flag-assert         #x900000020
  )


(defun point-in-air-box-area? ((arg0 float) (arg1 float) (arg2 air-box))
  (let ((v0-0 #f))
    (let ((f0-2 (+ (* arg0 (-> arg2 cos-angle)) (* arg1 (-> arg2 sin-angle))))
          (f1-5 (- (* arg1 (-> arg2 cos-angle)) (* arg0 (-> arg2 sin-angle))))
          )
      (if (and (>= f0-2 0.0) (>= f1-5 0.0) (< f0-2 (-> arg2 x-length)) (< f1-5 (-> arg2 z-length)))
          (set! v0-0 #t)
          )
      )
    v0-0
    )
  )

(defun point-in-air-box? ((arg0 vector) (arg1 air-box))
  (when (< (-> arg1 height-level) (-> arg0 y))
    (let ((f1-2 (- (-> arg0 x) (the-as float (-> arg1 x-pos))))
          (f2-1 (- (-> arg0 z) (-> arg1 z-pos)))
          (v1-0 arg1)
          (v0-0 #f)
          )
      (let ((f0-5 (+ (* f1-2 (-> v1-0 cos-angle)) (* f2-1 (-> v1-0 sin-angle))))
            (f1-4 (- (* f2-1 (-> v1-0 cos-angle)) (* f1-2 (-> v1-0 sin-angle))))
            )
        (if (and (>= f0-5 0.0) (>= f1-4 0.0) (< f0-5 (-> v1-0 x-length)) (< f1-4 (-> v1-0 z-length)))
            (set! v0-0 #t)
            )
        )
      v0-0
      )
    )
  )

0