751d0553 |
1 | puts "========" |
2 | puts "0030194: Modeling Algorithms - Intersection points between line and torus are not found" |
3 | puts "========" |
4 | puts "" |
5 | |
6 | restore [locate_data_file bug30194_HA-8579.brep] a |
7 | line l 18000 2000 4000 0 0 -1 |
8 | explode a f |
9 | mksurface s1 a_1 |
10 | intersect result l s1 |
11 | |
12 | set full1 "" |
13 | 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 |
14 | |
15 | if {$full1 != ""} { |
16 | checkreal PointX $px1 1.8e4 1.0e-7 0 |
17 | checkreal PointY $py1 2.0e3 1.0e-7 0 |
18 | checkreal PointZ $pz1 7.898712797729002e+003 1.0e-7 0 |
19 | } else { |
20 | puts "Error : no intersection point" |
21 | } |
22 | |
23 | set full2 "" |
24 | 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 |
25 | |
26 | if {$full2 != ""} { |
27 | checkreal PointX $px2 1.8e4 1.0e-7 0 |
28 | checkreal PointY $py2 2.0e3 1.0e-7 0 |
29 | checkreal PointZ $pz2 1.012872022709980e+002 1.0e-7 0 |
30 | } else { |
31 | puts "Error : no intersection point" |
32 | } |
33 | |