[occt.git] / tests / bugs / step / bug26657

puts "========"
puts "OCC26657: STEP OCAF writers should keep hierarchy and colors when saving non-root elements"
puts "========"
puts ""

pload DCAF TOPTEST XDE XDEDRAW
ReadStep D1 [locate_data_file bug26657.stp]

set aTmpFile ${imagedir}/${casename}_temp.stp
WriteStep D1 $aTmpFile a 0:1:1:1:2
if { [catch { Close D11 } catch_result] } {
  puts "Document D11 is not exist"
}
ReadStep D11 $aTmpFile
file delete -force $aTmpFile

XGetOneShape result D11
checkshape result f

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