0027094: Create command checkdump for parsing dumps (geometry test group)
authorapn <apn@opencascade.com>
Fri, 22 Jan 2016 12:59:10 +0000 (15:59 +0300)
committerbugmaster <bugmaster@opencascade.com>
Thu, 28 Jan 2016 10:20:17 +0000 (13:20 +0300)
checkdump - procedure to parse output dump and compare it with reference values;
checklength - procedure to compute length of input shape.
Added procedures and modified test group geometry.

218 files changed:
src/DrawResources/CheckCommands.tcl
tests/geometry/2dbeziecurve/A1
tests/geometry/2dbeziecurve/A2
tests/geometry/2dbeziecurve/A3
tests/geometry/2dbeziecurve/A4
tests/geometry/2dbeziecurve/A5
tests/geometry/2dbeziecurve/A6
tests/geometry/2dbeziecurve/A7
tests/geometry/2dbeziecurve/A8
tests/geometry/2dbeziecurve/A9
tests/geometry/2dbeziecurve/B1
tests/geometry/2dbeziecurve/begin
tests/geometry/2dbsplinecurve/A1
tests/geometry/2dbsplinecurve/A2
tests/geometry/2dbsplinecurve/A3
tests/geometry/2dbsplinecurve/A4
tests/geometry/2dbsplinecurve/A5
tests/geometry/2dbsplinecurve/A6
tests/geometry/2dbsplinecurve/A7
tests/geometry/2dbsplinecurve/A8
tests/geometry/2dbsplinecurve/A9
tests/geometry/2dbsplinecurve/B1
tests/geometry/2dbsplinecurve/B2
tests/geometry/2dbsplinecurve/B3
tests/geometry/2dbsplinecurve/B4
tests/geometry/2dbsplinecurve/B5
tests/geometry/2dbsplinecurve/B6
tests/geometry/2dbsplinecurve/B7
tests/geometry/2dbsplinecurve/begin
tests/geometry/beziecurve/A1
tests/geometry/beziecurve/A2
tests/geometry/beziecurve/A3
tests/geometry/beziecurve/A4
tests/geometry/beziecurve/A5
tests/geometry/beziecurve/A6
tests/geometry/beziecurve/A7
tests/geometry/beziecurve/A8
tests/geometry/beziecurve/A9
tests/geometry/beziecurve/B1
tests/geometry/beziecurve/B2
tests/geometry/beziecurve/B3
tests/geometry/beziecurve/B4
tests/geometry/beziecurve/B5
tests/geometry/beziecurve/begin
tests/geometry/bsplinecurve/A1
tests/geometry/bsplinecurve/A2
tests/geometry/bsplinecurve/A3
tests/geometry/bsplinecurve/A4
tests/geometry/bsplinecurve/A5
tests/geometry/bsplinecurve/A6
tests/geometry/bsplinecurve/A7
tests/geometry/bsplinecurve/A8
tests/geometry/bsplinecurve/A9
tests/geometry/bsplinecurve/B1
tests/geometry/bsplinecurve/B2
tests/geometry/bsplinecurve/B3
tests/geometry/bsplinecurve/B4
tests/geometry/bsplinecurve/B5
tests/geometry/bsplinecurve/B6
tests/geometry/bsplinecurve/B7
tests/geometry/bsplinecurve/B8
tests/geometry/bsplinecurve/B9
tests/geometry/bsplinecurve/C1
tests/geometry/bsplinecurve/C2
tests/geometry/bsplinecurve/C3
tests/geometry/bsplinecurve/begin
tests/geometry/circle/A1
tests/geometry/circle/A2
tests/geometry/circle/A3
tests/geometry/circle/A4
tests/geometry/circle/A5
tests/geometry/circle/A6
tests/geometry/circle/A7
tests/geometry/circle/A8
tests/geometry/circle/A9
tests/geometry/circle/B1
tests/geometry/circle/B2
tests/geometry/circle/B3
tests/geometry/circle/B4
tests/geometry/circle/B5
tests/geometry/circle/B6
tests/geometry/circle/B7
tests/geometry/circle/B8
tests/geometry/circle/B9
tests/geometry/circle/C1
tests/geometry/circle/C2
tests/geometry/circle/C3
tests/geometry/circle/C4
tests/geometry/circle/C5
tests/geometry/circle/C6
tests/geometry/circle/C7
tests/geometry/circle/C8
tests/geometry/circle/C9
tests/geometry/circle/D1
tests/geometry/circle/D2
tests/geometry/circle/D3
tests/geometry/circle/D4
tests/geometry/circle/D5
tests/geometry/circle/D6
tests/geometry/circle/D7
tests/geometry/circle/D8
tests/geometry/circle/D9
tests/geometry/circle/E1
tests/geometry/circle/begin
tests/geometry/ellipse/A1
tests/geometry/ellipse/A2
tests/geometry/ellipse/A3
tests/geometry/ellipse/A4
tests/geometry/ellipse/A5
tests/geometry/ellipse/A6
tests/geometry/ellipse/A7
tests/geometry/ellipse/A8
tests/geometry/ellipse/A9
tests/geometry/ellipse/B1
tests/geometry/ellipse/B2
tests/geometry/ellipse/B3
tests/geometry/ellipse/B4
tests/geometry/ellipse/B5
tests/geometry/ellipse/B6
tests/geometry/ellipse/B7
tests/geometry/ellipse/B8
tests/geometry/ellipse/B9
tests/geometry/ellipse/C1
tests/geometry/ellipse/C2
tests/geometry/ellipse/C3
tests/geometry/ellipse/C4
tests/geometry/ellipse/C5
tests/geometry/ellipse/C6
tests/geometry/ellipse/C7
tests/geometry/ellipse/C8
tests/geometry/ellipse/C9
tests/geometry/ellipse/D1
tests/geometry/ellipse/begin
tests/geometry/end
tests/geometry/hyperbola/A1
tests/geometry/hyperbola/A2
tests/geometry/hyperbola/A3
tests/geometry/hyperbola/A4
tests/geometry/hyperbola/A5
tests/geometry/hyperbola/A6
tests/geometry/hyperbola/A7
tests/geometry/hyperbola/A8
tests/geometry/hyperbola/A9
tests/geometry/hyperbola/B1
tests/geometry/hyperbola/B2
tests/geometry/hyperbola/B3
tests/geometry/hyperbola/B4
tests/geometry/hyperbola/B5
tests/geometry/hyperbola/B6
tests/geometry/hyperbola/B7
tests/geometry/hyperbola/B8
tests/geometry/hyperbola/B9
tests/geometry/hyperbola/C1
tests/geometry/hyperbola/C2
tests/geometry/hyperbola/C3
tests/geometry/hyperbola/C4
tests/geometry/hyperbola/C5
tests/geometry/hyperbola/begin
tests/geometry/iso/A1
tests/geometry/iso/A2
tests/geometry/iso/A3
tests/geometry/iso/A4
tests/geometry/iso/begin
tests/geometry/law/A1
tests/geometry/law/A2
tests/geometry/law/A3
tests/geometry/law/A4
tests/geometry/law/begin
tests/geometry/line/A1
tests/geometry/line/A2
tests/geometry/line/A3
tests/geometry/line/A4
tests/geometry/line/A5
tests/geometry/line/A6
tests/geometry/line/A7
tests/geometry/line/A8
tests/geometry/line/A9
tests/geometry/line/B1
tests/geometry/line/begin
tests/geometry/parabola/A1
tests/geometry/parabola/A2
tests/geometry/parabola/A3
tests/geometry/parabola/A4
tests/geometry/parabola/A5
tests/geometry/parabola/A6
tests/geometry/parabola/A7
tests/geometry/parabola/A8
tests/geometry/parabola/A9
tests/geometry/parabola/B1
tests/geometry/parabola/B2
tests/geometry/parabola/B3
tests/geometry/parabola/B4
tests/geometry/parabola/B5
tests/geometry/parabola/B6
tests/geometry/parabola/B7
tests/geometry/parabola/B8
tests/geometry/parabola/B9
tests/geometry/parabola/C1
tests/geometry/parabola/C2
tests/geometry/parabola/C3
tests/geometry/parabola/C4
tests/geometry/parabola/C5
tests/geometry/parabola/C6
tests/geometry/parabola/C7
tests/geometry/parabola/C8
tests/geometry/parabola/C9
tests/geometry/parabola/D1
tests/geometry/parabola/begin
tests/geometry/project/A1
tests/geometry/project/A2
tests/geometry/project/A3
tests/geometry/project/A4
tests/geometry/project/A5
tests/geometry/project/A6
tests/geometry/project/A7
tests/geometry/project/A8
tests/geometry/project/begin
tests/geometry/revsurf/begin

index 25bab92..6e032a9 100644 (file)
@@ -710,7 +710,7 @@ proc checklength {shape args} {
 
     if { ${compared_notequal_shape} != -1 } {
         upvar ${compared_notequal_shape} ${compared_notequal_shape}
-        regexp regexp "The +length+ ${compared_notequal_shape} +is +(\[-0-9.+eE\]+)" [${CommandName} ${compared_notequal_shape} ${epsilon}] full compared_m
+        regexp "The +length+ ${compared_notequal_shape} +is +(\[-0-9.+eE\]+)" [${CommandName} ${compared_notequal_shape} ${epsilon}] full compared_m
         if { $compared_m == $m } {
             puts "Error: length of shape ${compared_notequal_shape} is equal shape to ${shape}"
         }
index b1cee8f..3190e22 100644 (file)
@@ -1,4 +1,4 @@
 2dbeziercurve result  8  0 0 0 1 -2 1 -2 -3 4 -3 4 5 -6 5 -6 -4
 reverse result
-set length 14.909963698913941
+checklength result -l 14.909963698913941
 
index 1e9286e..21a06f7 100644 (file)
@@ -1,4 +1,4 @@
 2dbeziercurve result  3  -2 0  0 -3  2 0
 insertpole result 2 1 6 1
-set length 7.1843642663784797
+checklength result -l 7.1843642663784797
 
index 31e0457..c706999 100644 (file)
@@ -2,5 +2,5 @@
 trim b2 b1 0 0.2
 trim b3 b1 0.3 0.5
 trim result b1 0.6 0.8
-set length 3.3427826104791247
+checklength result -l 3.3427826104791247
 
index 4547e3e..88d5a62 100644 (file)
@@ -1,4 +1,4 @@
 2dbeziercurve result  8  0 0 0 1 -2 1 -2 -3 4 -3 4 5 -6 5 -6 -4
 2dlmirror result 0 0 0 1
-set length 14.909963698913938
+checklength result -l 14.909963698913938
 
index 44f59c9..6cebac8 100644 (file)
@@ -1,4 +1,4 @@
 2dbeziercurve result  8  0 0 0 1 -2 1 -2 -3 4 -3 4 5 -6 5 -6 -4
 2dpmirror result 0 0
-set length 14.909963698913938
+checklength result -l 14.909963698913938
 
index f3fe908..cecdc21 100644 (file)
@@ -1,4 +1,4 @@
 2dbeziercurve result  8  0 0 0 1 -2 1 -2 -3 4 -3 4 5 -6 5 -6 -4
 repeat 20 { 2dpscale result 0 0 0 1.1; copy result . }
-set length 100.30678002889022
+checklength result -l 100.30678002889022
 
index 912517f..e628e1f 100644 (file)
@@ -1,4 +1,4 @@
 2dbeziercurve result  8  0 0 0 1 -2 1 -2 -3 4 -3 4 5 -6 5 -6 -4
 2drotate result 0 0 90
-set length 14.909963698913938
+checklength result -l 14.909963698913938
 
index d15583d..f04d507 100644 (file)
@@ -1,3 +1,3 @@
 2dbeziercurve result  3  2 0 4 1 6 0
-set length 4.1609152777389031
+checklength result -l 4.1609152777389031
 
index fe946cf..f6949f8 100644 (file)
@@ -1,3 +1,3 @@
 2dbeziercurve result  8  0 0 0 1 -2 1 -2 -3 4 -3 4 5 -6 5 -6 -4
-set length 14.909963698913938
+checklength result -l 14.909963698913938
 
index 2d85d1b..e15537f 100644 (file)
@@ -42,5 +42,5 @@ repeat 10 {comparepnt2d rd1_$i d1_$i  $tol; incr i 1}
 set i 1
 puts " --> Test D2"
 repeat 10 {comparepnt2d rd2_$i d2_$i $tol; incr i 1}
-set length 14.909963698913938
+checklength result -l 14.909963698913938
 
index d10da1f..2fecf22 100644 (file)
@@ -1,2 +1 @@
-set viewer "v2d"
-set type "finite"
+set viewer "v2d"
\ No newline at end of file
index db8a6cf..df9cc1e 100644 (file)
@@ -1,3 +1,3 @@
 2dbsplinecurve result  3 8 0. 4 0.13 1 0.28 1 0.47 1  0.62 1  0.75 1 0.89 1  1. 4  -19.5 -4.2 1 -18.9 -4.7 1  -17.3 5.0 1  -8.7 10.9  1  -0.018 1.27  1 0.38 -8.0  1 3.4 -16.3 1  11.0 -20.45 1  17.33 -15.42 1  17.7 -15 1
-set length 61.864387478917727
+checklength result -l 61.864387478917727
 
index 1692ff1..dc2817e 100644 (file)
@@ -1,4 +1,4 @@
 2dbsplinecurve result 4 2 0 5 1 5 -0.5 -0.5 1 -0.25 0.5 1 0. -0.5 1  0.25 -0.5 1 0.5 -0.5  1
 incdeg result 8
-set length 1.4087044221398224
+checklength result -l 1.4087044221398224
 
index 275409d..346a7eb 100644 (file)
@@ -1,5 +1,5 @@
 2dbsplinecurve result 4 2 0 5 1 5 -0.5 -0.5 1 -0.25 0.5 1 0. -0.5 1  0.25 -0.5 1 0.5 -0.5  1
 insertknot result 0.5 1
 remknot result 2 0 0.01
-set length 1.4087044221396998
+checklength result -l 1.4087044221396998
 
index cde2bc7..64ceee8 100644 (file)
@@ -1,4 +1,4 @@
 2dbsplinecurve result  3 8 0. 4 0.13 1 0.28 1 0.47 1  0.62 1  0.75 1 0.89 1  1. 4  -19.5 -4.2 1 -18.9 -4.7 1  -17.3 5.0 1  -8.7 10.9  1  -0.018 1.27  1 0.38 -8.0  1 3.4 -16.3 1  11.0 -20.45 1  17.33 -15.42 1  17.7 -15 1
 reverse result
-set length 61.864387478917735
+checklength result -l 61.864387478917735
 
index e7e2f48..0d12ae6 100644 (file)
@@ -1,4 +1,4 @@
 2dbsplinecurve result  3 8 0. 4 0.13 1 0.28 1 0.47 1  0.62 1  0.75 1 0.89 1  1. 4  -19.5 -4.2 1 -18.9 -4.7 1  -17.3 5.0 1  -8.7 10.9  1  -0.018 1.27  1 0.38 -8.0  1 3.4 -16.3 1  11.0 -20.45 1  17.33 -15.42 1  17.7 -15 1
 insertknot result 0.3 2
-set length 61.864387478971629
+checklength result -l 61.864387478971629
 
index ccd1368..a62476a 100644 (file)
@@ -5,5 +5,5 @@ set i 1
 repeat 100 {cmovepoint result 0.3 0. 0.05; incr i 1; repaint}
 set i 1
 repeat 100 {cmovepoint result 0.3 0. -0.05; incr i 1; repaint}
-set length 2.9999999999999996
+checklength result -l 2.9999999999999996
 
index a83dce3..fb69642 100644 (file)
@@ -5,5 +5,5 @@ set i 1
 repeat 100 {cmovepoint result 0 0. 0.05; incr i 1;repaint}
 set i 1
 repeat 100 {cmovepoint result 0 0. -0.05; incr i 1;repaint}
-set length 3.0000000000000004
+checklength result -l 3.0000000000000004
 
index 4dd1e60..1a54c25 100644 (file)
@@ -2,10 +2,11 @@
 2dcvalue b1 2.0 x y  dx dy 
 set delta 0.01
 set yvalue [dval y] 
-repeat 100  {
-       cmovetangent b1 2.0  x $yvalue  dx dy  1
-        set yvalue [expr $yvalue + $delta ]
-        repaint }
+repeat 100 {
+    cmovetangent b1 2.0  x $yvalue  dx dy  1
+    set yvalue [expr $yvalue + $delta ]
+    repaint
+}
 copy b1 result
-set length 7.7885445456401925
+checklength result -l 7.7885445456401925
 
index 451d357..4719a73 100644 (file)
@@ -2,10 +2,10 @@
 2dcvalue b1 2.0 x y  dx dy 
 set delta 0.01
 set yvalue [dval y] 
-repeat 100  {
-       cmovetangent b1 2.0  x $yvalue  dx dy  1
-        set yvalue [expr $yvalue + $delta ]
-        repaint }
+repeat 100 {
+    cmovetangent b1 2.0  x $yvalue  dx dy  1
+    set yvalue [expr $yvalue + $delta ]
+    repaint
+}
 copy b1 result
-set length 6.9832866524628034
-
+checklength result -l 6.9832866524628034
\ No newline at end of file
index def31fa..8a53224 100644 (file)
@@ -3,10 +3,10 @@
 set delta 0.005
 point p1 x y 
 set dyvalue [dval dy] 
-repeat 100  {
-       cmovetangent b1 2.0  x y dx $dyvalue 1
-        set dyvalue [expr $dyvalue + $delta ]
-        repaint }
+repeat 100 {
+    cmovetangent b1 2.0  x y dx $dyvalue 1
+    set dyvalue [expr $dyvalue + $delta ]
+    repaint
+}
 copy b1 result
-set length 5.9590472422107315
-
+checklength result -l 5.9590472422107315
\ No newline at end of file
index 6bc8ec7..3e4be10 100644 (file)
@@ -3,10 +3,10 @@
 set delta 0.01
 point p1 x y 
 set dyvalue [dval dy] 
-repeat 100  {
-       cmovetangent b1 2.0  x y dx $dyvalue 1
-        set dyvalue [expr $dyvalue + $delta ]
-        repaint }
+repeat 100 {
+    cmovetangent b1 2.0  x y dx $dyvalue 1
+    set dyvalue [expr $dyvalue + $delta ]
+    repaint
+}
 copy b1 result
-set length 6.6492776719511806
-
+checklength result -l 6.6492776719511806
\ No newline at end of file
index 11abbbc..451546b 100644 (file)
@@ -1,4 +1,4 @@
 2dbsplinecurve result  3 8 0. 4 0.13 1 0.28 1 0.47 1  0.62 1  0.75 1 0.89 1  1. 4  -19.5 -4.2 1 -18.9 -4.7 1  -17.3 5.0 1  -8.7 10.9  1  -0.018 1.27  1 0.38 -8.0  1 3.4 -16.3 1  11.0 -20.45 1  17.33 -15.42 1  17.7 -15 1
 2dlmirror result 0 0 0 1
-set length 61.864387478917727
+checklength result -l 61.864387478917727
 
index 18985a7..9007837 100644 (file)
@@ -1,4 +1,4 @@
 2dbsplinecurve result 3 8 0. 4 0.13 1 0.28 1 0.47 1  0.62 1  0.75 1 0.89 1  1. 4  -19.5 -4.2 1 -18.9 -4.7 1  -17.3 5.0 1  -8.7 10.9  1  -0.018 1.27  1 0.38 -8.0  1 3.4 -16.3 1  11.0 -20.45 1  17.33 -15.42 1  17.7 -15 1
 2dpmirror result 0 0 
-set length 61.864387478917727
+checklength result -l 61.864387478917727
 
index 1247eb5..531cb48 100644 (file)
@@ -1,4 +1,4 @@
 2dbsplinecurve result  3 8 0. 4 0.13 1 0.28 1 0.47 1  0.62 1  0.75 1 0.89 1  1. 4  -19.5 -4.2 1 -18.9 -4.7 1  -17.3 5.0 1  -8.7 10.9  1  -0.018 1.27  1 0.38 -8.0  1 3.4 -16.3 1  11.0 -20.45 1  17.33 -15.42 1  17.7 -15 1
 2drotate result 0 0 90
-set length 61.864387478917727
+checklength result -l 61.864387478917727
 
index ac34791..d1ec35f 100644 (file)
@@ -1,4 +1,4 @@
 2dbsplinecurve result  3 8 0. 4 0.13 1 0.28 1 0.47 1  0.62 1  0.75 1 0.89 1  1. 4  -19.5 -4.2 1 -18.9 -4.7 1  -17.3 5.0 1  -8.7 10.9  1  -0.018 1.27  1 0.38 -8.0  1 3.4 -16.3 1  11.0 -20.45 1  17.33 -15.42 1  17.7 -15 1
 2dtranslate result 0 0 9
-set length 61.864387478917727
+checklength result -l 61.864387478917727
 
index 65f4086..4ede5c3 100644 (file)
@@ -42,5 +42,5 @@ repeat 10 {comparepnt2d rd1_$i d1_$i  $tol; incr i 1}
 set i 1
 puts " --> Test D2"
 repeat 10 {comparepnt2d rd2_$i d2_$i $tol; incr i 1}
-set length 61.864387478917727
+checklength result -l 61.864387478917727
 
index d10da1f..2fecf22 100644 (file)
@@ -1,2 +1 @@
-set viewer "v2d"
-set type "finite"
+set viewer "v2d"
\ No newline at end of file
index 48399c9..ae9d57f 100644 (file)
@@ -1,5 +1,5 @@
 beziercurve result  3  -2 0 1 0 1 2 2 0 1
 insertpole result 2  1 2 4
 repeat 4 {pd}
-set length 5.8766403018804851
+checklength result -l 5.8766403018804851
 
index 3799a3a..eb03921 100644 (file)
@@ -1,4 +1,4 @@
 beziercurve result  8  0 0 1 0 1 2 -2 1 3 -2 -3 4 4 -3 5 4 5 6 -6 5 7 -6 -4 8
 pscale result 0 0 0 1.2
-set length 20.717921417769418
+checklength result -l 20.717921417769418
 
index cff96e6..5c0cd1b 100644 (file)
@@ -1,4 +1,4 @@
 beziercurve result  3  0 0 1  4 1 2  6 0 1
 smirror result 0 0 0 1 0 0
-set length 6.2279447493965332
+checklength result -l 6.2279447493965332
 
index e50abab..6428768 100644 (file)
@@ -1,4 +1,4 @@
 beziercurve result  8  0 0 1 0 1 2 -2 1 3 -2 -3 4 4 -3 5 4 5 6 -6 5 7 -6 -4 8
 translate result 4 0 0
-set length 17.264934514807834
+checklength result -l 17.264934514807834
 
index 2c8aec1..5c0c039 100644 (file)
@@ -1,4 +1,4 @@
 beziercurve result  8  0 0 1 0 1 2 -2 1 3 -2 -3 4 4 -3 5 4 5 6 -6 5 7 -6 -4 8
 lmirror result 0 0 0 1 0 0
-set length 17.264934514807834
+checklength result -l 17.264934514807834
 
index b46ed35..8c1fea3 100644 (file)
@@ -1,4 +1,4 @@
 beziercurve result  8  0 0 1 0 1 2 -2 1 3 -2 -3 4 4 -3 5 4 5 6 -6 5 7 -6 -4 8
 pmirror result 0 0 0 
-set length 17.264934514807834
+checklength result -l 17.264934514807834
 
index 98c448b..6b0bf1a 100644 (file)
@@ -2,8 +2,8 @@ beziercurve b1  8  0 0 1 0 1 2 -2 1 3 -2 -3 4 4 -3 5 4 5 6 -6 5 7 -6 -4 8
 translate b1 0 0 -3
 copy b1 result
 repeat 10 {
-  rotate result 0 0 0 0 0 1 30
-  copy result .
+    rotate result 0 0 0 0 0 1 30
+    copy result .
 }
-set length 17.264934514807859
+checklength result -l 17.264934514807859
 
index d2beed7..b062822 100644 (file)
@@ -1,4 +1,4 @@
 beziercurve result 8  0 0 1 0 1 2 -2 1 3 -2 -3 4 4 -3 5 4 5 6 -6 5 7 -6 -4 8
 pscale result 0 0 0 1.2
-set length 20.717921417769418
+checklength result -l 20.717921417769418
 
index cff96e6..5c0cd1b 100644 (file)
@@ -1,4 +1,4 @@
 beziercurve result  3  0 0 1  4 1 2  6 0 1
 smirror result 0 0 0 1 0 0
-set length 6.2279447493965332
+checklength result -l 6.2279447493965332
 
index e50abab..6428768 100644 (file)
@@ -1,4 +1,4 @@
 beziercurve result  8  0 0 1 0 1 2 -2 1 3 -2 -3 4 4 -3 5 4 5 6 -6 5 7 -6 -4 8
 translate result 4 0 0
-set length 17.264934514807834
+checklength result -l 17.264934514807834
 
index ee73d23..d4fae78 100644 (file)
@@ -1,3 +1,3 @@
 beziercurve result  3  2 0 1 4 1 2 6 0 1
-set length 4.3119494616416141
+checklength result -l 4.3119494616416141
 
index 29e259a..61a6893 100644 (file)
@@ -1,3 +1,3 @@
 beziercurve result  8  0 0 1 0 1 2 -2 1 3 -2 -3 4 4 -3 5 4 5 6 -6 5 7 -6 -4 8
-set length 17.264934514807834
+checklength result -l 17.264934514807834
 
index 7bcea21..c976c21 100644 (file)
@@ -1,4 +1,4 @@
 beziercurve result  3  2 0 1 4 1 2 6 0 1
 val3d result 0 1 20
-set length 4.3119494616416141
+checklength result -l 4.3119494616416141
 
index 4bf9dcd..f1d313f 100644 (file)
@@ -1,4 +1,4 @@
 beziercurve result  8  0 0 1 0 1 2 -2 1 3 -2 -3 4 4 -3 5 4 5 6 -6 5 7 -6 -4 8
 val3d result 0 1 20
-set length 17.264934514807834
+checklength result -l 17.264934514807834
 
index 0053992..f96443c 100644 (file)
@@ -1,2 +1 @@
-set viewer "smallview"
-set type "finite"
+set viewer "smallview"
\ No newline at end of file
index ca46907..d44fe85 100644 (file)
@@ -6,5 +6,5 @@ repeat 100 {cmovepoint bscurv 0 0. 0.05  0.0  ; incr i 1; repaint}
 set i 1
 repeat 100 {cmovepoint bscurv 0 0. -0.05  0.0 ; incr i 1; repaint}
 renamevar bscurv result
-set length 3.0000000000000004
+checklength result -l 3.0000000000000004
 
index 0ab3175..6b86b68 100644 (file)
@@ -7,5 +7,5 @@ repeat 100 {cmovepoint bscurv 0.3 0. 0.05 0.0e0 ; incr i 1; repaint}
 set i 1
 repeat 100 {cmovepoint bscurv 0.3 0. -0.05 0.0e0 ; incr i 1;repaint}
 renamevar bscurv result
-set length 2.9999999999999996
+checklength result -l 2.9999999999999996
 
index 724fa78..f011f62 100644 (file)
@@ -3,11 +3,12 @@ cvalue b1 2.0 x y z dx dy dz
 set delta 0.01
 set yvalue [dval y] 
 set zvalue [dval z] 
-repeat 100  {
-       cmovetangent b1 2.0  x $yvalue $zvalue dx dy dz 1
-        set yvalue [expr $yvalue + $delta ]
-        set zvalue [expr $zvalue + $delta ]
-        repaint }
+repeat 100 {
+    cmovetangent b1 2.0  x $yvalue $zvalue dx dy dz 1
+    set yvalue [expr $yvalue + $delta ]
+    set zvalue [expr $zvalue + $delta ]
+    repaint
+}
 renamevar b1 result
-set length 8.3346946955628098
+checklength result -l 8.3346946955628098
 
index a491ca2..4918a8a 100644 (file)
@@ -2,5 +2,5 @@ bsplinecurve b1 3 3 0 4 3 1 4 4  0 0 0 1  1 2 0 1   2 3 0 1  3 2 0 1   1 0 0 1
 copy b1 result
 pscale result 0 0 0 1.4
 repeat 5 {pl}
-set length 9.5487985926002157
+checklength result -l 9.5487985926002157
 
index 8bc6c0d..ec46231 100644 (file)
@@ -3,11 +3,12 @@ cvalue b1 2.0 x y z dx dy dz
 set delta 0.01
 set yvalue [dval y] 
 set zvalue [dval z] 
-repeat 100  {
-       cmovetangent b1 2.0  x $yvalue $zvalue dx dy dz 1
-        set yvalue [expr $yvalue + $delta ]
-        set zvalue [expr $zvalue + $delta ]
-        repaint }
+repeat 100 {
+    cmovetangent b1 2.0  x $yvalue $zvalue dx dy dz 1
+    set yvalue [expr $yvalue + $delta ]
+    set zvalue [expr $zvalue + $delta ]
+    repaint
+}
 renamevar b1 result
-set length 7.3508406963557418
+checklength result -l 7.3508406963557418
 
index 52a3a0e..ae1f380 100644 (file)
@@ -5,5 +5,5 @@ pl
 pl
 pl
 pl
-set length 6.6067715112002166
+checklength result -l 6.6067715112002166
 
index f6d3a08..323fc8e 100644 (file)
@@ -4,11 +4,12 @@ set delta 0.01
 point p1 x y z
 set dyvalue [dval dy] 
 set dzvalue [dval dz] 
-repeat 100  {
-       cmovetangent b1 2.0  x y z dx $dyvalue $dzvalue 1
-        set dyvalue [expr $dyvalue + $delta ]
-        set dzvalue [expr $dzvalue + $delta ]
-        repaint }
+repeat 100 {
+    cmovetangent b1 2.0  x y z dx $dyvalue $dzvalue 1
+    set dyvalue [expr $dyvalue + $delta ]
+    set dzvalue [expr $dzvalue + $delta ]
+    repaint
+}
 renamevar b1 result
-set length 7.238501337474319
+checklength result -l 7.238501337474319
 
index 62b4909..bc1a5e5 100644 (file)
@@ -1,5 +1,5 @@
 bsplinecurve b1 3 3 0 4 3 1 4 4  0 0 0 1  1 2 0 1   2 3 0 1  3 2 0 1 2   0 0 1
 copy b1 result
 translate result -1 -2 3
-set length 6.3759776321287411
+checklength result -l 6.3759776321287411
 
index ec7d0c3..fd7059f 100644 (file)
@@ -4,11 +4,12 @@ set delta 0.01
 point p1 x y z
 set dyvalue [dval dy] 
 set dzvalue [dval dz] 
-repeat 100  {
-       cmovetangent b1 2.0  x y z dx $dyvalue $dzvalue 1
-        set dyvalue [expr $dyvalue + $delta ]
-        set dzvalue [expr $dzvalue + $delta ]
-        repaint }
+repeat 100 {
+    cmovetangent b1 2.0  x y z dx $dyvalue $dzvalue 1
+    set dyvalue [expr $dyvalue + $delta ]
+    set dzvalue [expr $dzvalue + $delta ]
+    repaint
+}
 renamevar b1 result
-set length 7.0867664447042955
+checklength result -l 7.0867664447042955
 
index 0f1bf5f..55db188 100644 (file)
@@ -1,4 +1,4 @@
 bsplinecurve result 3 3 0 4 3 1 4 4  0 0 0 1  1 2 0 1   2 3 0 1  3 2 0 1   1 0 0 1
 pmirror result 0 0 0
-set length 6.8205704232858686
+checklength result -l 6.8205704232858686
 
index 9f00e36..c40adfe 100644 (file)
@@ -5,9 +5,9 @@ pl
 pl
 pl
 repeat 10 {
-rotate b2 0 0 0 1 0 0 10
-copy b2 .
+    rotate b2 0 0 0 1 0 0 10
+    copy b2 .
 }
 renamevar b2 result
-set length 6.8205704232858668
+checklength result -l 6.8205704232858668
 
index 81db9bf..33b2103 100644 (file)
@@ -3,5 +3,5 @@ copy b1 b2
 pscale b2 0 0 0 1.4
 repeat 5 {pl}
 renamevar b2 result
-set length 9.5487985926002157
+checklength result -l 9.5487985926002157
 
index 6bcb502..b3448c6 100644 (file)
@@ -6,5 +6,5 @@ pl
 pl
 pl
 renamevar b2 result
-set length 6.6067715112002166
+checklength result -l 6.6067715112002166
 
index 77d41e0..b478d8e 100644 (file)
@@ -1,5 +1,5 @@
 bsplinecurve b2 3 3 0 4 3 1 4 4  0 0 0 1  1 2 0 1   2 3 0 1  3 2 0 1 2   0 0 1
 copy b2 result
 translate result -1 -2 3
-set length 6.3759776321287411
+checklength result -l 6.3759776321287411
 
index 66e4eb0..ddd5a15 100644 (file)
@@ -5,5 +5,5 @@ pd
 pl
 pl
 pl
-set length 5.5977288617103262
+checklength result -l 5.5977288617103262
 
index 8920bb6..494b432 100644 (file)
@@ -5,5 +5,5 @@ pd
 pl
 pl
 pl
-set length 6.3759776321287411
+checklength result -l 6.3759776321287411
 
index ca84de8..502ba54 100644 (file)
@@ -1,4 +1,4 @@
 bsplinecurve result 3 3 0 4 3 1 4 4  0 0 0 1  1 2 0 1   2 3 0 1  3 2 0 1   1 0 0 1
 lmirror result 0 0 0 0 1 0
-set length 6.8205704232858686
+checklength result -l 6.8205704232858686
 
index 8c58276..4c606a1 100644 (file)
@@ -1,4 +1,4 @@
 bsplinecurve result 3 3 0 4 3 1 4 4  0 0 0 1  1 2 0 1   2 3 0 1  3 2 0 1   1 0 0 1
 lmirror result 0 0 0 1 0 0
-set length 6.8205704232858686
+checklength result -l 6.8205704232858686
 
index 582cb4d..baee764 100644 (file)
@@ -1,5 +1,5 @@
 bsplinecurve result 3 3 0 4 3 1 4 4  0 0 0 1  1 2 0 1   2 3 0 1  3 2 0 1   1 0 0 1
 lmirror result 0 0 0 0 1 0
 lmirror result 0 0 0 1 0 0
-set length 6.8205704232858686
+checklength result -l 6.8205704232858686
 
index ec1debb..a7dada8 100644 (file)
@@ -6,5 +6,5 @@ pl
 pl
 pl
 val3d result 0 4 20
-set length 5.5977288617103262
+checklength result -l 5.5977288617103262
 
index 1e96dc5..eb36b92 100644 (file)
@@ -6,5 +6,5 @@ pl
 pl
 pl
 val3d result 0 4 20
-set length 6.3759776321287411
+checklength result -l 6.3759776321287411
 
index 0053992..f96443c 100644 (file)
@@ -1,2 +1 @@
-set viewer "smallview"
-set type "finite"
+set viewer "smallview"
\ No newline at end of file
index b005443..66668de 100644 (file)
@@ -1,4 +1,4 @@
 circle c 0 0 0  0 0 1  1
 convert result c 
-set length 6.2831853071795853
+checklength result -l 6.2831853071795853
 
index 5251404..6c3ef60 100644 (file)
@@ -1,5 +1,5 @@
 circle cer 0 0 0  0 0 1  1
 trim cer cer 0 pi
 convert result cer c1
-set length 3.1415926535897931
+checklength result -l 3.1415926535897931
 
index 5f430de..51728e0 100644 (file)
@@ -1,4 +1,4 @@
 circle cer 0 0 0  0 0 1  1
 convert result cer c1
-set length 6.2831853071795871
+checklength result -l 6.2831853071795871
 
index faf56c0..de45444 100644 (file)
@@ -1,5 +1,5 @@
 circle c 0 0 0  0 0 1  1
 trim c c 0 6.28
 convert result c po
-set length 6.2800124075908368
+checklength result -l 6.2800124075908368
 
index 903e83b..45c8ba6 100644 (file)
@@ -1,5 +1,5 @@
 circle cer 0 0 0  0 0 1  1
 trim cer cer 0 pi
 convert result cer qa
-set length 3.1415926535897931
+checklength result -l 3.1415926535897931
 
index 2b943b4..79bfca8 100644 (file)
@@ -1,5 +1,5 @@
 circle cer 0 0 0  0 0 1  1
 trim cer cer 0 4*pi/3
 convert result cer qa
-set length 4.1887902047863896
+checklength result -l 4.1887902047863896
 
index b8fe154..64b2e70 100644 (file)
@@ -1,5 +1,5 @@
 circle cer 0 0 0  0 0 1  1
 trim cer cer 0 pi/3
 convert result cer qa
-set length 1.0471975511965974
+checklength result -l 1.0471975511965974
 
index 31c7089..aa215ed 100644 (file)
@@ -1,5 +1,5 @@
 circle cer 0 0 0  0 0 1  1
 trim cer cer 0 2*pi
 convert result cer qa
-set length 6.2831853071795827
+checklength result -l 6.2831853071795827
 
index 2dc2940..de4cc82 100644 (file)
@@ -1,4 +1,4 @@
 circle cer 0 0 0  0 0 1  1
 convert result cer qa
-set length 6.2831853071795845
+checklength result -l 6.2831853071795845
 
index ea3f544..826d21f 100644 (file)
@@ -2,5 +2,5 @@ circle c -40 0 1 0 20
 offset result c 10
 2dlmirror result 0 0 0 1
 set viewer "v2d"
-set length 62.831853071795862
+checklength result -l 62.831853071795862
 
index c8645a3..6a37744 100644 (file)
@@ -1,4 +1,4 @@
 circle result 0 0 1 0 0.2
 set viewer "v2d"
-set length 1.2566370614359172
+checklength result -l 1.2566370614359172
 
index 25ae990..c0364f2 100644 (file)
@@ -1,4 +1,4 @@
 circle result 0.1 0.2 1 1 0.1
 set viewer "v2d"
-set length 0.62831853071795862
+checklength result -l 0.62831853071795862
 
index b4f08cf..e0f005f 100644 (file)
@@ -1,3 +1,3 @@
 circle result 0 0 0    0 0 1  1 0 0 0.2
-set length 1.2566370614359172
+checklength result -l 1.2566370614359172
 
index f5c55e7..27f8f36 100644 (file)
@@ -1,3 +1,3 @@
 circle result 0 0 0.1  0 1 1  1 0 0 0.3
-set length 1.8849555921538759
+checklength result -l 1.8849555921538759
 
index 03e92d1..7c4f835 100644 (file)
@@ -1,5 +1,5 @@
 circle c1 -30 30  1 0 20
 trim result c1 0 pi
 set viewer "v2d"
-set length 62.831853071795862
+checklength result -l 62.831853071795862
 
index 42a7868..f336c33 100644 (file)
@@ -1,5 +1,5 @@
 circle c2 -30 -30 1 0 20
 trim result c2 pi 2*pi
 set viewer "v2d"
-set length 62.831853071795862
+checklength result -l 62.831853071795862
 
index d14d8e9..d88bfb0 100644 (file)
@@ -1,5 +1,5 @@
 circle c3 30  -30 1 0 20
 trim result c3 3*pi/2 5*pi/2
 set viewer "v2d"
-set length 62.831853071795862
+checklength result -l 62.831853071795862
 
index 425d423..05bcfd2 100644 (file)
@@ -1,5 +1,5 @@
 circle c4 30  30 1 0 20
 trim result c4 pi pi/2
 set viewer "v2d"
-set length 94.247779607693786
+checklength result -l 94.247779607693786
 
index f77b150..7a06e1d 100644 (file)
@@ -1,6 +1,6 @@
 circle result 70 0 1 0 30
 2dtranslate result -200 0
 set viewer "v2d"
-set length 188.49555921538757
+checklength result -l 188.49555921538757
 
 
index 3322a78..972feb1 100644 (file)
@@ -1,5 +1,5 @@
 circle result 0 0 1 0 30
 val2d  result 0 [dval 2*pi] 20
 set viewer "v2d"
-set length 188.49555921538757
+checklength result -l 188.49555921538757
 
index 4d1c7ac..4eca751 100644 (file)
@@ -1,4 +1,4 @@
 circle result 0 0 1 0 0 1 1 0 0 30
 val3d  result 0 [dval 2*pi] 20
-set length 188.49555921538757
+checklength result -l 188.49555921538757
 
index 6cb7e28..4a86148 100644 (file)
@@ -1,5 +1,5 @@
 circle result 0 0  1 0  200
 reverse result
 set viewer "v2d"
-set length 1256.6370614359173
+checklength result -l 1256.6370614359173
 
index 607bfea..fdcb017 100644 (file)
@@ -1,4 +1,4 @@
 circle result 70 0 0  0 0 1   1 0 0   30
 smirror result 0 0 0 1 0 -1
-set length 188.49555921538757
+checklength result -l 188.49555921538757
 
index 4b7e45d..7971c4c 100644 (file)
@@ -1,4 +1,4 @@
 circle result 70 0 0  0 0 1   1 0 0   30
 translate result 0 -100 200
-set length 188.49555921538757
+checklength result -l 188.49555921538757
 
index 29251f2..a993462 100644 (file)
@@ -7,5 +7,5 @@ pl
 pl
 pu
 pu
-set length 6.2831853071795853
+checklength result -l 6.2831853071795853
 
index e3cee4a..11e5617 100644 (file)
@@ -8,5 +8,5 @@ convert result cr
 2dpu
 2dpu
 set viewer "v2d"
-set length 6.2831853071795853
+checklength result -l 6.2831853071795853
 
index 9879810..217480b 100644 (file)
@@ -1,5 +1,5 @@
 circle result 70 0 1 0 30
 2dlmirror result 0 0 0 1
 set viewer "v2d"
-set length 188.49555921538757
+checklength result -l 188.49555921538757
 
index 40eb56e..5bee25b 100644 (file)
@@ -1,5 +1,5 @@
 circle result 70 0 1 0 30
 2dpmirror result 0 0
 set viewer "v2d"
-set length 188.49555921538757
+checklength result -l 188.49555921538757
 
index d397187..20d5366 100644 (file)
@@ -1,9 +1,9 @@
 circle result 0  0 1 0 30
 dset ech 1.1
 repeat 20 { 
-       2dpscale result 0 0 0 ech; 
-       copy result .; 
+    2dpscale result 0 0 0 ech; 
+    copy result .; 
 }
 set viewer "v2d"
-set length 1268.1038650696225
+checklength result -l 1268.1038650696225
 
index b4e8648..e1ae2bc 100644 (file)
@@ -1,5 +1,5 @@
 circle result 70 0 1 0 30
 2drotate result 0 0 90
 set viewer "v2d"
-set length 188.49555921538757
+checklength result -l 188.49555921538757
 
index 12ca3d0..433e08a 100644 (file)
@@ -1,5 +1,5 @@
 circle result 70 0 1 0 30
 2dtranslate result -200 0
 set viewer "v2d"
-set length 188.49555921538757
+checklength result -l 188.49555921538757
 
index a28e9c6..06ef200 100644 (file)
@@ -1,4 +1,4 @@
 circle result 70 0 0  0 0 1   1 0 0   30
 lmirror result 0 0 0  0 1  0
-set length 188.49555921538757
+checklength result -l 188.49555921538757
 
index 098279c..96e831e 100644 (file)
@@ -1,4 +1,4 @@
 circle result 70 0 0  0 0 1   1 0 0   30
 pmirror result 0 0 0
-set length 188.49555921538757
+checklength result -l 188.49555921538757
 
index 0aac53b..900539a 100644 (file)
@@ -1,6 +1,6 @@
 circle result 70 0 0  0 0 1   1 0 0   30
 repeat 7 {rotate result 0 0 0 0 0 1 45;
-       copy result .;
+    copy result .;
 }
-set length 188.49555921538757
+checklength result -l 188.49555921538757
 
index 7b0c420..dcc8aea 100644 (file)
@@ -2,5 +2,5 @@ circle result 70 0 0  0 0 1   1 0 0   30
 pscale result 0 0 0 5
 repeat 4 {pl}
 dmode result U
-set length 942.47779607693792
+checklength result -l 942.47779607693792
 
index 607bfea..fdcb017 100644 (file)
@@ -1,4 +1,4 @@
 circle result 70 0 0  0 0 1   1 0 0   30
 smirror result 0 0 0 1 0 -1
-set length 188.49555921538757
+checklength result -l 188.49555921538757
 
index 4b7e45d..7971c4c 100644 (file)
@@ -1,4 +1,4 @@
 circle result 70 0 0  0 0 1   1 0 0   30
 translate result 0 -100 200
-set length 188.49555921538757
+checklength result -l 188.49555921538757
 
index 0053992..f96443c 100644 (file)
@@ -1,2 +1 @@
-set viewer "smallview"
-set type "finite"
+set viewer "smallview"
\ No newline at end of file
index 594c314..e44293d 100644 (file)
@@ -1,5 +1,5 @@
 ellipse  cer 0 0 0  0 0 1  2 1
 trim cer cer 0 pi
 convert result cer c1
-set length 4.8442241102738386
+checklength result -l 4.8442241102738386
 
index 2a1a185..2fbc168 100644 (file)
@@ -1,4 +1,4 @@
 ellipse  cer 0 0 0  0 0 1  2 1
 convert result cer c1
-set length 9.6884482205476772
+checklength result -l 9.6884482205476772
 
index 18711b8..3c9d7da 100644 (file)
@@ -1,5 +1,5 @@
 ellipse cer 0 0 0  0 0 1  2 1
 trim cer cer 0 pi
 convert result cer qa
-set length 4.8442241102733714
+checklength result -l 4.8442241102733714
 
index 0b815fb..754aff6 100644 (file)
@@ -1,5 +1,5 @@
 ellipse  cer 0 0 0  0 0 1  2 1 
 trim cer cer 0 4*pi/3
 convert result cer qa
-set length 6.2541520204793155
+checklength result -l 6.2541520204793155
 
index 194a4b1..b456977 100644 (file)
@@ -1,5 +1,5 @@
 ellipse  cer 0 0 0  0 0 1  2 1 
 trim cer cer 0 pi/3
 convert result cer qa
-set length 1.4099279102054671
+checklength result -l 1.4099279102054671
 
index dfd2981..9d5ee3b 100644 (file)
@@ -1,4 +1,4 @@
 ellipse result 0 0 1 0 0.2 0.1
 set viewer "v2d"
-set length 0.96884482174527109
+checklength result -l 0.96884482174527109
 
index d29c538..600890b 100644 (file)
@@ -1,4 +1,4 @@
 ellipse result 0 0 1 1 0.25 0.15
 set viewer "v2d"
-set length 1.2763499431763086
+checklength result -l 1.2763499431763086
 
index 37c5aaf..18ef5f8 100644 (file)
@@ -1,3 +1,3 @@
 ellipse result 0 0 0 0 0 1 1 0 0 20 10
-set length 96.884482205475521
+checklength result -l 96.884482205475521
 
index 2b2d924..6337d20 100644 (file)
@@ -1,3 +1,3 @@
 ellipse result 0 0 0 1 0 0 0 0 1 25 15
-set length 127.63499431699034
+checklength result -l 127.63499431699034
 
index b77b636..abdb75f 100644 (file)
@@ -1,5 +1,5 @@
 ellipse   result 70 0 1 0 40 20
 2dtranslate result -200 0
 set viewer "v2d"
-set length 193.76896441095104
+checklength result -l 193.76896441095104
 
index 95b55a5..56f7c21 100644 (file)
@@ -1,5 +1,5 @@
 ellipse result 0 0 1 0 40 20
 val2d result 0 [dval 2*pi] 20
 set viewer "v2d"
-set length 193.76896441095104
+checklength result -l 193.76896441095104
 
index f68bf85..4199591 100644 (file)
@@ -1,4 +1,4 @@
 ellipse result 0 0 0 0 0 1 1 0 0 40 20
 val3d result 0 [dval 2*pi] 20
-set length 193.76896441095104
+checklength result -l 193.76896441095104
 
index c716836..ab73f54 100644 (file)
@@ -1,5 +1,5 @@
 ellipse result 0 0  1 0  400 300
 reverse result
 set viewer "v2d"
-set length 2210.3492160709502
+checklength result -l 2210.3492160709502
 
index 18aadc8..cf69162 100644 (file)
@@ -1,4 +1,4 @@
 ellipse result 70 0 0  0 0 1   1 0 0   40 20
 smirror result 0 0 0 1 0 -1
-set length 193.76896441095104
+checklength result -l 193.76896441095104
 
index 2a3611e..ef8437d 100644 (file)
@@ -1,4 +1,4 @@
 ellipse result 70 0 0  0 0 1   1 0 0   40 20
 translate result 0 -100 200
-set length 193.76896441095104
+checklength result -l 193.76896441095104
 
index 27c1a3a..ec84dd9 100644 (file)
@@ -7,5 +7,5 @@ pl
 pl
 pu
 pu
-set length 4.844224110274018
+checklength result -l 4.844224110274018
 
index 50a5cdd..e6f85a4 100644 (file)
@@ -8,5 +8,5 @@ convert result er
 2dpu
 2dpu
 set viewer "v2d"
-set length 4.844224110274018
+checklength result -l 4.844224110274018
 
index c74e1b9..1efbfab 100644 (file)
@@ -1,5 +1,5 @@
 ellipse result 70 0 1 0 40 20
 2dlmirror result 0 0 0 1
 set viewer "v2d"
-set length 193.76896441095104
+checklength result -l 193.76896441095104
 
index fae58cf..427a846 100644 (file)
@@ -1,5 +1,5 @@
 ellipse result 70 0 1 0 40 20
 2dpmirror result 0 0
 set viewer "v2d"
-set length 193.76896441095104
+checklength result -l 193.76896441095104
 
index 64c42e1..d01a73d 100644 (file)
@@ -1,9 +1,9 @@
 ellipse result 0  0 1 0 40 20
 dset ech 1.1
 repeat 20 { 
-       2dpscale result 0 0 0 ech; 
-       copy result .; 
+    2dpscale result 0 0 0 ech; 
+    copy result .; 
 }
 set viewer "v2d"
-set length 1303.5806982555659
+checklength result -l 1303.5806982555659
 
index ee7b7d7..ee7a46e 100644 (file)
@@ -1,5 +1,5 @@
 ellipse result 70 0 1 0 40 20
 2drotate result 0 0 90
 set viewer "v2d"
-set length 193.76896441095104
+checklength result -l 193.76896441095104
 
index bb12681..7edae4b 100644 (file)
@@ -1,5 +1,5 @@
 ellipse result 70 0 1 0 40 20
 2dtranslate result -200 0
 set viewer "v2d"
-set length 193.76896441095104
+checklength result -l 193.76896441095104
 
index 2978269..76215b6 100644 (file)
@@ -1,4 +1,4 @@
 ellipse result 70 0 0  0 0 1   1 0 0   40 20
 lmirror result 0 0 0  0 1  0
-set length 193.76896441095104
+checklength result -l 193.76896441095104
 
index c381d4c..35cdb62 100644 (file)
@@ -1,4 +1,4 @@
 ellipse result 70 0 0  0 0 1   1 0 0   40 20
 pmirror result 0 0 0
-set length 193.76896441095104
+checklength result -l 193.76896441095104
 
index 4279051..d0fea2a 100644 (file)
@@ -1,6 +1,6 @@
 ellipse result 70 0 0  0 0 1   1 0 0   40 20
 repeat 7 {rotate result 0 0 0 0 0 1 45;
-       copy result .;
+    copy result .;
 }
-set length 193.76896441095104
+checklength result -l 193.76896441095104
 
index da2ad23..2152b14 100644 (file)
@@ -2,5 +2,5 @@ ellipse result 70 0 0  0 0 1   1 0 0   40 20
 pscale result 0 0 0 5
 repeat 4 {pl}
 dmode result U
-set length 968.84482205476752
+checklength result -l 968.84482205476752
 
index 18aadc8..cf69162 100644 (file)
@@ -1,4 +1,4 @@
 ellipse result 70 0 0  0 0 1   1 0 0   40 20
 smirror result 0 0 0 1 0 -1
-set length 193.76896441095104
+checklength result -l 193.76896441095104
 
index 2a3611e..ef8437d 100644 (file)
@@ -1,4 +1,4 @@
 ellipse result 70 0 0  0 0 1   1 0 0   40 20
 translate result 0 -100 200
-set length 193.76896441095104
+checklength result -l 193.76896441095104
 
index 0053992..f96443c 100644 (file)
@@ -1,2 +1 @@
-set viewer "smallview"
-set type "finite"
+set viewer "smallview"
\ No newline at end of file
index 460b470..d400c0d 100755 (executable)
@@ -1,88 +1,3 @@
-proc comparison { x1 x1_o prop } {
-    set precision 0.0000001
-    if { ( abs($x1) > $precision ) || ( abs($x1_o) > $precision ) } {
-        if { ($x1_o != 0 && [expr 1.*abs($x1_o - $x1)/$x1_o] > 0.01) || ($x1_o == 0 && $x1 != 0) } {
-            puts "Error : The $prop of the resulting shape is $x1 and the expected $prop is $x1_o"
-        }
-    }
-}
-
-if { [isdraw result] } {
-    if { [info exists type] && [string compare "$type" "infinite"] == 0 && ![info exists length] } {
-        set ddump [dump result]
-        regexp {Axis   *: *([-0-9.+eE]+), *([-0-9.+eE]+),* *([-0-9.+eE]*) *} $ddump full Axis_1 Axis_2 Axis_3 
-        comparison $Axis_1 $Axis_o_1 "Axis_1"
-        comparison $Axis_2 $Axis_o_2 "Axis_2"
-        if { [info exists Axis_o_3] } {
-            comparison $Axis_3 $Axis_o_3 "Axis_3"
-        }
-        if { [regexp {Line} $ddump] } {
-            regexp {Origin *: *([-0-9.+eE]+), *([-0-9.+eE]+),* *([-0-9.+eE]*) *} $ddump full Origin_1 Origin_2 Origin_3 
-            comparison $Origin_1 $Origin_o_1 "Origin_1"
-            comparison $Origin_2 $Origin_o_2 "Origin_2"
-            if { [info exists Origin_o_3] } {
-                comparison $Origin_3 $Origin_o_3 "Origin_3"
-            }
-        } elseif { [regexp {Parabola} $ddump] || [regexp {Hyperbola} $ddump] } { 
-            regexp {Center *: *([-0-9.+eE]+), *([-0-9.+eE]+),* *([-0-9.+eE]*) *} $ddump full Center_1 Center_2 Center_3 
-            comparison $Center_1 $Center_o_1 "Center_1"
-            comparison $Center_2 $Center_o_2 "Center_2"
-            if { [info exists Center_o_3] } {
-                comparison $Center_3 $Center_o_3 "Center_3"
-            }
-            regexp {XAxis  *: *([-0-9.+eE]+), *([-0-9.+eE]+),* *([-0-9.+eE]*) *} $ddump full XAxis_1 XAxis_2 XAxis_3
-            comparison $XAxis_1 $XAxis_o_1 "XAxis_1"
-            comparison $XAxis_2 $XAxis_o_2 "XAxis_2"
-            if { [info exists XAxis_o_3] } {
-                comparison $XAxis_3 $XAxis_o_3 "XAxis_3"
-            }
-            regexp {YAxis  *: *([-0-9.+eE]+), *([-0-9.+eE]+),* *([-0-9.+eE]*) *} $ddump full YAxis_1 YAxis_2 YAxis_3
-            comparison $YAxis_1 $YAxis_o_1 "YAxis_1"
-            comparison $YAxis_2 $YAxis_o_2 "YAxis_2"
-            if { [info exists YAxis_o_3] } {
-                comparison $YAxis_3 $YAxis_o_3 "YAxis_3"
-            }
-            if { [regexp {Hyperbola} $ddump] } {
-                regexp {Radii  *: *([-0-9.+eE]+), *([-0-9.+eE]+) *} $ddump full LastParam_1 LastParam_2
-            } else {
-                regexp {Focal  *: *([-0-9.+eE]+) *} $ddump full LastParam_1
-            }
-            comparison $LastParam_1 $LastParam_o_1 "LastParam_1"
-            if { [info exists LastParam_o_2] } {
-                comparison $LastParam_2 $LastParam_o_2 "LastParam_2"
-            }
-        } else {
-            puts "Error : undefined type" 
-        }
-    } else {
-        if { [info exists length] } {
-            set prop "length"
-            set mass $length
-            regexp {The +length +result +is +([-0-9.+eE]+)} [length result] full m
-        }
-        if { [info exists mass] } {
-            if { [string compare "$mass" "empty"] != 0 } {
-                if { $m == 0 } {
-                    puts "Error : The $command is not valid. The $prop is 0."
-                }
-                if { $mass > 0 } {
-                    puts "The expected $prop is $mass"
-                }
-                #check of change of length is < 1%
-                if { ($mass != 0 && [expr 1.*abs($mass - $m)/$mass] > 0.01) || ($mass == 0 && $m != 0) } {
-                    puts "Error : The $prop of the resulting shape is $m"
-                }
-            } else {
-                if { $m != 0 } {
-                    puts "Error : The $command is not valid. The $prop is $m"
-                }
-            }
-        }
-    }
-} else {
-    puts "Error : The $command cannot be built."
-}
-
 $viewer
 if { [string compare "$viewer" "v2d"] == 0 } {
     2dclear
index 6798522..4946c9c 100644 (file)
@@ -1,8 +1,2 @@
 hyperbola result 0 0 0 0 0 1 1 0 0 20 10
-
-set Center_o_1 0; set Center_o_2 0; set Center_o_3 0; 
-set Axis_o_1 0; set Axis_o_2 0; set Axis_o_3 1; 
-set XAxis_o_1 1; set XAxis_o_2 0; set XAxis_o_3 -0; 
-set YAxis_o_1 -0; set YAxis_o_2 1; set YAxis_o_3 0; 
-set LastParam_o_1 20; set LastParam_o_2 10; 
-
+checkdump result -name {Center Axis XAxis YAxis Radii} -ref {{0 0 0} {0 0 1} {1 0 -0} {-0 1 0} {20 10}} -eps 0.01
index dd57e65..3d7cf8c 100644 (file)
@@ -1,5 +1,5 @@
 hyperbola hyper 0 0 0 0 0 1 2 1
 trim hyper hyper -1 1
 convert result hyper
-set length 3.3078924645283738
+checklength result -l 3.3078924645283738
 
index 3cb699c..6fbd90a 100644 (file)
@@ -1,9 +1,3 @@
 hyperbola result 0 0 1 0 20 10
-set viewer "v2d"
-
-set Center_o_1 0; set Center_o_2 0; 
-set Axis_o_1 1; set Axis_o_2 0; 
-set XAxis_o_1 1; set XAxis_o_2 0; 
-set YAxis_o_1 -0; set YAxis_o_2 1; 
-set LastParam_o_1 20; set LastParam_o_2 10; 
-
+checkdump result -name {Center Axis XAxis YAxis Radii} -ref {{0 0} {1 0} {1 0} {-0 1} {20 10}} -eps 0.01
+set viewer "v2d"
\ No newline at end of file
index 4b38a10..a6ab6a7 100644 (file)
@@ -1,9 +1,3 @@
 hyperbola result 0 0 0 1 10 8
-set viewer "v2d"
-
-set Center_o_1 0; set Center_o_2 0; 
-set Axis_o_1 0; set Axis_o_2 1; 
-set XAxis_o_1 0; set XAxis_o_2 1; 
-set YAxis_o_1 -1; set YAxis_o_2 0; 
-set LastParam_o_1 10; set LastParam_o_2 8; 
-
+checkdump result -name {Center Axis XAxis YAxis Radii} -ref {{0 0} {0 1} {0 1} {-1 0} {10 8}} -eps 0.01
+set viewer "v2d"
\ No newline at end of file
index 8a14891..f880d34 100644 (file)
@@ -1,9 +1,3 @@
 hyperbola result 70 0 1 0 20 10
 2dtranslate result -200 0
-
-set Center_o_1 -130; set Center_o_2 0; 
-set Axis_o_1 1; set Axis_o_2 0; 
-set XAxis_o_1 1; set XAxis_o_2 0; 
-set YAxis_o_1 -0; set YAxis_o_2 1; 
-set LastParam_o_1 20; set LastParam_o_2 10; 
-
+checkdump result -name {Center Axis XAxis YAxis Radii} -ref {{-130 0} {1 0} {1 0} {-0 1} {20 10}} -eps 0.01
\ No newline at end of file
index 4a7bb53..4927c62 100644 (file)
@@ -1,9 +1,3 @@
 hyperbola result 0 0 1 0 20 10
 val2d result -5 5 40
-
-set Center_o_1 0; set Center_o_2 0; 
-set Axis_o_1 1; set Axis_o_2 0; 
-set XAxis_o_1 1; set XAxis_o_2 0; 
-set YAxis_o_1 -0; set YAxis_o_2 1; 
-set LastParam_o_1 20; set LastParam_o_2 10; 
-
+checkdump result -name {Center Axis XAxis YAxis Radii} -ref {{0 0} {1 0} {1 0} {-0 1} {20 10}} -eps 0.01
\ No newline at end of file
index 53fffb2..f1ed375 100644 (file)
@@ -1,9 +1,3 @@
 hyperbola result 0 0 0 0 0 1 1 0 0  20 10
 val3d result -5 5 40
-
-set Center_o_1 0; set Center_o_2 0; set Center_o_3 0; 
-set Axis_o_1 0; set Axis_o_2 0; set Axis_o_3 1; 
-set XAxis_o_1 1; set XAxis_o_2 0; set XAxis_o_3 -0; 
-set YAxis_o_1 -0; set YAxis_o_2 1; set YAxis_o_3 0; 
-set LastParam_o_1 20; set LastParam_o_2 10; 
-
+checkdump result -name {Center Axis XAxis YAxis Radii} -ref {{0 0 0} {0 0 1} {1 0 -0} {-0 1 0} {20 10}} -eps 0.01
\ No newline at end of file
index b5f63a5..fc7bb7d 100644 (file)
@@ -1,9 +1,3 @@
 hyperbola result 0 0  -1 0  30 20
 reverse result
-
-set Center_o_1 0; set Center_o_2 0; 
-set Axis_o_1 -1; set Axis_o_2 0; 
-set XAxis_o_1 -1; set XAxis_o_2 0; 
-set YAxis_o_1 0; set YAxis_o_2 1; 
-set LastParam_o_1 30; set LastParam_o_2 20; 
-
+checkdump result -name {Center Axis XAxis YAxis Radii} -ref {{0 0} {-1 0} {-1 0} {0 1} {30 20}} -eps 0.01
\ No newline at end of file
index f6d817b..6d78f10 100644 (file)
@@ -1,9 +1,3 @@
 hyperbola result 70 0 0  0 0 1   1 0 0   20 10
 smirror result 0 0 0 1 0 -1
-
-set Center_o_1 -1.55431223447522e-14; set Center_o_2 0; set Center_o_3 70; 
-set Axis_o_1 -1; set Axis_o_2 -0; set Axis_o_3 -2.22044604925031e-16; 
-set XAxis_o_1 -2.22044604925031e-16; set XAxis_o_2 -0; set XAxis_o_3 1; 
-set YAxis_o_1 -0; set YAxis_o_2 1; set YAxis_o_3 -0; 
-set LastParam_o_1 20; set LastParam_o_2 10; 
-
+checkdump result -name {Center Axis XAxis YAxis Radii} -ref {{-1.55431223447522e-14 0 70} {-1 -0 -2.22044604925031e-16} {-2.22044604925031e-16 -0 1} {-0 1 -0} {20 10}} -eps 0.01
\ No newline at end of file
index 7135733..a7afe59 100644 (file)
@@ -1,9 +1,3 @@
 hyperbola result 70 0 0  0 0 1   1 0 0   20 10
 translate result 0 -100 200
-
-set Center_o_1 70; set Center_o_2 -100; set Center_o_3 200; 
-set Axis_o_1 0; set Axis_o_2 0; set Axis_o_3 1; 
-set XAxis_o_1 1; set XAxis_o_2 0; set XAxis_o_3 -0; 
-set YAxis_o_1 -0; set YAxis_o_2 1; set YAxis_o_3 0; 
-set LastParam_o_1 20; set LastParam_o_2 10; 
-
+checkdump result -name {Center Axis XAxis YAxis Radii} -ref {{70 -100 200} {0 0 1} {1 0 -0} {-0 1 0} {20 10}} -eps 0.01
\ No newline at end of file
index 86dea15..de6eea8 100644 (file)
@@ -8,5 +8,4 @@ pl
 pl
 pu
 pu
-set length 1.6539462322641865
-
+checklength result -l 1.6539462322641865
\ No newline at end of file
index e140531..0fc9bf0 100644 (file)
@@ -8,5 +8,4 @@ convert result hr
 2dpl
 2dpu
 2dpu
-set length 1.6539462322641865
-
+checklength result -l 1.6539462322641865
\ No newline at end of file
index 87cc225..b0f071e 100644 (file)
@@ -1,9 +1,3 @@
 hyperbola result 70 0 1 0 20 10
 2dlmirror result 0 0 0 1
-
-set Center_o_1 -70; set Center_o_2 0; 
-set Axis_o_1 -1; set Axis_o_2 0; 
-set XAxis_o_1 -1; set XAxis_o_2 0; 
-set YAxis_o_1 0; set YAxis_o_2 1; 
-set LastParam_o_1 20; set LastParam_o_2 10; 
-
+checkdump result -name {Center Axis XAxis YAxis Radii} -ref {{-70 0} {-1 0} {-1 0} {0 1} {20 10}} -eps 0.01
\ No newline at end of file
index e38f9c5..0064143 100644 (file)
@@ -1,9 +1,3 @@
 hyperbola result 70 0 1 0 20 10
 2dpmirror result 0 0
-
-set Center_o_1 -70; set Center_o_2 0; 
-set Axis_o_1 -1; set Axis_o_2 -0; 
-set XAxis_o_1 -1; set XAxis_o_2 -0; 
-set YAxis_o_1 0; set YAxis_o_2 -1; 
-set LastParam_o_1 20; set LastParam_o_2 10; 
-
+checkdump result -name {Center Axis XAxis YAxis Radii} -ref {{-70 0} {-1 -0} {-1 -0} {0 -1} {20 10}} -eps 0.01
\ No newline at end of file
index 625253f..ca7a81b 100644 (file)
@@ -1,13 +1,7 @@
 hyperbola result 0  0 1 0 20 10
 dset ech 1.1
 repeat 20 { 
-       2dpscale result 0 0 0 ech; 
-       copy result .; 
+    2dpscale result 0 0 0 ech; 
+    copy result .; 
 }
-
-set Center_o_1 0; set Center_o_2 0; 
-set Axis_o_1 1; set Axis_o_2 0; 
-set XAxis_o_1 1; set XAxis_o_2 0; 
-set YAxis_o_1 -0; set YAxis_o_2 1; 
-set LastParam_o_1 134.549998986512; set LastParam_o_2 67.2749994932561; 
-
+checkdump result -name {Center Axis XAxis YAxis Radii} -ref {{0 0} {1 0} {1 0} {-0 1} {134.549998986512 67.2749994932561}} -eps 0.01
\ No newline at end of file
index 421063d..360a8f6 100644 (file)
@@ -1,9 +1,3 @@
 hyperbola result 70 0 1 0 20 10
 2drotate result 0 0 90
-
-set Center_o_1 4.28612223837832e-15; set Center_o_2 70; 
-set Axis_o_1 6.12303176911189e-17; set Axis_o_2 1; 
-set XAxis_o_1 6.12303176911189e-17; set XAxis_o_2 1; 
-set YAxis_o_1 -1; set YAxis_o_2 6.12303176911189e-17; 
-set LastParam_o_1 20; set LastParam_o_2 10; 
-
+checkdump result -name {Center Axis XAxis YAxis Radii} -ref {{4.28612223837832e-15 70} {6.12303176911189e-17 1} {6.12303176911189e-17 1} {-1 6.12303176911189e-17} {20 10}} -eps 0.01
\ No newline at end of file
index 8a14891..f880d34 100644 (file)
@@ -1,9 +1,3 @@
 hyperbola result 70 0 1 0 20 10
 2dtranslate result -200 0
-
-set Center_o_1 -130; set Center_o_2 0; 
-set Axis_o_1 1; set Axis_o_2 0; 
-set XAxis_o_1 1; set XAxis_o_2 0; 
-set YAxis_o_1 -0; set YAxis_o_2 1; 
-set LastParam_o_1 20; set LastParam_o_2 10; 
-
+checkdump result -name {Center Axis XAxis YAxis Radii} -ref {{-130 0} {1 0} {1 0} {-0 1} {20 10}} -eps 0.01
\ No newline at end of file
index 7ccbefb..12d4a4c 100644 (file)
@@ -1,9 +1,3 @@
 hyperbola result 70 0 0  0 0 1   1 0 0   20 10
 lmirror result 0 0 0  0 1  0
-
-set Center_o_1 -70; set Center_o_2 0; set Center_o_3 0; 
-set Axis_o_1 0; set Axis_o_2 0; set Axis_o_3 -1; 
-set XAxis_o_1 -1; set XAxis_o_2 0; set XAxis_o_3 0; 
-set YAxis_o_1 0; set YAxis_o_2 1; set YAxis_o_3 0; 
-set LastParam_o_1 20; set LastParam_o_2 10; 
-
+checkdump result -name {Center Axis XAxis YAxis Radii} -ref {{-70 0 0} {0 0 -1} {-1 0 0} {0 1 0} {20 10}} -eps 0.01
\ No newline at end of file
index 937645c..97e1953 100644 (file)
@@ -1,9 +1,3 @@
 hyperbola result 70 0 0  0 0 1   1 0 0   20 10
 pmirror result 0 0 0
-
-set Center_o_1 -70; set Center_o_2 0; set Center_o_3 0; 
-set Axis_o_1 0; set Axis_o_2 0; set Axis_o_3 1; 
-set XAxis_o_1 -1; set XAxis_o_2 -0; set XAxis_o_3 0; 
-set YAxis_o_1 0; set YAxis_o_2 -1; set YAxis_o_3 -0; 
-set LastParam_o_1 20; set LastParam_o_2 10; 
-
+checkdump result -name {Center Axis XAxis YAxis Radii} -ref {{-70 0 0} {0 0 1} {-1 -0 0} {0 -1 -0} {20 10}} -eps 0.01
\ No newline at end of file
index c4c510a..bb356e6 100644 (file)
@@ -1,11 +1,5 @@
 hyperbola result 70 0 0  0 0 1   1 0 0   20 10
 repeat 7 {rotate result 0 0 0 0 0 1 45;
-       copy result .;
+    copy result .;
 }
-
-set Center_o_1 49.4974746830583; set Center_o_2 -49.4974746830583; set Center_o_3 0; 
-set Axis_o_1 -0; set Axis_o_2 0; set Axis_o_3 1; 
-set XAxis_o_1 0.707106781186547; set XAxis_o_2 -0.707106781186548; set XAxis_o_3 0; 
-set YAxis_o_1 0.707106781186548; set YAxis_o_2 0.707106781186547; set YAxis_o_3 0; 
-set LastParam_o_1 20; set LastParam_o_2 10; 
-
+checkdump result -name {Center Axis XAxis YAxis Radii} -ref {{49.4974746830583 -49.4974746830583 0} {-0 0 1} {0.707106781186547 -0.707106781186548 0} {0.707106781186548 0.707106781186547 0} {20 10}} -eps 0.01
\ No newline at end of file
index b275266..235ccff 100644 (file)
@@ -2,10 +2,4 @@ hyperbola result 70 0 0  0 0 1   1 0 0   20 10
 pscale result 0 0 0 5
 repeat 4 {pl}
 dmode result U
-
-set Center_o_1 350; set Center_o_2 0; set Center_o_3 0; 
-set Axis_o_1 0; set Axis_o_2 0; set Axis_o_3 1; 
-set XAxis_o_1 1; set XAxis_o_2 0; set XAxis_o_3 -0; 
-set YAxis_o_1 -0; set YAxis_o_2 1; set YAxis_o_3 0; 
-set LastParam_o_1 100; set LastParam_o_2 50; 
-
+checkdump result -name {Center Axis XAxis YAxis Radii} -ref {{350 0 0} {0 0 1} {1 0 -0} {-0 1 0} {100 50}} -eps 0.01
\ No newline at end of file
index f6d817b..6d78f10 100644 (file)
@@ -1,9 +1,3 @@
 hyperbola result 70 0 0  0 0 1   1 0 0   20 10
 smirror result 0 0 0 1 0 -1
-
-set Center_o_1 -1.55431223447522e-14; set Center_o_2 0; set Center_o_3 70; 
-set Axis_o_1 -1; set Axis_o_2 -0; set Axis_o_3 -2.22044604925031e-16; 
-set XAxis_o_1 -2.22044604925031e-16; set XAxis_o_2 -0; set XAxis_o_3 1; 
-set YAxis_o_1 -0; set YAxis_o_2 1; set YAxis_o_3 -0; 
-set LastParam_o_1 20; set LastParam_o_2 10; 
-
+checkdump result -name {Center Axis XAxis YAxis Radii} -ref {{-1.55431223447522e-14 0 70} {-1 -0 -2.22044604925031e-16} {-2.22044604925031e-16 -0 1} {-0 1 -0} {20 10}} -eps 0.01
\ No newline at end of file
index 7135733..a7afe59 100644 (file)
@@ -1,9 +1,3 @@
 hyperbola result 70 0 0  0 0 1   1 0 0   20 10
 translate result 0 -100 200
-
-set Center_o_1 70; set Center_o_2 -100; set Center_o_3 200; 
-set Axis_o_1 0; set Axis_o_2 0; set Axis_o_3 1; 
-set XAxis_o_1 1; set XAxis_o_2 0; set XAxis_o_3 -0; 
-set YAxis_o_1 -0; set YAxis_o_2 1; set YAxis_o_3 0; 
-set LastParam_o_1 20; set LastParam_o_2 10; 
-
+checkdump result -name {Center Axis XAxis YAxis Radii} -ref {{70 -100 200} {0 0 1} {1 0 -0} {-0 1 0} {20 10}} -eps 0.01
\ No newline at end of file
index 8c9b4bf..f96443c 100644 (file)
@@ -1,2 +1 @@
-set viewer "smallview"
-set type "infinite"
\ No newline at end of file
+set viewer "smallview"
\ No newline at end of file
index 661d081..d486193 100644 (file)
@@ -9,5 +9,5 @@ offset offs1 p 0.3
 viso curv_v2 offs1 0.2
 copy curv_v2 result
 set viewer "smallview"
-set length 1.3447354805936929
+checklength result -l 1.3447354805936929
 
index f504b0c..8141bdd 100644 (file)
@@ -9,5 +9,5 @@ offset offs1 p 0.3
 uiso curv_u2 offs1 0.2
 copy curv_u2 result
 set viewer "smallview"
-set length 1.3447354805936929
+checklength result -l 1.3447354805936929
 
index d23e706..2e21eac 100644 (file)
@@ -9,7 +9,7 @@ offset offs1 p 0.3
 uiso curv_u2 offs1 0.2
 copy curv_u2 result
 set viewer "smallview"
-set length 1.3447354805936931
+checklength result -l 1.3447354805936931
 
 
 
index 904d84e..48b667a 100644 (file)
@@ -9,6 +9,4 @@ offset offs1 p 0.3
 viso curv_v2 offs1 0.2
 copy curv_v2 result
 set viewer "smallview"
-set length 1.3447354805936929
-
-
+checklength result -l 1.3447354805936929
\ No newline at end of file
index 0053992..f96443c 100644 (file)
@@ -1,2 +1 @@
-set viewer "smallview"
-set type "finite"
+set viewer "smallview"
\ No newline at end of file
index 0cf9144..ed519db 100644 (file)
@@ -3,9 +3,10 @@ set delta 0.01
 2dcvalue law1 1.5 x y dx dy
 set value [dval y]
 repeat 50 { 
-       movelaw law1 1.5 $value dy  0  
-       set value [expr $value + $delta] 
-       repaint }
+    movelaw law1 1.5 $value dy  0  
+    set value [expr $value + $delta] 
+    repaint
+}
 copy law1 result
-set length 3.3374712943009293
+checklength result -l 3.3374712943009293
 
index c47543c..618e29e 100644 (file)
@@ -3,9 +3,10 @@ set delta 0.007
 2dcvalue law1 1.5 x y  dx dy
 set tvalue [dval dy] 
 repeat 100 { 
-       movelaw law1 1.5  y $tvalue  1  
-       set tvalue [expr $tvalue + $delta] 
-       repaint }
+    movelaw law1 1.5  y $tvalue  1  
+    set tvalue [expr $tvalue + $delta] 
+    repaint
+}
 copy law1 result
-set length 3.3254491241005475
+checklength result -l 3.3254491241005475
 
index 0cf9144..ed519db 100644 (file)
@@ -3,9 +3,10 @@ set delta 0.01
 2dcvalue law1 1.5 x y dx dy
 set value [dval y]
 repeat 50 { 
-       movelaw law1 1.5 $value dy  0  
-       set value [expr $value + $delta] 
-       repaint }
+    movelaw law1 1.5 $value dy  0  
+    set value [expr $value + $delta] 
+    repaint
+}
 copy law1 result
-set length 3.3374712943009293
+checklength result -l 3.3374712943009293
 
index c47543c..618e29e 100644 (file)
@@ -3,9 +3,10 @@ set delta 0.007
 2dcvalue law1 1.5 x y  dx dy
 set tvalue [dval dy] 
 repeat 100 { 
-       movelaw law1 1.5  y $tvalue  1  
-       set tvalue [expr $tvalue + $delta] 
-       repaint }
+    movelaw law1 1.5  y $tvalue  1  
+    set tvalue [expr $tvalue + $delta] 
+    repaint
+}
 copy law1 result
-set length 3.3254491241005475
+checklength result -l 3.3254491241005475
 
index d10da1f..2fecf22 100644 (file)
@@ -1,2 +1 @@
-set viewer "v2d"
-set type "finite"
+set viewer "v2d"
\ No newline at end of file
index 7e6b29e..b225028 100644 (file)
@@ -1,6 +1,3 @@
 line result 0 0 1 1
 set viewer "v2d"
-
-set Origin_o_1 0; set Origin_o_2 0; 
-set Axis_o_1 0.707106781186548; set Axis_o_2 0.707106781186548; 
-
+checkdump result -name {Origin Axis} -ref {{0 0} {0.707106781186548 0.707106781186548}} -eps 0.01
\ No newline at end of file
index 1386790..4d5096c 100644 (file)
@@ -1,6 +1,3 @@
 line result 1 1 2 3
 set viewer "v2d"
-
-set Origin_o_1 1; set Origin_o_2 1; 
-set Axis_o_1 0.554700196225229; set Axis_o_2 0.832050294337844; 
-
+checkdump result -name {Origin Axis} -ref {{1 1} {0.554700196225229 0.832050294337844}} -eps 0.01
\ No newline at end of file
index b4b463f..6993bb8 100644 (file)
@@ -1,5 +1,2 @@
 line result 0 0 0 1 1 1
-
-set Origin_o_1 0; set Origin_o_2 0; set Origin_o_3 0; 
-set Axis_o_1 0.577350269189626; set Axis_o_2 0.577350269189626; set Axis_o_3 0.577350269189626; 
-
+checkdump result -name {Origin Axis} -ref {{0 0 0} {0.577350269189626 0.577350269189626 0.577350269189626}} -eps 0.01
\ No newline at end of file
index 945d71e..8c3b873 100644 (file)
@@ -1,5 +1,2 @@
 line result 1 2 3 4 5 6
-
-set Origin_o_1 1; set Origin_o_2 2; set Origin_o_3 3; 
-set Axis_o_1 0.455842305838552; set Axis_o_2 0.56980288229819; set Axis_o_3 0.683763458757828; 
-
+checkdump result -name {Origin Axis} -ref {{1 2 3} {0.455842305838552 0.56980288229819 0.683763458757828}} -eps 0.01
\ No newline at end of file
index 0bb945a..5fb713d 100644 (file)
@@ -3,5 +3,5 @@ trim lin1 lin1 -1 1
 convert result lin1
 2dcvalue result 0 x y dx dy d2x d2y
 set viewer "v2d"
-set length 2
+checklength result -l 2
 
index 0904699..1bfa60e 100644 (file)
@@ -1,7 +1,4 @@
 line result 0 0  1 3
 val2d result 0 100 20
 set viewer "v2d"
-
-set Origin_o_1 0; set Origin_o_2 0; 
-set Axis_o_1 0.316227766016838; set Axis_o_2 0.948683298050514; 
-
+checkdump result -name {Origin Axis} -ref {{0 0} {0.316227766016838 0.948683298050514}} -eps 0.01
\ No newline at end of file
index 3554791..9b0360e 100644 (file)
@@ -1,6 +1,3 @@
 line result 0 0 0 1 3 1
 val3d result 0 100 20
-
-set Origin_o_1 0; set Origin_o_2 0; set Origin_o_3 0; 
-set Axis_o_1 0.301511344577764; set Axis_o_2 0.904534033733291; set Axis_o_3 0.301511344577764; 
-
+checkdump result -name {Origin Axis} -ref {{0 0 0} {0.301511344577764 0.904534033733291 0.301511344577764}} -eps 0.01
\ No newline at end of file
index 0f2bd59..6e9ce63 100644 (file)
@@ -8,5 +8,5 @@ pl
 pl
 pu
 pu
-set length 2.9999999999999996
+checklength result -l 2.9999999999999996
 
index 4e307ea..b0f34ea 100644 (file)
@@ -9,5 +9,5 @@ convert result lr
 2dpu
 2dpu
 set viewer "v2d"
-set length 2.9999999999999996
+checklength result -l 2.9999999999999996
 
index 8807dfc..2191686 100644 (file)
@@ -1,7 +1,4 @@
 line result 70 0 0  1 1 0  
 repeat 4 {pl}
 dmode result U
-
-set Origin_o_1 70; set Origin_o_2 0; set Origin_o_3 0; 
-set Axis_o_1 0.707106781186548; set Axis_o_2 0.707106781186548; set Axis_o_3 0; 
-
+checkdump result -name {Origin Axis} -ref {{70 0 0} {0.707106781186548 0.707106781186548 0}} -eps 0.01
\ No newline at end of file
index 268981a..f96443c 100644 (file)
@@ -1,2 +1 @@
-set viewer "smallview"
-set type "infinite"
+set viewer "smallview"
\ No newline at end of file
index d745437..b529125 100644 (file)
@@ -1,5 +1,5 @@
 parabola para 0 0 0 0 0 1 2
 trim para para -1 1
 convert result para
-set length 2.0206422525934427
+checklength result -l 2.0206422525934427
 
index 8565913..782025b 100644 (file)
@@ -1,10 +1,4 @@
 parabola result  0  1  0  1 10
 dmode result U
 set viewer "v2d"
-
-set Center_o_1 0; set Center_o_2 1; 
-set Axis_o_1 0; set Axis_o_2 1; 
-set XAxis_o_1 0; set XAxis_o_2 1; 
-set YAxis_o_1 -1; set YAxis_o_2 0; 
-set LastParam_o_1 10; 
-
+checkdump result -name {Center Axis XAxis YAxis Focal} -ref {{0 1} {0 1} {0 1} {-1 0} {10}} -eps 0.01
\ No newline at end of file
index 370b96e..81aae89 100644 (file)
@@ -1,10 +1,4 @@
 parabola result  0 -1  0 -1 10
 dmode result U 
 set viewer "v2d"
-
-set Center_o_1 0; set Center_o_2 -1; 
-set Axis_o_1 0; set Axis_o_2 -1; 
-set XAxis_o_1 0; set XAxis_o_2 -1; 
-set YAxis_o_1 1; set YAxis_o_2 0; 
-set LastParam_o_1 10; 
-
+checkdump result -name {Center Axis XAxis YAxis Focal} -ref {{0 -1} {0 -1} {0 -1} {1 0} {10}} -eps 0.01
\ No newline at end of file
index 30b9680..bcd83bd 100644 (file)
@@ -1,10 +1,4 @@
 parabola result  1  0  1  0 10
 dmode result U
 set viewer "v2d"
-
-set Center_o_1 1; set Center_o_2 0; 
-set Axis_o_1 1; set Axis_o_2 0; 
-set XAxis_o_1 1; set XAxis_o_2 0; 
-set YAxis_o_1 -0; set YAxis_o_2 1; 
-set LastParam_o_1 10; 
-
+checkdump result -name {Center Axis XAxis YAxis Focal} -ref {{1 0} {1 0} {1 0} {-0 1} {10}} -eps 0.01
\ No newline at end of file
index 2501d03..797a0d1 100644 (file)
@@ -1,9 +1,4 @@
 parabola result -1  0 -1  0 10
 dmode result U
 set viewer "v2d"
-set Center_o_1 -1; set Center_o_2 0; 
-set Axis_o_1 -1; set Axis_o_2 0; 
-set XAxis_o_1 -1; set XAxis_o_2 0; 
-set YAxis_o_1 -0; set YAxis_o_2 -1; 
-set LastParam_o_1 10; 
-
+checkdump result -name {Center Axis XAxis YAxis Focal} -ref {{-1 0} {-1 0} {-1 0} {-0 -1} {10}} -eps 0.01
\ No newline at end of file
index 1f97298..b637ed8 100644 (file)
@@ -1,9 +1,3 @@
 parabola result  0  1  1   0  0  1     0  1  0  10
 dmode result U
-
-set Center_o_1 0; set Center_o_2 1; set Center_o_3 1; 
-set Axis_o_1 0; set Axis_o_2 0; set Axis_o_3 1; 
-set XAxis_o_1 0; set XAxis_o_2 1; set XAxis_o_3 0; 
-set YAxis_o_1 -1; set YAxis_o_2 0; set YAxis_o_3 0; 
-set LastParam_o_1 10; 
-
+checkdump result -name {Center Axis XAxis YAxis Focal} -ref {{0 1 1} {0 0 1} {0 1 0} {-1 0 0} {10}} -eps 0.01
\ No newline at end of file
index f184e8e..e5569e5 100644 (file)
@@ -1,8 +1,3 @@
 parabola result  0 -1  1   0  0  1    0 -1  0  10
 dmode result U 
-set Center_o_1 0; set Center_o_2 -1; set Center_o_3 1; 
-set Axis_o_1 0; set Axis_o_2 0; set Axis_o_3 1; 
-set XAxis_o_1 0; set XAxis_o_2 -1; set XAxis_o_3 0; 
-set YAxis_o_1 1; set YAxis_o_2 0; set YAxis_o_3 -0; 
-set LastParam_o_1 10; 
-
+checkdump result -name {Center Axis XAxis YAxis Focal} -ref {{0 -1 1} {0 0 1} {0 -1 0} {1 0 -0} {10}} -eps 0.01
\ No newline at end of file
index ffe7e4e..b929b4c 100644 (file)
@@ -1,9 +1,3 @@
 parabola result  1  0  0   0  1  0    1  0  0  10
 dmode result U
-
-set Center_o_1 1; set Center_o_2 0; set Center_o_3 0; 
-set Axis_o_1 0; set Axis_o_2 1; set Axis_o_3 0; 
-set XAxis_o_1 1; set XAxis_o_2 0; set XAxis_o_3 0; 
-set YAxis_o_1 0; set YAxis_o_2 0; set YAxis_o_3 -1; 
-set LastParam_o_1 10; 
-
+checkdump result -name {Center Axis XAxis YAxis Focal} -ref {{1 0 0} {0 1 0} {1 0 0} {0 0 -1} {10}} -eps 0.01
\ No newline at end of file
index 05de6e2..e3ed74d 100644 (file)
@@ -1,9 +1,3 @@
 parabola result -1  0  0   0  1  0   -1  0  0  10
 dmode result U
-
-set Center_o_1 -1; set Center_o_2 0; set Center_o_3 0; 
-set Axis_o_1 0; set Axis_o_2 1; set Axis_o_3 0; 
-set XAxis_o_1 -1; set XAxis_o_2 0; set XAxis_o_3 0; 
-set YAxis_o_1 0; set YAxis_o_2 -0; set YAxis_o_3 1; 
-set LastParam_o_1 10; 
-
+checkdump result -name {Center Axis XAxis YAxis Focal} -ref {{-1 0 0} {0 1 0} {-1 0 0} {0 -0 1} {10}} -eps 0.01
\ No newline at end of file
index 4a2ca84..9138703 100644 (file)
@@ -1,10 +1,4 @@
 parabola  result 70 1  0  1 10
 2dtranslate result -200 0
 set viewer "v2d"
-
-set Center_o_1 -130; set Center_o_2 1; 
-set Axis_o_1 0; set Axis_o_2 1; 
-set XAxis_o_1 0; set XAxis_o_2 1; 
-set YAxis_o_1 -1; set YAxis_o_2 0; 
-set LastParam_o_1 10; 
-
+checkdump result -name {Center Axis XAxis YAxis Focal} -ref {{-130 1} {0 1} {0 1} {-1 0} {10}} -eps 0.01
\ No newline at end of file
index 0f75304..c13bc88 100644 (file)
@@ -1,10 +1,4 @@
 parabola result  0  1  0  1 10
 val2d result -50 50 40
 set viewer "v2d"
-
-set Center_o_1 0; set Center_o_2 1; 
-set Axis_o_1 0; set Axis_o_2 1; 
-set XAxis_o_1 0; set XAxis_o_2 1; 
-set YAxis_o_1 -1; set YAxis_o_2 0; 
-set LastParam_o_1 10; 
-
+checkdump result -name {Center Axis XAxis YAxis Focal} -ref {{0 1} {0 1} {0 1} {-1 0} {10}} -eps 0.01
\ No newline at end of file
index 3df2b9c..893dece 100644 (file)
@@ -1,9 +1,3 @@
 parabola result  0 0 0 0 0 1  0 1 0 10
 val3d result -50 50 40
-
-set Center_o_1 0; set Center_o_2 0; set Center_o_3 0; 
-set Axis_o_1 0; set Axis_o_2 0; set Axis_o_3 1; 
-set XAxis_o_1 0; set XAxis_o_2 1; set XAxis_o_3 0; 
-set YAxis_o_1 -1; set YAxis_o_2 0; set YAxis_o_3 0; 
-set LastParam_o_1 10; 
-
+checkdump result -name {Center Axis XAxis YAxis Focal} -ref {{0 0 0} {0 0 1} {0 1 0} {-1 0 0} {10}} -eps 0.01
\ No newline at end of file
index 7f961d5..71843ad 100644 (file)
@@ -1,11 +1,4 @@
 parabola result 0 0  1 0  30
 reverse result
 set viewer "v2d"
-
-
-set Center_o_1 0; set Center_o_2 0; 
-set Axis_o_1 1; set Axis_o_2 0; 
-set XAxis_o_1 1; set XAxis_o_2 0; 
-set YAxis_o_1 0; set YAxis_o_2 -1; 
-set LastParam_o_1 30; 
-
+checkdump result -name {Center Axis XAxis YAxis Focal} -ref {{0 0} {1 0} {1 0} {0 -1} {30}} -eps 0.01
\ No newline at end of file
index 3c47f4b..82b0a6e 100644 (file)
@@ -1,9 +1,3 @@
 parabola result 70 1 0  0 0 1   0 1 0   10
 smirror result 0 0 0 1 0 -1
-
-set Center_o_1 -1.55431223447522e-14; set Center_o_2 1; set Center_o_3 70; 
-set Axis_o_1 -1; set Axis_o_2 -0; set Axis_o_3 -2.22044604925031e-16; 
-set XAxis_o_1 -0; set XAxis_o_2 1; set XAxis_o_3 -0; 
-set YAxis_o_1 2.22044604925031e-16; set YAxis_o_2 0; set YAxis_o_3 -1; 
-set LastParam_o_1 10; 
-
+checkdump result -name {Center Axis XAxis YAxis Focal} -ref {{-1.55431223447522e-14 1 70} {-1 -0 -2.22044604925031e-16} {-0 1 -0} {.22044604925031e-16 0 -1} {10}} -eps 0.01
\ No newline at end of file
index 1d0c261..931672c 100644 (file)
@@ -1,9 +1,3 @@
 parabola result 70 1 0  0 0 1   0 1 0   10
 translate result 0 -100 200
-
-set Center_o_1 70; set Center_o_2 -99; set Center_o_3 200; 
-set Axis_o_1 0; set Axis_o_2 -0; set Axis_o_3 1; 
-set XAxis_o_1 0; set XAxis_o_2 1; set XAxis_o_3 0; 
-set YAxis_o_1 -1; set YAxis_o_2 0; set YAxis_o_3 0; 
-set LastParam_o_1 10; 
-
+checkdump result -name {Center Axis XAxis YAxis Focal} -ref {{70 -99 200} {0 -0 1} {0 1 0} {-1 0 0} {10}} -eps 0.01
\ No newline at end of file
index 1455a28..f3d518b 100644 (file)
@@ -8,5 +8,5 @@ pl
 pl
 pu
 pu
-set length 3.3514748622014476
+checklength result -l 3.3514748622014476
 
index 8b9b0c0..0afe384 100644 (file)
@@ -9,5 +9,5 @@ convert result pr
 2dpu
 2dpu
 set viewer "v2d"
-set length 3.3514748622014476
+checklength result -l 3.3514748622014476
 
index 5d7559f..2bd607e 100644 (file)
@@ -1,10 +1,4 @@
 parabola result 70 1  0  1 10
 2dlmirror result 0 0 0 1
 set viewer "v2d"
-
-set Center_o_1 -70; set Center_o_2 1; 
-set Axis_o_1 -0; set Axis_o_2 1; 
-set XAxis_o_1 -0; set XAxis_o_2 1; 
-set YAxis_o_1 1; set YAxis_o_2 -0; 
-set LastParam_o_1 10; 
-
+checkdump result -name {Center Axis XAxis YAxis Focal} -ref {{-70 1} {-0 1} {-0 1} {1 -0} {10}} -eps 0.01
\ No newline at end of file
index 726853e..3d170bf 100644 (file)
@@ -1,10 +1,4 @@
 parabola result 70 1  0  1 10
 2dpmirror result 0 0
 set viewer "v2d"
-
-set Center_o_1 -70; set Center_o_2 -1; 
-set Axis_o_1 -0; set Axis_o_2 -1; 
-set XAxis_o_1 -0; set XAxis_o_2 -1; 
-set YAxis_o_1 1; set YAxis_o_2 -0; 
-set LastParam_o_1 10; 
-
+checkdump result -name {Center Axis XAxis YAxis Focal} -ref {{-70 -1} {-0 -1} {-0 -1} {1 -0} {10}} -eps 0.01
\ No newline at end of file
index afa88aa..98d8d4b 100644 (file)
@@ -1,14 +1,8 @@
 parabola result 0  0  0  10 10
 dset ech 1.1
 repeat 20 { 
-       2dpscale result 0 0 0 ech; 
-       copy result .; 
+    2dpscale result 0 0 0 ech; 
+    copy result .; 
 }
 set viewer "v2d"
-
-set Center_o_1 0; set Center_o_2 0; 
-set Axis_o_1 0; set Axis_o_2 1; 
-set XAxis_o_1 0; set XAxis_o_2 1; 
-set YAxis_o_1 -1; set YAxis_o_2 0; 
-set LastParam_o_1 67.2749994932561; 
-
+checkdump result -name {Center Axis XAxis YAxis Focal} -ref {{0 0} {0 1} {0 1} {-1 0} {67.2749994932561}} -eps 0.01
\ No newline at end of file
index 9b4d042..0c6ab8a 100644 (file)
@@ -1,10 +1,4 @@
 parabola result 70 1  0  1 10
 2drotate result 0 0 90
 set viewer "v2d"
-
-set Center_o_1 -0.999999999999996; set Center_o_2 70; 
-set Axis_o_1 -1; set Axis_o_2 6.12303176911189e-17; 
-set XAxis_o_1 -1; set XAxis_o_2 6.12303176911189e-17; 
-set YAxis_o_1 -6.12303176911189e-17; set YAxis_o_2 -1; 
-set LastParam_o_1 10; 
-
+checkdump result -name {Center Axis XAxis YAxis Focal} -ref {{-0.999999999999996 70} {-1 6.12303176911189e-17} {-1 6.12303176911189e-17} {-6.12303176911189e-17 -1} {10}} -eps 0.01
\ No newline at end of file
index f3d03f5..e9748ee 100644 (file)
@@ -1,10 +1,4 @@
 parabola result 70 1  0  1 10
 2dtranslate result -200 0
 set viewer "v2d"
-
-set Center_o_1 -130; set Center_o_2 1; 
-set Axis_o_1 0; set Axis_o_2 1; 
-set XAxis_o_1 0; set XAxis_o_2 1; 
-set YAxis_o_1 -1; set YAxis_o_2 0; 
-set LastParam_o_1 10; 
-
+checkdump result -name {Center Axis XAxis YAxis Focal} -ref {{-130 1} {0 1} {0 1} {-1 0} {10}} -eps 0.01
\ No newline at end of file
index f2f406d..45ecc5f 100644 (file)
@@ -1,9 +1,3 @@
 parabola result 70 1 0  0 0 1   0 1 0   10
 lmirror result 0 0 0  0 1  0
-
-set Center_o_1 -70; set Center_o_2 1; set Center_o_3 0; 
-set Axis_o_1 0; set Axis_o_2 0; set Axis_o_3 -1; 
-set XAxis_o_1 0; set XAxis_o_2 1; set XAxis_o_3 0; 
-set YAxis_o_1 1; set YAxis_o_2 0; set YAxis_o_3 0; 
-set LastParam_o_1 10; 
-
+checkdump result -name {Center Axis XAxis YAxis Focal} -ref {{-70 1 0} {0 0 -1} {0 1 0} {1 0 0} {10}} -eps 0.01
\ No newline at end of file
index 2fb770b..fb80fc9 100644 (file)
@@ -1,9 +1,3 @@
 parabola result 70 1 0  0 0 1   0 1 0   10
 pmirror result 0 0 0
-
-set Center_o_1 -70; set Center_o_2 -1; set Center_o_3 0; 
-set Axis_o_1 0; set Axis_o_2 -0; set Axis_o_3 1; 
-set XAxis_o_1 -0; set XAxis_o_2 -1; set XAxis_o_3 -0; 
-set YAxis_o_1 1; set YAxis_o_2 -0; set YAxis_o_3 -0; 
-set LastParam_o_1 10; 
-
+checkdump result -name {Center Axis XAxis YAxis Focal} -ref {{-70 -1 0} {0 -0 1} {-0 -1 -0} {1 -0 -0} {10}} -eps 0.01
\ No newline at end of file
index 9c56046..44f461d 100644 (file)
@@ -1,11 +1,5 @@
 parabola result 70 1 0  0 0 1   0 1 0   10
 repeat 7 {rotate result 0 0 0 0 0 1 45;
-       copy result .;
+    copy result .;
 }
-
-set Center_o_1 50.2045814642448; set Center_o_2 -48.7903679018718; set Center_o_3 0; 
-set Axis_o_1 0; set Axis_o_2 -0; set Axis_o_3 1; 
-set XAxis_o_1 0.707106781186548; set XAxis_o_2 0.707106781186547; set XAxis_o_3 0; 
-set YAxis_o_1 -0.707106781186547; set YAxis_o_2 0.707106781186548; set YAxis_o_3 0; 
-set LastParam_o_1 10; 
-
+checkdump result -name {Center Axis XAxis YAxis Focal} -ref {{50.2045814642448 -48.7903679018718 0} {0 -0 1} {0.707106781186548 0.707106781186547 0} {-0.707106781186547 0.707106781186548 0} {10}} -eps 0.01
\ No newline at end of file
index 9709191..da532ce 100644 (file)
@@ -2,10 +2,4 @@ parabola result 70 1 0  0 0 1   0 1 0   10
 pscale result 0 0 0 5
 repeat 4 {pl}
 dmode result U
-
-set Center_o_1 350; set Center_o_2 5; set Center_o_3 0; 
-set Axis_o_1 0; set Axis_o_2 -0; set Axis_o_3 1; 
-set XAxis_o_1 0; set XAxis_o_2 1; set XAxis_o_3 0; 
-set YAxis_o_1 -1; set YAxis_o_2 0; set YAxis_o_3 0; 
-set LastParam_o_1 50; 
-
+checkdump result -name {Center Axis XAxis YAxis Focal} -ref {{350 5 0} {0 -0 1} {0 1 0} {-1 0 0} {50}} -eps 0.01
\ No newline at end of file
index 3c47f4b..48337cc 100644 (file)
@@ -1,9 +1,3 @@
 parabola result 70 1 0  0 0 1   0 1 0   10
 smirror result 0 0 0 1 0 -1
-
-set Center_o_1 -1.55431223447522e-14; set Center_o_2 1; set Center_o_3 70; 
-set Axis_o_1 -1; set Axis_o_2 -0; set Axis_o_3 -2.22044604925031e-16; 
-set XAxis_o_1 -0; set XAxis_o_2 1; set XAxis_o_3 -0; 
-set YAxis_o_1 2.22044604925031e-16; set YAxis_o_2 0; set YAxis_o_3 -1; 
-set LastParam_o_1 10; 
-
+checkdump result -name {Center Axis XAxis YAxis Focal} -ref {{-1.55431223447522e-14 1 70} {-1 -0 -2.22044604925031e-16} {-0 1 -0} {2.22044604925031e-16 0 -1} {10}} -eps 0.01
\ No newline at end of file
index 1d0c261..931672c 100644 (file)
@@ -1,9 +1,3 @@
 parabola result 70 1 0  0 0 1   0 1 0   10
 translate result 0 -100 200
-
-set Center_o_1 70; set Center_o_2 -99; set Center_o_3 200; 
-set Axis_o_1 0; set Axis_o_2 -0; set Axis_o_3 1; 
-set XAxis_o_1 0; set XAxis_o_2 1; set XAxis_o_3 0; 
-set YAxis_o_1 -1; set YAxis_o_2 0; set YAxis_o_3 0; 
-set LastParam_o_1 10; 
-
+checkdump result -name {Center Axis XAxis YAxis Focal} -ref {{70 -99 200} {0 -0 1} {0 1 0} {-1 0 0} {10}} -eps 0.01
\ No newline at end of file
index 268981a..f96443c 100644 (file)
@@ -1,2 +1 @@
-set viewer "smallview"
-set type "infinite"
+set viewer "smallview"
\ No newline at end of file
index f897912..9964abf 100644 (file)
@@ -1,5 +1,5 @@
 restore [locate_data_file pro5075_bug-proj4-curve1.rle] curv1
 restore [locate_data_file pro5075_bug-proj4-surface.rle] surf1
 project result curv1 surf1 -v 50
-set length 0.062450996195736283
+checklength result -l 0.062450996195736283
 
index 11b4f21..e17260e 100644 (file)
@@ -1,5 +1,5 @@
 restore [locate_data_file pro5075_bug-proj4-curve2.rle] curv1
 restore [locate_data_file pro5075_bug-proj4-surface.rle] surf1
 project result curv1 surf1 -v 50
-set length 1.2463576545507855
+checklength result -l 1.2463576545507855
 
index b4b0c2e..7a42284 100644 (file)
@@ -1,5 +1,5 @@
 restore [locate_data_file pro5102_bug-proj5-curve.rle] curv1
 restore [locate_data_file pro5102_bug-proj5-surface.rle] surf1
 project result curv1 surf1 -v 50
-set length 3.1415926535897993
+checklength result -l 3.1415926535897993
 
index afaa480..f8130a8 100644 (file)
@@ -1,5 +1,5 @@
 restore [locate_data_file pro5103_bug-proj6-curve.rle] curv1
 restore [locate_data_file pro5103_bug-proj6-surface.rle] surf1
 project result curv1 surf1 -v 50
-set length 0.0074999999675910405
+checklength result -l 0.0074999999675910405
 
index f897912..9964abf 100644 (file)
@@ -1,5 +1,5 @@
 restore [locate_data_file pro5075_bug-proj4-curve1.rle] curv1
 restore [locate_data_file pro5075_bug-proj4-surface.rle] surf1
 project result curv1 surf1 -v 50
-set length 0.062450996195736283
+checklength result -l 0.062450996195736283
 
index 11b4f21..e17260e 100644 (file)
@@ -1,5 +1,5 @@
 restore [locate_data_file pro5075_bug-proj4-curve2.rle] curv1
 restore [locate_data_file pro5075_bug-proj4-surface.rle] surf1
 project result curv1 surf1 -v 50
-set length 1.2463576545507855
+checklength result -l 1.2463576545507855
 
index b4b0c2e..7a42284 100644 (file)
@@ -1,5 +1,5 @@
 restore [locate_data_file pro5102_bug-proj5-curve.rle] curv1
 restore [locate_data_file pro5102_bug-proj5-surface.rle] surf1
 project result curv1 surf1 -v 50
-set length 3.1415926535897993
+checklength result -l 3.1415926535897993
 
index afaa480..f8130a8 100644 (file)
@@ -1,5 +1,5 @@
 restore [locate_data_file pro5103_bug-proj6-curve.rle] curv1
 restore [locate_data_file pro5103_bug-proj6-surface.rle] surf1
 project result curv1 surf1 -v 50
-set length 0.0074999999675910405
+checklength result -l 0.0074999999675910405
 
index d10da1f..2fecf22 100644 (file)
@@ -1,2 +1 @@
-set viewer "v2d"
-set type "finite"
+set viewer "v2d"
\ No newline at end of file
index 0053992..f96443c 100644 (file)
@@ -1,2 +1 @@
-set viewer "smallview"
-set type "finite"
+set viewer "smallview"
\ No newline at end of file