puts "============"
puts "OCC11095"
puts "============"
puts ""
#######################################################################
# MeshVS: Borders of faces are not visible in shrink mode
#######################################################################

set BugNumber OCC11095

pload XDE

meshfromstl m [locate_data_file OMF6391_box.stl]

set x_coord 157
set y_coord 280

set RED_R1   0
set GREEN_R1 0
set BLUE_R1  0

vmoveto $x_coord $y_coord

meshdispmode m 3
puts "\nSet shrinked display mode\n"

set x_coord 137
set y_coord 277

checkcolor $x_coord $y_coord 0 0 0

if { ${stat} != 1 } {
   puts "Error : Borders of faces are not visible in shrink mode"
}

set only_screen 1