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

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

;; maybe euler angle storage orders?
(define EulSafe (new 'static 'boxed-array int32 4 0 1 2 0))
(define EulNext (new 'static 'boxed-array int32 4 1 2 0 1))

;; just uses the same xyzw and data array as vector.
(deftype euler-angles (vector)
  ()
  :method-count-assert 9
  :size-assert         #x10
  :flag-assert         #x900000010
  )