8 ##########################################################################
9 # STEP OCAF writers should keep hierarchy and colors when saving non-root elements
10 ##########################################################################
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"
18 ReadStep D11 $imagedir/bug26657_temp.stp
19 XGetOneShape result D11
23 checknbshapes result -solid 3
27 vdump $imagedir/${test_image}.png