mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-08-09 13:22:24 +03:00
19 lines
392 B
Plaintext
19 lines
392 B
Plaintext
puts "========"
|
|
puts "OCC27617: Visualization, TKOpenGl - apply highlighting color without disabling lighting"
|
|
puts "========"
|
|
|
|
pload MODELING VISUALIZATION
|
|
box b 1 2 3
|
|
vclear
|
|
vinit View1
|
|
vdisplay -highMode 1 -dispMode 1 b
|
|
vaxo
|
|
vfit
|
|
vrotate 1 0 0
|
|
vfit
|
|
vmoveto 250 150
|
|
set aColor [vreadpixel 200 150 name rgb]
|
|
if { "$aColor" != "TURQUOISE4" } {
|
|
puts "Error: Wrong dynamic highlight color"
|
|
}
|