puts "========"
puts "OCC26960"
puts "========"
puts ""
##################################################################
puts "Visualization, TKOpenGl - update transformation of dynamically highlighted presentation"
##################################################################

pload VISUALIZATION MODELING

box b 1 2 3

vclear
vinit View1

vdisplay -dispmode 1 -highmode 1 b
vfit
vselmode 4 1
vmoveto 250 250
if {[vreadpixel 350 140 rgb name] != "BLACK"} {
  puts "ERROR: wrong inital location"
}
vsetlocation b 0.5 0 0
if {[vreadpixel 350 140 rgb name] != "DARKTURQUOISE"} {
  puts "ERROR: the transformation was not applied to highlight structure"
}

checkview -screenshot -3d -path ${imagedir}/${test_image}.png