cba287d6 |
1 | puts "TODO OCC26735 ALL: Error : Adjacent perpendicular edges are detected as overlapped" |
2 | |
3 | puts "============" |
4 | puts "OCC26735" |
5 | puts "============" |
6 | puts "" |
7 | ########################################################################################### |
8 | ## Adjacent perpendicular edges are detected as overlapped by DRAW command "checkoverlap". |
9 | ########################################################################################### |
10 | |
11 | restore [locate_data_file bug26735_PartialOverlap_OCOverlapValidatorWire.brep] w1 |
12 | |
13 | explode w1 e |
14 | |
15 | set Log [checkoverlapedges w1_1 w1_2 0.01 0.01] |
16 | set Message "Edges is overlaped" |
17 | |
18 | if { [regexp ${Message} ${Log} ] == 1 } { |
19 | puts "Error : Adjacent perpendicular edges are detected as overlapped" |
20 | } else { |
21 | puts "OK : Adjacent perpendicular edges are not detected as overlapped" |
22 | } |
23 | |
24 | smallview |
25 | fit |
26 | checkview -screenshot -2d -path ${imagedir}/${test_image}.png |