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]] != "BLUE"} {
  puts "ERROR: OCC25518 is reproduced. Color is lost."
}
XShow T
vfit
vsetdispmode 1
checkview -screenshot -3d -path ${imagedir}/${test_image}.png