X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;ds=sidebyside;f=org.simantics.g3d%2Fscl%2Fg3d%2Fmath%2FQuat4d.scl;fp=org.simantics.g3d%2Fscl%2Fg3d%2Fmath%2FQuat4d.scl;h=a9910dc691e4485fd991d6ff2fae43c06cd49a20;hb=0602e0f78f22aaf27211ef1de801ddc631e103c0;hp=0000000000000000000000000000000000000000;hpb=1c986f49dd51037e0a189df77a76abce890ae8ae;p=simantics%2F3d.git

diff --git a/org.simantics.g3d/scl/g3d/math/Quat4d.scl b/org.simantics.g3d/scl/g3d/math/Quat4d.scl
new file mode 100644
index 00000000..a9910dc6
--- /dev/null
+++ b/org.simantics.g3d/scl/g3d/math/Quat4d.scl
@@ -0,0 +1,36 @@
+  
+importJava "javax.vecmath.Quat4d" where
+  data Quat4d
+  
+  @JavaName "<init>"
+  createQuat4d :: Double -> Double -> Double -> Double -> Quat4d
+  @JavaName "<init>"
+  copyQuat4d :: Quat4d -> Quat4d
+  @JavaName "<init>"
+  defaultQuat4d :: Quat4d
+  
+  getX :: Quat4d -> Double
+  getY :: Quat4d -> Double
+  getZ :: Quat4d -> Double
+  getW:: Quat4d -> Double
+  setX :: Quat4d -> Double -> ()
+  setY :: Quat4d -> Double -> ()
+  setZ :: Quat4d -> Double -> ()
+  setW :: Quat4d -> Double -> ()
+  
+  mul :: Quat4d -> Quat4d -> ()
+  @JavaName mul
+  mul2 :: Quat4d -> Quat4d -> Quat4d ->()
+  
+  mulInverse :: Quat4d -> Quat4d -> ()
+  @JavaName mulInverse
+  mulInverse2 :: Quat4d -> Quat4d -> Quat4d ->()
+  
+  inverse :: Quat4d -> ()
+  @JavaName inverse
+  inverse2 :: Quat4d -> Quat4d ->()
+  
+  normalize :: Quat4d -> ()
+  @JavaName normalize
+  normalize2 :: Quat4d -> Quat4d ->()
+  
\ No newline at end of file