f1aa2b62 |
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 |
352ffd73 |
11 | checkshape a |
f1aa2b62 |
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 | |
fb60057d |
32 | checkmaxtol result -ref 0.25619311354638169 |
5ae01c85 |
33 | checknbshapes result -shell 1 |
34 | checkfreebounds result 0 |
35 | |
58cf74e0 |
36 | checkprops result -s 12917.1 |
37 | checkshape result |
5747059b |
38 | checkview -display result -2d -path ${imagedir}/${test_image}.png |
f1aa2b62 |
39 | |