puts "================" puts "OCC22822" puts "================" puts "" ###################################################################################### # Skipping of the first and the last edges of a wire for opened wires ###################################################################################### set BugNumber OCC22822 restore [locate_data_file OCC22822-selfIntersectingOpenWire.brep] result set aList [checkselfintersection result] if { [regexp {A self-intersecting wire.} $aList] } { puts "OK ${BugNumber}" } else { puts "Faulty ${BugNumber}" } set length 579.551 set 3dviewer 0