[occt.git] / tests / bugs / iges / bug25518

puts "========"
puts "OCC25518: Colors are not written to IGES 5.3"
puts "========"
puts ""

psphere s 10
XNewDoc D
XAddShape D s
XSetColor D s 0 0 1
param write.iges.brep.mode 1

set aTmpFile ${imagedir}/${casename}.igs
WriteIges D $aTmpFile
ReadIges  T $aTmpFile
file delete -force ${aTmpFile}
if {[string trim [XGetAllColors T]] != "BLUE"} {
  puts "ERROR: OCC25518 is reproduced. Color is lost."
}
XShow T
vfit
vsetdispmode 1
checkview -screenshot -3d -path ${imagedir}/${test_image}.png
Commit	Line	Data
06696fd8	1	puts "========"
30fa5f67	2	puts "OCC25518: Colors are not written to IGES 5.3"
06696fd8	3	puts "========"
06696fd8	4	puts ""
06696fd8	5
06696fd8	6	psphere s 10
	7	XNewDoc D
	8	XAddShape D s
	9	XSetColor D s 0 0 1
	10	param write.iges.brep.mode 1
30fa5f67	11
	12	set aTmpFile ${imagedir}/${casename}.igs
	13	WriteIges D $aTmpFile
	14	ReadIges T $aTmpFile
	15	file delete -force ${aTmpFile}
aaf8d6a9	16	if {[string trim [XGetAllColors T]] != "BLUE"} {
06696fd8	17	puts "ERROR: OCC25518 is reproduced. Color is lost."
	18	}
	19	XShow T
	20	vfit
	21	vsetdispmode 1
5747059b	22	checkview -screenshot -3d -path ${imagedir}/${test_image}.png