mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-05-16 10:54:53 +03:00
06696fd835
Writing of colors to IGES Face (510) and Solid (186) entities allowed since this is used by CAD systems (even if not allowed by IGES standard). Color assigned to surface, face and solid entities to ensure that different CAD systems will recognize them. Test-case for issue #25518
24 lines
525 B
Plaintext
24 lines
525 B
Plaintext
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
|