0023476: Integration of test grid "cge" into the new testing system

diff --git a/tests/geometry/2dbeziecurve/A1 b/tests/geometry/2dbeziecurve/A1
new file mode 100644 (file)
index 0000000..b1cee8f
--- /dev/null
+++ b/tests/geometry/2dbeziecurve/A1
@@ -0,0 +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
+

diff --git a/tests/geometry/2dbeziecurve/A2 b/tests/geometry/2dbeziecurve/A2
new file mode 100644 (file)
index 0000000..1e9286e
--- /dev/null
+++ b/tests/geometry/2dbeziecurve/A2
@@ -0,0 +1,4 @@
+2dbeziercurve result  3  -2 0  0 -3  2 0
+insertpole result 2 1 6 1
+set length 7.1843642663784797
+

diff --git a/tests/geometry/2dbeziecurve/A3 b/tests/geometry/2dbeziecurve/A3
new file mode 100644 (file)
index 0000000..31e0457
--- /dev/null
+++ b/tests/geometry/2dbeziecurve/A3
@@ -0,0 +1,6 @@
+2dbeziercurve b1  8  0 0 0 1 -2 1 -2 -3 4 -3 4 5 -6 5 -6 -4
+trim b2 b1 0 0.2
+trim b3 b1 0.3 0.5
+trim result b1 0.6 0.8
+set length 3.3427826104791247
+

diff --git a/tests/geometry/2dbeziecurve/A4 b/tests/geometry/2dbeziecurve/A4
new file mode 100644 (file)
index 0000000..4547e3e
--- /dev/null
+++ b/tests/geometry/2dbeziecurve/A4
@@ -0,0 +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
+

diff --git a/tests/geometry/2dbeziecurve/A5 b/tests/geometry/2dbeziecurve/A5
new file mode 100644 (file)
index 0000000..44f59c9
--- /dev/null
+++ b/tests/geometry/2dbeziecurve/A5
@@ -0,0 +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
+

diff --git a/tests/geometry/2dbeziecurve/A6 b/tests/geometry/2dbeziecurve/A6
new file mode 100644 (file)
index 0000000..f3fe908
--- /dev/null
+++ b/tests/geometry/2dbeziecurve/A6
@@ -0,0 +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
+

diff --git a/tests/geometry/2dbeziecurve/A7 b/tests/geometry/2dbeziecurve/A7
new file mode 100644 (file)
index 0000000..912517f
--- /dev/null
+++ b/tests/geometry/2dbeziecurve/A7
@@ -0,0 +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
+

diff --git a/tests/geometry/2dbeziecurve/A8 b/tests/geometry/2dbeziecurve/A8
new file mode 100644 (file)
index 0000000..d15583d
--- /dev/null
+++ b/tests/geometry/2dbeziecurve/A8
@@ -0,0 +1,3 @@
+2dbeziercurve result  3  2 0 4 1 6 0
+set length 4.1609152777389031
+

diff --git a/tests/geometry/2dbeziecurve/A9 b/tests/geometry/2dbeziecurve/A9
new file mode 100644 (file)
index 0000000..fe946cf
--- /dev/null
+++ b/tests/geometry/2dbeziecurve/A9
@@ -0,0 +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
+

diff --git a/tests/geometry/2dbeziecurve/B1 b/tests/geometry/2dbeziecurve/B1
new file mode 100644 (file)
index 0000000..2d85d1b
--- /dev/null
+++ b/tests/geometry/2dbeziecurve/B1
@@ -0,0 +1,46 @@
+# reference
+point rp_1  0 0
+point rp_2  -0.65021440000000008 0.23541759999999989
+point rp_3  -0.62285760000000001 -0.26568060000000016
+point rp_4  -0.1324032         -0.59307520000000058
+point rp_5  0.5 -0.359375
+point rp_6  0.71262720000000057 0.49067519999999837
+point rp_7  -0.04280640000000191 1.5503306000000006
+point rp_8  -1.9664896000000001 1.9469824000000082
+point rp_9  -4.519411199999996   0.49050179999999782
+point rp_10   -6 -4
+point rd1_1 0 7
+point rd2_1 -84 -42
+point rd1_2 -2.1719040000000005  -4.1901440000000019
+point rd2_2 43.034879999999994   -33.237120000000004
+point rd1_3 2.8294560000000004   -4.9642039999999987
+point rd2_3 49.701119999999975   18.306120000000032
+point rd1_4 6.418943999999998  -0.89913600000000538
+point rd2_4 16.316159999999968 58.988159999999944
+point rd1_5  5.25 5.6875
+point rd2_5 -42 65.625
+point rd1_6 -1.9676160000000076 10.636863999999985
+point rd2_6 -99.644160000000056 25.011839999999847
+point rd1_7 -13.540464000000009  9.0777959999999851
+point rd2_7 -122.94911999999997  -63.456120000000169
+point rd1_8 -24.105984000000007 -3.1821439999999646
+point rd2_8 -72.602880000000027 -185.16287999999992
+point rd1_9 -24.188975999999965  -28.003556000000021
+point rd2_9  93.932160000000351   -307.65084000000013
+point rd1_10  0 -63
+point rd2_10  420 -378
+2dbeziercurve result  8  0 0 0 1 -2 1 -2 -3 4 -3 4 5 -6 5 -6 -4
+val2d result 0 1 10
+# Comparaison between currents value and references values
+set tol 0.000001
+set i   1
+puts " --> Test value"
+repeat 10 {comparepnt2d rp_$i  p_$i  $tol; incr i 1}
+set i 1
+puts " --> Test D1"
+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
+

diff --git a/tests/geometry/2dbeziecurve/begin b/tests/geometry/2dbeziecurve/begin
new file mode 100644 (file)
index 0000000..d10da1f
--- /dev/null
+++ b/tests/geometry/2dbeziecurve/begin
@@ -0,0 +1,2 @@
+set viewer "v2d"
+set type "finite"

diff --git a/tests/geometry/2dbsplinecurve/A1 b/tests/geometry/2dbsplinecurve/A1
new file mode 100644 (file)
index 0000000..db8a6cf
--- /dev/null
+++ b/tests/geometry/2dbsplinecurve/A1
@@ -0,0 +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
+

diff --git a/tests/geometry/2dbsplinecurve/A2 b/tests/geometry/2dbsplinecurve/A2
new file mode 100644 (file)
index 0000000..1692ff1
--- /dev/null
+++ b/tests/geometry/2dbsplinecurve/A2
@@ -0,0 +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
+

diff --git a/tests/geometry/2dbsplinecurve/A3 b/tests/geometry/2dbsplinecurve/A3
new file mode 100644 (file)
index 0000000..275409d
--- /dev/null
+++ b/tests/geometry/2dbsplinecurve/A3
@@ -0,0 +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
+

diff --git a/tests/geometry/2dbsplinecurve/A4 b/tests/geometry/2dbsplinecurve/A4
new file mode 100644 (file)
index 0000000..cde2bc7
--- /dev/null
+++ b/tests/geometry/2dbsplinecurve/A4
@@ -0,0 +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
+

diff --git a/tests/geometry/2dbsplinecurve/A5 b/tests/geometry/2dbsplinecurve/A5
new file mode 100644 (file)
index 0000000..e7e2f48
--- /dev/null
+++ b/tests/geometry/2dbsplinecurve/A5
@@ -0,0 +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
+

diff --git a/tests/geometry/2dbsplinecurve/A6 b/tests/geometry/2dbsplinecurve/A6
new file mode 100644 (file)
index 0000000..ccd1368
--- /dev/null
+++ b/tests/geometry/2dbsplinecurve/A6
@@ -0,0 +1,9 @@
+2dbsplinecurve result  3 2  -1.0 4   1.0 4  0 0  1   1 0  1   2 0  1   3 0 1
+incdeg result 10
+2dtranslate result 0 -4
+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
+

diff --git a/tests/geometry/2dbsplinecurve/A7 b/tests/geometry/2dbsplinecurve/A7
new file mode 100644 (file)
index 0000000..a83dce3
--- /dev/null
+++ b/tests/geometry/2dbsplinecurve/A7
@@ -0,0 +1,9 @@
+2dbsplinecurve result  3 2  -1.0 4   1.0 4  0 0  1   1 0  1   2 0  1   3 0 1
+incdeg result 11
+2dtranslate result 0 -4
+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
+

diff --git a/tests/geometry/2dbsplinecurve/A8 b/tests/geometry/2dbsplinecurve/A8
new file mode 100644 (file)
index 0000000..4dd1e60
--- /dev/null
+++ b/tests/geometry/2dbsplinecurve/A8
@@ -0,0 +1,11 @@
+2dbsplinecurve b1 3 5 0 4 1 1 2 1 3 1 4 4  0 0  1  1 2  1   2 2  1   2 2  1  3 2  1  4 2  1   5 4  1 
+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 }
+copy b1 result
+set length 7.7885445456401925
+

diff --git a/tests/geometry/2dbsplinecurve/A9 b/tests/geometry/2dbsplinecurve/A9
new file mode 100644 (file)
index 0000000..451d357
--- /dev/null
+++ b/tests/geometry/2dbsplinecurve/A9
@@ -0,0 +1,11 @@
+2dbsplinecurve b1 3 5 0 4 1 1 2 1 3 1 4 4  0 0 0.8  1 0.5 0.6   2 1 0.5  2 2 1  3 1.5 1  4 1.5 1   5 2 1 
+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 }
+copy b1 result
+set length 6.9832866524628034
+

diff --git a/tests/geometry/2dbsplinecurve/B1 b/tests/geometry/2dbsplinecurve/B1
new file mode 100644 (file)
index 0000000..def31fa
--- /dev/null
+++ b/tests/geometry/2dbsplinecurve/B1
@@ -0,0 +1,12 @@
+2dbsplinecurve b1 3 5 0 4 1 1 2 1 3 1 4 4  0 0 1  1 0.5 1   2 1 1  2 2 1  3 1.5 1  4 1.5 1   5 2 1 
+2dcvalue b1 2.0 x y  dx dy 
+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 }
+copy b1 result
+set length 5.9590472422107315
+

diff --git a/tests/geometry/2dbsplinecurve/B2 b/tests/geometry/2dbsplinecurve/B2
new file mode 100644 (file)
index 0000000..6bc8ec7
--- /dev/null
+++ b/tests/geometry/2dbsplinecurve/B2
@@ -0,0 +1,12 @@
+2dbsplinecurve b1 3 5 0 4 1 1 2 1 3 1 4 4  0 0 1  1 0.5 0.8   2 1 1  2 2 0.7  3 1.5 0.6  4 1.5 1   5 2 1 
+2dcvalue b1 2.0 x y  dx dy 
+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 }
+copy b1 result
+set length 6.6492776719511806
+

diff --git a/tests/geometry/2dbsplinecurve/B3 b/tests/geometry/2dbsplinecurve/B3
new file mode 100644 (file)
index 0000000..11abbbc
--- /dev/null
+++ b/tests/geometry/2dbsplinecurve/B3
@@ -0,0 +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
+

diff --git a/tests/geometry/2dbsplinecurve/B4 b/tests/geometry/2dbsplinecurve/B4
new file mode 100644 (file)
index 0000000..18985a7
--- /dev/null
+++ b/tests/geometry/2dbsplinecurve/B4
@@ -0,0 +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
+

diff --git a/tests/geometry/2dbsplinecurve/B5 b/tests/geometry/2dbsplinecurve/B5
new file mode 100644 (file)
index 0000000..1247eb5
--- /dev/null
+++ b/tests/geometry/2dbsplinecurve/B5
@@ -0,0 +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
+

diff --git a/tests/geometry/2dbsplinecurve/B6 b/tests/geometry/2dbsplinecurve/B6
new file mode 100644 (file)
index 0000000..ac34791
--- /dev/null
+++ b/tests/geometry/2dbsplinecurve/B6
@@ -0,0 +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
+

diff --git a/tests/geometry/2dbsplinecurve/B7 b/tests/geometry/2dbsplinecurve/B7
new file mode 100644 (file)
index 0000000..65f4086
--- /dev/null
+++ b/tests/geometry/2dbsplinecurve/B7
@@ -0,0 +1,46 @@
+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
+val2d result 0 1 10
+# reference
+point rp_1   -19.5  -4.2000000000000002
+point rd1_1  13.846153846153877  -11.538461538461537
+point rd2_1  50.718512256972957  1776.4158918005069
+point rp_2   -13.67390179731467  6.8992200028947739
+point rd1_2  48.974086485658098  38.474728614850193
+point rd2_2  139.04002452044654  -517.68128528006946
+point rp_3   -8.3917948899604617  8.0575597921139348
+point rd1_3  53.619455172886617  -15.736309081303308
+point rd2_3  -40.490435815983837  -508.65044786111531
+point rp_4   -3.4845005276466683  4.4381365468919913
+point rd1_4  42.004442314439764  -51.677556800995873
+point rd2_4  -191.80982135295332  -210.17450653273619
+point rp_5   -0.47548493269648251  -1.2964506909146642
+point rd1_5  17.239435518888406  -59.113103113585865
+point rd2_5  -210.99956578376023  -1.158080253377944
+point rp_6   0.67531537607951164  -7.2130888071540724
+point rd1_6  10.595116514690996  -59.215033247341495
+point rd2_6  78.113185699812178  -0.88052242173465889
+point rp_7   2.4581595561180185  -13.009266873289969
+point rd1_7  27.271273193765609  -54.441759810900741
+point rd2_7  227.45595055625458  120.58323008570983
+point rp_8   6.466040816326533  -17.547584317937705
+point rd1_8  52.905306122448984  -31.794908700322217
+point rd2_8  228.59319727891145  392.36405298961699
+point rp_9   12.710839969947408  -18.115381707461744
+point rd1_9  69.611990984222373  26.092856182529964
+point rd2_9  7.1981968444776498  596.42386808493779
+point rp_10   17.699999999999999  -15
+point rd1_10  10.090909090909133  11.45454545454545
+point rd2_10  -1197.6198347107429  -889.19008264462809
+# Comparaison between currents value and references values
+set tol 0.000001
+set i   1
+puts " --> Test value"
+repeat 10 {comparepnt2d rp_$i  p_$i  $tol; incr i 1}
+set i 1
+puts " --> Test D1"
+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
+

diff --git a/tests/geometry/2dbsplinecurve/begin b/tests/geometry/2dbsplinecurve/begin
new file mode 100644 (file)
index 0000000..d10da1f
--- /dev/null
+++ b/tests/geometry/2dbsplinecurve/begin
@@ -0,0 +1,2 @@
+set viewer "v2d"
+set type "finite"

diff --git a/tests/geometry/begin b/tests/geometry/begin
new file mode 100755 (executable)
index 0000000..b161e34
--- /dev/null
+++ b/tests/geometry/begin
@@ -0,0 +1,95 @@
+if { [array get Draw_Groups "TOPOLOGY Check commands"] == "" } {
+    pload TOPTEST
+    pload AISV
+}
+# To prevent loops limit to 10 minutes
+cpulimit 600
+
+if { [info exists imagedir] == 0 } {
+   set imagedir .
+}
+
+if { [info exists test_image ] == 0 } {
+   set test_image photo
+}
+
+
+#
+#evaluate n points beetween u1 and u2 on the curve 2d c
+#
+
+proc val2d { c u1 u2 n } {
+
+  dset du ($u2-$u1)/$n
+  upvar $c cc
+
+  set i 1
+                       
+  for {dset u $u1} { [dval u] <= $u2} {dset u ($u1+$i*[dval du])} {
+    2dcvalue cc u x y dx dy d2x d2y  ;
+    global p_$i d1_$i d2_$i 
+    point p_$i  x y;
+    puts "u   = [dval u]"
+    puts "p_$i   [dval x  ]  [dval y]"
+    puts "d1_$i  [dval dx ]  [dval dy]";
+    puts "d2_$i  [dval d2x]  [dval d2y]";
+     
+    copy p_$i .        ;
+      point d1_$i dx dy
+      point d2_$i d2x d2y
+    incr i 1   
+  }
+}
+
+#
+#evaluate n points beetween u1 and u2 on the curve 3d c
+#
+proc val3d { c u1 u2 n } {
+
+  dset du ($u2-$u1)/$n
+  upvar $c cc
+  
+  set i 1
+               
+  for {dset u $u1} { [dval u] <= $u2} {dset u (u+[dval du])} {
+    cvalue cc u x y z dx dy dz d2x d2y d2z ; 
+    point p_$i  x y z;
+    puts "u   = [dval u]"
+    puts "p_$i  [dval x  ] [dval y  ] [dval z]";
+    puts "d1_$i [dval dx ] [dval dy ] [dval dz]";    
+    puts "d2_$i [dval d2x] [dval d2y] [dval d2z]";     
+    copy p_$i .        ;
+      point d1_$i dx  dy  dz
+      point d2_$i d2x d2y d2z
+    incr i     
+  }
+}
+
+proc compare {r1 r2 tol} {
+       if {$r1 - $r2  >= $tol} {
+               puts "Error : evalution" 
+       }
+       if {$r2 - $r1  >= $tol} {
+               puts "Error : evalution" 
+       }
+} 
+
+proc comparepnt2d {p1 p2 tol} {
+       upvar $p1 pp1
+       upvar $p2 pp2
+       coord pp1 x1 y1
+       coord pp2 x2 y2
+       compare [dval x1] [dval x2] $tol
+       compare [dval y1] [dval y2] $tol
+}
+
+proc comparepnt3d {p1 p2 tol} {
+       upvar $p1 pp1
+       upvar $p2 pp2
+       coord pp1 x1 y1 z1
+       coord pp2 x2 y2 z2
+       compare [dval x1] [dval x2] $tol
+       compare [dval y1] [dval y2] $tol
+       compare [dval z1] [dval z2] $tol
+}
+

diff --git a/tests/geometry/beziecurve/A1 b/tests/geometry/beziecurve/A1
new file mode 100644 (file)
index 0000000..48399c9
--- /dev/null
+++ b/tests/geometry/beziecurve/A1
@@ -0,0 +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
+

diff --git a/tests/geometry/beziecurve/A2 b/tests/geometry/beziecurve/A2
new file mode 100644 (file)
index 0000000..3799a3a
--- /dev/null
+++ b/tests/geometry/beziecurve/A2
@@ -0,0 +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
+

diff --git a/tests/geometry/beziecurve/A3 b/tests/geometry/beziecurve/A3
new file mode 100644 (file)
index 0000000..cff96e6
--- /dev/null
+++ b/tests/geometry/beziecurve/A3
@@ -0,0 +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
+

diff --git a/tests/geometry/beziecurve/A4 b/tests/geometry/beziecurve/A4
new file mode 100644 (file)
index 0000000..e50abab
--- /dev/null
+++ b/tests/geometry/beziecurve/A4
@@ -0,0 +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
+

diff --git a/tests/geometry/beziecurve/A5 b/tests/geometry/beziecurve/A5
new file mode 100644 (file)
index 0000000..2c8aec1
--- /dev/null
+++ b/tests/geometry/beziecurve/A5
@@ -0,0 +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
+

diff --git a/tests/geometry/beziecurve/A6 b/tests/geometry/beziecurve/A6
new file mode 100644 (file)
index 0000000..b46ed35
--- /dev/null
+++ b/tests/geometry/beziecurve/A6
@@ -0,0 +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
+

diff --git a/tests/geometry/beziecurve/A7 b/tests/geometry/beziecurve/A7
new file mode 100644 (file)
index 0000000..98c448b
--- /dev/null
+++ b/tests/geometry/beziecurve/A7
@@ -0,0 +1,9 @@
+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 .
+}
+set length 17.264934514807859
+

diff --git a/tests/geometry/beziecurve/A8 b/tests/geometry/beziecurve/A8
new file mode 100644 (file)
index 0000000..d2beed7
--- /dev/null
+++ b/tests/geometry/beziecurve/A8
@@ -0,0 +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
+

diff --git a/tests/geometry/beziecurve/A9 b/tests/geometry/beziecurve/A9
new file mode 100644 (file)
index 0000000..cff96e6
--- /dev/null
+++ b/tests/geometry/beziecurve/A9
@@ -0,0 +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
+

diff --git a/tests/geometry/beziecurve/B1 b/tests/geometry/beziecurve/B1
new file mode 100644 (file)
index 0000000..e50abab
--- /dev/null
+++ b/tests/geometry/beziecurve/B1
@@ -0,0 +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
+

diff --git a/tests/geometry/beziecurve/B2 b/tests/geometry/beziecurve/B2
new file mode 100644 (file)
index 0000000..ee73d23
--- /dev/null
+++ b/tests/geometry/beziecurve/B2
@@ -0,0 +1,3 @@
+beziercurve result  3  2 0 1 4 1 2 6 0 1
+set length 4.3119494616416141
+

diff --git a/tests/geometry/beziecurve/B3 b/tests/geometry/beziecurve/B3
new file mode 100644 (file)
index 0000000..29e259a
--- /dev/null
+++ b/tests/geometry/beziecurve/B3
@@ -0,0 +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
+

diff --git a/tests/geometry/beziecurve/B4 b/tests/geometry/beziecurve/B4
new file mode 100644 (file)
index 0000000..7bcea21
--- /dev/null
+++ b/tests/geometry/beziecurve/B4
@@ -0,0 +1,4 @@
+beziercurve result  3  2 0 1 4 1 2 6 0 1
+val3d result 0 1 20
+set length 4.3119494616416141
+

diff --git a/tests/geometry/beziecurve/B5 b/tests/geometry/beziecurve/B5
new file mode 100644 (file)
index 0000000..4bf9dcd
--- /dev/null
+++ b/tests/geometry/beziecurve/B5
@@ -0,0 +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
+

diff --git a/tests/geometry/beziecurve/begin b/tests/geometry/beziecurve/begin
new file mode 100644 (file)
index 0000000..0053992
--- /dev/null
+++ b/tests/geometry/beziecurve/begin
@@ -0,0 +1,2 @@
+set viewer "smallview"
+set type "finite"

diff --git a/tests/geometry/bsplinecurve/A1 b/tests/geometry/bsplinecurve/A1
new file mode 100644 (file)
index 0000000..ca46907
--- /dev/null
+++ b/tests/geometry/bsplinecurve/A1
@@ -0,0 +1,10 @@
+bsplinecurve bscurv  3 2  -1.0 4   1.0 4  0 0 0 1   1 0 0 1   2 0 0 1   3 0 0 1
+incdeg bscurv 11
+translate bscurv 0 -4 0
+set i 1
+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
+

diff --git a/tests/geometry/bsplinecurve/A2 b/tests/geometry/bsplinecurve/A2
new file mode 100644 (file)
index 0000000..0ab3175
--- /dev/null
+++ b/tests/geometry/bsplinecurve/A2
@@ -0,0 +1,11 @@
+top
+bsplinecurve bscurv  3 2  -1.0 4   1.0 4  0 0 0 1   1 0 0 1   2 0 0 1   3 0 0 1
+incdeg bscurv 10
+translate bscurv 0 -4 0
+set i 1
+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
+

diff --git a/tests/geometry/bsplinecurve/A3 b/tests/geometry/bsplinecurve/A3
new file mode 100644 (file)
index 0000000..724fa78
--- /dev/null
+++ b/tests/geometry/bsplinecurve/A3
@@ -0,0 +1,13 @@
+bsplinecurve b1 3 5 0 4 1 1 2 1 3 1 4 4  0 0 0 1  1 2 0 1   2 2 0 1   2 2 0 1  3 2 0 1  4 2 0 1   5 4 0 1 
+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 }
+renamevar b1 result
+set length 8.3346946955628098
+

diff --git a/tests/geometry/bsplinecurve/A4 b/tests/geometry/bsplinecurve/A4
new file mode 100644 (file)
index 0000000..a491ca2
--- /dev/null
+++ b/tests/geometry/bsplinecurve/A4
@@ -0,0 +1,6 @@
+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
+

diff --git a/tests/geometry/bsplinecurve/A5 b/tests/geometry/bsplinecurve/A5
new file mode 100644 (file)
index 0000000..8bc6c0d
--- /dev/null
+++ b/tests/geometry/bsplinecurve/A5
@@ -0,0 +1,13 @@
+bsplinecurve b1 3 5 0 4 1 1 2 1 3 1 4 4  0 0 0 0.8  1 0.5 0 0.6   2 1 0 0.5  2 2 0 1  3 1.5 0 1  4 1.5 0 1   5 2 0 1 
+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 }
+renamevar b1 result
+set length 7.3508406963557418
+

diff --git a/tests/geometry/bsplinecurve/A6 b/tests/geometry/bsplinecurve/A6
new file mode 100644 (file)
index 0000000..52a3a0e
--- /dev/null
+++ b/tests/geometry/bsplinecurve/A6
@@ -0,0 +1,9 @@
+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   4 0 0 1
+copy b1 result
+smirror result 0 0 0 0 -1 1 
+pl
+pl
+pl
+pl
+set length 6.6067715112002166
+

diff --git a/tests/geometry/bsplinecurve/A7 b/tests/geometry/bsplinecurve/A7
new file mode 100644 (file)
index 0000000..f6d3a08
--- /dev/null
+++ b/tests/geometry/bsplinecurve/A7
@@ -0,0 +1,14 @@
+bsplinecurve b1 3 5 0 4 1 1 2 1 3 1 4 4  0 0 0 1  1 0.5 0 1   2 1 0 1 2 2 0 1  3 1.5 0 1  4 1.5 0 1   5 2 0 1 
+cvalue b1 2.0 x y z dx dy dz
+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 }
+renamevar b1 result
+set length 7.238501337474319
+

diff --git a/tests/geometry/bsplinecurve/A8 b/tests/geometry/bsplinecurve/A8
new file mode 100644 (file)
index 0000000..62b4909
--- /dev/null
+++ b/tests/geometry/bsplinecurve/A8
@@ -0,0 +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
+

diff --git a/tests/geometry/bsplinecurve/A9 b/tests/geometry/bsplinecurve/A9
new file mode 100644 (file)
index 0000000..ec7d0c3
--- /dev/null
+++ b/tests/geometry/bsplinecurve/A9
@@ -0,0 +1,14 @@
+bsplinecurve b1 3 5 0 4 1 1 2 1 3 1 4 4  0 0 0 0.8  1 0.5 0 0.6   2 1 0 0.5  2 2 0 1  3 1.5 0 1  4 1.5 0 1   5 2 0 1 
+cvalue b1 2.0 x y z dx dy dz
+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 }
+renamevar b1 result
+set length 7.0867664447042955
+

diff --git a/tests/geometry/bsplinecurve/B1 b/tests/geometry/bsplinecurve/B1
new file mode 100644 (file)
index 0000000..0f1bf5f
--- /dev/null
+++ b/tests/geometry/bsplinecurve/B1
@@ -0,0 +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
+

diff --git a/tests/geometry/bsplinecurve/B2 b/tests/geometry/bsplinecurve/B2
new file mode 100644 (file)
index 0000000..9f00e36
--- /dev/null
+++ b/tests/geometry/bsplinecurve/B2
@@ -0,0 +1,13 @@
+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 b2
+pl
+pl
+pl
+pl
+repeat 10 {
+rotate b2 0 0 0 1 0 0 10
+copy b2 .
+}
+renamevar b2 result
+set length 6.8205704232858668
+

diff --git a/tests/geometry/bsplinecurve/B3 b/tests/geometry/bsplinecurve/B3
new file mode 100644 (file)
index 0000000..81db9bf
--- /dev/null
+++ b/tests/geometry/bsplinecurve/B3
@@ -0,0 +1,7 @@
+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 b2
+pscale b2 0 0 0 1.4
+repeat 5 {pl}
+renamevar b2 result
+set length 9.5487985926002157
+

diff --git a/tests/geometry/bsplinecurve/B4 b/tests/geometry/bsplinecurve/B4
new file mode 100644 (file)
index 0000000..6bcb502
--- /dev/null
+++ b/tests/geometry/bsplinecurve/B4
@@ -0,0 +1,10 @@
+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   4 0 0 1
+copy b1 b2
+smirror b2 0 0 0 0 -1 1 
+pl
+pl
+pl
+pl
+renamevar b2 result
+set length 6.6067715112002166
+

diff --git a/tests/geometry/bsplinecurve/B5 b/tests/geometry/bsplinecurve/B5
new file mode 100644 (file)
index 0000000..77d41e0
--- /dev/null
+++ b/tests/geometry/bsplinecurve/B5
@@ -0,0 +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
+

diff --git a/tests/geometry/bsplinecurve/B6 b/tests/geometry/bsplinecurve/B6
new file mode 100644 (file)
index 0000000..66e4eb0
--- /dev/null
+++ b/tests/geometry/bsplinecurve/B6
@@ -0,0 +1,9 @@
+bsplinecurve result 3 3 0 4 3 1 4 4  0 0 0 1  1 2 0 20  2 3 0 3  3 2 0 0.04  2 0 0 5 
+pd
+pd
+pd
+pl
+pl
+pl
+set length 5.5977288617103262
+

diff --git a/tests/geometry/bsplinecurve/B7 b/tests/geometry/bsplinecurve/B7
new file mode 100644 (file)
index 0000000..8920bb6
--- /dev/null
+++ b/tests/geometry/bsplinecurve/B7
@@ -0,0 +1,9 @@
+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 2   0 0 1 
+pd
+pd
+pd
+pl
+pl
+pl
+set length 6.3759776321287411
+

diff --git a/tests/geometry/bsplinecurve/B8 b/tests/geometry/bsplinecurve/B8
new file mode 100644 (file)
index 0000000..ca84de8
--- /dev/null
+++ b/tests/geometry/bsplinecurve/B8
@@ -0,0 +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
+

diff --git a/tests/geometry/bsplinecurve/B9 b/tests/geometry/bsplinecurve/B9
new file mode 100644 (file)
index 0000000..8c58276
--- /dev/null
+++ b/tests/geometry/bsplinecurve/B9
@@ -0,0 +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
+

diff --git a/tests/geometry/bsplinecurve/C1 b/tests/geometry/bsplinecurve/C1
new file mode 100644 (file)
index 0000000..582cb4d
--- /dev/null
+++ b/tests/geometry/bsplinecurve/C1
@@ -0,0 +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
+

diff --git a/tests/geometry/bsplinecurve/C2 b/tests/geometry/bsplinecurve/C2
new file mode 100644 (file)
index 0000000..ec1debb
--- /dev/null
+++ b/tests/geometry/bsplinecurve/C2
@@ -0,0 +1,10 @@
+bsplinecurve result 3 3 0 4 3 1 4 4 0 0 0 1 1 2 0 20 2 3 0 3 3 2 0 0.04 2 0 0 5 
+pd
+pd
+pd
+pl
+pl
+pl
+val3d result 0 4 20
+set length 5.5977288617103262
+

diff --git a/tests/geometry/bsplinecurve/C3 b/tests/geometry/bsplinecurve/C3
new file mode 100644 (file)
index 0000000..1e96dc5
--- /dev/null
+++ b/tests/geometry/bsplinecurve/C3
@@ -0,0 +1,10 @@
+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 2 0 0 1 
+pd
+pd
+pd
+pl
+pl
+pl
+val3d result 0 4 20
+set length 6.3759776321287411
+

diff --git a/tests/geometry/bsplinecurve/begin b/tests/geometry/bsplinecurve/begin
new file mode 100644 (file)
index 0000000..0053992
--- /dev/null
+++ b/tests/geometry/bsplinecurve/begin
@@ -0,0 +1,2 @@
+set viewer "smallview"
+set type "finite"

diff --git a/tests/geometry/circle/A1 b/tests/geometry/circle/A1
new file mode 100644 (file)
index 0000000..b005443
--- /dev/null
+++ b/tests/geometry/circle/A1
@@ -0,0 +1,4 @@
+circle c 0 0 0  0 0 1  1
+convert result c 
+set length 6.2831853071795853
+

diff --git a/tests/geometry/circle/A2 b/tests/geometry/circle/A2
new file mode 100644 (file)
index 0000000..5251404
--- /dev/null
+++ b/tests/geometry/circle/A2
@@ -0,0 +1,5 @@
+circle cer 0 0 0  0 0 1  1
+trim cer cer 0 pi
+convert result cer c1
+set length 3.1415926535897931
+

diff --git a/tests/geometry/circle/A3 b/tests/geometry/circle/A3
new file mode 100644 (file)
index 0000000..5f430de
--- /dev/null
+++ b/tests/geometry/circle/A3
@@ -0,0 +1,4 @@
+circle cer 0 0 0  0 0 1  1
+convert result cer c1
+set length 6.2831853071795871
+

diff --git a/tests/geometry/circle/A4 b/tests/geometry/circle/A4
new file mode 100644 (file)
index 0000000..faf56c0
--- /dev/null
+++ b/tests/geometry/circle/A4
@@ -0,0 +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
+

diff --git a/tests/geometry/circle/A5 b/tests/geometry/circle/A5
new file mode 100644 (file)
index 0000000..903e83b
--- /dev/null
+++ b/tests/geometry/circle/A5
@@ -0,0 +1,5 @@
+circle cer 0 0 0  0 0 1  1
+trim cer cer 0 pi
+convert result cer qa
+set length 3.1415926535897931
+

diff --git a/tests/geometry/circle/A6 b/tests/geometry/circle/A6
new file mode 100644 (file)
index 0000000..2b943b4
--- /dev/null
+++ b/tests/geometry/circle/A6
@@ -0,0 +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
+

diff --git a/tests/geometry/circle/A7 b/tests/geometry/circle/A7
new file mode 100644 (file)
index 0000000..b8fe154
--- /dev/null
+++ b/tests/geometry/circle/A7
@@ -0,0 +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
+

diff --git a/tests/geometry/circle/A8 b/tests/geometry/circle/A8
new file mode 100644 (file)
index 0000000..31c7089
--- /dev/null
+++ b/tests/geometry/circle/A8
@@ -0,0 +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
+

diff --git a/tests/geometry/circle/A9 b/tests/geometry/circle/A9
new file mode 100644 (file)
index 0000000..2dc2940
--- /dev/null
+++ b/tests/geometry/circle/A9
@@ -0,0 +1,4 @@
+circle cer 0 0 0  0 0 1  1
+convert result cer qa
+set length 6.2831853071795845
+

diff --git a/tests/geometry/circle/B1 b/tests/geometry/circle/B1
new file mode 100644 (file)
index 0000000..ea3f544
--- /dev/null
+++ b/tests/geometry/circle/B1
@@ -0,0 +1,6 @@
+circle c -40 0 1 0 20
+offset result c 10
+2dlmirror result 0 0 0 1
+set viewer "v2d"
+set length 62.831853071795862
+

diff --git a/tests/geometry/circle/B2 b/tests/geometry/circle/B2
new file mode 100644 (file)
index 0000000..c8645a3
--- /dev/null
+++ b/tests/geometry/circle/B2
@@ -0,0 +1,4 @@
+circle result 0 0 1 0 0.2
+set viewer "v2d"
+set length 1.2566370614359172
+

diff --git a/tests/geometry/circle/B3 b/tests/geometry/circle/B3
new file mode 100644 (file)
index 0000000..25ae990
--- /dev/null
+++ b/tests/geometry/circle/B3
@@ -0,0 +1,4 @@
+circle result 0.1 0.2 1 1 0.1
+set viewer "v2d"
+set length 0.62831853071795862
+

diff --git a/tests/geometry/circle/B4 b/tests/geometry/circle/B4
new file mode 100644 (file)
index 0000000..b4f08cf
--- /dev/null
+++ b/tests/geometry/circle/B4
@@ -0,0 +1,3 @@
+circle result 0 0 0    0 0 1  1 0 0 0.2
+set length 1.2566370614359172
+

diff --git a/tests/geometry/circle/B5 b/tests/geometry/circle/B5
new file mode 100644 (file)
index 0000000..f5c55e7
--- /dev/null
+++ b/tests/geometry/circle/B5
@@ -0,0 +1,3 @@
+circle result 0 0 0.1  0 1 1  1 0 0 0.3
+set length 1.8849555921538759
+

diff --git a/tests/geometry/circle/B6 b/tests/geometry/circle/B6
new file mode 100644 (file)
index 0000000..03e92d1
--- /dev/null
+++ b/tests/geometry/circle/B6
@@ -0,0 +1,5 @@
+circle c1 -30 30  1 0 20
+trim result c1 0 pi
+set viewer "v2d"
+set length 62.831853071795862
+

diff --git a/tests/geometry/circle/B7 b/tests/geometry/circle/B7
new file mode 100644 (file)
index 0000000..42a7868
--- /dev/null
+++ b/tests/geometry/circle/B7
@@ -0,0 +1,5 @@
+circle c2 -30 -30 1 0 20
+trim result c2 pi 2*pi
+set viewer "v2d"
+set length 62.831853071795862
+

diff --git a/tests/geometry/circle/B8 b/tests/geometry/circle/B8
new file mode 100644 (file)
index 0000000..d14d8e9
--- /dev/null
+++ b/tests/geometry/circle/B8
@@ -0,0 +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
+

diff --git a/tests/geometry/circle/B9 b/tests/geometry/circle/B9
new file mode 100644 (file)
index 0000000..425d423
--- /dev/null
+++ b/tests/geometry/circle/B9
@@ -0,0 +1,5 @@
+circle c4 30  30 1 0 20
+trim result c4 pi pi/2
+set viewer "v2d"
+set length 94.247779607693786
+

diff --git a/tests/geometry/circle/C1 b/tests/geometry/circle/C1
new file mode 100644 (file)
index 0000000..f77b150
--- /dev/null
+++ b/tests/geometry/circle/C1
@@ -0,0 +1,6 @@
+circle result 70 0 1 0 30
+2dtranslate result -200 0
+set viewer "v2d"
+set length 188.49555921538757
+
+

diff --git a/tests/geometry/circle/C2 b/tests/geometry/circle/C2
new file mode 100644 (file)
index 0000000..3322a78
--- /dev/null
+++ b/tests/geometry/circle/C2
@@ -0,0 +1,5 @@
+circle result 0 0 1 0 30
+val2d  result 0 [dval 2*pi] 20
+set viewer "v2d"
+set length 188.49555921538757
+

diff --git a/tests/geometry/circle/C3 b/tests/geometry/circle/C3
new file mode 100644 (file)
index 0000000..4d1c7ac
--- /dev/null
+++ b/tests/geometry/circle/C3
@@ -0,0 +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
+

diff --git a/tests/geometry/circle/C4 b/tests/geometry/circle/C4
new file mode 100644 (file)
index 0000000..6cb7e28
--- /dev/null
+++ b/tests/geometry/circle/C4
@@ -0,0 +1,5 @@
+circle result 0 0  1 0  200
+reverse result
+set viewer "v2d"
+set length 1256.6370614359173
+

diff --git a/tests/geometry/circle/C5 b/tests/geometry/circle/C5
new file mode 100644 (file)
index 0000000..607bfea
--- /dev/null
+++ b/tests/geometry/circle/C5
@@ -0,0 +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
+

diff --git a/tests/geometry/circle/C6 b/tests/geometry/circle/C6
new file mode 100644 (file)
index 0000000..4b7e45d
--- /dev/null
+++ b/tests/geometry/circle/C6
@@ -0,0 +1,4 @@
+circle result 70 0 0  0 0 1   1 0 0   30
+translate result 0 -100 200
+set length 188.49555921538757
+

diff --git a/tests/geometry/circle/C7 b/tests/geometry/circle/C7
new file mode 100644 (file)
index 0000000..29251f2
--- /dev/null
+++ b/tests/geometry/circle/C7
@@ -0,0 +1,11 @@
+circle c   0 0 0 0 0 1 0 1 0 1
+copy c cr
+translate cr 0 -4 0
+reverse cr
+convert result cr
+pl
+pl
+pu
+pu
+set length 6.2831853071795853
+

diff --git a/tests/geometry/circle/C8 b/tests/geometry/circle/C8
new file mode 100644 (file)
index 0000000..e3cee4a
--- /dev/null
+++ b/tests/geometry/circle/C8
@@ -0,0 +1,12 @@
+circle c   0 0 0 1 1
+copy c cr
+2dtranslate cr 0 -4
+reverse cr
+convert result cr
+2dpl 
+2dpl
+2dpu
+2dpu
+set viewer "v2d"
+set length 6.2831853071795853
+

diff --git a/tests/geometry/circle/C9 b/tests/geometry/circle/C9
new file mode 100644 (file)
index 0000000..9879810
--- /dev/null
+++ b/tests/geometry/circle/C9
@@ -0,0 +1,5 @@
+circle result 70 0 1 0 30
+2dlmirror result 0 0 0 1
+set viewer "v2d"
+set length 188.49555921538757
+

diff --git a/tests/geometry/circle/D1 b/tests/geometry/circle/D1
new file mode 100644 (file)
index 0000000..40eb56e
--- /dev/null
+++ b/tests/geometry/circle/D1
@@ -0,0 +1,5 @@
+circle result 70 0 1 0 30
+2dpmirror result 0 0
+set viewer "v2d"
+set length 188.49555921538757
+

diff --git a/tests/geometry/circle/D2 b/tests/geometry/circle/D2
new file mode 100644 (file)
index 0000000..d397187
--- /dev/null
+++ b/tests/geometry/circle/D2
@@ -0,0 +1,9 @@
+circle result 0  0 1 0 30
+dset ech 1.1
+repeat 20 { 
+       2dpscale result 0 0 0 ech; 
+       copy result .; 
+}
+set viewer "v2d"
+set length 1268.1038650696225
+

diff --git a/tests/geometry/circle/D3 b/tests/geometry/circle/D3
new file mode 100644 (file)
index 0000000..b4e8648
--- /dev/null
+++ b/tests/geometry/circle/D3
@@ -0,0 +1,5 @@
+circle result 70 0 1 0 30
+2drotate result 0 0 90
+set viewer "v2d"
+set length 188.49555921538757
+

diff --git a/tests/geometry/circle/D4 b/tests/geometry/circle/D4
new file mode 100644 (file)
index 0000000..12ca3d0
--- /dev/null
+++ b/tests/geometry/circle/D4
@@ -0,0 +1,5 @@
+circle result 70 0 1 0 30
+2dtranslate result -200 0
+set viewer "v2d"
+set length 188.49555921538757
+

diff --git a/tests/geometry/circle/D5 b/tests/geometry/circle/D5
new file mode 100644 (file)
index 0000000..a28e9c6
--- /dev/null
+++ b/tests/geometry/circle/D5
@@ -0,0 +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
+

diff --git a/tests/geometry/circle/D6 b/tests/geometry/circle/D6
new file mode 100644 (file)
index 0000000..098279c
--- /dev/null
+++ b/tests/geometry/circle/D6
@@ -0,0 +1,4 @@
+circle result 70 0 0  0 0 1   1 0 0   30
+pmirror result 0 0 0
+set length 188.49555921538757
+

diff --git a/tests/geometry/circle/D7 b/tests/geometry/circle/D7
new file mode 100644 (file)
index 0000000..0aac53b
--- /dev/null
+++ b/tests/geometry/circle/D7
@@ -0,0 +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 .;
+}
+set length 188.49555921538757
+

diff --git a/tests/geometry/circle/D8 b/tests/geometry/circle/D8
new file mode 100644 (file)
index 0000000..7b0c420
--- /dev/null
+++ b/tests/geometry/circle/D8
@@ -0,0 +1,6 @@
+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
+

diff --git a/tests/geometry/circle/D9 b/tests/geometry/circle/D9
new file mode 100644 (file)
index 0000000..607bfea
--- /dev/null
+++ b/tests/geometry/circle/D9
@@ -0,0 +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
+

diff --git a/tests/geometry/circle/E1 b/tests/geometry/circle/E1
new file mode 100644 (file)
index 0000000..4b7e45d
--- /dev/null
+++ b/tests/geometry/circle/E1
@@ -0,0 +1,4 @@
+circle result 70 0 0  0 0 1   1 0 0   30
+translate result 0 -100 200
+set length 188.49555921538757
+

diff --git a/tests/geometry/circle/begin b/tests/geometry/circle/begin
new file mode 100644 (file)
index 0000000..0053992
--- /dev/null
+++ b/tests/geometry/circle/begin
@@ -0,0 +1,2 @@
+set viewer "smallview"
+set type "finite"

diff --git a/tests/geometry/ellipse/A1 b/tests/geometry/ellipse/A1
new file mode 100644 (file)
index 0000000..594c314
--- /dev/null
+++ b/tests/geometry/ellipse/A1
@@ -0,0 +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
+

diff --git a/tests/geometry/ellipse/A2 b/tests/geometry/ellipse/A2
new file mode 100644 (file)
index 0000000..2a1a185
--- /dev/null
+++ b/tests/geometry/ellipse/A2
@@ -0,0 +1,4 @@
+ellipse  cer 0 0 0  0 0 1  2 1
+convert result cer c1
+set length 9.6884482205476772
+

diff --git a/tests/geometry/ellipse/A3 b/tests/geometry/ellipse/A3
new file mode 100644 (file)
index 0000000..18711b8
--- /dev/null
+++ b/tests/geometry/ellipse/A3
@@ -0,0 +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
+

diff --git a/tests/geometry/ellipse/A4 b/tests/geometry/ellipse/A4
new file mode 100644 (file)
index 0000000..0b815fb
--- /dev/null
+++ b/tests/geometry/ellipse/A4
@@ -0,0 +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
+

diff --git a/tests/geometry/ellipse/A5 b/tests/geometry/ellipse/A5
new file mode 100644 (file)
index 0000000..194a4b1
--- /dev/null
+++ b/tests/geometry/ellipse/A5
@@ -0,0 +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
+

diff --git a/tests/geometry/ellipse/A6 b/tests/geometry/ellipse/A6
new file mode 100644 (file)
index 0000000..dfd2981
--- /dev/null
+++ b/tests/geometry/ellipse/A6
@@ -0,0 +1,4 @@
+ellipse result 0 0 1 0 0.2 0.1
+set viewer "v2d"
+set length 0.96884482174527109
+

diff --git a/tests/geometry/ellipse/A7 b/tests/geometry/ellipse/A7
new file mode 100644 (file)
index 0000000..d29c538
--- /dev/null
+++ b/tests/geometry/ellipse/A7
@@ -0,0 +1,4 @@
+ellipse result 0 0 1 1 0.25 0.15
+set viewer "v2d"
+set length 1.2763499431763086
+

diff --git a/tests/geometry/ellipse/A8 b/tests/geometry/ellipse/A8
new file mode 100644 (file)
index 0000000..37c5aaf
--- /dev/null
+++ b/tests/geometry/ellipse/A8
@@ -0,0 +1,3 @@
+ellipse result 0 0 0 0 0 1 1 0 0 20 10
+set length 96.884482205475521
+

diff --git a/tests/geometry/ellipse/A9 b/tests/geometry/ellipse/A9
new file mode 100644 (file)
index 0000000..2b2d924
--- /dev/null
+++ b/tests/geometry/ellipse/A9
@@ -0,0 +1,3 @@
+ellipse result 0 0 0 1 0 0 0 0 1 25 15
+set length 127.63499431699034
+

diff --git a/tests/geometry/ellipse/B1 b/tests/geometry/ellipse/B1
new file mode 100644 (file)
index 0000000..b77b636
--- /dev/null
+++ b/tests/geometry/ellipse/B1
@@ -0,0 +1,5 @@
+ellipse   result 70 0 1 0 40 20
+2dtranslate result -200 0
+set viewer "v2d"
+set length 193.76896441095104
+

diff --git a/tests/geometry/ellipse/B2 b/tests/geometry/ellipse/B2
new file mode 100644 (file)
index 0000000..95b55a5
--- /dev/null
+++ b/tests/geometry/ellipse/B2
@@ -0,0 +1,5 @@
+ellipse result 0 0 1 0 40 20
+val2d result 0 [dval 2*pi] 20
+set viewer "v2d"
+set length 193.76896441095104
+

diff --git a/tests/geometry/ellipse/B3 b/tests/geometry/ellipse/B3
new file mode 100644 (file)
index 0000000..f68bf85
--- /dev/null
+++ b/tests/geometry/ellipse/B3
@@ -0,0 +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
+

diff --git a/tests/geometry/ellipse/B4 b/tests/geometry/ellipse/B4
new file mode 100644 (file)
index 0000000..c716836
--- /dev/null
+++ b/tests/geometry/ellipse/B4
@@ -0,0 +1,5 @@
+ellipse result 0 0  1 0  400 300
+reverse result
+set viewer "v2d"
+set length 2210.3492160709502
+

diff --git a/tests/geometry/ellipse/B5 b/tests/geometry/ellipse/B5
new file mode 100644 (file)
index 0000000..18aadc8
--- /dev/null
+++ b/tests/geometry/ellipse/B5
@@ -0,0 +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
+

diff --git a/tests/geometry/ellipse/B6 b/tests/geometry/ellipse/B6
new file mode 100644 (file)
index 0000000..2a3611e
--- /dev/null
+++ b/tests/geometry/ellipse/B6
@@ -0,0 +1,4 @@
+ellipse result 70 0 0  0 0 1   1 0 0   40 20
+translate result 0 -100 200
+set length 193.76896441095104
+

diff --git a/tests/geometry/ellipse/B7 b/tests/geometry/ellipse/B7
new file mode 100644 (file)
index 0000000..27c1a3a
--- /dev/null
+++ b/tests/geometry/ellipse/B7
@@ -0,0 +1,11 @@
+ellipse e  3 0 0 0 0 1 0 1 0 1 0.5
+copy e er
+translate er 0 -4 0
+reverse er
+convert result er
+pl
+pl
+pu
+pu
+set length 4.844224110274018
+

diff --git a/tests/geometry/ellipse/B8 b/tests/geometry/ellipse/B8
new file mode 100644 (file)
index 0000000..50a5cdd
--- /dev/null
+++ b/tests/geometry/ellipse/B8
@@ -0,0 +1,12 @@
+ellipse e  3 0 0 1 1 0.5
+copy e er
+2dtranslate er 0 -4
+reverse er
+convert result er
+2dpl 
+2dpl
+2dpu
+2dpu
+set viewer "v2d"
+set length 4.844224110274018
+

diff --git a/tests/geometry/ellipse/B9 b/tests/geometry/ellipse/B9
new file mode 100644 (file)
index 0000000..c74e1b9
--- /dev/null
+++ b/tests/geometry/ellipse/B9
@@ -0,0 +1,5 @@
+ellipse result 70 0 1 0 40 20
+2dlmirror result 0 0 0 1
+set viewer "v2d"
+set length 193.76896441095104
+

diff --git a/tests/geometry/ellipse/C1 b/tests/geometry/ellipse/C1
new file mode 100644 (file)
index 0000000..fae58cf
--- /dev/null
+++ b/tests/geometry/ellipse/C1
@@ -0,0 +1,5 @@
+ellipse result 70 0 1 0 40 20
+2dpmirror result 0 0
+set viewer "v2d"
+set length 193.76896441095104
+

diff --git a/tests/geometry/ellipse/C2 b/tests/geometry/ellipse/C2
new file mode 100644 (file)
index 0000000..64c42e1
--- /dev/null
+++ b/tests/geometry/ellipse/C2
@@ -0,0 +1,9 @@
+ellipse result 0  0 1 0 40 20
+dset ech 1.1
+repeat 20 { 
+       2dpscale result 0 0 0 ech; 
+       copy result .; 
+}
+set viewer "v2d"
+set length 1303.5806982555659
+

diff --git a/tests/geometry/ellipse/C3 b/tests/geometry/ellipse/C3
new file mode 100644 (file)
index 0000000..ee7b7d7
--- /dev/null
+++ b/tests/geometry/ellipse/C3
@@ -0,0 +1,5 @@
+ellipse result 70 0 1 0 40 20
+2drotate result 0 0 90
+set viewer "v2d"
+set length 193.76896441095104
+

diff --git a/tests/geometry/ellipse/C4 b/tests/geometry/ellipse/C4
new file mode 100644 (file)
index 0000000..bb12681
--- /dev/null
+++ b/tests/geometry/ellipse/C4
@@ -0,0 +1,5 @@
+ellipse result 70 0 1 0 40 20
+2dtranslate result -200 0
+set viewer "v2d"
+set length 193.76896441095104
+

diff --git a/tests/geometry/ellipse/C5 b/tests/geometry/ellipse/C5
new file mode 100644 (file)
index 0000000..2978269
--- /dev/null
+++ b/tests/geometry/ellipse/C5
@@ -0,0 +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
+

diff --git a/tests/geometry/ellipse/C6 b/tests/geometry/ellipse/C6
new file mode 100644 (file)
index 0000000..c381d4c
--- /dev/null
+++ b/tests/geometry/ellipse/C6
@@ -0,0 +1,4 @@
+ellipse result 70 0 0  0 0 1   1 0 0   40 20
+pmirror result 0 0 0
+set length 193.76896441095104
+

diff --git a/tests/geometry/ellipse/C7 b/tests/geometry/ellipse/C7
new file mode 100644 (file)
index 0000000..4279051
--- /dev/null
+++ b/tests/geometry/ellipse/C7
@@ -0,0 +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 .;
+}
+set length 193.76896441095104
+

diff --git a/tests/geometry/ellipse/C8 b/tests/geometry/ellipse/C8
new file mode 100644 (file)
index 0000000..da2ad23
--- /dev/null
+++ b/tests/geometry/ellipse/C8
@@ -0,0 +1,6 @@
+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
+

diff --git a/tests/geometry/ellipse/C9 b/tests/geometry/ellipse/C9
new file mode 100644 (file)
index 0000000..18aadc8
--- /dev/null
+++ b/tests/geometry/ellipse/C9
@@ -0,0 +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
+

diff --git a/tests/geometry/ellipse/D1 b/tests/geometry/ellipse/D1
new file mode 100644 (file)
index 0000000..2a3611e
--- /dev/null
+++ b/tests/geometry/ellipse/D1
@@ -0,0 +1,4 @@
+ellipse result 70 0 0  0 0 1   1 0 0   40 20
+translate result 0 -100 200
+set length 193.76896441095104
+

diff --git a/tests/geometry/ellipse/begin b/tests/geometry/ellipse/begin
new file mode 100644 (file)
index 0000000..0053992
--- /dev/null
+++ b/tests/geometry/ellipse/begin
@@ -0,0 +1,2 @@
+set viewer "smallview"
+set type "finite"

diff --git a/tests/geometry/end b/tests/geometry/end
new file mode 100755 (executable)
index 0000000..ff32daf
--- /dev/null
+++ b/tests/geometry/end
@@ -0,0 +1,106 @@
+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 result shape is $x1 and 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
+       } elseif { [info exist square] } {
+           set prop "square"
+           set mass $square
+           regexp {Mass +: +([-0-9.+eE]+)} [sprops result] full m
+       }
+       
+       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 result shape is $m"
+           }
+       } else {
+           if { $m != 0 } {
+               puts "Error : The $command is not valid. The $prop is $m"
+           }
+       }
+    }  
+} else {
+    puts "Error : The $command can not be build."
+}
+
+$viewer
+if { [string compare "$viewer" "v2d"] == 0 } {
+    2dclear
+    donly result
+    2dfit
+} elseif { [string compare "$viewer" "smallview"] == 0 } {
+    clear
+    donly result
+    fit
+} else {
+    puts "Error : wrong value of variable viewer"
+}
+xwd $imagedir/${test_image}.gif
+
+# to end a test script
+puts "TEST COMPLETED"
+
+

diff --git a/tests/geometry/grids.list b/tests/geometry/grids.list
new file mode 100644 (file)
index 0000000..2c04e5f
--- /dev/null
+++ b/tests/geometry/grids.list
@@ -0,0 +1,13 @@
+001 2dbeziecurve
+002 2dbsplinecurve
+003 beziecurve
+004 bsplinecurve
+005 circle
+006 ellipse
+007 hyperbola
+008 iso
+009 law
+010 line
+011 parabola
+012 project
+013 revsurf

diff --git a/tests/geometry/hyperbola/A1 b/tests/geometry/hyperbola/A1
new file mode 100644 (file)
index 0000000..6798522
--- /dev/null
+++ b/tests/geometry/hyperbola/A1
@@ -0,0 +1,8 @@
+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; 
+

diff --git a/tests/geometry/hyperbola/A2 b/tests/geometry/hyperbola/A2
new file mode 100644 (file)
index 0000000..dd57e65
--- /dev/null
+++ b/tests/geometry/hyperbola/A2
@@ -0,0 +1,5 @@
+hyperbola hyper 0 0 0 0 0 1 2 1
+trim hyper hyper -1 1
+convert result hyper
+set length 3.3078924645283738
+

diff --git a/tests/geometry/hyperbola/A3 b/tests/geometry/hyperbola/A3
new file mode 100644 (file)
index 0000000..3cb699c
--- /dev/null
+++ b/tests/geometry/hyperbola/A3
@@ -0,0 +1,9 @@
+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; 
+

diff --git a/tests/geometry/hyperbola/A4 b/tests/geometry/hyperbola/A4
new file mode 100644 (file)
index 0000000..4b38a10
--- /dev/null
+++ b/tests/geometry/hyperbola/A4
@@ -0,0 +1,9 @@
+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; 
+

diff --git a/tests/geometry/hyperbola/A5 b/tests/geometry/hyperbola/A5
new file mode 100644 (file)
index 0000000..8a14891
--- /dev/null
+++ b/tests/geometry/hyperbola/A5
@@ -0,0 +1,9 @@
+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; 
+

diff --git a/tests/geometry/hyperbola/A6 b/tests/geometry/hyperbola/A6
new file mode 100644 (file)
index 0000000..4a7bb53
--- /dev/null
+++ b/tests/geometry/hyperbola/A6
@@ -0,0 +1,9 @@
+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; 
+

diff --git a/tests/geometry/hyperbola/A7 b/tests/geometry/hyperbola/A7
new file mode 100644 (file)
index 0000000..53fffb2
--- /dev/null
+++ b/tests/geometry/hyperbola/A7
@@ -0,0 +1,9 @@
+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; 
+

diff --git a/tests/geometry/hyperbola/A8 b/tests/geometry/hyperbola/A8
new file mode 100644 (file)
index 0000000..b5f63a5
--- /dev/null
+++ b/tests/geometry/hyperbola/A8
@@ -0,0 +1,9 @@
+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; 
+

diff --git a/tests/geometry/hyperbola/A9 b/tests/geometry/hyperbola/A9
new file mode 100644 (file)
index 0000000..f6d817b
--- /dev/null
+++ b/tests/geometry/hyperbola/A9
@@ -0,0 +1,9 @@
+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; 
+

diff --git a/tests/geometry/hyperbola/B1 b/tests/geometry/hyperbola/B1
new file mode 100644 (file)
index 0000000..7135733
--- /dev/null
+++ b/tests/geometry/hyperbola/B1
@@ -0,0 +1,9 @@
+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; 
+

diff --git a/tests/geometry/hyperbola/B2 b/tests/geometry/hyperbola/B2
new file mode 100644 (file)
index 0000000..86dea15
--- /dev/null
+++ b/tests/geometry/hyperbola/B2
@@ -0,0 +1,12 @@
+hyperbola h 5 -1 0 0 0 1 0 1 0 1 0.5
+trim h h -1 1
+copy h hr
+translate hr 0 -4 0
+reverse hr
+convert result hr
+pl
+pl
+pu
+pu
+set length 1.6539462322641865
+

diff --git a/tests/geometry/hyperbola/B3 b/tests/geometry/hyperbola/B3
new file mode 100644 (file)
index 0000000..e140531
--- /dev/null
+++ b/tests/geometry/hyperbola/B3
@@ -0,0 +1,12 @@
+hyperbola h 5 -1 0 1 1 0.5
+trim h h -1 1
+copy h hr
+2dtranslate hr 0 -4
+reverse hr
+convert result hr
+2dpl 
+2dpl
+2dpu
+2dpu
+set length 1.6539462322641865
+

diff --git a/tests/geometry/hyperbola/B4 b/tests/geometry/hyperbola/B4
new file mode 100644 (file)
index 0000000..87cc225
--- /dev/null
+++ b/tests/geometry/hyperbola/B4
@@ -0,0 +1,9 @@
+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; 
+

diff --git a/tests/geometry/hyperbola/B5 b/tests/geometry/hyperbola/B5
new file mode 100644 (file)
index 0000000..e38f9c5
--- /dev/null
+++ b/tests/geometry/hyperbola/B5
@@ -0,0 +1,9 @@
+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; 
+

diff --git a/tests/geometry/hyperbola/B6 b/tests/geometry/hyperbola/B6
new file mode 100644 (file)
index 0000000..625253f
--- /dev/null
+++ b/tests/geometry/hyperbola/B6
@@ -0,0 +1,13 @@
+hyperbola result 0  0 1 0 20 10
+dset ech 1.1
+repeat 20 { 
+       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; 
+

diff --git a/tests/geometry/hyperbola/B7 b/tests/geometry/hyperbola/B7
new file mode 100644 (file)
index 0000000..421063d
--- /dev/null
+++ b/tests/geometry/hyperbola/B7
@@ -0,0 +1,9 @@
+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; 
+

diff --git a/tests/geometry/hyperbola/B8 b/tests/geometry/hyperbola/B8
new file mode 100644 (file)
index 0000000..8a14891
--- /dev/null
+++ b/tests/geometry/hyperbola/B8
@@ -0,0 +1,9 @@
+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; 
+

diff --git a/tests/geometry/hyperbola/B9 b/tests/geometry/hyperbola/B9
new file mode 100644 (file)
index 0000000..7ccbefb
--- /dev/null
+++ b/tests/geometry/hyperbola/B9
@@ -0,0 +1,9 @@
+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; 
+

diff --git a/tests/geometry/hyperbola/C1 b/tests/geometry/hyperbola/C1
new file mode 100644 (file)
index 0000000..937645c
--- /dev/null
+++ b/tests/geometry/hyperbola/C1
@@ -0,0 +1,9 @@
+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; 
+

diff --git a/tests/geometry/hyperbola/C2 b/tests/geometry/hyperbola/C2
new file mode 100644 (file)
index 0000000..c4c510a
--- /dev/null
+++ b/tests/geometry/hyperbola/C2
@@ -0,0 +1,11 @@
+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 .;
+}
+
+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; 
+

diff --git a/tests/geometry/hyperbola/C3 b/tests/geometry/hyperbola/C3
new file mode 100644 (file)
index 0000000..b275266
--- /dev/null
+++ b/tests/geometry/hyperbola/C3
@@ -0,0 +1,11 @@
+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; 
+

diff --git a/tests/geometry/hyperbola/C4 b/tests/geometry/hyperbola/C4
new file mode 100644 (file)
index 0000000..f6d817b
--- /dev/null
+++ b/tests/geometry/hyperbola/C4
@@ -0,0 +1,9 @@
+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; 
+

diff --git a/tests/geometry/hyperbola/C5 b/tests/geometry/hyperbola/C5
new file mode 100644 (file)
index 0000000..7135733
--- /dev/null
+++ b/tests/geometry/hyperbola/C5
@@ -0,0 +1,9 @@
+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; 
+

diff --git a/tests/geometry/hyperbola/begin b/tests/geometry/hyperbola/begin
new file mode 100644 (file)
index 0000000..8c9b4bf
--- /dev/null
+++ b/tests/geometry/hyperbola/begin
@@ -0,0 +1,2 @@
+set viewer "smallview"
+set type "infinite"
\ No newline at end of file

diff --git a/tests/geometry/iso/A1 b/tests/geometry/iso/A1
new file mode 100644 (file)
index 0000000..661d081
--- /dev/null
+++ b/tests/geometry/iso/A1
@@ -0,0 +1,13 @@
+plane p
+trim p p 0 1 0 1
+convert p p
+incudeg p 3
+incvdeg p 3
+movep p 2 2 0 0 1
+nbiso p 20 20
+offset offs1 p 0.3
+viso curv_v2 offs1 0.2
+copy curv_v2 result
+set viewer "smallview"
+set length 1.3447354805936929
+

diff --git a/tests/geometry/iso/A2 b/tests/geometry/iso/A2
new file mode 100644 (file)
index 0000000..f504b0c
--- /dev/null
+++ b/tests/geometry/iso/A2
@@ -0,0 +1,13 @@
+plane p
+trim p p 0 1 0 1
+convert p p
+incudeg p 3
+incvdeg p 3
+movep p 2 2 0 0 1
+nbiso p 20 20
+offset offs1 p 0.3
+uiso curv_u2 offs1 0.2
+copy curv_u2 result
+set viewer "smallview"
+set length 1.3447354805936929
+

diff --git a/tests/geometry/iso/A3 b/tests/geometry/iso/A3
new file mode 100644 (file)
index 0000000..d23e706
--- /dev/null
+++ b/tests/geometry/iso/A3
@@ -0,0 +1,15 @@
+plane p
+trim p p 0 1 0 1
+convert p p
+incudeg p 3
+incvdeg p 3
+movep p 2 2 0 0 1
+nbiso p 20 20
+offset offs1 p 0.3
+uiso curv_u2 offs1 0.2
+copy curv_u2 result
+set viewer "smallview"
+set length 1.3447354805936931
+
+
+

diff --git a/tests/geometry/iso/A4 b/tests/geometry/iso/A4
new file mode 100644 (file)
index 0000000..904d84e
--- /dev/null
+++ b/tests/geometry/iso/A4
@@ -0,0 +1,14 @@
+plane p
+trim p p 0 1 0 1
+convert p p
+incudeg p 3
+incvdeg p 3
+movep p 2 2 0 0 1
+nbiso p 20 20
+offset offs1 p 0.3
+viso curv_v2 offs1 0.2
+copy curv_v2 result
+set viewer "smallview"
+set length 1.3447354805936929
+
+

diff --git a/tests/geometry/iso/begin b/tests/geometry/iso/begin
new file mode 100644 (file)
index 0000000..0053992
--- /dev/null
+++ b/tests/geometry/iso/begin
@@ -0,0 +1,2 @@
+set viewer "smallview"
+set type "finite"

diff --git a/tests/geometry/law/A1 b/tests/geometry/law/A1
new file mode 100644 (file)
index 0000000..0cf9144
--- /dev/null
+++ b/tests/geometry/law/A1
@@ -0,0 +1,11 @@
+law law1 5 4 0.0e0 6 1.0e0 1 2.0e0 1 3.0e0 6  0  0 0.1 0.2  0.7  0.3  1  1
+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 }
+copy law1 result
+set length 3.3374712943009293
+

diff --git a/tests/geometry/law/A2 b/tests/geometry/law/A2
new file mode 100644 (file)
index 0000000..c47543c
--- /dev/null
+++ b/tests/geometry/law/A2
@@ -0,0 +1,11 @@
+law law1 5 4 0.0e0 6 1.0e0 1 2.0e0 1 3.0e0 6  0  0 0.1 0.2  0.7  0.3  1  1
+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 }
+copy law1 result
+set length 3.3254491241005475
+

diff --git a/tests/geometry/law/A3 b/tests/geometry/law/A3
new file mode 100644 (file)
index 0000000..0cf9144
--- /dev/null
+++ b/tests/geometry/law/A3
@@ -0,0 +1,11 @@
+law law1 5 4 0.0e0 6 1.0e0 1 2.0e0 1 3.0e0 6  0  0 0.1 0.2  0.7  0.3  1  1
+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 }
+copy law1 result
+set length 3.3374712943009293
+

diff --git a/tests/geometry/law/A4 b/tests/geometry/law/A4
new file mode 100644 (file)
index 0000000..c47543c
--- /dev/null
+++ b/tests/geometry/law/A4
@@ -0,0 +1,11 @@
+law law1 5 4 0.0e0 6 1.0e0 1 2.0e0 1 3.0e0 6  0  0 0.1 0.2  0.7  0.3  1  1
+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 }
+copy law1 result
+set length 3.3254491241005475
+

diff --git a/tests/geometry/law/begin b/tests/geometry/law/begin
new file mode 100644 (file)
index 0000000..d10da1f
--- /dev/null
+++ b/tests/geometry/law/begin
@@ -0,0 +1,2 @@
+set viewer "v2d"
+set type "finite"

diff --git a/tests/geometry/line/A1 b/tests/geometry/line/A1
new file mode 100644 (file)
index 0000000..7e6b29e
--- /dev/null
+++ b/tests/geometry/line/A1
@@ -0,0 +1,6 @@
+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; 
+

diff --git a/tests/geometry/line/A2 b/tests/geometry/line/A2
new file mode 100644 (file)
index 0000000..1386790
--- /dev/null
+++ b/tests/geometry/line/A2
@@ -0,0 +1,6 @@
+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; 
+

diff --git a/tests/geometry/line/A3 b/tests/geometry/line/A3
new file mode 100644 (file)
index 0000000..b4b463f
--- /dev/null
+++ b/tests/geometry/line/A3
@@ -0,0 +1,5 @@
+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; 
+

diff --git a/tests/geometry/line/A4 b/tests/geometry/line/A4
new file mode 100644 (file)
index 0000000..945d71e
--- /dev/null
+++ b/tests/geometry/line/A4
@@ -0,0 +1,5 @@
+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; 
+

diff --git a/tests/geometry/line/A5 b/tests/geometry/line/A5
new file mode 100644 (file)
index 0000000..0bb945a
--- /dev/null
+++ b/tests/geometry/line/A5
@@ -0,0 +1,7 @@
+line lin1 0 0 1 0
+trim lin1 lin1 -1 1 
+convert result lin1
+2dcvalue result 0 x y dx dy d2x d2y
+set viewer "v2d"
+set length 2
+

diff --git a/tests/geometry/line/A6 b/tests/geometry/line/A6
new file mode 100644 (file)
index 0000000..0904699
--- /dev/null
+++ b/tests/geometry/line/A6
@@ -0,0 +1,7 @@
+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; 
+

diff --git a/tests/geometry/line/A7 b/tests/geometry/line/A7
new file mode 100644 (file)
index 0000000..3554791
--- /dev/null
+++ b/tests/geometry/line/A7
@@ -0,0 +1,6 @@
+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; 
+

diff --git a/tests/geometry/line/A8 b/tests/geometry/line/A8
new file mode 100644 (file)
index 0000000..0f2bd59
--- /dev/null
+++ b/tests/geometry/line/A8
@@ -0,0 +1,12 @@
+line l -3 0 0 1 2 0
+trim l l -1 2
+copy l lr
+translate lr 0 -4 0
+reverse lr
+convert result lr
+pl
+pl
+pu
+pu
+set length 2.9999999999999996
+

diff --git a/tests/geometry/line/A9 b/tests/geometry/line/A9
new file mode 100644 (file)
index 0000000..4e307ea
--- /dev/null
+++ b/tests/geometry/line/A9
@@ -0,0 +1,13 @@
+line l -3 0 1 2 
+trim l l -1 2
+copy l lr
+2dtranslate lr 0 -4
+reverse lr
+convert result lr
+2dpl 
+2dpl
+2dpu
+2dpu
+set viewer "v2d"
+set length 2.9999999999999996
+

diff --git a/tests/geometry/line/B1 b/tests/geometry/line/B1
new file mode 100644 (file)
index 0000000..8807dfc
--- /dev/null
+++ b/tests/geometry/line/B1
@@ -0,0 +1,7 @@
+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; 
+

diff --git a/tests/geometry/line/begin b/tests/geometry/line/begin
new file mode 100644 (file)
index 0000000..268981a
--- /dev/null
+++ b/tests/geometry/line/begin
@@ -0,0 +1,2 @@
+set viewer "smallview"
+set type "infinite"

diff --git a/tests/geometry/parabola/A1 b/tests/geometry/parabola/A1
new file mode 100644 (file)
index 0000000..d745437
--- /dev/null
+++ b/tests/geometry/parabola/A1
@@ -0,0 +1,5 @@
+parabola para 0 0 0 0 0 1 2
+trim para para -1 1
+convert result para
+set length 2.0206422525934427
+

diff --git a/tests/geometry/parabola/A2 b/tests/geometry/parabola/A2
new file mode 100644 (file)
index 0000000..8565913
--- /dev/null
+++ b/tests/geometry/parabola/A2
@@ -0,0 +1,10 @@
+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; 
+

diff --git a/tests/geometry/parabola/A3 b/tests/geometry/parabola/A3
new file mode 100644 (file)
index 0000000..370b96e
--- /dev/null
+++ b/tests/geometry/parabola/A3
@@ -0,0 +1,10 @@
+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; 
+

diff --git a/tests/geometry/parabola/A4 b/tests/geometry/parabola/A4
new file mode 100644 (file)
index 0000000..30b9680
--- /dev/null
+++ b/tests/geometry/parabola/A4
@@ -0,0 +1,10 @@
+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; 
+

diff --git a/tests/geometry/parabola/A5 b/tests/geometry/parabola/A5
new file mode 100644 (file)
index 0000000..2501d03
--- /dev/null
+++ b/tests/geometry/parabola/A5
@@ -0,0 +1,9 @@
+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; 
+

diff --git a/tests/geometry/parabola/A6 b/tests/geometry/parabola/A6
new file mode 100644 (file)
index 0000000..1f97298
--- /dev/null
+++ b/tests/geometry/parabola/A6
@@ -0,0 +1,9 @@
+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; 
+

diff --git a/tests/geometry/parabola/A7 b/tests/geometry/parabola/A7
new file mode 100644 (file)
index 0000000..f184e8e
--- /dev/null
+++ b/tests/geometry/parabola/A7
@@ -0,0 +1,8 @@
+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; 
+

diff --git a/tests/geometry/parabola/A8 b/tests/geometry/parabola/A8
new file mode 100644 (file)
index 0000000..ffe7e4e
--- /dev/null
+++ b/tests/geometry/parabola/A8
@@ -0,0 +1,9 @@
+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; 
+

diff --git a/tests/geometry/parabola/A9 b/tests/geometry/parabola/A9
new file mode 100644 (file)
index 0000000..05de6e2
--- /dev/null
+++ b/tests/geometry/parabola/A9
@@ -0,0 +1,9 @@
+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; 
+

diff --git a/tests/geometry/parabola/B1 b/tests/geometry/parabola/B1
new file mode 100644 (file)
index 0000000..4a2ca84
--- /dev/null
+++ b/tests/geometry/parabola/B1
@@ -0,0 +1,10 @@
+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; 
+

diff --git a/tests/geometry/parabola/B2 b/tests/geometry/parabola/B2
new file mode 100644 (file)
index 0000000..0f75304
--- /dev/null
+++ b/tests/geometry/parabola/B2
@@ -0,0 +1,10 @@
+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; 
+

diff --git a/tests/geometry/parabola/B3 b/tests/geometry/parabola/B3
new file mode 100644 (file)
index 0000000..3df2b9c
--- /dev/null
+++ b/tests/geometry/parabola/B3
@@ -0,0 +1,9 @@
+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; 
+

diff --git a/tests/geometry/parabola/B4 b/tests/geometry/parabola/B4
new file mode 100644 (file)
index 0000000..7f961d5
--- /dev/null
+++ b/tests/geometry/parabola/B4
@@ -0,0 +1,11 @@
+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; 
+

diff --git a/tests/geometry/parabola/B5 b/tests/geometry/parabola/B5
new file mode 100644 (file)
index 0000000..3c47f4b
--- /dev/null
+++ b/tests/geometry/parabola/B5
@@ -0,0 +1,9 @@
+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; 
+

diff --git a/tests/geometry/parabola/B6 b/tests/geometry/parabola/B6
new file mode 100644 (file)
index 0000000..1d0c261
--- /dev/null
+++ b/tests/geometry/parabola/B6
@@ -0,0 +1,9 @@
+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; 
+

diff --git a/tests/geometry/parabola/B7 b/tests/geometry/parabola/B7
new file mode 100644 (file)
index 0000000..1455a28
--- /dev/null
+++ b/tests/geometry/parabola/B7
@@ -0,0 +1,12 @@
+parabola  p 7 0 0 0 0 1 0 1 0 0.2
+trim p p -1 1
+copy p pr
+translate pr 0 -4 0
+reverse pr
+convert result pr
+pl
+pl
+pu
+pu
+set length 3.3514748622014476
+

diff --git a/tests/geometry/parabola/B8 b/tests/geometry/parabola/B8
new file mode 100644 (file)
index 0000000..8b9b0c0
--- /dev/null
+++ b/tests/geometry/parabola/B8
@@ -0,0 +1,13 @@
+parabola  p 7 0 0 1 0.2
+trim p p -1 1
+copy p pr
+2dtranslate pr 0 -4
+reverse pr
+convert result pr
+2dpl 
+2dpl
+2dpu
+2dpu
+set viewer "v2d"
+set length 3.3514748622014476
+

diff --git a/tests/geometry/parabola/B9 b/tests/geometry/parabola/B9
new file mode 100644 (file)
index 0000000..5d7559f
--- /dev/null
+++ b/tests/geometry/parabola/B9
@@ -0,0 +1,10 @@
+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; 
+

diff --git a/tests/geometry/parabola/C1 b/tests/geometry/parabola/C1
new file mode 100644 (file)
index 0000000..726853e
--- /dev/null
+++ b/tests/geometry/parabola/C1
@@ -0,0 +1,10 @@
+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; 
+

diff --git a/tests/geometry/parabola/C2 b/tests/geometry/parabola/C2
new file mode 100644 (file)
index 0000000..afa88aa
--- /dev/null
+++ b/tests/geometry/parabola/C2
@@ -0,0 +1,14 @@
+parabola result 0  0  0  10 10
+dset ech 1.1
+repeat 20 { 
+       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; 
+

diff --git a/tests/geometry/parabola/C3 b/tests/geometry/parabola/C3
new file mode 100644 (file)
index 0000000..9b4d042
--- /dev/null
+++ b/tests/geometry/parabola/C3
@@ -0,0 +1,10 @@
+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; 
+

diff --git a/tests/geometry/parabola/C4 b/tests/geometry/parabola/C4
new file mode 100644 (file)
index 0000000..f3d03f5
--- /dev/null
+++ b/tests/geometry/parabola/C4
@@ -0,0 +1,10 @@
+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; 
+

diff --git a/tests/geometry/parabola/C5 b/tests/geometry/parabola/C5
new file mode 100644 (file)
index 0000000..f2f406d
--- /dev/null
+++ b/tests/geometry/parabola/C5
@@ -0,0 +1,9 @@
+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; 
+

diff --git a/tests/geometry/parabola/C6 b/tests/geometry/parabola/C6
new file mode 100644 (file)
index 0000000..2fb770b
--- /dev/null
+++ b/tests/geometry/parabola/C6
@@ -0,0 +1,9 @@
+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; 
+

diff --git a/tests/geometry/parabola/C7 b/tests/geometry/parabola/C7
new file mode 100644 (file)
index 0000000..9c56046
--- /dev/null
+++ b/tests/geometry/parabola/C7
@@ -0,0 +1,11 @@
+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 .;
+}
+
+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; 
+

diff --git a/tests/geometry/parabola/C8 b/tests/geometry/parabola/C8
new file mode 100644 (file)
index 0000000..9709191
--- /dev/null
+++ b/tests/geometry/parabola/C8
@@ -0,0 +1,11 @@
+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; 
+

diff --git a/tests/geometry/parabola/C9 b/tests/geometry/parabola/C9
new file mode 100644 (file)
index 0000000..3c47f4b
--- /dev/null
+++ b/tests/geometry/parabola/C9
@@ -0,0 +1,9 @@
+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; 
+

diff --git a/tests/geometry/parabola/D1 b/tests/geometry/parabola/D1
new file mode 100644 (file)
index 0000000..1d0c261
--- /dev/null
+++ b/tests/geometry/parabola/D1
@@ -0,0 +1,9 @@
+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; 
+

diff --git a/tests/geometry/parabola/begin b/tests/geometry/parabola/begin
new file mode 100644 (file)
index 0000000..268981a
--- /dev/null
+++ b/tests/geometry/parabola/begin
@@ -0,0 +1,2 @@
+set viewer "smallview"
+set type "infinite"

diff --git a/tests/geometry/project/A1 b/tests/geometry/project/A1
new file mode 100644 (file)
index 0000000..f897912
--- /dev/null
+++ b/tests/geometry/project/A1
@@ -0,0 +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
+

diff --git a/tests/geometry/project/A2 b/tests/geometry/project/A2
new file mode 100644 (file)
index 0000000..11b4f21
--- /dev/null
+++ b/tests/geometry/project/A2
@@ -0,0 +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
+

diff --git a/tests/geometry/project/A3 b/tests/geometry/project/A3
new file mode 100644 (file)
index 0000000..b4b0c2e
--- /dev/null
+++ b/tests/geometry/project/A3
@@ -0,0 +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
+

diff --git a/tests/geometry/project/A4 b/tests/geometry/project/A4
new file mode 100644 (file)
index 0000000..afaa480
--- /dev/null
+++ b/tests/geometry/project/A4
@@ -0,0 +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
+

diff --git a/tests/geometry/project/A5 b/tests/geometry/project/A5
new file mode 100644 (file)
index 0000000..f897912
--- /dev/null
+++ b/tests/geometry/project/A5
@@ -0,0 +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
+

diff --git a/tests/geometry/project/A6 b/tests/geometry/project/A6
new file mode 100644 (file)
index 0000000..11b4f21
--- /dev/null
+++ b/tests/geometry/project/A6
@@ -0,0 +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
+

diff --git a/tests/geometry/project/A7 b/tests/geometry/project/A7
new file mode 100644 (file)
index 0000000..b4b0c2e
--- /dev/null
+++ b/tests/geometry/project/A7
@@ -0,0 +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
+

diff --git a/tests/geometry/project/A8 b/tests/geometry/project/A8
new file mode 100644 (file)
index 0000000..afaa480
--- /dev/null
+++ b/tests/geometry/project/A8
@@ -0,0 +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
+

diff --git a/tests/geometry/project/begin b/tests/geometry/project/begin
new file mode 100644 (file)
index 0000000..d10da1f
--- /dev/null
+++ b/tests/geometry/project/begin
@@ -0,0 +1,2 @@
+set viewer "v2d"
+set type "finite"

diff --git a/tests/geometry/revsurf/A1 b/tests/geometry/revsurf/A1
new file mode 100644 (file)
index 0000000..fcdfbc5
--- /dev/null
+++ b/tests/geometry/revsurf/A1
@@ -0,0 +1,12 @@
+restore [locate_data_file base_revol] base_revol
+revsurf  revolution1  base_revol 1 0 0 0 0 1
+svalue revolution1 0.0 1.0  x y z dux duy duz dvx dvy dvz d2ux d2uy d2uz d2vx d2vy d2vz duvx duvy duvz
+dump x y z dux duy duz dvx dvy dvz d2ux d2uy d2uz duvx duvy duvz d2vx d2vy d2vz
+svalue revolution1 pi  1.0  x y z dux duy duz dovx dovy dovz d2ux d2uy d2uz d2vx d2vy d2vz duvx duvy duvz
+dump x y z dux duy duz dovx dovy dovz d2ux d2uy d2uz duvx duvy duvz d2vx d2vy d2vz
+dump revolution1
+dval  dovx+dvx
+dval  dovy+dvy
+mkface result revolution1
+set square 13.8136
+

diff --git a/tests/geometry/revsurf/begin b/tests/geometry/revsurf/begin
new file mode 100644 (file)
index 0000000..0053992
--- /dev/null
+++ b/tests/geometry/revsurf/begin
@@ -0,0 +1,2 @@
+set viewer "smallview"
+set type "finite"