| 1 | puts "============" |
| 2 | puts "0027818: Visualization - provide an interface to define highlight presentation properties" |
| 3 | puts "Test change of highlight properties for whole interactive context" |
| 4 | puts "============" |
| 5 | puts "" |
| 6 | |
| 7 | pload VISUALIZATION MODELING |
| 8 | |
| 9 | box b 10 20 30 |
| 10 | pcone p 15 0 40 |
| 11 | |
| 12 | vclear |
| 13 | vinit View1 |
| 14 | vdisplay b -dispMode 1 b p |
| 15 | vsetcolor b RED |
| 16 | vsetcolor p GRAY |
| 17 | |
| 18 | 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 |
| 19 | vselprops dynHighlight -transp 0.3 -color PALEGREEN2 -dispMode 1 |
| 20 | |
| 21 | vmoveto 285 212 |
| 22 | if { [vreadpixel 285 212 name rgb] != "DARKKHAKI" } { puts "Error: highlighting of a box is not transparent!" } |
| 23 | |
| 24 | vmoveto -reset |
| 25 | if { [vreadpixel 285 212 name rgb] != "RED" } { puts "Error: highlighting of a box is not reset!" } |
| 26 | |
| 27 | vmoveto 167 263 |
| 28 | if { [vreadpixel 167 263 name rgb] != "DARKSEAGREEN2" } { puts "Error: highlighting of a cone is not transparent!" } |
| 29 | |
| 30 | vdump $imagedir/${casename}.png |