puts "============" puts "0027818: Visualization - provide an interface to define highlight presentation properties" puts "Test change of highlight properties for whole interactive context" puts "============" puts "" pload VISUALIZATION MODELING box b 10 20 30 pcone p 15 0 40 vclear vinit View1 vdisplay b -dispMode 1 b p vsetcolor b RED vsetcolor p GRAY vviewparams -scale 17.8 -proj 0.892687 -0.331602 0.305206 -up -0.162521 0.394789 0.904284 -at 1.99 2.4 20.9 vselprops dynHighlight -transp 0.3 -color PALEGREEN2 -dispMode 1 vmoveto 285 212 if { [vreadpixel 285 212 name rgb] != "DARKKHAKI" } { puts "Error: highlighting of a box is not transparent!" } vmoveto -reset if { [vreadpixel 285 212 name rgb] != "RED" } { puts "Error: highlighting of a box is not reset!" } vmoveto 167 263 if { [vreadpixel 167 263 name rgb] != "DARKSEAGREEN2" } { puts "Error: highlighting of a cone is not transparent!" } vdump $imagedir/${casename}.png