6 ####################################################
7 ## After command sew in DRAW on attached shape free wires are disappeared.
8 ####################################################
10 restore [locate_data_file OCC714.brep] a
13 set nb_info1 [nbshapes a]
14 regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info1 full ve1
15 regexp {EDGE +: +([-0-9.+eE]+)} $nb_info1 full ed1
16 regexp {WIRE +: +([-0-9.+eE]+)} $nb_info1 full we1
20 set nb_info2 [nbshapes a]
21 regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info2 full ve2
22 regexp {EDGE +: +([-0-9.+eE]+)} $nb_info2 full ed2
23 regexp {WIRE +: +([-0-9.+eE]+)} $nb_info2 full we2
25 if { $ve1 != $ve2 || $ed1 != $ed2 || $we1 != $we2} {
26 puts [format "Faulty OCC714 : SEWING operation was made WRONGLY: vertexes before %s, edges before %s, wires before %s" $ve1 $ed1 $we1]
27 puts [format " vertexes after %s, edges after %s, wires after %s" $ve1 $ed1 $we1]
29 puts "OK OCC714: SEWING operation was made PROPERLY"
32 checkmaxtol result 0.00016588397833094108
33 checknbshapes result -shell 1
34 checkfreebounds result 0