import "Plant3d/Utils/ComponentUtils" as CU
import "http://www.simantics.org/Layer0-1.1" as L0
+"Creates a pump, a pipeline, a tank and the connects the end of the pipe to the tank."
doTest :: <Proc> ()
doTest = do
TC.setRotationAngle (unsafeCoerce elbow) (Just 270.0)
P3S.commit p3dmap "Created a elbow"
P3S.update p3dmap
- pipe = CU.addComponent root (unsafeCoerce elbow) (CU.createVariableLength "http://www.simantics.org/Plant3D-0.1/Builtin/Straight" PC.NEXT PC.NEXT 1.85)
+ pipe = CU.addComponent root (unsafeCoerce elbow) (CU.createVariableLength "http://www.simantics.org/Plant3D-0.1/Builtin/Straight" PC.NEXT PC.NEXT 2.0)
P3S.commit p3dmap "Created a pipe"
P3S.update p3dmap
elbow = CU.addComponent root (unsafeCoerce pipe) (CU.createFixedTurn "http://www.simantics.org/Plant3D-0.1/Builtin/Elbow90" PC.NEXT PC.NEXT)