Updates to SCL interfaces

refs #28

Change-Id: I94aa6a565b16237d5a9b9f9e36f4f2f38cfa0d71

diff --git a/org.simantics.plant3d/scl/Plant3d/Scenegraph/InlineComponent.scl b/org.simantics.plant3d/scl/Plant3d/Scenegraph/InlineComponent.scl
index f887b24b2f0796a20eb3a93ec2bdd6097591280c..68d617019835de27d06f842c653b15e7fc9ac2c2 100644 (file)
--- a/org.simantics.plant3d/scl/Plant3d/Scenegraph/InlineComponent.scl
+++ b/org.simantics.plant3d/scl/Plant3d/Scenegraph/InlineComponent.scl
@@ -7,6 +7,8 @@ importJava "org.simantics.plant3d.scenegraph.InlineComponent" where
   getRotationAngle :: InlineComponent -> <Proc> Maybe Double
   setRotationAngle :: InlineComponent -> Maybe Double -> <Proc> ()
   
+  isSizeChange :: InlineComponent -> <Proc> Boolean
+  
   isReversed :: InlineComponent -> <Proc>Maybe Boolean
   setReversed :: InlineComponent -> Maybe Boolean -> <Proc> ()
 

diff --git a/org.simantics.plant3d/scl/Plant3d/Scenegraph/P3DRootNode.scl b/org.simantics.plant3d/scl/Plant3d/Scenegraph/P3DRootNode.scl
index 6017c07a0bd5ee49dc04937a92b22c4bff1a92ad..40af0ec2e1385fdbe1b4ab9b3320bfcacbd07237 100644 (file)
--- a/org.simantics.plant3d/scl/Plant3d/Scenegraph/P3DRootNode.scl
+++ b/org.simantics.plant3d/scl/Plant3d/Scenegraph/P3DRootNode.scl
@@ -1,12 +1,17 @@
 include "G3D/Scenegraph/Node"
 include "G3D/Scenegraph/G3DNode"
 
+import "Simantics/DB" (Resource)
+
 importJava "org.simantics.plant3d.scenegraph.P3DRootNode" where
   data P3DRootNode
   
   addChild :: P3DRootNode -> Node -> <Proc> () 
   getChild :: P3DRootNode -> <Proc> [Node]
-  remChild :: P3DRootNode -> Node -> <Proc> () 
+  remChild :: P3DRootNode -> Node -> <Proc> ()
+  
+  getNodeResource :: P3DRootNode -> Node -> Resource
+  getResourceNode :: P3DRootNode -> Resource -> Node 
 
 instance NodeClass P3DRootNode
 instance ParentNodeClass P3DRootNode

diff --git a/org.simantics.plant3d/scl/Plant3d/Scenegraph/PipelineComponent.scl b/org.simantics.plant3d/scl/Plant3d/Scenegraph/PipelineComponent.scl
index 820e787aeebc8674a241b48f09ee564c9cac5886..cc75aab2c81da1b1e6d48787b2344814fa969fc8 100644 (file)
--- a/org.simantics.plant3d/scl/Plant3d/Scenegraph/PipelineComponent.scl
+++ b/org.simantics.plant3d/scl/Plant3d/Scenegraph/PipelineComponent.scl
@@ -99,7 +99,7 @@ class PipelineComponentClass a where
   getType c = getType' (asPipelineComponent c)
   
   getControlPoint ::  a -> <Proc> PipeControlPoint
-  getControlPoint c = getControlPoint (asPipelineComponent c)
+  getControlPoint c = getControlPoint' (asPipelineComponent c)
   
   remove :: a -> <Proc> ()
   remove c = remove' (asPipelineComponent c)
@@ -164,6 +164,8 @@ importJava "org.simantics.plant3d.scenegraph.controlpoint.PipeControlPoint" wher
   
   getPipelineComponent :: PipeControlPoint -> PipelineComponent
   
+  getTurnAngle :: PipeControlPoint -> <Proc> Maybe Double
+  
   //@JavaName getType
   //getPointType :: PipeControlPoint -> PointType
   

diff --git a/org.simantics.plant3d/scl/Plant3d/Scenegraph/TurnComponent.scl b/org.simantics.plant3d/scl/Plant3d/Scenegraph/TurnComponent.scl
index 19cc533ee3d794dcefddee3f90d71a05978e66c1..3db98dddba2bdd77138f6c984a44e90182d94c63 100644 (file)
--- a/org.simantics.plant3d/scl/Plant3d/Scenegraph/TurnComponent.scl
+++ b/org.simantics.plant3d/scl/Plant3d/Scenegraph/TurnComponent.scl
@@ -9,6 +9,8 @@ importJava "org.simantics.plant3d.scenegraph.TurnComponent" where
   getTurnAngle :: TurnComponent -> <Proc> Maybe Double
   setTurnAngle :: TurnComponent -> Maybe Double -> <Proc> ()
   
+  getTurnRadius :: TurnComponent -> <Proc> Maybe Double
+  
   getTurnAxis :: TurnComponent -> <Proc> Vector3d
   
   getRotationAngle :: TurnComponent -> <Proc> Maybe Double