X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=org.simantics.g3d%2Fscl%2FG3D%2FMath%2FVector3d.scl;h=f35857c7c9be1bdaa7cb77b512c502a61bbc7d02;hb=c6196ba2a63874615ed9e8b529fe3681f32f216b;hp=59cfdf97289db415b029d5aeb5834cf8164ffab6;hpb=da4c428e1588898d23748be25d1176b61abcd403;p=simantics%2F3d.git

diff --git a/org.simantics.g3d/scl/G3D/Math/Vector3d.scl b/org.simantics.g3d/scl/G3D/Math/Vector3d.scl
index 59cfdf97..f35857c7 100644
--- a/org.simantics.g3d/scl/G3D/Math/Vector3d.scl
+++ b/org.simantics.g3d/scl/G3D/Math/Vector3d.scl
@@ -8,8 +8,10 @@ importJava "javax.vecmath.Vector3d" where
   
   dot :: Vector3d -> Vector3d -> Double
   
-  length :: Vector3d -> Double
-  lengthSquared :: Vector3d -> Double
+  @JavaName length
+  vectorLength :: Vector3d -> Double
+  @JavaName lengthSquared
+  vectorLengthSquared :: Vector3d -> Double
   
   angle :: Vector3d -> Vector3d -> Double
   
@@ -67,6 +69,7 @@ freeze :: MVector3d -> <Proc> Vector3d
 freeze = Java.unsafeCoerce
 
 instance Tuple3dClass Vector3d
+instance MTuple3dClass MVector3d
 
 copyVector3d :: Tuple3dClass a => a -> Vector3d
 copyVector3d = copyVector3d' . asTuple