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

0027094: Create command checkdump for parsing dumps (geometry test group)

Browse Source 
checkdump - procedure to parse output dump and compare it with reference values;
checklength - procedure to compute length of input shape.
Added procedures and modified test group geometry.
This commit is contained in:
apn 2016-01-22 15:59:10 +03:00 committed by bugmaster
parent 3ad6d001d1
commit 6cc6fc047c
218 changed files with 295 additions and 678 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/DrawResources/CheckCommands.tcl
View File

@ -710,7 +710,7 @@ proc checklength {shape args} {
if { ${compared_notequal_shape} != -1 } { if { ${compared_notequal_shape} != -1 } {
upvar ${compared_notequal_shape} ${compared_notequal_shape} upvar ${compared_notequal_shape} ${compared_notequal_shape}
regexp regexp "The +length+ ${compared_notequal_shape} +is +(\[-0-9.+eE\]+)" [${CommandName} ${compared_notequal_shape} ${epsilon}] full compared_m regexp "The +length+ ${compared_notequal_shape} +is +(\[-0-9.+eE\]+)" [${CommandName} ${compared_notequal_shape} ${epsilon}] full compared_m
if { $compared_m == $m } { if { $compared_m == $m } {
puts "Error: length of shape ${compared_notequal_shape} is equal shape to ${shape}" puts "Error: length of shape ${compared_notequal_shape} is equal shape to ${shape}"
} }

2
tests/geometry/2dbeziecurve/A1
View File

@ -1,4 +1,4 @@
2dbeziercurve result 8 0 0 0 1 -2 1 -2 -3 4 -3 4 5 -6 5 -6 -4 2dbeziercurve result 8 0 0 0 1 -2 1 -2 -3 4 -3 4 5 -6 5 -6 -4
reverse result reverse result
set length 14.909963698913941 checklength result -l 14.909963698913941

2
tests/geometry/2dbeziecurve/A2
View File

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

2
tests/geometry/2dbeziecurve/A3
View File

@ -2,5 +2,5 @@
trim b2 b1 0 0.2 trim b2 b1 0 0.2
trim b3 b1 0.3 0.5 trim b3 b1 0.3 0.5
trim result b1 0.6 0.8 trim result b1 0.6 0.8
set length 3.3427826104791247 checklength result -l 3.3427826104791247

2
tests/geometry/2dbeziecurve/A4
View File

@ -1,4 +1,4 @@
2dbeziercurve result 8 0 0 0 1 -2 1 -2 -3 4 -3 4 5 -6 5 -6 -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 2dlmirror result 0 0 0 1
set length 14.909963698913938 checklength result -l 14.909963698913938

2
tests/geometry/2dbeziecurve/A5
View File

@ -1,4 +1,4 @@
2dbeziercurve result 8 0 0 0 1 -2 1 -2 -3 4 -3 4 5 -6 5 -6 -4 2dbeziercurve result 8 0 0 0 1 -2 1 -2 -3 4 -3 4 5 -6 5 -6 -4
2dpmirror result 0 0 2dpmirror result 0 0
set length 14.909963698913938 checklength result -l 14.909963698913938

2
tests/geometry/2dbeziecurve/A6
View File

@ -1,4 +1,4 @@
2dbeziercurve result 8 0 0 0 1 -2 1 -2 -3 4 -3 4 5 -6 5 -6 -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 . } repeat 20 { 2dpscale result 0 0 0 1.1; copy result . }
set length 100.30678002889022 checklength result -l 100.30678002889022

2
tests/geometry/2dbeziecurve/A7
View File

@ -1,4 +1,4 @@
2dbeziercurve result 8 0 0 0 1 -2 1 -2 -3 4 -3 4 5 -6 5 -6 -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 2drotate result 0 0 90
set length 14.909963698913938 checklength result -l 14.909963698913938

2
tests/geometry/2dbeziecurve/A8
View File

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

2
tests/geometry/2dbeziecurve/A9
View File

@ -1,3 +1,3 @@
2dbeziercurve result 8 0 0 0 1 -2 1 -2 -3 4 -3 4 5 -6 5 -6 -4 2dbeziercurve result 8 0 0 0 1 -2 1 -2 -3 4 -3 4 5 -6 5 -6 -4
set length 14.909963698913938 checklength result -l 14.909963698913938

2
tests/geometry/2dbeziecurve/B1
View File

@ -42,5 +42,5 @@ repeat 10 {comparepnt2d rd1_$i d1_$i $tol; incr i 1}
set i 1 set i 1
puts " --> Test D2" puts " --> Test D2"
repeat 10 {comparepnt2d rd2_$i d2_$i $tol; incr i 1} repeat 10 {comparepnt2d rd2_$i d2_$i $tol; incr i 1}
set length 14.909963698913938 checklength result -l 14.909963698913938

3
tests/geometry/2dbeziecurve/begin
View File

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

2
tests/geometry/2dbsplinecurve/A1
View File

@ -1,3 +1,3 @@
2dbsplinecurve result 3 8 0. 4 0.13 1 0.28 1 0.47 1 0.62 1 0.75 1 0.89 1 1. 4 -19.5 -4.2 1 -18.9 -4.7 1 -17.3 5.0 1 -8.7 10.9 1 -0.018 1.27 1 0.38 -8.0 1 3.4 -16.3 1 11.0 -20.45 1 17.33 -15.42 1 17.7 -15 1 2dbsplinecurve result 3 8 0. 4 0.13 1 0.28 1 0.47 1 0.62 1 0.75 1 0.89 1 1. 4 -19.5 -4.2 1 -18.9 -4.7 1 -17.3 5.0 1 -8.7 10.9 1 -0.018 1.27 1 0.38 -8.0 1 3.4 -16.3 1 11.0 -20.45 1 17.33 -15.42 1 17.7 -15 1
set length 61.864387478917727 checklength result -l 61.864387478917727

2
tests/geometry/2dbsplinecurve/A2
View File

@ -1,4 +1,4 @@
2dbsplinecurve result 4 2 0 5 1 5 -0.5 -0.5 1 -0.25 0.5 1 0. -0.5 1 0.25 -0.5 1 0.5 -0.5 1 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 incdeg result 8
set length 1.4087044221398224 checklength result -l 1.4087044221398224

2
tests/geometry/2dbsplinecurve/A3
View File

@ -1,5 +1,5 @@
2dbsplinecurve result 4 2 0 5 1 5 -0.5 -0.5 1 -0.25 0.5 1 0. -0.5 1 0.25 -0.5 1 0.5 -0.5 1 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 insertknot result 0.5 1
remknot result 2 0 0.01 remknot result 2 0 0.01
set length 1.4087044221396998 checklength result -l 1.4087044221396998

2
tests/geometry/2dbsplinecurve/A4
View File

@ -1,4 +1,4 @@
2dbsplinecurve result 3 8 0. 4 0.13 1 0.28 1 0.47 1 0.62 1 0.75 1 0.89 1 1. 4 -19.5 -4.2 1 -18.9 -4.7 1 -17.3 5.0 1 -8.7 10.9 1 -0.018 1.27 1 0.38 -8.0 1 3.4 -16.3 1 11.0 -20.45 1 17.33 -15.42 1 17.7 -15 1 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 reverse result
set length 61.864387478917735 checklength result -l 61.864387478917735

2
tests/geometry/2dbsplinecurve/A5
View File

@ -1,4 +1,4 @@
2dbsplinecurve result 3 8 0. 4 0.13 1 0.28 1 0.47 1 0.62 1 0.75 1 0.89 1 1. 4 -19.5 -4.2 1 -18.9 -4.7 1 -17.3 5.0 1 -8.7 10.9 1 -0.018 1.27 1 0.38 -8.0 1 3.4 -16.3 1 11.0 -20.45 1 17.33 -15.42 1 17.7 -15 1 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 insertknot result 0.3 2
set length 61.864387478971629 checklength result -l 61.864387478971629

2
tests/geometry/2dbsplinecurve/A6
View File

@ -5,5 +5,5 @@ set i 1
repeat 100 {cmovepoint result 0.3 0. 0.05; incr i 1; repaint} repeat 100 {cmovepoint result 0.3 0. 0.05; incr i 1; repaint}
set i 1 set i 1
repeat 100 {cmovepoint result 0.3 0. -0.05; incr i 1; repaint} repeat 100 {cmovepoint result 0.3 0. -0.05; incr i 1; repaint}
set length 2.9999999999999996 checklength result -l 2.9999999999999996

2
tests/geometry/2dbsplinecurve/A7
View File

@ -5,5 +5,5 @@ set i 1
repeat 100 {cmovepoint result 0 0. 0.05; incr i 1;repaint} repeat 100 {cmovepoint result 0 0. 0.05; incr i 1;repaint}
set i 1 set i 1
repeat 100 {cmovepoint result 0 0. -0.05; incr i 1;repaint} repeat 100 {cmovepoint result 0 0. -0.05; incr i 1;repaint}
set length 3.0000000000000004 checklength result -l 3.0000000000000004

11
tests/geometry/2dbsplinecurve/A8
View File

@ -2,10 +2,11 @@
2dcvalue b1 2.0 x y dx dy 2dcvalue b1 2.0 x y dx dy
set delta 0.01 set delta 0.01
set yvalue [dval y] set yvalue [dval y]
repeat 100 { repeat 100 {
cmovetangent b1 2.0 x $yvalue dx dy 1 cmovetangent b1 2.0 x $yvalue dx dy 1
set yvalue [expr $yvalue + $delta ] set yvalue [expr $yvalue + $delta ]
repaint } repaint
}
copy b1 result copy b1 result
set length 7.7885445456401925 checklength result -l 7.7885445456401925

12
tests/geometry/2dbsplinecurve/A9
View File

@ -2,10 +2,10 @@
2dcvalue b1 2.0 x y dx dy 2dcvalue b1 2.0 x y dx dy
set delta 0.01 set delta 0.01
set yvalue [dval y] set yvalue [dval y]
repeat 100 { repeat 100 {
cmovetangent b1 2.0 x $yvalue dx dy 1 cmovetangent b1 2.0 x $yvalue dx dy 1
set yvalue [expr $yvalue + $delta ] set yvalue [expr $yvalue + $delta ]
repaint } repaint
}
copy b1 result copy b1 result
set length 6.9832866524628034 checklength result -l 6.9832866524628034

12
tests/geometry/2dbsplinecurve/B1
View File

@ -3,10 +3,10 @@
set delta 0.005 set delta 0.005
point p1 x y point p1 x y
set dyvalue [dval dy] set dyvalue [dval dy]
repeat 100 { repeat 100 {
cmovetangent b1 2.0 x y dx $dyvalue 1 cmovetangent b1 2.0 x y dx $dyvalue 1
set dyvalue [expr $dyvalue + $delta ] set dyvalue [expr $dyvalue + $delta ]
repaint } repaint
}
copy b1 result copy b1 result
set length 5.9590472422107315 checklength result -l 5.9590472422107315

12
tests/geometry/2dbsplinecurve/B2
View File

@ -3,10 +3,10 @@
set delta 0.01 set delta 0.01
point p1 x y point p1 x y
set dyvalue [dval dy] set dyvalue [dval dy]
repeat 100 { repeat 100 {
cmovetangent b1 2.0 x y dx $dyvalue 1 cmovetangent b1 2.0 x y dx $dyvalue 1
set dyvalue [expr $dyvalue + $delta ] set dyvalue [expr $dyvalue + $delta ]
repaint } repaint
}
copy b1 result copy b1 result
set length 6.6492776719511806 checklength result -l 6.6492776719511806

2
tests/geometry/2dbsplinecurve/B3
View File

@ -1,4 +1,4 @@
2dbsplinecurve result 3 8 0. 4 0.13 1 0.28 1 0.47 1 0.62 1 0.75 1 0.89 1 1. 4 -19.5 -4.2 1 -18.9 -4.7 1 -17.3 5.0 1 -8.7 10.9 1 -0.018 1.27 1 0.38 -8.0 1 3.4 -16.3 1 11.0 -20.45 1 17.33 -15.42 1 17.7 -15 1 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 2dlmirror result 0 0 0 1
set length 61.864387478917727 checklength result -l 61.864387478917727

2
tests/geometry/2dbsplinecurve/B4
View File

@ -1,4 +1,4 @@
2dbsplinecurve result 3 8 0. 4 0.13 1 0.28 1 0.47 1 0.62 1 0.75 1 0.89 1 1. 4 -19.5 -4.2 1 -18.9 -4.7 1 -17.3 5.0 1 -8.7 10.9 1 -0.018 1.27 1 0.38 -8.0 1 3.4 -16.3 1 11.0 -20.45 1 17.33 -15.42 1 17.7 -15 1 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 2dpmirror result 0 0
set length 61.864387478917727 checklength result -l 61.864387478917727

2
tests/geometry/2dbsplinecurve/B5
View File

@ -1,4 +1,4 @@
2dbsplinecurve result 3 8 0. 4 0.13 1 0.28 1 0.47 1 0.62 1 0.75 1 0.89 1 1. 4 -19.5 -4.2 1 -18.9 -4.7 1 -17.3 5.0 1 -8.7 10.9 1 -0.018 1.27 1 0.38 -8.0 1 3.4 -16.3 1 11.0 -20.45 1 17.33 -15.42 1 17.7 -15 1 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 2drotate result 0 0 90
set length 61.864387478917727 checklength result -l 61.864387478917727

2
tests/geometry/2dbsplinecurve/B6
View File

@ -1,4 +1,4 @@
2dbsplinecurve result 3 8 0. 4 0.13 1 0.28 1 0.47 1 0.62 1 0.75 1 0.89 1 1. 4 -19.5 -4.2 1 -18.9 -4.7 1 -17.3 5.0 1 -8.7 10.9 1 -0.018 1.27 1 0.38 -8.0 1 3.4 -16.3 1 11.0 -20.45 1 17.33 -15.42 1 17.7 -15 1 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 2dtranslate result 0 0 9
set length 61.864387478917727 checklength result -l 61.864387478917727

2
tests/geometry/2dbsplinecurve/B7
View File

@ -42,5 +42,5 @@ repeat 10 {comparepnt2d rd1_$i d1_$i $tol; incr i 1}
set i 1 set i 1
puts " --> Test D2" puts " --> Test D2"
repeat 10 {comparepnt2d rd2_$i d2_$i $tol; incr i 1} repeat 10 {comparepnt2d rd2_$i d2_$i $tol; incr i 1}
set length 61.864387478917727 checklength result -l 61.864387478917727

3
tests/geometry/2dbsplinecurve/begin
View File

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

2
tests/geometry/beziecurve/A1
View File

@ -1,5 +1,5 @@
beziercurve result 3 -2 0 1 0 1 2 2 0 1 beziercurve result 3 -2 0 1 0 1 2 2 0 1
insertpole result 2 1 2 4 insertpole result 2 1 2 4
repeat 4 {pd} repeat 4 {pd}
set length 5.8766403018804851 checklength result -l 5.8766403018804851

2
tests/geometry/beziecurve/A2
View File

@ -1,4 +1,4 @@
beziercurve result 8 0 0 1 0 1 2 -2 1 3 -2 -3 4 4 -3 5 4 5 6 -6 5 7 -6 -4 8 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 pscale result 0 0 0 1.2
set length 20.717921417769418 checklength result -l 20.717921417769418

2
tests/geometry/beziecurve/A3
View File

@ -1,4 +1,4 @@
beziercurve result 3 0 0 1 4 1 2 6 0 1 beziercurve result 3 0 0 1 4 1 2 6 0 1
smirror result 0 0 0 1 0 0 smirror result 0 0 0 1 0 0
set length 6.2279447493965332 checklength result -l 6.2279447493965332

2
tests/geometry/beziecurve/A4
View File

@ -1,4 +1,4 @@
beziercurve result 8 0 0 1 0 1 2 -2 1 3 -2 -3 4 4 -3 5 4 5 6 -6 5 7 -6 -4 8 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 translate result 4 0 0
set length 17.264934514807834 checklength result -l 17.264934514807834

2
tests/geometry/beziecurve/A5
View File

@ -1,4 +1,4 @@
beziercurve result 8 0 0 1 0 1 2 -2 1 3 -2 -3 4 4 -3 5 4 5 6 -6 5 7 -6 -4 8 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 lmirror result 0 0 0 1 0 0
set length 17.264934514807834 checklength result -l 17.264934514807834

2
tests/geometry/beziecurve/A6
View File

@ -1,4 +1,4 @@
beziercurve result 8 0 0 1 0 1 2 -2 1 3 -2 -3 4 4 -3 5 4 5 6 -6 5 7 -6 -4 8 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 pmirror result 0 0 0
set length 17.264934514807834 checklength result -l 17.264934514807834

6
tests/geometry/beziecurve/A7
View File

@ -2,8 +2,8 @@ beziercurve b1 8 0 0 1 0 1 2 -2 1 3 -2 -3 4 4 -3 5 4 5 6 -6 5 7 -6 -4 8
translate b1 0 0 -3 translate b1 0 0 -3
copy b1 result copy b1 result
repeat 10 { repeat 10 {
rotate result 0 0 0 0 0 1 30 rotate result 0 0 0 0 0 1 30
copy result . copy result .
} }
set length 17.264934514807859 checklength result -l 17.264934514807859

2
tests/geometry/beziecurve/A8
View File

@ -1,4 +1,4 @@
beziercurve result 8 0 0 1 0 1 2 -2 1 3 -2 -3 4 4 -3 5 4 5 6 -6 5 7 -6 -4 8 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 pscale result 0 0 0 1.2
set length 20.717921417769418 checklength result -l 20.717921417769418

2
tests/geometry/beziecurve/A9
View File

@ -1,4 +1,4 @@
beziercurve result 3 0 0 1 4 1 2 6 0 1 beziercurve result 3 0 0 1 4 1 2 6 0 1
smirror result 0 0 0 1 0 0 smirror result 0 0 0 1 0 0
set length 6.2279447493965332 checklength result -l 6.2279447493965332

2
tests/geometry/beziecurve/B1
View File

@ -1,4 +1,4 @@
beziercurve result 8 0 0 1 0 1 2 -2 1 3 -2 -3 4 4 -3 5 4 5 6 -6 5 7 -6 -4 8 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 translate result 4 0 0
set length 17.264934514807834 checklength result -l 17.264934514807834

2
tests/geometry/beziecurve/B2
View File

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

2
tests/geometry/beziecurve/B3
View File

@ -1,3 +1,3 @@
beziercurve result 8 0 0 1 0 1 2 -2 1 3 -2 -3 4 4 -3 5 4 5 6 -6 5 7 -6 -4 8 beziercurve result 8 0 0 1 0 1 2 -2 1 3 -2 -3 4 4 -3 5 4 5 6 -6 5 7 -6 -4 8
set length 17.264934514807834 checklength result -l 17.264934514807834

2
tests/geometry/beziecurve/B4
View File

@ -1,4 +1,4 @@
beziercurve result 3 2 0 1 4 1 2 6 0 1 beziercurve result 3 2 0 1 4 1 2 6 0 1
val3d result 0 1 20 val3d result 0 1 20
set length 4.3119494616416141 checklength result -l 4.3119494616416141

2
tests/geometry/beziecurve/B5
View File

@ -1,4 +1,4 @@
beziercurve result 8 0 0 1 0 1 2 -2 1 3 -2 -3 4 4 -3 5 4 5 6 -6 5 7 -6 -4 8 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 val3d result 0 1 20
set length 17.264934514807834 checklength result -l 17.264934514807834

3
tests/geometry/beziecurve/begin
View File

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

2
tests/geometry/bsplinecurve/A1
View File

@ -6,5 +6,5 @@ repeat 100 {cmovepoint bscurv 0 0. 0.05 0.0 ; incr i 1; repaint}
set i 1 set i 1
repeat 100 {cmovepoint bscurv 0 0. -0.05 0.0 ; incr i 1; repaint} repeat 100 {cmovepoint bscurv 0 0. -0.05 0.0 ; incr i 1; repaint}
renamevar bscurv result renamevar bscurv result
set length 3.0000000000000004 checklength result -l 3.0000000000000004

2
tests/geometry/bsplinecurve/A2
View File

@ -7,5 +7,5 @@ repeat 100 {cmovepoint bscurv 0.3 0. 0.05 0.0e0 ; incr i 1; repaint}
set i 1 set i 1
repeat 100 {cmovepoint bscurv 0.3 0. -0.05 0.0e0 ; incr i 1;repaint} repeat 100 {cmovepoint bscurv 0.3 0. -0.05 0.0e0 ; incr i 1;repaint}
renamevar bscurv result renamevar bscurv result
set length 2.9999999999999996 checklength result -l 2.9999999999999996

13
tests/geometry/bsplinecurve/A3
View File

@ -3,11 +3,12 @@ cvalue b1 2.0 x y z dx dy dz
set delta 0.01 set delta 0.01
set yvalue [dval y] set yvalue [dval y]
set zvalue [dval z] set zvalue [dval z]
repeat 100 { repeat 100 {
cmovetangent b1 2.0 x $yvalue $zvalue dx dy dz 1 cmovetangent b1 2.0 x $yvalue $zvalue dx dy dz 1
set yvalue [expr $yvalue + $delta ] set yvalue [expr $yvalue + $delta ]
set zvalue [expr $zvalue + $delta ] set zvalue [expr $zvalue + $delta ]
repaint } repaint
}
renamevar b1 result renamevar b1 result
set length 8.3346946955628098 checklength result -l 8.3346946955628098

2
tests/geometry/bsplinecurve/A4
View File

@ -2,5 +2,5 @@ bsplinecurve b1 3 3 0 4 3 1 4 4 0 0 0 1 1 2 0 1 2 3 0 1 3 2 0 1 1 0 0 1
copy b1 result copy b1 result
pscale result 0 0 0 1.4 pscale result 0 0 0 1.4
repeat 5 {pl} repeat 5 {pl}
set length 9.5487985926002157 checklength result -l 9.5487985926002157

13
tests/geometry/bsplinecurve/A5
View File

@ -3,11 +3,12 @@ cvalue b1 2.0 x y z dx dy dz
set delta 0.01 set delta 0.01
set yvalue [dval y] set yvalue [dval y]
set zvalue [dval z] set zvalue [dval z]
repeat 100 { repeat 100 {
cmovetangent b1 2.0 x $yvalue $zvalue dx dy dz 1 cmovetangent b1 2.0 x $yvalue $zvalue dx dy dz 1
set yvalue [expr $yvalue + $delta ] set yvalue [expr $yvalue + $delta ]
set zvalue [expr $zvalue + $delta ] set zvalue [expr $zvalue + $delta ]
repaint } repaint
}
renamevar b1 result renamevar b1 result
set length 7.3508406963557418 checklength result -l 7.3508406963557418

2
tests/geometry/bsplinecurve/A6
View File

@ -5,5 +5,5 @@ pl
pl pl
pl pl
pl pl
set length 6.6067715112002166 checklength result -l 6.6067715112002166

13
tests/geometry/bsplinecurve/A7
View File

@ -4,11 +4,12 @@ set delta 0.01
point p1 x y z point p1 x y z
set dyvalue [dval dy] set dyvalue [dval dy]
set dzvalue [dval dz] set dzvalue [dval dz]
repeat 100 { repeat 100 {
cmovetangent b1 2.0 x y z dx $dyvalue $dzvalue 1 cmovetangent b1 2.0 x y z dx $dyvalue $dzvalue 1
set dyvalue [expr $dyvalue + $delta ] set dyvalue [expr $dyvalue + $delta ]
set dzvalue [expr $dzvalue + $delta ] set dzvalue [expr $dzvalue + $delta ]
repaint } repaint
}
renamevar b1 result renamevar b1 result
set length 7.238501337474319 checklength result -l 7.238501337474319

2
tests/geometry/bsplinecurve/A8
View File

@ -1,5 +1,5 @@
bsplinecurve b1 3 3 0 4 3 1 4 4 0 0 0 1 1 2 0 1 2 3 0 1 3 2 0 1 2 0 0 1 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 copy b1 result
translate result -1 -2 3 translate result -1 -2 3
set length 6.3759776321287411 checklength result -l 6.3759776321287411

13
tests/geometry/bsplinecurve/A9
View File

@ -4,11 +4,12 @@ set delta 0.01
point p1 x y z point p1 x y z
set dyvalue [dval dy] set dyvalue [dval dy]
set dzvalue [dval dz] set dzvalue [dval dz]
repeat 100 { repeat 100 {
cmovetangent b1 2.0 x y z dx $dyvalue $dzvalue 1 cmovetangent b1 2.0 x y z dx $dyvalue $dzvalue 1
set dyvalue [expr $dyvalue + $delta ] set dyvalue [expr $dyvalue + $delta ]
set dzvalue [expr $dzvalue + $delta ] set dzvalue [expr $dzvalue + $delta ]
repaint } repaint
}
renamevar b1 result renamevar b1 result
set length 7.0867664447042955 checklength result -l 7.0867664447042955

2
tests/geometry/bsplinecurve/B1
View File

@ -1,4 +1,4 @@
bsplinecurve result 3 3 0 4 3 1 4 4 0 0 0 1 1 2 0 1 2 3 0 1 3 2 0 1 1 0 0 1 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 pmirror result 0 0 0
set length 6.8205704232858686 checklength result -l 6.8205704232858686

6
tests/geometry/bsplinecurve/B2
View File

@ -5,9 +5,9 @@ pl
pl pl
pl pl
repeat 10 { repeat 10 {
rotate b2 0 0 0 1 0 0 10 rotate b2 0 0 0 1 0 0 10
copy b2 . copy b2 .
} }
renamevar b2 result renamevar b2 result
set length 6.8205704232858668 checklength result -l 6.8205704232858668

2
tests/geometry/bsplinecurve/B3
View File

@ -3,5 +3,5 @@ copy b1 b2
pscale b2 0 0 0 1.4 pscale b2 0 0 0 1.4
repeat 5 {pl} repeat 5 {pl}
renamevar b2 result renamevar b2 result
set length 9.5487985926002157 checklength result -l 9.5487985926002157

2
tests/geometry/bsplinecurve/B4
View File

@ -6,5 +6,5 @@ pl
pl pl
pl pl
renamevar b2 result renamevar b2 result
set length 6.6067715112002166 checklength result -l 6.6067715112002166

2
tests/geometry/bsplinecurve/B5
View File

@ -1,5 +1,5 @@
bsplinecurve b2 3 3 0 4 3 1 4 4 0 0 0 1 1 2 0 1 2 3 0 1 3 2 0 1 2 0 0 1 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 copy b2 result
translate result -1 -2 3 translate result -1 -2 3
set length 6.3759776321287411 checklength result -l 6.3759776321287411

2
tests/geometry/bsplinecurve/B6
View File

@ -5,5 +5,5 @@ pd
pl pl
pl pl
pl pl
set length 5.5977288617103262 checklength result -l 5.5977288617103262

2
tests/geometry/bsplinecurve/B7
View File

@ -5,5 +5,5 @@ pd
pl pl
pl pl
pl pl
set length 6.3759776321287411 checklength result -l 6.3759776321287411

2
tests/geometry/bsplinecurve/B8
View File

@ -1,4 +1,4 @@
bsplinecurve result 3 3 0 4 3 1 4 4 0 0 0 1 1 2 0 1 2 3 0 1 3 2 0 1 1 0 0 1 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 0 1 0
set length 6.8205704232858686 checklength result -l 6.8205704232858686

2
tests/geometry/bsplinecurve/B9
View File

@ -1,4 +1,4 @@
bsplinecurve result 3 3 0 4 3 1 4 4 0 0 0 1 1 2 0 1 2 3 0 1 3 2 0 1 1 0 0 1 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 lmirror result 0 0 0 1 0 0
set length 6.8205704232858686 checklength result -l 6.8205704232858686

2
tests/geometry/bsplinecurve/C1
View File

@ -1,5 +1,5 @@
bsplinecurve result 3 3 0 4 3 1 4 4 0 0 0 1 1 2 0 1 2 3 0 1 3 2 0 1 1 0 0 1 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 0 1 0
lmirror result 0 0 0 1 0 0 lmirror result 0 0 0 1 0 0
set length 6.8205704232858686 checklength result -l 6.8205704232858686

2
tests/geometry/bsplinecurve/C2
View File

@ -6,5 +6,5 @@ pl
pl pl
pl pl
val3d result 0 4 20 val3d result 0 4 20
set length 5.5977288617103262 checklength result -l 5.5977288617103262

2
tests/geometry/bsplinecurve/C3
View File

@ -6,5 +6,5 @@ pl
pl pl
pl pl
val3d result 0 4 20 val3d result 0 4 20
set length 6.3759776321287411 checklength result -l 6.3759776321287411

3
tests/geometry/bsplinecurve/begin
View File

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

2
tests/geometry/circle/A1
View File

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

2
tests/geometry/circle/A2
View File

@ -1,5 +1,5 @@
circle cer 0 0 0 0 0 1 1 circle cer 0 0 0 0 0 1 1
trim cer cer 0 pi trim cer cer 0 pi
convert result cer c1 convert result cer c1
set length 3.1415926535897931 checklength result -l 3.1415926535897931

2
tests/geometry/circle/A3
View File

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

2
tests/geometry/circle/A4
View File

@ -1,5 +1,5 @@
circle c 0 0 0 0 0 1 1 circle c 0 0 0 0 0 1 1
trim c c 0 6.28 trim c c 0 6.28
convert result c po convert result c po
set length 6.2800124075908368 checklength result -l 6.2800124075908368

2
tests/geometry/circle/A5
View File

@ -1,5 +1,5 @@
circle cer 0 0 0 0 0 1 1 circle cer 0 0 0 0 0 1 1
trim cer cer 0 pi trim cer cer 0 pi
convert result cer qa convert result cer qa
set length 3.1415926535897931 checklength result -l 3.1415926535897931

2
tests/geometry/circle/A6
View File

@ -1,5 +1,5 @@
circle cer 0 0 0 0 0 1 1 circle cer 0 0 0 0 0 1 1
trim cer cer 0 4*pi/3 trim cer cer 0 4*pi/3
convert result cer qa convert result cer qa
set length 4.1887902047863896 checklength result -l 4.1887902047863896

2
tests/geometry/circle/A7
View File

@ -1,5 +1,5 @@
circle cer 0 0 0 0 0 1 1 circle cer 0 0 0 0 0 1 1
trim cer cer 0 pi/3 trim cer cer 0 pi/3
convert result cer qa convert result cer qa
set length 1.0471975511965974 checklength result -l 1.0471975511965974

2
tests/geometry/circle/A8
View File

@ -1,5 +1,5 @@
circle cer 0 0 0 0 0 1 1 circle cer 0 0 0 0 0 1 1
trim cer cer 0 2*pi trim cer cer 0 2*pi
convert result cer qa convert result cer qa
set length 6.2831853071795827 checklength result -l 6.2831853071795827

2
tests/geometry/circle/A9
View File

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

2
tests/geometry/circle/B1
View File

@ -2,5 +2,5 @@ circle c -40 0 1 0 20
offset result c 10 offset result c 10
2dlmirror result 0 0 0 1 2dlmirror result 0 0 0 1
set viewer "v2d" set viewer "v2d"
set length 62.831853071795862 checklength result -l 62.831853071795862

2
tests/geometry/circle/B2
View File

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

2
tests/geometry/circle/B3
View File

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

2
tests/geometry/circle/B4
View File

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

2
tests/geometry/circle/B5
View File

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

2
tests/geometry/circle/B6
View File

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

2
tests/geometry/circle/B7
View File

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

2
tests/geometry/circle/B8
View File

@ -1,5 +1,5 @@
circle c3 30 -30 1 0 20 circle c3 30 -30 1 0 20
trim result c3 3*pi/2 5*pi/2 trim result c3 3*pi/2 5*pi/2
set viewer "v2d" set viewer "v2d"
set length 62.831853071795862 checklength result -l 62.831853071795862

2
tests/geometry/circle/B9
View File

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

2
tests/geometry/circle/C1
View File

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

2
tests/geometry/circle/C2
View File

@ -1,5 +1,5 @@
circle result 0 0 1 0 30 circle result 0 0 1 0 30
val2d result 0 [dval 2*pi] 20 val2d result 0 [dval 2*pi] 20
set viewer "v2d" set viewer "v2d"
set length 188.49555921538757 checklength result -l 188.49555921538757

2
tests/geometry/circle/C3
View File

@ -1,4 +1,4 @@
circle result 0 0 1 0 0 1 1 0 0 30 circle result 0 0 1 0 0 1 1 0 0 30
val3d result 0 [dval 2*pi] 20 val3d result 0 [dval 2*pi] 20
set length 188.49555921538757 checklength result -l 188.49555921538757

2
tests/geometry/circle/C4
View File

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

2
tests/geometry/circle/C5
View File

@ -1,4 +1,4 @@
circle result 70 0 0 0 0 1 1 0 0 30 circle result 70 0 0 0 0 1 1 0 0 30
smirror result 0 0 0 1 0 -1 smirror result 0 0 0 1 0 -1
set length 188.49555921538757 checklength result -l 188.49555921538757

2
tests/geometry/circle/C6
View File

@ -1,4 +1,4 @@
circle result 70 0 0 0 0 1 1 0 0 30 circle result 70 0 0 0 0 1 1 0 0 30
translate result 0 -100 200 translate result 0 -100 200
set length 188.49555921538757 checklength result -l 188.49555921538757

2
tests/geometry/circle/C7
View File

@ -7,5 +7,5 @@ pl
pl pl
pu pu
pu pu
set length 6.2831853071795853 checklength result -l 6.2831853071795853

2
tests/geometry/circle/C8
View File

@ -8,5 +8,5 @@ convert result cr
2dpu 2dpu
2dpu 2dpu
set viewer "v2d" set viewer "v2d"
set length 6.2831853071795853 checklength result -l 6.2831853071795853

2
tests/geometry/circle/C9
View File

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

2
tests/geometry/circle/D1
View File

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

6
tests/geometry/circle/D2
View File

@ -1,9 +1,9 @@
circle result 0 0 1 0 30 circle result 0 0 1 0 30
dset ech 1.1 dset ech 1.1
repeat 20 { repeat 20 {
2dpscale result 0 0 0 ech; 2dpscale result 0 0 0 ech;
copy result .; copy result .;
} }
set viewer "v2d" set viewer "v2d"
set length 1268.1038650696225 checklength result -l 1268.1038650696225

2
tests/geometry/circle/D3
View File

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

2
tests/geometry/circle/D4
View File

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

2
tests/geometry/circle/D5
View File

@ -1,4 +1,4 @@
circle result 70 0 0 0 0 1 1 0 0 30 circle result 70 0 0 0 0 1 1 0 0 30
lmirror result 0 0 0 0 1 0 lmirror result 0 0 0 0 1 0
set length 188.49555921538757 checklength result -l 188.49555921538757

2
tests/geometry/circle/D6
View File

@ -1,4 +1,4 @@
circle result 70 0 0 0 0 1 1 0 0 30 circle result 70 0 0 0 0 1 1 0 0 30
pmirror result 0 0 0 pmirror result 0 0 0
set length 188.49555921538757 checklength result -l 188.49555921538757

4
tests/geometry/circle/D7
View File

@ -1,6 +1,6 @@
circle result 70 0 0 0 0 1 1 0 0 30 circle result 70 0 0 0 0 1 1 0 0 30
repeat 7 {rotate result 0 0 0 0 0 1 45; repeat 7 {rotate result 0 0 0 0 0 1 45;
copy result .; copy result .;
} }
set length 188.49555921538757 checklength result -l 188.49555921538757

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