import "g3d/math/Tuple3d"
-
-import "./PipeRun"
+import "g3d/math/Quat4d"
+import "g3d/math/Vector3d"
importJava "org.simantics.plant3d.scenegraph.PipelineComponent" where
data PipelineComponent
getFlowLength :: PipelineComponent -> Maybe Double
getEnds :: PipelineComponent -> Tuple3d -> Tuple3d -> ()
-importJava "org.simantics.plant3d.scenegraph.PipeControlPoint$Type" where
+ getOrientation :: PipelineComponent -> Quat4d
+ getPosition :: PipelineComponent -> Vector3d
+
+ setOrientation :: PipelineComponent -> Quat4d -> ()
+ setPosition :: PipelineComponent -> Vector3d -> ()
+
+ getWorldOrientation :: PipelineComponent -> Quat4d
+ getWorldPosition :: PipelineComponent -> Vector3d
+
+ setWorldOrientation :: PipelineComponent -> Quat4d -> ()
+ setWorldPosition :: PipelineComponent -> Vector3d -> ()
+
+importJava "org.simantics.plant3d.scenegraph.controlpoint.PipeControlPoint$PointType" where
data PointType
-importJava "org.simantics.plant3d.scenegraph.PipeControlPoint.Direction" where
+ INLINE :: PointType
+ TURN :: PointType
+ END :: PointType
+
+importJava "org.simantics.plant3d.scenegraph.controlpoint.PipeControlPoint$Direction" where
data Direction
-importJava "org.simantics.plant3d.scenegraph.PipeControlPoint.PositionType" where
+ @JavaName NEXT
+ DNEXT :: Direction
+ @JavaName PREVIOUS
+ DPREVIOUS :: Direction
+
+importJava "org.simantics.plant3d.scenegraph.controlpoint.PipeControlPoint$PositionType" where
data PositionType
+
+ NEXT :: PositionType
+ PREVIOUS :: PositionType
+ SPLIT :: PositionType
+ PORT :: PositionType
importJava "org.simantics.plant3d.scenegraph.controlpoint.PipeControlPoint" where
data PipeControlPoint
isFixed :: PipeControlPoint -> Boolean
getSubPoint :: PipeControlPoint -> [PipeControlPoint]
- getParentPoint :: PipeControlPoint -> Maybe PipeControlPoint
\ No newline at end of file
+ getParentPoint :: PipeControlPoint -> Maybe PipeControlPoint
+
+importJava "org.simantics.plant3d.scenegraph.PipeRun" where
+ data PipeRun
+
+ getTurnRadius :: PipeRun -> Double
+ setTurnRadius :: PipeRun -> Double -> ()
+
+ getPipeDiameter :: PipeRun -> Double
+ setPipeDiameter :: PipeRun -> Double -> ()
+
+ addChild :: PipeRun -> PipelineComponent -> ()
+ getChild :: PipeRun -> [PipelineComponent]
+ remChild :: PipeRun -> PipelineComponent -> ()
+
+ getSortedChild :: PipeRun -> [PipelineComponent]
\ No newline at end of file