[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

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
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
	13	meshfromstl m [locate_data_file OMF6391_box.stl]
	14
	15	set x_coord 157
	16	set y_coord 280
	17
	18	set RED_R1 0
	19	set GREEN_R1 0
	20	set BLUE_R1 0
	21
4754e164	22	vmoveto $x_coord $y_coord
e54706ed	23
	24	meshdispmode m 3
	25	puts "\nSet shrinked display mode\n"
	26
	27	set x_coord 137
	28	set y_coord 277
	29
	30	checkcolor $x_coord $y_coord 0 0 0
	31
	32	if { ${stat} != 1 } {
	33	puts "Error : Borders of faces are not visible in shrink mode"
	34	}
	35
	36	set only_screen 1