Refactoring of SCL interfaces for g3d.

[simantics/3d.git] / org.simantics.g3d / scl / G3D / Math / Point3d.scl

diff --git a/org.simantics.g3d/scl/g3d/math/Point3d.scl b/org.simantics.g3d/scl/G3D/Math/Point3d.scl
similarity index 58%
rename from org.simantics.g3d/scl/g3d/math/Point3d.scl
rename to org.simantics.g3d/scl/G3D/Math/Point3d.scl
index 11012aa4e7960b4bc7d6539252eab55ef48863fb..51c8e54138377fa8b7fa56cdbd7d62d44b2d275f 100644 (file)
--- a/org.simantics.g3d/scl/g3d/math/Point3d.scl
+++ b/org.simantics.g3d/scl/G3D/Math/Point3d.scl
@@ -1,5 +1,7 @@
 import "./Tuple3d"
 
+import "JavaBuiltin" as Java
+
 importJava "javax.vecmath.Point3d" where
   data Point3d
   
@@ -9,6 +11,11 @@ importJava "javax.vecmath.Point3d" where
   @JavaName "<init>"
   createPoint3d :: Double -> Double -> Double -> Point3d
   @JavaName "<init>"
-  copyPoint3d :: Tuple3d -> Point3d
+  copyPoint3d' :: Tuple3d -> Point3d
   @JavaName "<init>"
-  defaultPoint3d :: Point3d
\ No newline at end of file
+  defaultPoint3d :: Point3d
+
+instance Tuple3dClass Point3d
+
+copyPoint3d :: Tuple3dClass a => a -> Point3d
+copyPoint3d = copyPoint3d' . asTuple