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

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

catch {exec rm ${imagedir}/OCC25518.igs}
psphere s 10
XNewDoc D
XAddShape D s
XSetColor D s 0 0 1
param write.iges.brep.mode 1
WriteIges D ${imagedir}/OCC25518.igs
ReadIges T ${imagedir}/OCC25518.igs
if {[string trim [XGetAllColors T]] != "BLUE1"} {
  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 "========"
	2	puts "OCC25518"
	3	puts "========"
	4	puts ""
	5	######################################
	6	# Colors are not written to IGES 5.3
	7	######################################
	8
	9	catch {exec rm ${imagedir}/OCC25518.igs}
	10	psphere s 10
	11	XNewDoc D
	12	XAddShape D s
	13	XSetColor D s 0 0 1
	14	param write.iges.brep.mode 1
	15	WriteIges D ${imagedir}/OCC25518.igs
	16	ReadIges T ${imagedir}/OCC25518.igs
	17	if {[string trim [XGetAllColors T]] != "BLUE1"} {
	18	puts "ERROR: OCC25518 is reproduced. Color is lost."
	19	}
	20	XShow T
	21	vfit
	22	vsetdispmode 1
5747059b	23	checkview -screenshot -3d -path ${imagedir}/${test_image}.png