d4b867e6 |
1 | puts "================" |
2 | puts "OCC25416" |
3 | puts "================" |
4 | puts "" |
5 | ####################################################################### |
6 | # Wrong section curve |
7 | ####################################################################### |
8 | |
d4b867e6 |
9 | puts "##############################" |
10 | puts "#!!!Search \"Attention\" keyword on this web-page for additional checking!!!" |
11 | puts "##############################" |
12 | puts "" |
13 | puts "" |
14 | |
15 | # bopcurves command |
16 | |
17 | restore [locate_data_file bug25416_f1.brep] f1 |
18 | restore [locate_data_file bug25416_f2.brep] f2 |
19 | |
20 | ############################# |
21 | set log [bopcurves f1 f2 -2d] |
22 | ############################# |
23 | |
24 | regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Toler NbCurv |
25 | |
d4b867e6 |
26 | set MaxTol 1.e-7 |
27 | |
d4b867e6 |
28 | set GoodNbCurv 1 |
29 | |
30 | if {${Toler} > ${MaxTol}} { |
31 | puts "Error: Tolerance is too big!" |
32 | } |
33 | if {${NbCurv} != ${GoodNbCurv}} { |
34 | puts "Error: Curve Number is bad!" |
35 | } |
36 | |
37 | #------------- |
38 | |
39 | mksurface s1 f1 |
40 | mksurface s2 f2 |
41 | |
42 | erase s1 s2 |
43 | |
44 | for {set i 1} {$i <= ${NbCurv}} {incr i} { |
71958f7d |
45 | bounds c_$i U1 U2 |
d4b867e6 |
46 | |
71958f7d |
47 | dump U1 U2 |
d4b867e6 |
48 | |
71958f7d |
49 | if {[dval $U2-$U1] < 1.0e-20} { |
d4b867e6 |
50 | puts "Error: Wrong curve's range!" |
51 | } |
52 | |
6d368502 |
53 | xdistcs c_$i s1 ${U1} ${U2} 10 1e-7 |
54 | xdistcs c_$i s2 ${U1} ${U2} 10 1e-7 |
d4b867e6 |
55 | } |
56 | |
57 | smallview |
58 | fit |
5747059b |
59 | checkview -screenshot -2d -path ${imagedir}/${test_image}.png |