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.
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}"
}
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
2dbeziercurve result 3 -2 0 0 -3 2 0
insertpole result 2 1 6 1
-set length 7.1843642663784797
+checklength result -l 7.1843642663784797
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
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
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
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
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
2dbeziercurve result 3 2 0 4 1 6 0
-set length 4.1609152777389031
+checklength result -l 4.1609152777389031
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
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
-set viewer "v2d"
-set type "finite"
+set viewer "v2d"
\ No newline at end of file
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
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
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
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
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
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
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
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
2dcvalue b1 2.0 x y dx dy
set delta 0.01
set yvalue [dval y]
-repeat 100 {
- cmovetangent b1 2.0 x $yvalue dx dy 1
- set yvalue [expr $yvalue + $delta ]
- repaint }
+repeat 100 {
+ cmovetangent b1 2.0 x $yvalue dx dy 1
+ set yvalue [expr $yvalue + $delta ]
+ repaint
+}
copy b1 result
-set length 6.9832866524628034
-
+checklength result -l 6.9832866524628034
\ No newline at end of file
set delta 0.005
point p1 x y
set dyvalue [dval dy]
-repeat 100 {
- cmovetangent b1 2.0 x y dx $dyvalue 1
- set dyvalue [expr $dyvalue + $delta ]
- repaint }
+repeat 100 {
+ cmovetangent b1 2.0 x y dx $dyvalue 1
+ set dyvalue [expr $dyvalue + $delta ]
+ repaint
+}
copy b1 result
-set length 5.9590472422107315
-
+checklength result -l 5.9590472422107315
\ No newline at end of file
set delta 0.01
point p1 x y
set dyvalue [dval dy]
-repeat 100 {
- cmovetangent b1 2.0 x y dx $dyvalue 1
- set dyvalue [expr $dyvalue + $delta ]
- repaint }
+repeat 100 {
+ cmovetangent b1 2.0 x y dx $dyvalue 1
+ set dyvalue [expr $dyvalue + $delta ]
+ repaint
+}
copy b1 result
-set length 6.6492776719511806
-
+checklength result -l 6.6492776719511806
\ No newline at end of file
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
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
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
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
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
-set viewer "v2d"
-set type "finite"
+set viewer "v2d"
\ No newline at end of file
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
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
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
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
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
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
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
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
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
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
beziercurve result 3 2 0 1 4 1 2 6 0 1
-set length 4.3119494616416141
+checklength result -l 4.3119494616416141
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
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
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
-set viewer "smallview"
-set type "finite"
+set viewer "smallview"
\ No newline at end of file
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
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
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
copy b1 result
pscale result 0 0 0 1.4
repeat 5 {pl}
-set length 9.5487985926002157
+checklength result -l 9.5487985926002157
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
pl
pl
pl
-set length 6.6067715112002166
+checklength result -l 6.6067715112002166
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
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
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
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
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
pscale b2 0 0 0 1.4
repeat 5 {pl}
renamevar b2 result
-set length 9.5487985926002157
+checklength result -l 9.5487985926002157
pl
pl
renamevar b2 result
-set length 6.6067715112002166
+checklength result -l 6.6067715112002166
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
pl
pl
pl
-set length 5.5977288617103262
+checklength result -l 5.5977288617103262
pl
pl
pl
-set length 6.3759776321287411
+checklength result -l 6.3759776321287411
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
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
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
pl
pl
val3d result 0 4 20
-set length 5.5977288617103262
+checklength result -l 5.5977288617103262
pl
pl
val3d result 0 4 20
-set length 6.3759776321287411
+checklength result -l 6.3759776321287411
-set viewer "smallview"
-set type "finite"
+set viewer "smallview"
\ No newline at end of file
circle c 0 0 0 0 0 1 1
convert result c
-set length 6.2831853071795853
+checklength result -l 6.2831853071795853
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
circle cer 0 0 0 0 0 1 1
convert result cer c1
-set length 6.2831853071795871
+checklength result -l 6.2831853071795871
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
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
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
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
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
circle cer 0 0 0 0 0 1 1
convert result cer qa
-set length 6.2831853071795845
+checklength result -l 6.2831853071795845
offset result c 10
2dlmirror result 0 0 0 1
set viewer "v2d"
-set length 62.831853071795862
+checklength result -l 62.831853071795862
circle result 0 0 1 0 0.2
set viewer "v2d"
-set length 1.2566370614359172
+checklength result -l 1.2566370614359172
circle result 0.1 0.2 1 1 0.1
set viewer "v2d"
-set length 0.62831853071795862
+checklength result -l 0.62831853071795862
circle result 0 0 0 0 0 1 1 0 0 0.2
-set length 1.2566370614359172
+checklength result -l 1.2566370614359172
circle result 0 0 0.1 0 1 1 1 0 0 0.3
-set length 1.8849555921538759
+checklength result -l 1.8849555921538759
circle c1 -30 30 1 0 20
trim result c1 0 pi
set viewer "v2d"
-set length 62.831853071795862
+checklength result -l 62.831853071795862
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
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
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
circle result 70 0 1 0 30
2dtranslate result -200 0
set viewer "v2d"
-set length 188.49555921538757
+checklength result -l 188.49555921538757
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
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
circle result 0 0 1 0 200
reverse result
set viewer "v2d"
-set length 1256.6370614359173
+checklength result -l 1256.6370614359173
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
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
pl
pu
pu
-set length 6.2831853071795853
+checklength result -l 6.2831853071795853
2dpu
2dpu
set viewer "v2d"
-set length 6.2831853071795853
+checklength result -l 6.2831853071795853
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
circle result 70 0 1 0 30
2dpmirror result 0 0
set viewer "v2d"
-set length 188.49555921538757
+checklength result -l 188.49555921538757
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
circle result 70 0 1 0 30
2drotate result 0 0 90
set viewer "v2d"
-set length 188.49555921538757
+checklength result -l 188.49555921538757
circle result 70 0 1 0 30
2dtranslate result -200 0
set viewer "v2d"
-set length 188.49555921538757
+checklength result -l 188.49555921538757
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
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
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
pscale result 0 0 0 5
repeat 4 {pl}
dmode result U
-set length 942.47779607693792
+checklength result -l 942.47779607693792
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
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
-set viewer "smallview"
-set type "finite"
+set viewer "smallview"
\ No newline at end of file
ellipse cer 0 0 0 0 0 1 2 1
trim cer cer 0 pi
convert result cer c1
-set length 4.8442241102738386
+checklength result -l 4.8442241102738386
ellipse cer 0 0 0 0 0 1 2 1
convert result cer c1
-set length 9.6884482205476772
+checklength result -l 9.6884482205476772
ellipse cer 0 0 0 0 0 1 2 1
trim cer cer 0 pi
convert result cer qa
-set length 4.8442241102733714
+checklength result -l 4.8442241102733714
ellipse cer 0 0 0 0 0 1 2 1
trim cer cer 0 4*pi/3
convert result cer qa
-set length 6.2541520204793155
+checklength result -l 6.2541520204793155
ellipse cer 0 0 0 0 0 1 2 1
trim cer cer 0 pi/3
convert result cer qa
-set length 1.4099279102054671
+checklength result -l 1.4099279102054671
ellipse result 0 0 1 0 0.2 0.1
set viewer "v2d"
-set length 0.96884482174527109
+checklength result -l 0.96884482174527109
ellipse result 0 0 1 1 0.25 0.15
set viewer "v2d"
-set length 1.2763499431763086
+checklength result -l 1.2763499431763086
ellipse result 0 0 0 0 0 1 1 0 0 20 10
-set length 96.884482205475521
+checklength result -l 96.884482205475521
ellipse result 0 0 0 1 0 0 0 0 1 25 15
-set length 127.63499431699034
+checklength result -l 127.63499431699034
ellipse result 70 0 1 0 40 20
2dtranslate result -200 0
set viewer "v2d"
-set length 193.76896441095104
+checklength result -l 193.76896441095104
ellipse result 0 0 1 0 40 20
val2d result 0 [dval 2*pi] 20
set viewer "v2d"
-set length 193.76896441095104
+checklength result -l 193.76896441095104
ellipse result 0 0 0 0 0 1 1 0 0 40 20
val3d result 0 [dval 2*pi] 20
-set length 193.76896441095104
+checklength result -l 193.76896441095104
ellipse result 0 0 1 0 400 300
reverse result
set viewer "v2d"
-set length 2210.3492160709502
+checklength result -l 2210.3492160709502
ellipse result 70 0 0 0 0 1 1 0 0 40 20
smirror result 0 0 0 1 0 -1
-set length 193.76896441095104
+checklength result -l 193.76896441095104
ellipse result 70 0 0 0 0 1 1 0 0 40 20
translate result 0 -100 200
-set length 193.76896441095104
+checklength result -l 193.76896441095104
pl
pu
pu
-set length 4.844224110274018
+checklength result -l 4.844224110274018
2dpu
2dpu
set viewer "v2d"
-set length 4.844224110274018
+checklength result -l 4.844224110274018
ellipse result 70 0 1 0 40 20
2dlmirror result 0 0 0 1
set viewer "v2d"
-set length 193.76896441095104
+checklength result -l 193.76896441095104
ellipse result 70 0 1 0 40 20
2dpmirror result 0 0
set viewer "v2d"
-set length 193.76896441095104
+checklength result -l 193.76896441095104
ellipse result 0 0 1 0 40 20
dset ech 1.1
repeat 20 {
- 2dpscale result 0 0 0 ech;
- copy result .;
+ 2dpscale result 0 0 0 ech;
+ copy result .;
}
set viewer "v2d"
-set length 1303.5806982555659
+checklength result -l 1303.5806982555659
ellipse result 70 0 1 0 40 20
2drotate result 0 0 90
set viewer "v2d"
-set length 193.76896441095104
+checklength result -l 193.76896441095104
ellipse result 70 0 1 0 40 20
2dtranslate result -200 0
set viewer "v2d"
-set length 193.76896441095104
+checklength result -l 193.76896441095104
ellipse result 70 0 0 0 0 1 1 0 0 40 20
lmirror result 0 0 0 0 1 0
-set length 193.76896441095104
+checklength result -l 193.76896441095104
ellipse result 70 0 0 0 0 1 1 0 0 40 20
pmirror result 0 0 0
-set length 193.76896441095104
+checklength result -l 193.76896441095104
ellipse result 70 0 0 0 0 1 1 0 0 40 20
repeat 7 {rotate result 0 0 0 0 0 1 45;
- copy result .;
+ copy result .;
}
-set length 193.76896441095104
+checklength result -l 193.76896441095104
pscale result 0 0 0 5
repeat 4 {pl}
dmode result U
-set length 968.84482205476752
+checklength result -l 968.84482205476752
ellipse result 70 0 0 0 0 1 1 0 0 40 20
smirror result 0 0 0 1 0 -1
-set length 193.76896441095104
+checklength result -l 193.76896441095104
ellipse result 70 0 0 0 0 1 1 0 0 40 20
translate result 0 -100 200
-set length 193.76896441095104
+checklength result -l 193.76896441095104
-set viewer "smallview"
-set type "finite"
+set viewer "smallview"
\ No newline at end of file
-proc comparison { x1 x1_o prop } {
- set precision 0.0000001
- if { ( abs($x1) > $precision ) || ( abs($x1_o) > $precision ) } {
- if { ($x1_o != 0 && [expr 1.*abs($x1_o - $x1)/$x1_o] > 0.01) || ($x1_o == 0 && $x1 != 0) } {
- puts "Error : The $prop of the resulting shape is $x1 and the expected $prop is $x1_o"
- }
- }
-}
-
-if { [isdraw result] } {
- if { [info exists type] && [string compare "$type" "infinite"] == 0 && ![info exists length] } {
- set ddump [dump result]
- regexp {Axis *: *([-0-9.+eE]+), *([-0-9.+eE]+),* *([-0-9.+eE]*) *} $ddump full Axis_1 Axis_2 Axis_3
- comparison $Axis_1 $Axis_o_1 "Axis_1"
- comparison $Axis_2 $Axis_o_2 "Axis_2"
- if { [info exists Axis_o_3] } {
- comparison $Axis_3 $Axis_o_3 "Axis_3"
- }
- if { [regexp {Line} $ddump] } {
- regexp {Origin *: *([-0-9.+eE]+), *([-0-9.+eE]+),* *([-0-9.+eE]*) *} $ddump full Origin_1 Origin_2 Origin_3
- comparison $Origin_1 $Origin_o_1 "Origin_1"
- comparison $Origin_2 $Origin_o_2 "Origin_2"
- if { [info exists Origin_o_3] } {
- comparison $Origin_3 $Origin_o_3 "Origin_3"
- }
- } elseif { [regexp {Parabola} $ddump] || [regexp {Hyperbola} $ddump] } {
- regexp {Center *: *([-0-9.+eE]+), *([-0-9.+eE]+),* *([-0-9.+eE]*) *} $ddump full Center_1 Center_2 Center_3
- comparison $Center_1 $Center_o_1 "Center_1"
- comparison $Center_2 $Center_o_2 "Center_2"
- if { [info exists Center_o_3] } {
- comparison $Center_3 $Center_o_3 "Center_3"
- }
- regexp {XAxis *: *([-0-9.+eE]+), *([-0-9.+eE]+),* *([-0-9.+eE]*) *} $ddump full XAxis_1 XAxis_2 XAxis_3
- comparison $XAxis_1 $XAxis_o_1 "XAxis_1"
- comparison $XAxis_2 $XAxis_o_2 "XAxis_2"
- if { [info exists XAxis_o_3] } {
- comparison $XAxis_3 $XAxis_o_3 "XAxis_3"
- }
- regexp {YAxis *: *([-0-9.+eE]+), *([-0-9.+eE]+),* *([-0-9.+eE]*) *} $ddump full YAxis_1 YAxis_2 YAxis_3
- comparison $YAxis_1 $YAxis_o_1 "YAxis_1"
- comparison $YAxis_2 $YAxis_o_2 "YAxis_2"
- if { [info exists YAxis_o_3] } {
- comparison $YAxis_3 $YAxis_o_3 "YAxis_3"
- }
- if { [regexp {Hyperbola} $ddump] } {
- regexp {Radii *: *([-0-9.+eE]+), *([-0-9.+eE]+) *} $ddump full LastParam_1 LastParam_2
- } else {
- regexp {Focal *: *([-0-9.+eE]+) *} $ddump full LastParam_1
- }
- comparison $LastParam_1 $LastParam_o_1 "LastParam_1"
- if { [info exists LastParam_o_2] } {
- comparison $LastParam_2 $LastParam_o_2 "LastParam_2"
- }
- } else {
- puts "Error : undefined type"
- }
- } else {
- if { [info exists length] } {
- set prop "length"
- set mass $length
- regexp {The +length +result +is +([-0-9.+eE]+)} [length result] full m
- }
- if { [info exists mass] } {
- if { [string compare "$mass" "empty"] != 0 } {
- if { $m == 0 } {
- puts "Error : The $command is not valid. The $prop is 0."
- }
- if { $mass > 0 } {
- puts "The expected $prop is $mass"
- }
- #check of change of length is < 1%
- if { ($mass != 0 && [expr 1.*abs($mass - $m)/$mass] > 0.01) || ($mass == 0 && $m != 0) } {
- puts "Error : The $prop of the resulting shape is $m"
- }
- } else {
- if { $m != 0 } {
- puts "Error : The $command is not valid. The $prop is $m"
- }
- }
- }
- }
-} else {
- puts "Error : The $command cannot be built."
-}
-
$viewer
if { [string compare "$viewer" "v2d"] == 0 } {
2dclear
hyperbola result 0 0 0 0 0 1 1 0 0 20 10
-
-set Center_o_1 0; set Center_o_2 0; set Center_o_3 0;
-set Axis_o_1 0; set Axis_o_2 0; set Axis_o_3 1;
-set XAxis_o_1 1; set XAxis_o_2 0; set XAxis_o_3 -0;
-set YAxis_o_1 -0; set YAxis_o_2 1; set YAxis_o_3 0;
-set LastParam_o_1 20; set LastParam_o_2 10;
-
+checkdump result -name {Center Axis XAxis YAxis Radii} -ref {{0 0 0} {0 0 1} {1 0 -0} {-0 1 0} {20 10}} -eps 0.01
hyperbola hyper 0 0 0 0 0 1 2 1
trim hyper hyper -1 1
convert result hyper
-set length 3.3078924645283738
+checklength result -l 3.3078924645283738
hyperbola result 0 0 1 0 20 10
-set viewer "v2d"
-
-set Center_o_1 0; set Center_o_2 0;
-set Axis_o_1 1; set Axis_o_2 0;
-set XAxis_o_1 1; set XAxis_o_2 0;
-set YAxis_o_1 -0; set YAxis_o_2 1;
-set LastParam_o_1 20; set LastParam_o_2 10;
-
+checkdump result -name {Center Axis XAxis YAxis Radii} -ref {{0 0} {1 0} {1 0} {-0 1} {20 10}} -eps 0.01
+set viewer "v2d"
\ No newline at end of file
hyperbola result 0 0 0 1 10 8
-set viewer "v2d"
-
-set Center_o_1 0; set Center_o_2 0;
-set Axis_o_1 0; set Axis_o_2 1;
-set XAxis_o_1 0; set XAxis_o_2 1;
-set YAxis_o_1 -1; set YAxis_o_2 0;
-set LastParam_o_1 10; set LastParam_o_2 8;
-
+checkdump result -name {Center Axis XAxis YAxis Radii} -ref {{0 0} {0 1} {0 1} {-1 0} {10 8}} -eps 0.01
+set viewer "v2d"
\ No newline at end of file
hyperbola result 70 0 1 0 20 10
2dtranslate result -200 0
-
-set Center_o_1 -130; set Center_o_2 0;
-set Axis_o_1 1; set Axis_o_2 0;
-set XAxis_o_1 1; set XAxis_o_2 0;
-set YAxis_o_1 -0; set YAxis_o_2 1;
-set LastParam_o_1 20; set LastParam_o_2 10;
-
+checkdump result -name {Center Axis XAxis YAxis Radii} -ref {{-130 0} {1 0} {1 0} {-0 1} {20 10}} -eps 0.01
\ No newline at end of file
hyperbola result 0 0 1 0 20 10
val2d result -5 5 40
-
-set Center_o_1 0; set Center_o_2 0;
-set Axis_o_1 1; set Axis_o_2 0;
-set XAxis_o_1 1; set XAxis_o_2 0;
-set YAxis_o_1 -0; set YAxis_o_2 1;
-set LastParam_o_1 20; set LastParam_o_2 10;
-
+checkdump result -name {Center Axis XAxis YAxis Radii} -ref {{0 0} {1 0} {1 0} {-0 1} {20 10}} -eps 0.01
\ No newline at end of file
hyperbola result 0 0 0 0 0 1 1 0 0 20 10
val3d result -5 5 40
-
-set Center_o_1 0; set Center_o_2 0; set Center_o_3 0;
-set Axis_o_1 0; set Axis_o_2 0; set Axis_o_3 1;
-set XAxis_o_1 1; set XAxis_o_2 0; set XAxis_o_3 -0;
-set YAxis_o_1 -0; set YAxis_o_2 1; set YAxis_o_3 0;
-set LastParam_o_1 20; set LastParam_o_2 10;
-
+checkdump result -name {Center Axis XAxis YAxis Radii} -ref {{0 0 0} {0 0 1} {1 0 -0} {-0 1 0} {20 10}} -eps 0.01
\ No newline at end of file
hyperbola result 0 0 -1 0 30 20
reverse result
-
-set Center_o_1 0; set Center_o_2 0;
-set Axis_o_1 -1; set Axis_o_2 0;
-set XAxis_o_1 -1; set XAxis_o_2 0;
-set YAxis_o_1 0; set YAxis_o_2 1;
-set LastParam_o_1 30; set LastParam_o_2 20;
-
+checkdump result -name {Center Axis XAxis YAxis Radii} -ref {{0 0} {-1 0} {-1 0} {0 1} {30 20}} -eps 0.01
\ No newline at end of file
hyperbola result 70 0 0 0 0 1 1 0 0 20 10
smirror result 0 0 0 1 0 -1
-
-set Center_o_1 -1.55431223447522e-14; set Center_o_2 0; set Center_o_3 70;
-set Axis_o_1 -1; set Axis_o_2 -0; set Axis_o_3 -2.22044604925031e-16;
-set XAxis_o_1 -2.22044604925031e-16; set XAxis_o_2 -0; set XAxis_o_3 1;
-set YAxis_o_1 -0; set YAxis_o_2 1; set YAxis_o_3 -0;
-set LastParam_o_1 20; set LastParam_o_2 10;
-
+checkdump result -name {Center Axis XAxis YAxis Radii} -ref {{-1.55431223447522e-14 0 70} {-1 -0 -2.22044604925031e-16} {-2.22044604925031e-16 -0 1} {-0 1 -0} {20 10}} -eps 0.01
\ No newline at end of file
hyperbola result 70 0 0 0 0 1 1 0 0 20 10
translate result 0 -100 200
-
-set Center_o_1 70; set Center_o_2 -100; set Center_o_3 200;
-set Axis_o_1 0; set Axis_o_2 0; set Axis_o_3 1;
-set XAxis_o_1 1; set XAxis_o_2 0; set XAxis_o_3 -0;
-set YAxis_o_1 -0; set YAxis_o_2 1; set YAxis_o_3 0;
-set LastParam_o_1 20; set LastParam_o_2 10;
-
+checkdump result -name {Center Axis XAxis YAxis Radii} -ref {{70 -100 200} {0 0 1} {1 0 -0} {-0 1 0} {20 10}} -eps 0.01
\ No newline at end of file
pl
pu
pu
-set length 1.6539462322641865
-
+checklength result -l 1.6539462322641865
\ No newline at end of file
2dpl
2dpu
2dpu
-set length 1.6539462322641865
-
+checklength result -l 1.6539462322641865
\ No newline at end of file
hyperbola result 70 0 1 0 20 10
2dlmirror result 0 0 0 1
-
-set Center_o_1 -70; set Center_o_2 0;
-set Axis_o_1 -1; set Axis_o_2 0;
-set XAxis_o_1 -1; set XAxis_o_2 0;
-set YAxis_o_1 0; set YAxis_o_2 1;
-set LastParam_o_1 20; set LastParam_o_2 10;
-
+checkdump result -name {Center Axis XAxis YAxis Radii} -ref {{-70 0} {-1 0} {-1 0} {0 1} {20 10}} -eps 0.01
\ No newline at end of file
hyperbola result 70 0 1 0 20 10
2dpmirror result 0 0
-
-set Center_o_1 -70; set Center_o_2 0;
-set Axis_o_1 -1; set Axis_o_2 -0;
-set XAxis_o_1 -1; set XAxis_o_2 -0;
-set YAxis_o_1 0; set YAxis_o_2 -1;
-set LastParam_o_1 20; set LastParam_o_2 10;
-
+checkdump result -name {Center Axis XAxis YAxis Radii} -ref {{-70 0} {-1 -0} {-1 -0} {0 -1} {20 10}} -eps 0.01
\ No newline at end of file
hyperbola result 0 0 1 0 20 10
dset ech 1.1
repeat 20 {
- 2dpscale result 0 0 0 ech;
- copy result .;
+ 2dpscale result 0 0 0 ech;
+ copy result .;
}
-
-set Center_o_1 0; set Center_o_2 0;
-set Axis_o_1 1; set Axis_o_2 0;
-set XAxis_o_1 1; set XAxis_o_2 0;
-set YAxis_o_1 -0; set YAxis_o_2 1;
-set LastParam_o_1 134.549998986512; set LastParam_o_2 67.2749994932561;
-
+checkdump result -name {Center Axis XAxis YAxis Radii} -ref {{0 0} {1 0} {1 0} {-0 1} {134.549998986512 67.2749994932561}} -eps 0.01
\ No newline at end of file
hyperbola result 70 0 1 0 20 10
2drotate result 0 0 90
-
-set Center_o_1 4.28612223837832e-15; set Center_o_2 70;
-set Axis_o_1 6.12303176911189e-17; set Axis_o_2 1;
-set XAxis_o_1 6.12303176911189e-17; set XAxis_o_2 1;
-set YAxis_o_1 -1; set YAxis_o_2 6.12303176911189e-17;
-set LastParam_o_1 20; set LastParam_o_2 10;
-
+checkdump result -name {Center Axis XAxis YAxis Radii} -ref {{4.28612223837832e-15 70} {6.12303176911189e-17 1} {6.12303176911189e-17 1} {-1 6.12303176911189e-17} {20 10}} -eps 0.01
\ No newline at end of file
hyperbola result 70 0 1 0 20 10
2dtranslate result -200 0
-
-set Center_o_1 -130; set Center_o_2 0;
-set Axis_o_1 1; set Axis_o_2 0;
-set XAxis_o_1 1; set XAxis_o_2 0;
-set YAxis_o_1 -0; set YAxis_o_2 1;
-set LastParam_o_1 20; set LastParam_o_2 10;
-
+checkdump result -name {Center Axis XAxis YAxis Radii} -ref {{-130 0} {1 0} {1 0} {-0 1} {20 10}} -eps 0.01
\ No newline at end of file
hyperbola result 70 0 0 0 0 1 1 0 0 20 10
lmirror result 0 0 0 0 1 0
-
-set Center_o_1 -70; set Center_o_2 0; set Center_o_3 0;
-set Axis_o_1 0; set Axis_o_2 0; set Axis_o_3 -1;
-set XAxis_o_1 -1; set XAxis_o_2 0; set XAxis_o_3 0;
-set YAxis_o_1 0; set YAxis_o_2 1; set YAxis_o_3 0;
-set LastParam_o_1 20; set LastParam_o_2 10;
-
+checkdump result -name {Center Axis XAxis YAxis Radii} -ref {{-70 0 0} {0 0 -1} {-1 0 0} {0 1 0} {20 10}} -eps 0.01
\ No newline at end of file
hyperbola result 70 0 0 0 0 1 1 0 0 20 10
pmirror result 0 0 0
-
-set Center_o_1 -70; set Center_o_2 0; set Center_o_3 0;
-set Axis_o_1 0; set Axis_o_2 0; set Axis_o_3 1;
-set XAxis_o_1 -1; set XAxis_o_2 -0; set XAxis_o_3 0;
-set YAxis_o_1 0; set YAxis_o_2 -1; set YAxis_o_3 -0;
-set LastParam_o_1 20; set LastParam_o_2 10;
-
+checkdump result -name {Center Axis XAxis YAxis Radii} -ref {{-70 0 0} {0 0 1} {-1 -0 0} {0 -1 -0} {20 10}} -eps 0.01
\ No newline at end of file
hyperbola result 70 0 0 0 0 1 1 0 0 20 10
repeat 7 {rotate result 0 0 0 0 0 1 45;
- copy result .;
+ copy result .;
}
-
-set Center_o_1 49.4974746830583; set Center_o_2 -49.4974746830583; set Center_o_3 0;
-set Axis_o_1 -0; set Axis_o_2 0; set Axis_o_3 1;
-set XAxis_o_1 0.707106781186547; set XAxis_o_2 -0.707106781186548; set XAxis_o_3 0;
-set YAxis_o_1 0.707106781186548; set YAxis_o_2 0.707106781186547; set YAxis_o_3 0;
-set LastParam_o_1 20; set LastParam_o_2 10;
-
+checkdump result -name {Center Axis XAxis YAxis Radii} -ref {{49.4974746830583 -49.4974746830583 0} {-0 0 1} {0.707106781186547 -0.707106781186548 0} {0.707106781186548 0.707106781186547 0} {20 10}} -eps 0.01
\ No newline at end of file
pscale result 0 0 0 5
repeat 4 {pl}
dmode result U
-
-set Center_o_1 350; set Center_o_2 0; set Center_o_3 0;
-set Axis_o_1 0; set Axis_o_2 0; set Axis_o_3 1;
-set XAxis_o_1 1; set XAxis_o_2 0; set XAxis_o_3 -0;
-set YAxis_o_1 -0; set YAxis_o_2 1; set YAxis_o_3 0;
-set LastParam_o_1 100; set LastParam_o_2 50;
-
+checkdump result -name {Center Axis XAxis YAxis Radii} -ref {{350 0 0} {0 0 1} {1 0 -0} {-0 1 0} {100 50}} -eps 0.01
\ No newline at end of file
hyperbola result 70 0 0 0 0 1 1 0 0 20 10
smirror result 0 0 0 1 0 -1
-
-set Center_o_1 -1.55431223447522e-14; set Center_o_2 0; set Center_o_3 70;
-set Axis_o_1 -1; set Axis_o_2 -0; set Axis_o_3 -2.22044604925031e-16;
-set XAxis_o_1 -2.22044604925031e-16; set XAxis_o_2 -0; set XAxis_o_3 1;
-set YAxis_o_1 -0; set YAxis_o_2 1; set YAxis_o_3 -0;
-set LastParam_o_1 20; set LastParam_o_2 10;
-
+checkdump result -name {Center Axis XAxis YAxis Radii} -ref {{-1.55431223447522e-14 0 70} {-1 -0 -2.22044604925031e-16} {-2.22044604925031e-16 -0 1} {-0 1 -0} {20 10}} -eps 0.01
\ No newline at end of file
hyperbola result 70 0 0 0 0 1 1 0 0 20 10
translate result 0 -100 200
-
-set Center_o_1 70; set Center_o_2 -100; set Center_o_3 200;
-set Axis_o_1 0; set Axis_o_2 0; set Axis_o_3 1;
-set XAxis_o_1 1; set XAxis_o_2 0; set XAxis_o_3 -0;
-set YAxis_o_1 -0; set YAxis_o_2 1; set YAxis_o_3 0;
-set LastParam_o_1 20; set LastParam_o_2 10;
-
+checkdump result -name {Center Axis XAxis YAxis Radii} -ref {{70 -100 200} {0 0 1} {1 0 -0} {-0 1 0} {20 10}} -eps 0.01
\ No newline at end of file
-set viewer "smallview"
-set type "infinite"
\ No newline at end of file
+set viewer "smallview"
\ No newline at end of file
viso curv_v2 offs1 0.2
copy curv_v2 result
set viewer "smallview"
-set length 1.3447354805936929
+checklength result -l 1.3447354805936929
uiso curv_u2 offs1 0.2
copy curv_u2 result
set viewer "smallview"
-set length 1.3447354805936929
+checklength result -l 1.3447354805936929
uiso curv_u2 offs1 0.2
copy curv_u2 result
set viewer "smallview"
-set length 1.3447354805936931
+checklength result -l 1.3447354805936931
viso curv_v2 offs1 0.2
copy curv_v2 result
set viewer "smallview"
-set length 1.3447354805936929
-
-
+checklength result -l 1.3447354805936929
\ No newline at end of file
-set viewer "smallview"
-set type "finite"
+set viewer "smallview"
\ No newline at end of file
2dcvalue law1 1.5 x y dx dy
set value [dval y]
repeat 50 {
- movelaw law1 1.5 $value dy 0
- set value [expr $value + $delta]
- repaint }
+ movelaw law1 1.5 $value dy 0
+ set value [expr $value + $delta]
+ repaint
+}
copy law1 result
-set length 3.3374712943009293
+checklength result -l 3.3374712943009293
2dcvalue law1 1.5 x y dx dy
set tvalue [dval dy]
repeat 100 {
- movelaw law1 1.5 y $tvalue 1
- set tvalue [expr $tvalue + $delta]
- repaint }
+ movelaw law1 1.5 y $tvalue 1
+ set tvalue [expr $tvalue + $delta]
+ repaint
+}
copy law1 result
-set length 3.3254491241005475
+checklength result -l 3.3254491241005475
2dcvalue law1 1.5 x y dx dy
set value [dval y]
repeat 50 {
- movelaw law1 1.5 $value dy 0
- set value [expr $value + $delta]
- repaint }
+ movelaw law1 1.5 $value dy 0
+ set value [expr $value + $delta]
+ repaint
+}
copy law1 result
-set length 3.3374712943009293
+checklength result -l 3.3374712943009293
2dcvalue law1 1.5 x y dx dy
set tvalue [dval dy]
repeat 100 {
- movelaw law1 1.5 y $tvalue 1
- set tvalue [expr $tvalue + $delta]
- repaint }
+ movelaw law1 1.5 y $tvalue 1
+ set tvalue [expr $tvalue + $delta]
+ repaint
+}
copy law1 result
-set length 3.3254491241005475
+checklength result -l 3.3254491241005475
-set viewer "v2d"
-set type "finite"
+set viewer "v2d"
\ No newline at end of file
line result 0 0 1 1
set viewer "v2d"
-
-set Origin_o_1 0; set Origin_o_2 0;
-set Axis_o_1 0.707106781186548; set Axis_o_2 0.707106781186548;
-
+checkdump result -name {Origin Axis} -ref {{0 0} {0.707106781186548 0.707106781186548}} -eps 0.01
\ No newline at end of file
line result 1 1 2 3
set viewer "v2d"
-
-set Origin_o_1 1; set Origin_o_2 1;
-set Axis_o_1 0.554700196225229; set Axis_o_2 0.832050294337844;
-
+checkdump result -name {Origin Axis} -ref {{1 1} {0.554700196225229 0.832050294337844}} -eps 0.01
\ No newline at end of file
line result 0 0 0 1 1 1
-
-set Origin_o_1 0; set Origin_o_2 0; set Origin_o_3 0;
-set Axis_o_1 0.577350269189626; set Axis_o_2 0.577350269189626; set Axis_o_3 0.577350269189626;
-
+checkdump result -name {Origin Axis} -ref {{0 0 0} {0.577350269189626 0.577350269189626 0.577350269189626}} -eps 0.01
\ No newline at end of file
line result 1 2 3 4 5 6
-
-set Origin_o_1 1; set Origin_o_2 2; set Origin_o_3 3;
-set Axis_o_1 0.455842305838552; set Axis_o_2 0.56980288229819; set Axis_o_3 0.683763458757828;
-
+checkdump result -name {Origin Axis} -ref {{1 2 3} {0.455842305838552 0.56980288229819 0.683763458757828}} -eps 0.01
\ No newline at end of file
convert result lin1
2dcvalue result 0 x y dx dy d2x d2y
set viewer "v2d"
-set length 2
+checklength result -l 2
line result 0 0 1 3
val2d result 0 100 20
set viewer "v2d"
-
-set Origin_o_1 0; set Origin_o_2 0;
-set Axis_o_1 0.316227766016838; set Axis_o_2 0.948683298050514;
-
+checkdump result -name {Origin Axis} -ref {{0 0} {0.316227766016838 0.948683298050514}} -eps 0.01
\ No newline at end of file
line result 0 0 0 1 3 1
val3d result 0 100 20
-
-set Origin_o_1 0; set Origin_o_2 0; set Origin_o_3 0;
-set Axis_o_1 0.301511344577764; set Axis_o_2 0.904534033733291; set Axis_o_3 0.301511344577764;
-
+checkdump result -name {Origin Axis} -ref {{0 0 0} {0.301511344577764 0.904534033733291 0.301511344577764}} -eps 0.01
\ No newline at end of file
pl
pu
pu
-set length 2.9999999999999996
+checklength result -l 2.9999999999999996
2dpu
2dpu
set viewer "v2d"
-set length 2.9999999999999996
+checklength result -l 2.9999999999999996
line result 70 0 0 1 1 0
repeat 4 {pl}
dmode result U
-
-set Origin_o_1 70; set Origin_o_2 0; set Origin_o_3 0;
-set Axis_o_1 0.707106781186548; set Axis_o_2 0.707106781186548; set Axis_o_3 0;
-
+checkdump result -name {Origin Axis} -ref {{70 0 0} {0.707106781186548 0.707106781186548 0}} -eps 0.01
\ No newline at end of file
-set viewer "smallview"
-set type "infinite"
+set viewer "smallview"
\ No newline at end of file
parabola para 0 0 0 0 0 1 2
trim para para -1 1
convert result para
-set length 2.0206422525934427
+checklength result -l 2.0206422525934427
parabola result 0 1 0 1 10
dmode result U
set viewer "v2d"
-
-set Center_o_1 0; set Center_o_2 1;
-set Axis_o_1 0; set Axis_o_2 1;
-set XAxis_o_1 0; set XAxis_o_2 1;
-set YAxis_o_1 -1; set YAxis_o_2 0;
-set LastParam_o_1 10;
-
+checkdump result -name {Center Axis XAxis YAxis Focal} -ref {{0 1} {0 1} {0 1} {-1 0} {10}} -eps 0.01
\ No newline at end of file
parabola result 0 -1 0 -1 10
dmode result U
set viewer "v2d"
-
-set Center_o_1 0; set Center_o_2 -1;
-set Axis_o_1 0; set Axis_o_2 -1;
-set XAxis_o_1 0; set XAxis_o_2 -1;
-set YAxis_o_1 1; set YAxis_o_2 0;
-set LastParam_o_1 10;
-
+checkdump result -name {Center Axis XAxis YAxis Focal} -ref {{0 -1} {0 -1} {0 -1} {1 0} {10}} -eps 0.01
\ No newline at end of file
parabola result 1 0 1 0 10
dmode result U
set viewer "v2d"
-
-set Center_o_1 1; set Center_o_2 0;
-set Axis_o_1 1; set Axis_o_2 0;
-set XAxis_o_1 1; set XAxis_o_2 0;
-set YAxis_o_1 -0; set YAxis_o_2 1;
-set LastParam_o_1 10;
-
+checkdump result -name {Center Axis XAxis YAxis Focal} -ref {{1 0} {1 0} {1 0} {-0 1} {10}} -eps 0.01
\ No newline at end of file
parabola result -1 0 -1 0 10
dmode result U
set viewer "v2d"
-set Center_o_1 -1; set Center_o_2 0;
-set Axis_o_1 -1; set Axis_o_2 0;
-set XAxis_o_1 -1; set XAxis_o_2 0;
-set YAxis_o_1 -0; set YAxis_o_2 -1;
-set LastParam_o_1 10;
-
+checkdump result -name {Center Axis XAxis YAxis Focal} -ref {{-1 0} {-1 0} {-1 0} {-0 -1} {10}} -eps 0.01
\ No newline at end of file
parabola result 0 1 1 0 0 1 0 1 0 10
dmode result U
-
-set Center_o_1 0; set Center_o_2 1; set Center_o_3 1;
-set Axis_o_1 0; set Axis_o_2 0; set Axis_o_3 1;
-set XAxis_o_1 0; set XAxis_o_2 1; set XAxis_o_3 0;
-set YAxis_o_1 -1; set YAxis_o_2 0; set YAxis_o_3 0;
-set LastParam_o_1 10;
-
+checkdump result -name {Center Axis XAxis YAxis Focal} -ref {{0 1 1} {0 0 1} {0 1 0} {-1 0 0} {10}} -eps 0.01
\ No newline at end of file
parabola result 0 -1 1 0 0 1 0 -1 0 10
dmode result U
-set Center_o_1 0; set Center_o_2 -1; set Center_o_3 1;
-set Axis_o_1 0; set Axis_o_2 0; set Axis_o_3 1;
-set XAxis_o_1 0; set XAxis_o_2 -1; set XAxis_o_3 0;
-set YAxis_o_1 1; set YAxis_o_2 0; set YAxis_o_3 -0;
-set LastParam_o_1 10;
-
+checkdump result -name {Center Axis XAxis YAxis Focal} -ref {{0 -1 1} {0 0 1} {0 -1 0} {1 0 -0} {10}} -eps 0.01
\ No newline at end of file
parabola result 1 0 0 0 1 0 1 0 0 10
dmode result U
-
-set Center_o_1 1; set Center_o_2 0; set Center_o_3 0;
-set Axis_o_1 0; set Axis_o_2 1; set Axis_o_3 0;
-set XAxis_o_1 1; set XAxis_o_2 0; set XAxis_o_3 0;
-set YAxis_o_1 0; set YAxis_o_2 0; set YAxis_o_3 -1;
-set LastParam_o_1 10;
-
+checkdump result -name {Center Axis XAxis YAxis Focal} -ref {{1 0 0} {0 1 0} {1 0 0} {0 0 -1} {10}} -eps 0.01
\ No newline at end of file
parabola result -1 0 0 0 1 0 -1 0 0 10
dmode result U
-
-set Center_o_1 -1; set Center_o_2 0; set Center_o_3 0;
-set Axis_o_1 0; set Axis_o_2 1; set Axis_o_3 0;
-set XAxis_o_1 -1; set XAxis_o_2 0; set XAxis_o_3 0;
-set YAxis_o_1 0; set YAxis_o_2 -0; set YAxis_o_3 1;
-set LastParam_o_1 10;
-
+checkdump result -name {Center Axis XAxis YAxis Focal} -ref {{-1 0 0} {0 1 0} {-1 0 0} {0 -0 1} {10}} -eps 0.01
\ No newline at end of file
parabola result 70 1 0 1 10
2dtranslate result -200 0
set viewer "v2d"
-
-set Center_o_1 -130; set Center_o_2 1;
-set Axis_o_1 0; set Axis_o_2 1;
-set XAxis_o_1 0; set XAxis_o_2 1;
-set YAxis_o_1 -1; set YAxis_o_2 0;
-set LastParam_o_1 10;
-
+checkdump result -name {Center Axis XAxis YAxis Focal} -ref {{-130 1} {0 1} {0 1} {-1 0} {10}} -eps 0.01
\ No newline at end of file
parabola result 0 1 0 1 10
val2d result -50 50 40
set viewer "v2d"
-
-set Center_o_1 0; set Center_o_2 1;
-set Axis_o_1 0; set Axis_o_2 1;
-set XAxis_o_1 0; set XAxis_o_2 1;
-set YAxis_o_1 -1; set YAxis_o_2 0;
-set LastParam_o_1 10;
-
+checkdump result -name {Center Axis XAxis YAxis Focal} -ref {{0 1} {0 1} {0 1} {-1 0} {10}} -eps 0.01
\ No newline at end of file
parabola result 0 0 0 0 0 1 0 1 0 10
val3d result -50 50 40
-
-set Center_o_1 0; set Center_o_2 0; set Center_o_3 0;
-set Axis_o_1 0; set Axis_o_2 0; set Axis_o_3 1;
-set XAxis_o_1 0; set XAxis_o_2 1; set XAxis_o_3 0;
-set YAxis_o_1 -1; set YAxis_o_2 0; set YAxis_o_3 0;
-set LastParam_o_1 10;
-
+checkdump result -name {Center Axis XAxis YAxis Focal} -ref {{0 0 0} {0 0 1} {0 1 0} {-1 0 0} {10}} -eps 0.01
\ No newline at end of file
parabola result 0 0 1 0 30
reverse result
set viewer "v2d"
-
-
-set Center_o_1 0; set Center_o_2 0;
-set Axis_o_1 1; set Axis_o_2 0;
-set XAxis_o_1 1; set XAxis_o_2 0;
-set YAxis_o_1 0; set YAxis_o_2 -1;
-set LastParam_o_1 30;
-
+checkdump result -name {Center Axis XAxis YAxis Focal} -ref {{0 0} {1 0} {1 0} {0 -1} {30}} -eps 0.01
\ No newline at end of file
parabola result 70 1 0 0 0 1 0 1 0 10
smirror result 0 0 0 1 0 -1
-
-set Center_o_1 -1.55431223447522e-14; set Center_o_2 1; set Center_o_3 70;
-set Axis_o_1 -1; set Axis_o_2 -0; set Axis_o_3 -2.22044604925031e-16;
-set XAxis_o_1 -0; set XAxis_o_2 1; set XAxis_o_3 -0;
-set YAxis_o_1 2.22044604925031e-16; set YAxis_o_2 0; set YAxis_o_3 -1;
-set LastParam_o_1 10;
-
+checkdump result -name {Center Axis XAxis YAxis Focal} -ref {{-1.55431223447522e-14 1 70} {-1 -0 -2.22044604925031e-16} {-0 1 -0} {.22044604925031e-16 0 -1} {10}} -eps 0.01
\ No newline at end of file
parabola result 70 1 0 0 0 1 0 1 0 10
translate result 0 -100 200
-
-set Center_o_1 70; set Center_o_2 -99; set Center_o_3 200;
-set Axis_o_1 0; set Axis_o_2 -0; set Axis_o_3 1;
-set XAxis_o_1 0; set XAxis_o_2 1; set XAxis_o_3 0;
-set YAxis_o_1 -1; set YAxis_o_2 0; set YAxis_o_3 0;
-set LastParam_o_1 10;
-
+checkdump result -name {Center Axis XAxis YAxis Focal} -ref {{70 -99 200} {0 -0 1} {0 1 0} {-1 0 0} {10}} -eps 0.01
\ No newline at end of file
pl
pu
pu
-set length 3.3514748622014476
+checklength result -l 3.3514748622014476
2dpu
2dpu
set viewer "v2d"
-set length 3.3514748622014476
+checklength result -l 3.3514748622014476
parabola result 70 1 0 1 10
2dlmirror result 0 0 0 1
set viewer "v2d"
-
-set Center_o_1 -70; set Center_o_2 1;
-set Axis_o_1 -0; set Axis_o_2 1;
-set XAxis_o_1 -0; set XAxis_o_2 1;
-set YAxis_o_1 1; set YAxis_o_2 -0;
-set LastParam_o_1 10;
-
+checkdump result -name {Center Axis XAxis YAxis Focal} -ref {{-70 1} {-0 1} {-0 1} {1 -0} {10}} -eps 0.01
\ No newline at end of file
parabola result 70 1 0 1 10
2dpmirror result 0 0
set viewer "v2d"
-
-set Center_o_1 -70; set Center_o_2 -1;
-set Axis_o_1 -0; set Axis_o_2 -1;
-set XAxis_o_1 -0; set XAxis_o_2 -1;
-set YAxis_o_1 1; set YAxis_o_2 -0;
-set LastParam_o_1 10;
-
+checkdump result -name {Center Axis XAxis YAxis Focal} -ref {{-70 -1} {-0 -1} {-0 -1} {1 -0} {10}} -eps 0.01
\ No newline at end of file
parabola result 0 0 0 10 10
dset ech 1.1
repeat 20 {
- 2dpscale result 0 0 0 ech;
- copy result .;
+ 2dpscale result 0 0 0 ech;
+ copy result .;
}
set viewer "v2d"
-
-set Center_o_1 0; set Center_o_2 0;
-set Axis_o_1 0; set Axis_o_2 1;
-set XAxis_o_1 0; set XAxis_o_2 1;
-set YAxis_o_1 -1; set YAxis_o_2 0;
-set LastParam_o_1 67.2749994932561;
-
+checkdump result -name {Center Axis XAxis YAxis Focal} -ref {{0 0} {0 1} {0 1} {-1 0} {67.2749994932561}} -eps 0.01
\ No newline at end of file
parabola result 70 1 0 1 10
2drotate result 0 0 90
set viewer "v2d"
-
-set Center_o_1 -0.999999999999996; set Center_o_2 70;
-set Axis_o_1 -1; set Axis_o_2 6.12303176911189e-17;
-set XAxis_o_1 -1; set XAxis_o_2 6.12303176911189e-17;
-set YAxis_o_1 -6.12303176911189e-17; set YAxis_o_2 -1;
-set LastParam_o_1 10;
-
+checkdump result -name {Center Axis XAxis YAxis Focal} -ref {{-0.999999999999996 70} {-1 6.12303176911189e-17} {-1 6.12303176911189e-17} {-6.12303176911189e-17 -1} {10}} -eps 0.01
\ No newline at end of file
parabola result 70 1 0 1 10
2dtranslate result -200 0
set viewer "v2d"
-
-set Center_o_1 -130; set Center_o_2 1;
-set Axis_o_1 0; set Axis_o_2 1;
-set XAxis_o_1 0; set XAxis_o_2 1;
-set YAxis_o_1 -1; set YAxis_o_2 0;
-set LastParam_o_1 10;
-
+checkdump result -name {Center Axis XAxis YAxis Focal} -ref {{-130 1} {0 1} {0 1} {-1 0} {10}} -eps 0.01
\ No newline at end of file
parabola result 70 1 0 0 0 1 0 1 0 10
lmirror result 0 0 0 0 1 0
-
-set Center_o_1 -70; set Center_o_2 1; set Center_o_3 0;
-set Axis_o_1 0; set Axis_o_2 0; set Axis_o_3 -1;
-set XAxis_o_1 0; set XAxis_o_2 1; set XAxis_o_3 0;
-set YAxis_o_1 1; set YAxis_o_2 0; set YAxis_o_3 0;
-set LastParam_o_1 10;
-
+checkdump result -name {Center Axis XAxis YAxis Focal} -ref {{-70 1 0} {0 0 -1} {0 1 0} {1 0 0} {10}} -eps 0.01
\ No newline at end of file
parabola result 70 1 0 0 0 1 0 1 0 10
pmirror result 0 0 0
-
-set Center_o_1 -70; set Center_o_2 -1; set Center_o_3 0;
-set Axis_o_1 0; set Axis_o_2 -0; set Axis_o_3 1;
-set XAxis_o_1 -0; set XAxis_o_2 -1; set XAxis_o_3 -0;
-set YAxis_o_1 1; set YAxis_o_2 -0; set YAxis_o_3 -0;
-set LastParam_o_1 10;
-
+checkdump result -name {Center Axis XAxis YAxis Focal} -ref {{-70 -1 0} {0 -0 1} {-0 -1 -0} {1 -0 -0} {10}} -eps 0.01
\ No newline at end of file
parabola result 70 1 0 0 0 1 0 1 0 10
repeat 7 {rotate result 0 0 0 0 0 1 45;
- copy result .;
+ copy result .;
}
-
-set Center_o_1 50.2045814642448; set Center_o_2 -48.7903679018718; set Center_o_3 0;
-set Axis_o_1 0; set Axis_o_2 -0; set Axis_o_3 1;
-set XAxis_o_1 0.707106781186548; set XAxis_o_2 0.707106781186547; set XAxis_o_3 0;
-set YAxis_o_1 -0.707106781186547; set YAxis_o_2 0.707106781186548; set YAxis_o_3 0;
-set LastParam_o_1 10;
-
+checkdump result -name {Center Axis XAxis YAxis Focal} -ref {{50.2045814642448 -48.7903679018718 0} {0 -0 1} {0.707106781186548 0.707106781186547 0} {-0.707106781186547 0.707106781186548 0} {10}} -eps 0.01
\ No newline at end of file
pscale result 0 0 0 5
repeat 4 {pl}
dmode result U
-
-set Center_o_1 350; set Center_o_2 5; set Center_o_3 0;
-set Axis_o_1 0; set Axis_o_2 -0; set Axis_o_3 1;
-set XAxis_o_1 0; set XAxis_o_2 1; set XAxis_o_3 0;
-set YAxis_o_1 -1; set YAxis_o_2 0; set YAxis_o_3 0;
-set LastParam_o_1 50;
-
+checkdump result -name {Center Axis XAxis YAxis Focal} -ref {{350 5 0} {0 -0 1} {0 1 0} {-1 0 0} {50}} -eps 0.01
\ No newline at end of file
parabola result 70 1 0 0 0 1 0 1 0 10
smirror result 0 0 0 1 0 -1
-
-set Center_o_1 -1.55431223447522e-14; set Center_o_2 1; set Center_o_3 70;
-set Axis_o_1 -1; set Axis_o_2 -0; set Axis_o_3 -2.22044604925031e-16;
-set XAxis_o_1 -0; set XAxis_o_2 1; set XAxis_o_3 -0;
-set YAxis_o_1 2.22044604925031e-16; set YAxis_o_2 0; set YAxis_o_3 -1;
-set LastParam_o_1 10;
-
+checkdump result -name {Center Axis XAxis YAxis Focal} -ref {{-1.55431223447522e-14 1 70} {-1 -0 -2.22044604925031e-16} {-0 1 -0} {2.22044604925031e-16 0 -1} {10}} -eps 0.01
\ No newline at end of file
parabola result 70 1 0 0 0 1 0 1 0 10
translate result 0 -100 200
-
-set Center_o_1 70; set Center_o_2 -99; set Center_o_3 200;
-set Axis_o_1 0; set Axis_o_2 -0; set Axis_o_3 1;
-set XAxis_o_1 0; set XAxis_o_2 1; set XAxis_o_3 0;
-set YAxis_o_1 -1; set YAxis_o_2 0; set YAxis_o_3 0;
-set LastParam_o_1 10;
-
+checkdump result -name {Center Axis XAxis YAxis Focal} -ref {{70 -99 200} {0 -0 1} {0 1 0} {-1 0 0} {10}} -eps 0.01
\ No newline at end of file
-set viewer "smallview"
-set type "infinite"
+set viewer "smallview"
\ No newline at end of file
restore [locate_data_file pro5075_bug-proj4-curve1.rle] curv1
restore [locate_data_file pro5075_bug-proj4-surface.rle] surf1
project result curv1 surf1 -v 50
-set length 0.062450996195736283
+checklength result -l 0.062450996195736283
restore [locate_data_file pro5075_bug-proj4-curve2.rle] curv1
restore [locate_data_file pro5075_bug-proj4-surface.rle] surf1
project result curv1 surf1 -v 50
-set length 1.2463576545507855
+checklength result -l 1.2463576545507855
restore [locate_data_file pro5102_bug-proj5-curve.rle] curv1
restore [locate_data_file pro5102_bug-proj5-surface.rle] surf1
project result curv1 surf1 -v 50
-set length 3.1415926535897993
+checklength result -l 3.1415926535897993
restore [locate_data_file pro5103_bug-proj6-curve.rle] curv1
restore [locate_data_file pro5103_bug-proj6-surface.rle] surf1
project result curv1 surf1 -v 50
-set length 0.0074999999675910405
+checklength result -l 0.0074999999675910405
restore [locate_data_file pro5075_bug-proj4-curve1.rle] curv1
restore [locate_data_file pro5075_bug-proj4-surface.rle] surf1
project result curv1 surf1 -v 50
-set length 0.062450996195736283
+checklength result -l 0.062450996195736283
restore [locate_data_file pro5075_bug-proj4-curve2.rle] curv1
restore [locate_data_file pro5075_bug-proj4-surface.rle] surf1
project result curv1 surf1 -v 50
-set length 1.2463576545507855
+checklength result -l 1.2463576545507855
restore [locate_data_file pro5102_bug-proj5-curve.rle] curv1
restore [locate_data_file pro5102_bug-proj5-surface.rle] surf1
project result curv1 surf1 -v 50
-set length 3.1415926535897993
+checklength result -l 3.1415926535897993
restore [locate_data_file pro5103_bug-proj6-curve.rle] curv1
restore [locate_data_file pro5103_bug-proj6-surface.rle] surf1
project result curv1 surf1 -v 50
-set length 0.0074999999675910405
+checklength result -l 0.0074999999675910405
-set viewer "v2d"
-set type "finite"
+set viewer "v2d"
\ No newline at end of file
-set viewer "smallview"
-set type "finite"
+set viewer "smallview"
\ No newline at end of file