pload DCAF
pload TOPTEST
pload XDE
puts "========"
puts "OCC26657"
puts "========"
puts ""
##########################################################################
# STEP OCAF writers should keep hierarchy and colors when saving non-root elements
##########################################################################
pload XDEDRAW
ReadStep D1 [locate_data_file bug26657.stp]
WriteStep D1 $imagedir/bug26657_temp.stp a 0:1:1:1:2
if { [catch { Close D11 } catch_result] } {
    puts "Document D11 is not exist"
}

ReadStep D11 $imagedir/bug26657_temp.stp
XGetOneShape result D11
checkshape result f

Close D1
checknbshapes result -solid 3
XShow D11
vfit
vsetdispmode 1
vdump $imagedir/${test_image}.png