OpenCascade/occt
1
0
Fork 0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-03 17:56:21 +03:00
Code Packages Releases Activity

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

Browse Source
This commit is contained in:
ski 2012-10-18 12:58:53 +04:00
parent b9736bcc8e
commit 18e25fc94c
220 changed files with 1763 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/geometry/2dbeziecurve/A1 Normal file
View File

@ -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

4
tests/geometry/2dbeziecurve/A2 Normal file
View File

@ -0,0 +1,4 @@
2dbeziercurve result 3 -2 0 0 -3 2 0
insertpole result 2 1 6 1
set length 7.1843642663784797

6
tests/geometry/2dbeziecurve/A3 Normal file
View File

@ -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

4
tests/geometry/2dbeziecurve/A4 Normal file
View File

@ -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

4
tests/geometry/2dbeziecurve/A5 Normal file
View File

@ -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

4
tests/geometry/2dbeziecurve/A6 Normal file
View File

@ -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

4
tests/geometry/2dbeziecurve/A7 Normal file
View File

@ -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

3
tests/geometry/2dbeziecurve/A8 Normal file
View File

@ -0,0 +1,3 @@
2dbeziercurve result 3 2 0 4 1 6 0
set length 4.1609152777389031

3
tests/geometry/2dbeziecurve/A9 Normal file
View File

@ -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

46
tests/geometry/2dbeziecurve/B1 Normal file
View File

@ -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

2
tests/geometry/2dbeziecurve/begin Normal file
View File

@ -0,0 +1,2 @@
set viewer "v2d"
set type "finite"

3
tests/geometry/2dbsplinecurve/A1 Normal file
View File

@ -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

4
tests/geometry/2dbsplinecurve/A2 Normal file
View File

@ -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

5
tests/geometry/2dbsplinecurve/A3 Normal file
View File

@ -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

4
tests/geometry/2dbsplinecurve/A4 Normal file
View File

@ -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

4
tests/geometry/2dbsplinecurve/A5 Normal file
View File

@ -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

9
tests/geometry/2dbsplinecurve/A6 Normal file
View File

@ -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

9
tests/geometry/2dbsplinecurve/A7 Normal file
View File

@ -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

11
tests/geometry/2dbsplinecurve/A8 Normal file
View File

@ -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

11
tests/geometry/2dbsplinecurve/A9 Normal file
View File

@ -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

12
tests/geometry/2dbsplinecurve/B1 Normal file
View File

@ -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

12
tests/geometry/2dbsplinecurve/B2 Normal file
View File

@ -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

4
tests/geometry/2dbsplinecurve/B3 Normal file
View File

@ -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

4
tests/geometry/2dbsplinecurve/B4 Normal file
View File

@ -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

4
tests/geometry/2dbsplinecurve/B5 Normal file
View File

@ -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

4
tests/geometry/2dbsplinecurve/B6 Normal file
View File

@ -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

46
tests/geometry/2dbsplinecurve/B7 Normal file
View File

@ -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

2
tests/geometry/2dbsplinecurve/begin Normal file
View File

@ -0,0 +1,2 @@
set viewer "v2d"
set type "finite"

95
tests/geometry/begin Executable file
View File

@ -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
}

5
tests/geometry/beziecurve/A1 Normal file
View File

@ -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

4
tests/geometry/beziecurve/A2 Normal file
View File

@ -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

4
tests/geometry/beziecurve/A3 Normal file
View File

@ -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

4
tests/geometry/beziecurve/A4 Normal file
View File

@ -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

4
tests/geometry/beziecurve/A5 Normal file
View File

@ -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

4
tests/geometry/beziecurve/A6 Normal file
View File

@ -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

9
tests/geometry/beziecurve/A7 Normal file
View File

@ -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

4
tests/geometry/beziecurve/A8 Normal file
View File

@ -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

4
tests/geometry/beziecurve/A9 Normal file
View File

@ -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

4
tests/geometry/beziecurve/B1 Normal file
View File

@ -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

3
tests/geometry/beziecurve/B2 Normal file
View File

@ -0,0 +1,3 @@
beziercurve result 3 2 0 1 4 1 2 6 0 1
set length 4.3119494616416141

3
tests/geometry/beziecurve/B3 Normal file
View File

@ -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

4
tests/geometry/beziecurve/B4 Normal file
View File

@ -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

4
tests/geometry/beziecurve/B5 Normal file
View File

@ -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

2
tests/geometry/beziecurve/begin Normal file
View File

@ -0,0 +1,2 @@
set viewer "smallview"
set type "finite"

10
tests/geometry/bsplinecurve/A1 Normal file
View File

@ -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

11
tests/geometry/bsplinecurve/A2 Normal file
View File

@ -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

13
tests/geometry/bsplinecurve/A3 Normal file
View File

@ -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

6
tests/geometry/bsplinecurve/A4 Normal file
View File

@ -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

13
tests/geometry/bsplinecurve/A5 Normal file
View File

@ -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

9
tests/geometry/bsplinecurve/A6 Normal file
View File

@ -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

14
tests/geometry/bsplinecurve/A7 Normal file
View File

@ -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

5
tests/geometry/bsplinecurve/A8 Normal file
View File

@ -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

14
tests/geometry/bsplinecurve/A9 Normal file
View File

@ -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

4
tests/geometry/bsplinecurve/B1 Normal file
View File

@ -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

13
tests/geometry/bsplinecurve/B2 Normal file
View File

@ -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

7
tests/geometry/bsplinecurve/B3 Normal file
View File

@ -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

10
tests/geometry/bsplinecurve/B4 Normal file
View File

@ -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

5
tests/geometry/bsplinecurve/B5 Normal file
View File

@ -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

9
tests/geometry/bsplinecurve/B6 Normal file
View File

@ -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

9
tests/geometry/bsplinecurve/B7 Normal file
View File

@ -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

4
tests/geometry/bsplinecurve/B8 Normal file
View File

@ -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

4
tests/geometry/bsplinecurve/B9 Normal file
View File

@ -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

5
tests/geometry/bsplinecurve/C1 Normal file
View File

@ -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

10
tests/geometry/bsplinecurve/C2 Normal file
View File

@ -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

10
tests/geometry/bsplinecurve/C3 Normal file
View File

@ -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

2
tests/geometry/bsplinecurve/begin Normal file
View File

@ -0,0 +1,2 @@
set viewer "smallview"
set type "finite"

4
tests/geometry/circle/A1 Normal file
View File

@ -0,0 +1,4 @@
circle c 0 0 0 0 0 1 1
convert result c
set length 6.2831853071795853

5
tests/geometry/circle/A2 Normal file
View File

@ -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

4
tests/geometry/circle/A3 Normal file
View File

@ -0,0 +1,4 @@
circle cer 0 0 0 0 0 1 1
convert result cer c1
set length 6.2831853071795871

5
tests/geometry/circle/A4 Normal file
View File

@ -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

5
tests/geometry/circle/A5 Normal file
View File

@ -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

5
tests/geometry/circle/A6 Normal file
View File

@ -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

5
tests/geometry/circle/A7 Normal file
View File

@ -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

5
tests/geometry/circle/A8 Normal file
View File

@ -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

4
tests/geometry/circle/A9 Normal file
View File

@ -0,0 +1,4 @@
circle cer 0 0 0 0 0 1 1
convert result cer qa
set length 6.2831853071795845

6
tests/geometry/circle/B1 Normal file
View File

@ -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

4
tests/geometry/circle/B2 Normal file
View File

@ -0,0 +1,4 @@
circle result 0 0 1 0 0.2
set viewer "v2d"
set length 1.2566370614359172

4
tests/geometry/circle/B3 Normal file
View File

@ -0,0 +1,4 @@
circle result 0.1 0.2 1 1 0.1
set viewer "v2d"
set length 0.62831853071795862

3
tests/geometry/circle/B4 Normal file
View File

@ -0,0 +1,3 @@
circle result 0 0 0 0 0 1 1 0 0 0.2
set length 1.2566370614359172

3
tests/geometry/circle/B5 Normal file
View File

@ -0,0 +1,3 @@
circle result 0 0 0.1 0 1 1 1 0 0 0.3
set length 1.8849555921538759

5
tests/geometry/circle/B6 Normal file
View File

@ -0,0 +1,5 @@
circle c1 -30 30 1 0 20
trim result c1 0 pi
set viewer "v2d"
set length 62.831853071795862

5
tests/geometry/circle/B7 Normal file
View File

@ -0,0 +1,5 @@
circle c2 -30 -30 1 0 20
trim result c2 pi 2*pi
set viewer "v2d"
set length 62.831853071795862

5
tests/geometry/circle/B8 Normal file
View File

@ -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

5
tests/geometry/circle/B9 Normal file
View File

@ -0,0 +1,5 @@
circle c4 30 30 1 0 20
trim result c4 pi pi/2
set viewer "v2d"
set length 94.247779607693786

6
tests/geometry/circle/C1 Normal file
View File

@ -0,0 +1,6 @@
circle result 70 0 1 0 30
2dtranslate result -200 0
set viewer "v2d"
set length 188.49555921538757

5
tests/geometry/circle/C2 Normal file
View File

@ -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

4
tests/geometry/circle/C3 Normal file
View File

@ -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

5
tests/geometry/circle/C4 Normal file
View File

@ -0,0 +1,5 @@
circle result 0 0 1 0 200
reverse result
set viewer "v2d"
set length 1256.6370614359173

4
tests/geometry/circle/C5 Normal file
View File

@ -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

4
tests/geometry/circle/C6 Normal file
View File

@ -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

11
tests/geometry/circle/C7 Normal file
View File

@ -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

12
tests/geometry/circle/C8 Normal file
View File

@ -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

5
tests/geometry/circle/C9 Normal file
View File

@ -0,0 +1,5 @@
circle result 70 0 1 0 30
2dlmirror result 0 0 0 1
set viewer "v2d"
set length 188.49555921538757

5
tests/geometry/circle/D1 Normal file
View File

@ -0,0 +1,5 @@
circle result 70 0 1 0 30
2dpmirror result 0 0
set viewer "v2d"
set length 188.49555921538757

9
tests/geometry/circle/D2 Normal file
View File

@ -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

5
tests/geometry/circle/D3 Normal file
View File

@ -0,0 +1,5 @@
circle result 70 0 1 0 30
2drotate result 0 0 90
set viewer "v2d"
set length 188.49555921538757

5
tests/geometry/circle/D4 Normal file
View File

@ -0,0 +1,5 @@
circle result 70 0 1 0 30
2dtranslate result -200 0
set viewer "v2d"
set length 188.49555921538757

4
tests/geometry/circle/D5 Normal file
View File

@ -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

4
tests/geometry/circle/D6 Normal file
View File

@ -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

6
tests/geometry/circle/D7 Normal file
View File

@ -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

Some files were not shown because too many files have changed in this diff Show More