1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-09-13 14:27:08 +03:00

0028738: Data Exchange, XCAFPrs_Style - add transparency property

Use Quantity_ColorRGBA as surface color to store a transparency in XCAFPrs_Style.
This commit is contained in:
akz
2017-05-11 13:52:18 +03:00
committed by bugmaster
parent 46710942db
commit a71a71de09
15 changed files with 145 additions and 60 deletions

View File

@@ -20,6 +20,12 @@ XSetColor D_First b_11 1 1 1 0.2 c
XSetColor D_First b_10 0 1 1 c
XAddColor D_First 0.5 0.5 1 0.1
XShow D_First
vfit
vsetdispmode 1
vdump $::imagedir/${::casename}_first.png
if { [vreadpixel 300 200 rgb name] != "GRAY14" } { puts "Error: wrong color in 3D Viewer" }
# Write file
SaveAs D_First ${imagedir}/bug28521.xbf
Close D_First
@@ -73,4 +79,10 @@ if {$isOK == 0} {
puts "Error: wrong color."
}
XShow D_Second
vfit
vsetdispmode 1
vdump $::imagedir/${::casename}.png
if { [vreadpixel 300 200 rgb name] != "GRAY14" } { puts "Error: wrong color in 3D Viewer" }
Close D_Second