352ffd73 |
1 | #INTERFACE IGES |
2 | puts "========" |
3 | puts "OCC526" |
4 | puts "========" |
5 | puts "" |
6 | ################################################ |
7 | ## BRepAlgoAPI_Section fails to build planar sections on some faces |
8 | ################################################ |
9 | |
10 | pload XDE |
352ffd73 |
11 | |
12 | restore [locate_data_file OCC592.brep] a |
13 | |
14 | set Z 67.599311020481764 |
15 | plane p 0 0 $Z |
16 | psection r1 a p |
17 | if ![regexp VERTEX [statshape r1]] {puts [format "OCC526 FAULTY Z=%f" $Z ] } |
18 | |
19 | set Z 66.599311020481764 |
20 | plane p 0 0 $Z |
21 | psection r2 a p |
22 | if ![regexp VERTEX [statshape r2]] {puts [format "OCC526 FAULTY Z=%f" $Z ] } |
23 | |
24 | set Z 65.599311020481764 |
25 | plane p 0 0 $Z |
26 | psection result a p |
27 | if ![regexp VERTEX [statshape result]] {puts [format "OCC526 FAULTY Z=%f" $Z ] } |
28 | |
29 | set length 27.8021 |
30 | set 2dviewer 1 |
31 | |
32 | |