751d0553 |
1 | puts "========" |
2 | puts "0029530: Cannot intersec line with torus" |
3 | puts "========" |
4 | puts "" |
5 | |
6 | line l 20849.8369546166 -51477.7110215995 0 0 0 1 |
7 | torus s1 20849.8369546165 -16150.0401784893 -0.465280626514954 0 0 -1 -1 0 0 36035.8315681522 1000.78348430862 |
8 | |
9 | intersect result l s1 |
10 | |
11 | set full1 "" |
12 | regexp "Point\\s*:\\s*(\[-0-9.+eE\]+)\\s*,\\s*(\[-0-9.+eE\]+)\\s*,\\s*(\[-0-9.+eE\]+)\\s*" [dump result_1] full1 px1 py1 pz1 |
13 | |
14 | if {$full1 != ""} { |
15 | checkreal PointX $px1 2.084983695461660e+004 1.0e-7 0 |
16 | checkreal PointY $py1 -5.147771102159950e+004 1.0e-7 0 |
17 | checkreal PointZ $pz1 7.066952174026758e+002 1.0e-7 0 |
18 | } else { |
19 | puts "Error : no intersection point" |
20 | } |
21 | |
22 | set full2 "" |
23 | regexp "Point\\s*:\\s*(\[-0-9.+eE\]+)\\s*,\\s*(\[-0-9.+eE\]+)\\s*,\\s*(\[-0-9.+eE\]+)\\s*" [dump result_2] full2 px2 py2 pz2 |
24 | |
25 | if {$full2 != ""} { |
26 | checkreal PointX $px2 2.084983695461660e+004 1.0e-7 0 |
27 | checkreal PointY $py2 -5.147771102159950e+004 1.0e-7 0 |
28 | checkreal PointZ $pz2 -7.076257786556961e+002 1.0e-7 0 |
29 | } else { |
30 | puts "Error : no intersection point" |
31 | } |
32 | |