0030969: Coding Rules - refactor Quantity_Color.cxx color table definition
[occt.git] / tests / bugs / iges / bug25518
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]] != "BLUE"} {
18   puts "ERROR: OCC25518 is reproduced. Color is lost."
19 }
20 XShow T
21 vfit
22 vsetdispmode 1
23 checkview -screenshot -3d -path ${imagedir}/${test_image}.png