X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=org.simantics.plant3d%2Fscl%2FPlant3d%2FScenegraph%2FPipelineComponent.scl;h=215095862f101a6503bbd695b026e0f40ae9e5b5;hb=1d826bb0c72c83895289b905fe0da9583a79c57b;hp=820e787aeebc8674a241b48f09ee564c9cac5886;hpb=c07ac416dfbe99201084e71c53dc95c9c41d906c;p=simantics%2F3d.git

diff --git a/org.simantics.plant3d/scl/Plant3d/Scenegraph/PipelineComponent.scl b/org.simantics.plant3d/scl/Plant3d/Scenegraph/PipelineComponent.scl
index 820e787a..21509586 100644
--- 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,11 +164,14 @@ importJava "org.simantics.plant3d.scenegraph.controlpoint.PipeControlPoint" wher
   
   getPipelineComponent :: PipeControlPoint -> PipelineComponent
   
+  getTurnAngle :: PipeControlPoint -> <Proc> Maybe Double
+  
   //@JavaName getType
   //getPointType :: PipeControlPoint -> PointType
   
   isFixed :: PipeControlPoint -> <Proc> Boolean
   
+  @JavaName getChildPoints
   getSubPoint :: PipeControlPoint -> <Proc> [PipeControlPoint]
   getParentPoint :: PipeControlPoint -> <Proc> Maybe PipeControlPoint
   
@@ -181,6 +184,8 @@ importJava "org.simantics.plant3d.scenegraph.PipeRun" where
   getPipeDiameter :: PipeRun -> <Proc> Double
   setPipeDiameter :: PipeRun -> Double -> <Proc> ()
   
+  getInsideDiameter :: PipeRun -> <Proc> Double
+  
   addChild :: PipeRun -> PipelineComponent -> <Proc> ()
   getChild :: PipeRun -> <Proc> [PipelineComponent]
   remChild :: PipeRun -> PipelineComponent -> <Proc> ()