0025695: Visualization, AIS_InteractiveContext - define default HilightMode
[occt.git] / tests / v3d / materials / bug27818_1
CommitLineData
8e5fb5ea 1puts "============"
2puts "OCC27818_1"
3puts "============"
4puts ""
5####################################################################################
6# Visualization - provide an interface to define highlight presentation properties:
7# test change of highlight properties for whole interactive context
8####################################################################################
9
10
11pload VISUALIZATION MODELING
12
13box b 10 20 30
14pcone p 15 0 40
15
16vinit
17vclear
18
f838dac4 19vdisplay b -dispMode 1
20vdisplay p -dispMode 1
8e5fb5ea 21vsetcolor b RED
22vsetcolor p GREEN
23
24vviewparams -scale 17.8 -proj 0.9 -0.3 0.3
25vviewparams -up -0.2 0.4 0.9 -at 1.99 2.4 20.9
26vviewparams -eye 56.1 -17.7 39.4
27
f838dac4 28vselprops dynHighlight -transp 0.1 -color PALEGREEN2 -dispMode 1
8e5fb5ea 29
30vmoveto 167 263
31set aPixelColor [vreadpixel 167 263 name rgba]
32set aTransp [lindex [split $aPixelColor { }] 1]
33if { $aTransp == 1 } {
34 puts "Error: highlighting of a cone is not transparent!"
35}
36
37vmoveto 285 212
38set aPixelColor [vreadpixel 285 212 name rgba]
39set aTransp [lindex [split $aPixelColor { }] 1]
40if { $aTransp == 1 } {
41 puts "Error: highlighting of a box is not transparent!"
42}
43
44vdump $imagedir/${casename}.png