0032237: Visualization, TKOpenGl - fix Gouraud shading within perspective camera...
[occt.git] / tests / bugs / vis / bug32143
CommitLineData
33425a46 1puts "============"
2puts "0032143: Visualization - add option excluding transparent object from sorting"
3puts "============"
4puts ""
5
6pload MODELING VISUALIZATION
7vclear
8vinit View1 -width 512 -height 512
9vbackground -gradient GRAY20 GRAY80
10restore [locate_data_file Ball.brep] b
11vdisplay -dispMode 1 b
12vfit
13
14set dx 220; set dy 74
15set logoPath "$::env(CSF_OCCTResourcePath)/DrawResources/OCC_logo.png"
16box logo $dx $dy 0 -preview
17vdisplay -dispMode 1 logo -topmost -2d bottomRight [expr $dx+25] 25
18vtexture logo "$logoPath"
19vaspects logo -alphaMode BLEND -shadingModel UNLIT
20vdisplay logo -underlay
21if { [vreadpixel 320 440 -rgb -name] != "DEEPSKYBLUE3" } { puts "Error: Unexpected color for BLEND" }
22vaspects logo -alphaMode MASKBLEND 0.001 -shadingModel UNLIT
23if { [vreadpixel 320 440 -rgb -name] != "DARKGOLDENROD" } { puts "Error: Unexpected color for MASKBLEND" }
24
25vdump ${imagedir}/${casename}.png