6da50d26 |
1 | puts "=========" |
2 | puts "OCC23948" |
3 | puts "=========" |
4 | puts "" |
5 | ########################################################### |
6 | # Wrong intersection between a surface of revolution and a plane. |
7 | ########################################################### |
8 | |
98974dcc |
9 | foreach a [directory c_*] {unset $a} |
10 | |
6da50d26 |
11 | restore [locate_data_file bug22766_f1] f1 |
12 | restore [locate_data_file bug22766_f2] f2 |
13 | |
6da50d26 |
14 | mksurface s1 f1 |
15 | mksurface s2 f2 |
16 | |
98974dcc |
17 | set log [bopcurves f1 f2] |
18 | |
19 | regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Toler NbCurv |
20 | |
21 | for { set i 1 } { $i <= $NbCurv } { incr i } { |
22 | bounds c_$i U1 U2 |
23 | |
24 | if {[dval U2-U1] < 1.0e-9} { |
25 | puts "Error: Wrong curve's range!" |
26 | } |
27 | |
28 | xdistcs c_$i s1 0 1 10 2.0e-7 |
29 | xdistcs c_$i s2 0 1 10 2.0e-7 |
30 | } |
6da50d26 |
31 | |
32 | smallview |
98974dcc |
33 | don c_* |
6da50d26 |
34 | fit |
98974dcc |
35 | disp s1 s2 |
5747059b |
36 | checkview -screenshot -2d -path ${imagedir}/${test_image}.png |