Commit | Line | Data |
---|---|---|
f9ba5c4d | 1 | puts "========" |
2 | puts "OCC27617: Visualization, TKOpenGl - apply highlighting color without disabling lighting" | |
3 | puts "========" | |
4 | ||
5 | pload MODELING VISUALIZATION | |
6 | box b 1 2 3 | |
7 | vclear | |
8 | vinit View1 | |
9 | vdisplay -highMode 1 -dispMode 1 b | |
10 | vaxo | |
11 | vfit | |
12 | vrotate 1 0 0 | |
13 | vfit | |
14 | vmoveto 250 150 | |
15 | set aColor [vreadpixel 200 150 name rgb] | |
16 | if { "$aColor" != "TURQUOISE4" } { | |
17 | puts "Error: Wrong dynamic highlight color" | |
18 | } |