puts "============"
-puts "CR26344"
+puts "0026344: Visualization - provide a support of zoom persistent selection"
puts "============"
puts ""
-##########################################################################################
-puts "Visualization - provide a support of zoom persistent selection"
-##########################################################################################
-
vclear
vclose ALL
vinit View1 w=409 h=409
if { [vreadpixel 387 77 rgb name] != "GRAY66" } { puts "Error picking zoom persistence object(s)" }
vselect 0 0
-vselect 330 120 400 50
+vselect 330 120 410 50
if { [vreadpixel 387 77 rgb name] != "GRAY66" || [vreadpixel 352 96 rgb name] != "GRAY66" } { puts "Error selecting zoom persistence object(s)" }
# 2) Rotate persistence
vselect 50 223 235 395
if { [vreadpixel 132 300 rgb name] != "GRAY66" } { puts "Error selecting trihedron persistence object" }
-vselect 50 380 400 50
+vselect 50 410 410 50
vstate -entities
checkview -screenshot -3d -path ${imagedir}/${test_image}.png