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

;; name: geometry-h.gc
;; name in dgo: geometry-h
;; dgos: ENGINE, GAME

(define-extern quaternion-from-two-vectors-max-angle! (function quaternion vector vector float quaternion))

;; DECOMP BEGINS

(deftype curve (structure)
  ((cverts     (inline-array vector)  :offset-assert   0)
   (num-cverts int32                  :offset-assert   4)
   (knots      (pointer float)        :offset-assert   8)
   (num-knots  int32                  :offset-assert  12)
   (length     float                  :offset-assert  16)
   )
  :method-count-assert 9
  :size-assert         #x14
  :flag-assert         #x900000014
  )


(deftype border-plane (basic)
  ((name   symbol         :offset-assert   4)
   (action basic          :offset-assert   8)
   (slot   int8           :offset-assert  12)
   (trans  vector :inline :offset-assert  16)
   (normal vector :inline :offset-assert  32)
   )
  :method-count-assert 11
  :size-assert         #x30
  :flag-assert         #xb00000030
  (:methods
    (debug-draw (_type_) int 9)
    (point-past-plane? (_type_ vector) symbol 10)
    )
  )