;;-*-Lisp-*- (in-package goal) ;; name: transform-h.gc ;; name in dgo: transform-h ;; dgos: GAME, ENGINE (deftype transform (structure) ((trans vector :inline :offset-assert 0) (rot vector :inline :offset-assert 16) (scale vector :inline :offset-assert 32) ) :method-count-assert 9 :size-assert #x30 :flag-assert #x900000030 ) (deftype trs (basic) ((trans vector :inline :offset-assert 16) (rot vector :inline :offset-assert 32) (scale vector :inline :offset-assert 48) ) :method-count-assert 9 :size-assert #x40 :flag-assert #x900000040 )