Provide a hook for post-processing after adding a new component

[simantics/3d.git] / org.simantics.plant3d / scl / Plant3d / Test / Test1.scl

diff --git a/org.simantics.plant3d/scl/Plant3d/Test/Test1.scl b/org.simantics.plant3d/scl/Plant3d/Test/Test1.scl
index 879a540acf9ac4d81606362947a549bea5eea02d..71ec5cc09c63c5293d49274cdab60d8d65c81d44 100644 (file)
--- a/org.simantics.plant3d/scl/Plant3d/Test/Test1.scl
+++ b/org.simantics.plant3d/scl/Plant3d/Test/Test1.scl
@@ -18,6 +18,7 @@ import "Plant3d/Utils/P3DUtil" as P3DUtil
 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
 
@@ -70,7 +71,7 @@ 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)