]> gerrit.simantics Code Review - simantics/3d.git/commitdiff
Updates to SCL interfaces 61/3461/1
authorReino Ruusu <reino.ruusu@semantum.fi>
Wed, 6 Nov 2019 13:07:58 +0000 (15:07 +0200)
committerReino Ruusu <reino.ruusu@semantum.fi>
Wed, 6 Nov 2019 13:07:58 +0000 (15:07 +0200)
refs #28

Change-Id: I94aa6a565b16237d5a9b9f9e36f4f2f38cfa0d71

org.simantics.plant3d/scl/Plant3d/Scenegraph/InlineComponent.scl
org.simantics.plant3d/scl/Plant3d/Scenegraph/P3DRootNode.scl
org.simantics.plant3d/scl/Plant3d/Scenegraph/PipelineComponent.scl
org.simantics.plant3d/scl/Plant3d/Scenegraph/TurnComponent.scl

index f887b24b2f0796a20eb3a93ec2bdd6097591280c..68d617019835de27d06f842c653b15e7fc9ac2c2 100644 (file)
@@ -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> ()
 
index 6017c07a0bd5ee49dc04937a92b22c4bff1a92ad..40af0ec2e1385fdbe1b4ab9b3320bfcacbd07237 100644 (file)
@@ -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
index 820e787aeebc8674a241b48f09ee564c9cac5886..cc75aab2c81da1b1e6d48787b2344814fa969fc8 100644 (file)
@@ -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
   
index 19cc533ee3d794dcefddee3f90d71a05978e66c1..3db98dddba2bdd77138f6c984a44e90182d94c63 100644 (file)
@@ -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