 (load "phbody.lsp")


(def x (LoadXPhBody "lbox.x"))

(def x (XPhObjSaveLoadTest x "test.kex"))

(def floor (LoadXPhBody "road.x"))
(PhSetUpForFixedObject floor)
(SetXPhBodyMat floor '((1 0 0) (0 1 0) (0 0 1) (0 -5 0)))
(SetXPhVertexTransformMat floor '((5 0 0) (0 5 0) (0 0 5) (0 0 0)))
(XPhBodySetVisualMaterial floor '((1 1 1 1) (0.5 0.5 0.5 0.5) (0 0 0 0) 0))

 