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

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


(defun quaternion-identity! ((dst quaternion))
  (rlet ((r0 :class vf))
    (.xor.vf r0 r0 r0)
    (.svf dst r0)
    )
  (set! (-> dst w) 1.0)
  dst
  )