X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=org.simantics.plant3d%2Fscl%2FPlant3d%2FTest%2FTest1.scl;h=71ec5cc09c63c5293d49274cdab60d8d65c81d44;hb=9497b5d9e26b3f6ea39030af6b14f8776a449591;hp=879a540acf9ac4d81606362947a549bea5eea02d;hpb=8c9f0422ff951285f8c00bec6686817fd8d3ec09;p=simantics%2F3d.git

diff --git a/org.simantics.plant3d/scl/Plant3d/Test/Test1.scl b/org.simantics.plant3d/scl/Plant3d/Test/Test1.scl
index 879a540a..71ec5cc0 100644
--- 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)