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:
@@ -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
|
||||
|
Reference in New Issue
Block a user