3bea4c16 |
1 | puts "================" |
2 | puts "OCC22822" |
3 | puts "================" |
4 | puts "" |
5 | ###################################################################################### |
6 | # Skipping of the first and the last edges of a wire for opened wires |
7 | ###################################################################################### |
8 | |
9 | set BugNumber OCC22822 |
10 | |
11 | restore [locate_data_file OCC22822-selfIntersectingOpenWire.brep] result |
12 | |
13 | set aList [checkselfintersection result] |
14 | |
15 | if { [regexp {A self-intersecting wire.} $aList] } { |
16 | puts "OK ${BugNumber}" |
17 | } else { |
18 | puts "Faulty ${BugNumber}" |
19 | } |
20 | |
21 | set length 579.551 |
22 | set 3dviewer 0 |