5 ####################################################################################
6 # Visualization - provide an interface to define highlight presentation properties:
7 # test change of highlight properties for whole interactive context
8 ####################################################################################
11 pload VISUALIZATION MODELING
19 vdisplay b -dispMode 1
20 vdisplay p -dispMode 1
24 vviewparams -scale 17.8 -proj 0.9 -0.3 0.3
25 vviewparams -up -0.2 0.4 0.9 -at 1.99 2.4 20.9
26 vviewparams -eye 56.1 -17.7 39.4
28 vselprops dynHighlight -transp 0.1 -color PALEGREEN2 -dispMode 1
31 set aPixelColor [vreadpixel 167 263 name rgba]
32 set aTransp [lindex [split $aPixelColor { }] 1]
33 if { $aTransp == 1 } {
34 puts "Error: highlighting of a cone is not transparent!"
38 set aPixelColor [vreadpixel 285 212 name rgba]
39 set aTransp [lindex [split $aPixelColor { }] 1]
40 if { $aTransp == 1 } {
41 puts "Error: highlighting of a box is not transparent!"
44 vdump $imagedir/${casename}.png