5 ##################################################
6 # Improve FixShape to correct case of touching wires
7 ##################################################
11 restore [locate_data_file OCC4968.brep] r
12 regexp {WIRE +: +([-0-9.+eE]+)} [nbshapes r] full wire_number1
15 regexp {WIRE +: +([-0-9.+eE]+)} [nbshapes result] full wire_number2
18 puts "wire_number1 = ${wire_number1}"
19 puts "wire_number2 = ${wire_number2}"
20 if { ${wire_number2} > ${wire_number1}} {
21 puts "OK ${BugNumber}: wire number - OK"
23 puts "Faulty ${BugNumber}: wrong wire number"