0027531: Modeling Algorithms - Make the algorithm Approx_SameParameter more clear...
[occt.git] / tests / bugs / modalg_4 / bug714
1 #INTERFACE IGES
2 puts "========"
3 puts "OCC714"
4 puts "========"
5 puts ""
6 ####################################################
7 ## After command sew in DRAW on attached shape free wires are disappeared.
8 ####################################################
9
10 restore [locate_data_file OCC714.brep] a 
11 checkshape a
12
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
17
18 sewing result 0.1 a
19
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
24
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] 
28 } else {
29     puts "OK OCC714: SEWING operation was made PROPERLY"
30 }
31
32 checkmaxtol result -ref 0.17933517948246736
33 checknbshapes result -shell 1
34 checkfreebounds result 0
35
36 checkprops result -s 12917.1 
37 checkshape result
38 checkview -display result -2d -path ${imagedir}/${test_image}.png
39