[occt.git] / tests / bugs / vis / bug11095

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

set BugNumber OCC11095

pload XDE

vinit

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

vsetdispmode 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
Commit	Line	Data
e54706ed	1	puts "============"
	2	puts "OCC11095"
	3	puts "============"
	4	puts ""
	5	#######################################################################
	6	# MeshVS: Borders of faces are not visible in shrink mode
	7	#######################################################################
	8
	9	set BugNumber OCC11095
	10
	11	pload XDE
	12
709e97a0	13	vinit
709e97a0	14
e54706ed	15	meshfromstl m [locate_data_file OMF6391_box.stl]
	16
	17	set x_coord 157
	18	set y_coord 280
	19
	20	set RED_R1 0
	21	set GREEN_R1 0
	22	set BLUE_R1 0
	23
4754e164	24	vmoveto $x_coord $y_coord
e54706ed	25
709e97a0	26	vsetdispmode m 3
e54706ed	27	puts "\nSet shrinked display mode\n"
	28
	29	set x_coord 137
	30	set y_coord 277
	31
	32	checkcolor $x_coord $y_coord 0 0 0
	33
	34	if { ${stat} != 1 } {
	35	puts "Error : Borders of faces are not visible in shrink mode"
	36	}
	37
	38	set only_screen 1