1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
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
set only_screen 1
|
