SCL bindings to some G3D and Plant3D Java classes

[simantics/3d.git] / org.simantics.g3d / scl / g3d / math / Quat4d.scl

diff --git a/org.simantics.g3d/scl/g3d/math/Quat4d.scl b/org.simantics.g3d/scl/g3d/math/Quat4d.scl
new file mode 100644 (file)
index 0000000..a9910dc
--- /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