0e94a94e |
1 | puts "================" |
2 | puts "OCC8" |
3 | puts "================" |
4 | puts "" |
5 | ################################################### |
6 | ## BRepTools_WireExplorere gives not all edges from a wire |
7 | ################################################### |
8 | |
9 | pload XDE |
10 | restore [locate_data_file OCC8.brep] result |
11 | |
352ffd73 |
12 | checkshape result |
0e94a94e |
13 | |
14 | explode result w |
15 | set info [expwire result_1 sh] |
16 | |
17 | if { [regexp "BRepTools_WireExplorer donne 16 Edges" $info] != 1 } { |
18 | puts "Error : BRepTools_WireExplorer gives WRONG number of edges." |
19 | } |
20 | |
21 | set 2dviewer 0 |
22 | |