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 | |
1d19db8d |
10 | puts "TODO OCC25593 ALL: Faulty shapes in variables faulty_1 to faulty_4" |
11 | |
f1aa2b62 |
12 | restore [locate_data_file OCC714.brep] a |
352ffd73 |
13 | checkshape a |
f1aa2b62 |
14 | |
15 | set nb_info1 [nbshapes a] |
16 | regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info1 full ve1 |
17 | regexp {EDGE +: +([-0-9.+eE]+)} $nb_info1 full ed1 |
18 | regexp {WIRE +: +([-0-9.+eE]+)} $nb_info1 full we1 |
19 | |
20 | sewing result 0.1 a |
21 | |
22 | set nb_info2 [nbshapes a] |
23 | regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info2 full ve2 |
24 | regexp {EDGE +: +([-0-9.+eE]+)} $nb_info2 full ed2 |
25 | regexp {WIRE +: +([-0-9.+eE]+)} $nb_info2 full we2 |
26 | |
27 | if { $ve1 != $ve2 || $ed1 != $ed2 || $we1 != $we2} { |
28 | puts [format "Faulty OCC714 : SEWING operation was made WRONGLY: vertexes before %s, edges before %s, wires before %s" $ve1 $ed1 $we1] |
29 | puts [format " vertexes after %s, edges after %s, wires after %s" $ve1 $ed1 $we1] |
30 | } else { |
31 | puts "OK OCC714: SEWING operation was made PROPERLY" |
32 | } |
33 | |
5ae01c85 |
34 | checkmaxtol result 0.00016588397833094108 |
35 | checknbshapes result -shell 1 |
36 | checkfreebounds result 0 |
37 | |
f1aa2b62 |
38 | set square 12917.1 |
39 | set 2dviewer 0 |
40 | |