1 import "G3D/Math/Tuple3d"
2 import "G3D/Math/Quat4d"
3 import "G3D/Math/Vector3d"
5 include "G3D/Scenegraph/Node"
6 include "G3D/Scenegraph/G3DNode"
10 import "JavaBuiltin" as Java
12 importJava "org.simantics.plant3d.scenegraph.PipelineComponent" where
13 data PipelineComponent
16 getPipeRun' :: PipelineComponent -> PipeRun
18 setPipeRun' :: PipelineComponent -> PipeRun -> ()
20 @JavaName getAlternativePipeRun
21 getAlternativePipeRun' :: PipelineComponent -> Maybe PipeRun
22 @JavaName setAlternativePipeRun
23 setAlternativePipeRun' :: PipelineComponent -> PipeRun -> ()
25 @JavaName updateParameters
26 updateParameters' :: PipelineComponent -> ()
29 getNext' :: PipelineComponent -> Maybe PipelineComponent
31 setNext' :: PipelineComponent -> Maybe PipelineComponent -> ()
34 getPrevious' :: PipelineComponent -> Maybe PipelineComponent
36 setPrevious' :: PipelineComponent -> Maybe PipelineComponent -> ()
39 getBranch0' :: PipelineComponent -> Maybe PipelineComponent
41 setBranch0' :: PipelineComponent -> Maybe PipelineComponent -> ()
44 getType' :: PipelineComponent -> String
46 //getControlPoint :: PipelineComponent -> PipeControlPoint
49 remove' :: PipelineComponent -> ()
51 @JavaName getFlowLength
52 getFlowLength' :: PipelineComponent -> Maybe Double
54 getEnds' :: PipelineComponent -> Tuple3d -> Tuple3d -> ()
56 class PipelineComponentClass a where
57 asPipelineComponent :: a -> PipelineComponent
58 asPipelineComponent = Java.unsafeCoerce
60 getPipeRun :: a -> PipeRun
61 getPipeRun c = getPipeRun' (asPipelineComponent c)
62 setPipeRun :: a -> PipeRun -> ()
63 setPipeRun c = setPipeRun' (asPipelineComponent c)
65 getAlternativePipeRun :: a -> Maybe PipeRun
66 getAlternativePipeRun c = getAlternativePipeRun' (asPipelineComponent c)
67 setAlternativePipeRun :: a -> PipeRun -> ()
68 setAlternativePipeRun c = setAlternativePipeRun' (asPipelineComponent c)
70 updateParameters :: a -> ()
71 updateParameters c = updateParameters' (asPipelineComponent c)
73 getNext :: a -> Maybe PipelineComponent
74 getNext c = getNext' (asPipelineComponent c)
75 setNext :: a -> Maybe PipelineComponent -> ()
76 setNext c = setNext' (asPipelineComponent c)
78 getPrevious :: a -> Maybe PipelineComponent
79 getPrevious c = getPrevious' (asPipelineComponent c)
80 setPrevious :: a -> Maybe PipelineComponent -> ()
81 setPrevious c = setPrevious' (asPipelineComponent c)
83 getBranch0 :: a -> Maybe PipelineComponent
84 getBranch0 c = getBranch0' (asPipelineComponent c)
85 setBranch0 :: a -> Maybe PipelineComponent -> ()
86 setBranch0 c = setBranch0' (asPipelineComponent c)
88 getType :: a -> String
89 getType c = getType' (asPipelineComponent c)
92 remove c = remove' (asPipelineComponent c)
94 getFlowLength :: a -> Maybe Double
95 getFlowLength c = getFlowLength' (asPipelineComponent c)
96 getEnds :: a -> Tuple3d -> Tuple3d -> ()
97 getEnds c = getEnds' (asPipelineComponent c)
99 instance NodeClass PipelineComponent
100 instance G3DNodeClass PipelineComponent
101 instance P3DNodeClass PipelineComponent
102 instance PipelineComponentClass PipelineComponent where
103 asPipelineComponent = id
105 importJava "org.simantics.plant3d.scenegraph.controlpoint.PipeControlPoint$PointType" where
112 importJava "org.simantics.plant3d.scenegraph.controlpoint.PipeControlPoint$Direction" where
118 DPREVIOUS :: Direction
120 importJava "org.simantics.plant3d.scenegraph.controlpoint.PipeControlPoint$PositionType" where
124 PREVIOUS :: PositionType
125 SPLIT :: PositionType
128 importJava "org.simantics.plant3d.scenegraph.controlpoint.PipeControlPoint" where
129 data PipeControlPoint
131 getPipelineComponent :: PipeControlPoint -> PipelineComponent
134 //getPointType :: PipeControlPoint -> PointType
136 isFixed :: PipeControlPoint -> Boolean
138 getSubPoint :: PipeControlPoint -> [PipeControlPoint]
139 getParentPoint :: PipeControlPoint -> Maybe PipeControlPoint
141 importJava "org.simantics.plant3d.scenegraph.PipeRun" where
144 getTurnRadius :: PipeRun -> Double
145 setTurnRadius :: PipeRun -> Double -> ()
147 getPipeDiameter :: PipeRun -> Double
148 setPipeDiameter :: PipeRun -> Double -> ()
150 addChild :: PipeRun -> PipelineComponent -> ()
151 getChild :: PipeRun -> [PipelineComponent]
152 remChild :: PipeRun -> PipelineComponent -> ()
154 getSortedChild :: PipeRun -> [PipelineComponent]
156 instance NodeClass PipeRun
157 instance ParentNodeClass PipeRun
158 instance G3DNodeClass PipeRun
159 instance P3DNodeClass PipeRun