]> gerrit.simantics Code Review - simantics/3d.git/blobdiff - org.simantics.plant3d/scl/plant3d/scenegraph/PipelineComponent.scl
Preventing synchronizing commits after undo / redo are mandatory
[simantics/3d.git] / org.simantics.plant3d / scl / plant3d / scenegraph / PipelineComponent.scl
index 94dc9a47fb16c6e873bfa049eb85bb2296aca083..f8eab1766c9620fcc7ad975bfa7c0d9d87046360 100644 (file)
@@ -1,6 +1,6 @@
 import "g3d/math/Tuple3d"
-
-import "./PipeRun"
+import "g3d/math/Quat4d"
+import "g3d/math/Vector3d"
 
 importJava "org.simantics.plant3d.scenegraph.PipelineComponent" where
   data PipelineComponent
@@ -31,14 +31,40 @@ importJava "org.simantics.plant3d.scenegraph.PipelineComponent" where
   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
@@ -51,4 +77,19 @@ importJava "org.simantics.plant3d.scenegraph.controlpoint.PipeControlPoint" wher
   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