352ffd73 |
1 | #INTERFACE IGES |
2 | puts "=======" |
3 | puts "OCC535" |
4 | puts "=======" |
5 | puts "" |
6 | ############################################################# |
7 | ## After command "fixshape" in DRAW on attached shape quantity of shapes obtained |
8 | ## with help command "nbs" is increased. |
9 | ############################################################# |
10 | |
11 | pload XDE |
352ffd73 |
12 | |
13 | restore [locate_data_file OCC535.brep] a |
14 | |
15 | set nb_info_a [nbshapes a] |
16 | regexp {SHAPE +: +([-0-9.+eE]+)} $nb_info_a full r1 |
17 | |
18 | fixshape result a |
19 | |
20 | set nb_info_res [nbshapes result] |
21 | regexp {SHAPE +: +([-0-9.+eE]+)} $nb_info_res full r2 |
22 | |
23 | puts "" |
24 | puts [format "before Shapes = %s after Shapes = %s" $r1 $r2] |
25 | puts "" |
26 | |
27 | if { $r1 == $r2 } { |
28 | puts "OCC535 OK" |
29 | } else { |
30 | puts "OCC535 Faulty" |
31 | } |
32 | |
58cf74e0 |
33 | checkprops result -s 3554.31 |
34 | checkshape result |
5747059b |
35 | checkview -display result -2d -path ${imagedir}/${test_image}.png |