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

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 } {
upvar ${compared_notequal_shape} ${compared_notequal_shape}
regexp regexp "The +length+ ${compared_notequal_shape} +is +(\[-0-9.+eE\]+)" [${CommandName} ${compared_notequal_shape} ${epsilon}] full compared_m
regexp "The +length+ ${compared_notequal_shape} +is +(\[-0-9.+eE\]+)" [${CommandName} ${compared_notequal_shape} ${epsilon}] full compared_m
if { $compared_m == $m } {
puts "Error: length of shape ${compared_notequal_shape} is equal shape to ${shape}"
}

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
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
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 b3 b1 0.3 0.5
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
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
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
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
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
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
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
puts " --> Test D2"
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 type "finite"
set viewer "v2d"

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
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
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
insertknot result 0.5 1
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
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
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}
set i 1
repeat 100 {cmovepoint result 0.3 0. -0.05; incr i 1; repaint}
set length 2.9999999999999996
checklength result -l 2.9999999999999996

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}
set i 1
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
set delta 0.01
set yvalue [dval y]
repeat 100 {
cmovetangent b1 2.0 x $yvalue dx dy 1
set yvalue [expr $yvalue + $delta ]
repaint }
repeat 100 {
cmovetangent b1 2.0 x $yvalue dx dy 1
set yvalue [expr $yvalue + $delta ]
repaint
}
copy b1 result
set length 7.7885445456401925
checklength result -l 7.7885445456401925

12
tests/geometry/2dbsplinecurve/A9
View File

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

12
tests/geometry/2dbsplinecurve/B1
View File

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

12
tests/geometry/2dbsplinecurve/B2
View File

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

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
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
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
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
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
puts " --> Test D2"
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 type "finite"
set viewer "v2d"

2
tests/geometry/beziecurve/A1
View File

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

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
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
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
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
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
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
copy b1 result
repeat 10 {
rotate result 0 0 0 0 0 1 30
copy result .
rotate result 0 0 0 0 0 1 30
copy result .
}
set length 17.264934514807859
checklength result -l 17.264934514807859

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
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
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
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
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
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
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
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 type "finite"
set viewer "smallview"

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
repeat 100 {cmovepoint bscurv 0 0. -0.05 0.0 ; incr i 1; repaint}
renamevar bscurv result
set length 3.0000000000000004
checklength result -l 3.0000000000000004

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
repeat 100 {cmovepoint bscurv 0.3 0. -0.05 0.0e0 ; incr i 1;repaint}
renamevar bscurv result
set length 2.9999999999999996
checklength result -l 2.9999999999999996

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 yvalue [dval y]
set zvalue [dval z]
repeat 100 {
cmovetangent b1 2.0 x $yvalue $zvalue dx dy dz 1
set yvalue [expr $yvalue + $delta ]
set zvalue [expr $zvalue + $delta ]
repaint }
repeat 100 {
cmovetangent b1 2.0 x $yvalue $zvalue dx dy dz 1
set yvalue [expr $yvalue + $delta ]
set zvalue [expr $zvalue + $delta ]
repaint
}
renamevar b1 result
set length 8.3346946955628098
checklength result -l 8.3346946955628098

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
pscale result 0 0 0 1.4
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 yvalue [dval y]
set zvalue [dval z]
repeat 100 {
cmovetangent b1 2.0 x $yvalue $zvalue dx dy dz 1
set yvalue [expr $yvalue + $delta ]
set zvalue [expr $zvalue + $delta ]
repaint }
repeat 100 {
cmovetangent b1 2.0 x $yvalue $zvalue dx dy dz 1
set yvalue [expr $yvalue + $delta ]
set zvalue [expr $zvalue + $delta ]
repaint
}
renamevar b1 result
set length 7.3508406963557418
checklength result -l 7.3508406963557418

2
tests/geometry/bsplinecurve/A6
View File

@ -5,5 +5,5 @@ 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
set dyvalue [dval dy]
set dzvalue [dval dz]
repeat 100 {
cmovetangent b1 2.0 x y z dx $dyvalue $dzvalue 1
set dyvalue [expr $dyvalue + $delta ]
set dzvalue [expr $dzvalue + $delta ]
repaint }
repeat 100 {
cmovetangent b1 2.0 x y z dx $dyvalue $dzvalue 1
set dyvalue [expr $dyvalue + $delta ]
set dzvalue [expr $dzvalue + $delta ]
repaint
}
renamevar b1 result
set length 7.238501337474319
checklength result -l 7.238501337474319

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
copy b1 result
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
set dyvalue [dval dy]
set dzvalue [dval dz]
repeat 100 {
cmovetangent b1 2.0 x y z dx $dyvalue $dzvalue 1
set dyvalue [expr $dyvalue + $delta ]
set dzvalue [expr $dzvalue + $delta ]
repaint }
repeat 100 {
cmovetangent b1 2.0 x y z dx $dyvalue $dzvalue 1
set dyvalue [expr $dyvalue + $delta ]
set dzvalue [expr $dzvalue + $delta ]
repaint
}
renamevar b1 result
set length 7.0867664447042955
checklength result -l 7.0867664447042955

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
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
repeat 10 {
rotate b2 0 0 0 1 0 0 10
copy b2 .
rotate b2 0 0 0 1 0 0 10
copy b2 .
}
renamevar b2 result
set length 6.8205704232858668
checklength result -l 6.8205704232858668

2
tests/geometry/bsplinecurve/B3
View File

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

2
tests/geometry/bsplinecurve/B4
View File

@ -6,5 +6,5 @@ pl
pl
pl
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
copy b2 result
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
set length 5.5977288617103262
checklength result -l 5.5977288617103262

2
tests/geometry/bsplinecurve/B7
View File

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

2
tests/geometry/bsplinecurve/C2
View File

@ -6,5 +6,5 @@ pl
pl
pl
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
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 type "finite"
set viewer "smallview"

2
tests/geometry/circle/A1
View File

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

2
tests/geometry/circle/A2
View File

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

2
tests/geometry/circle/A3
View File

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

2
tests/geometry/circle/A4
View File

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

2
tests/geometry/circle/A5
View File

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

2
tests/geometry/circle/A6
View File

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

2
tests/geometry/circle/A7
View File

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

2
tests/geometry/circle/A8
View File

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

2
tests/geometry/circle/A9
View File

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

2
tests/geometry/circle/B1
View File

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

2
tests/geometry/circle/B2
View File

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

2
tests/geometry/circle/B3
View File

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

2
tests/geometry/circle/B4
View File

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

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
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
trim result c1 0 pi
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
trim result c2 pi 2*pi
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
trim result c3 3*pi/2 5*pi/2
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
trim result c4 pi pi/2
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
2dtranslate result -200 0
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
val2d result 0 [dval 2*pi] 20
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
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
reverse result
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
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
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
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
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
2dlmirror result 0 0 0 1
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
2dpmirror result 0 0
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
dset ech 1.1
repeat 20 {
2dpscale result 0 0 0 ech;
copy result .;
2dpscale result 0 0 0 ech;
copy result .;
}
set viewer "v2d"
set length 1268.1038650696225
checklength result -l 1268.1038650696225

2
tests/geometry/circle/D3
View File

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

2
tests/geometry/circle/D4
View File

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

2
tests/geometry/circle/D5
View File

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

2
tests/geometry/circle/D6
View File

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

4
tests/geometry/circle/D7
View File

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

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