1 puts "================"
3 puts "================"
5 ######################################################################################
6 # We need more stable work of ShapeAnalysis_FreeBounds::ConnectEdgesToWires()
7 ######################################################################################
13 set order {1 2 3 4 5 6 7 8 9 10}
14 restore [locate_data_file bug22924_3D_Sketcher.brep] a
17 set lord [split $order " "]
18 for {set i 1} {$i <= $numcheck} {incr i} {
19 set val [connectedges r a]
20 set lnum [lindex [split $val \n] 1]
21 set llnum [split $lnum " "]
22 set ll [llength $llnum]
23 for {set j 0} {$j <= $ll} {incr j} {
24 set ref_val [lindex $lord $j]
25 set check_val [lindex $llnum $j]
26 if {$ref_val == $check_val} {
35 puts "Faulty ${BugNumber}"