0028738: Data Exchange, XCAFPrs_Style - add transparency property
[occt.git] / tests / bugs / xde / bug28641
index c6a4ddc..a0ed6a8 100644 (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