puts "============"
puts "0028527: Visualization, AIS_InteractiveContext - custom selection presentation is never removed from View"
puts "============"
puts ""

pload MODELING XDE VISUALIZATION
vclear
vclose ALL
vinit View1
box b -100 0 0 10 20 30
meshfromstl m [locate_data_file OMF6391_box.stl]

vfit
vsetdispmode m 2
vselmode m 8 1
vselect 0 0 409 409 0 409
verase m

vdisplay -dispMode 1 -highMode 1 b
vfit
if { [vreadpixel 165 400 rgb name] != "DARKGOLDENROD3" } { puts "Error: fit all produces incorrect result after Erase" }
vdump $::imagedir/${::casename}_1.png

verase b
vdisplay m
vfit
vselmode m 8 1
vselect 0 0 409 409 0 409
vremove m

vdisplay -dispMode 1 -highMode 1 b
vfit
if { [vreadpixel 165 400 rgb name] != "DARKGOLDENROD3" } { puts "Error: fit all produces incorrect result after Remove" }
vdump $::imagedir/${::casename}_2.png
