X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=org.simantics.plant3d%2Fscl%2FPlant3d%2FScenegraph%2FP3DNode.scl;h=4d01b51972735d9c8cb57430dd13ce45ec51697b;hb=1d826bb0c72c83895289b905fe0da9583a79c57b;hp=b80f401a00c95ce4f1654841cccd307dc6858117;hpb=0f296670cc492cef317342832d3e131fd6d76aba;p=simantics%2F3d.git

diff --git a/org.simantics.plant3d/scl/Plant3d/Scenegraph/P3DNode.scl b/org.simantics.plant3d/scl/Plant3d/Scenegraph/P3DNode.scl
index b80f401a..4d01b519 100644
--- a/org.simantics.plant3d/scl/Plant3d/Scenegraph/P3DNode.scl
+++ b/org.simantics.plant3d/scl/Plant3d/Scenegraph/P3DNode.scl
@@ -1,20 +1,21 @@
-import "G3D/Math/Vector3d"
-import "G3D/Math/Quat4d"
+import "JavaBuiltin" as Java
 
-importJava "org.simantics.plant3d.scenegraph.P3DNode" where
+importJava "org.simantics.plant3d.scenegraph.IP3DVisualNode" where
   data P3DNode
   
-  getName :: P3DNode -> Maybe String
-  setName :: P3DNode -> String -> ()
+  @JavaName getName
+  getName' :: P3DNode -> <Proc> Maybe String
+  @JavaName setName
+  setName' :: P3DNode -> String -> <Proc> ()
   
-  getOrientation :: P3DNode -> Quat4d
-  getPosition :: P3DNode -> Vector3d
-  
-  setOrientation :: P3DNode -> Quat4d -> ()
-  setPosition :: P3DNode -> Vector3d -> ()
-  
-  getWorldOrientation :: P3DNode -> Quat4d
-  getWorldPosition :: P3DNode -> Vector3d
-  
-  setWorldOrientation :: P3DNode -> Quat4d -> ()
-  setWorldPosition :: P3DNode -> Vector3d -> ()
\ No newline at end of file
+class P3DNodeClass a where
+  asP3DNode :: a -> P3DNode
+  asP3DNode = Java.unsafeCoerce
+
+  getName :: a -> <Proc> Maybe String
+  getName c = getName' (asP3DNode c)
+  setName :: a -> String -> <Proc> ()
+  setName c = setName' (asP3DNode c)
+
+instance P3DNodeClass P3DNode where
+  asP3DNode = id