e54706ed |
1 | puts "=========" |
2 | puts " OCC4968 " |
3 | puts "=========" |
4 | puts "" |
5 | ################################################## |
6 | # Improve FixShape to correct case of touching wires |
7 | ################################################## |
8 | |
9 | set BugNumber OCC4968 |
10 | |
11 | restore [locate_data_file OCC4968.brep] r |
12 | regexp {WIRE +: +([-0-9.+eE]+)} [nbshapes r] full wire_number1 |
13 | |
14 | fixshape result r |
15 | regexp {WIRE +: +([-0-9.+eE]+)} [nbshapes result] full wire_number2 |
16 | checkshape result r |
17 | |
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" |
22 | } else { |
23 | puts "Faulty ${BugNumber}: wrong wire number" |
24 | } |
25 | |
26 | set 2dviewer 1 |
27 | |