f5e92b04 |
1 | pload DCAF |
2 | pload TOPTEST |
3 | pload XDE |
4 | puts "========" |
5 | puts "OCC26657" |
6 | puts "========" |
7 | puts "" |
8 | ########################################################################## |
9 | # STEP OCAF writers should keep hierarchy and colors when saving non-root elements |
10 | ########################################################################## |
11 | pload XDEDRAW |
12 | ReadStep D1 [locate_data_file bug26657.stp] |
13 | WriteStep D1 $imagedir/bug26657_temp.stp a 0:1:1:1:2 |
14 | if { [catch { Close D11 } catch_result] } { |
15 | puts "Document D11 is not exist" |
16 | } |
17 | |
18 | ReadStep D11 $imagedir/bug26657_temp.stp |
19 | XGetOneShape result D11 |
20 | checkshape result f |
21 | |
22 | Close D1 |
23 | checknbshapes result -solid 3 |
24 | XShow D11 |
25 | vfit |
26 | vsetdispmode 1 |
27 | vdump $imagedir/${test_image}.png |
28 | |