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

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

(deftype quaternion (structure)
  ((data float 4       :offset-assert 0)
   (x    float           :offset 0)
   (y    float           :offset 4)
   (z    float           :offset 8)
   (w    float           :offset 12)
   (vec  vector  :inline :offset 0)
   (quad uint128         :offset 0)
   )
  :method-count-assert 9
  :size-assert         #x10
  :flag-assert         #x900000010
  )

(define *unity-quaternion* (new 'static 'quaternion :x 0.0 :y 0.0 :z 0.0 :w 1.0))