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

puts "================"
puts "OCC137"
puts "================"
#
# The patch "patch-MITUTOYO-USA-05112001.zip" has to be converted to Open Cascade 4.0
#
puts "IT IS NECESSARY TO CHECK SELECTED FACE SHADING"
puts ""

pload XDE

igesbrep [locate_data_file OCC137-ANC101-Solid.igs] a *
tpcompound a
vinit
vdisplay a
vfit
vsetdispmode 1

# FACE ON
vselmode 4 1

set x 170
set y 80
vselect $x $y

checkview -screenshot -3d -path ${imagedir}/${test_image}.png
Commit	Line	Data
61c421bf	1	puts "================"
	2	puts "OCC137"
	3	puts "================"
	4	#
	5	# The patch "patch-MITUTOYO-USA-05112001.zip" has to be converted to Open Cascade 4.0
	6	#
	7	puts "IT IS NECESSARY TO CHECK SELECTED FACE SHADING"
	8	puts ""
	9
	10	pload XDE
	11
	12	igesbrep [locate_data_file OCC137-ANC101-Solid.igs] a *
	13	tpcompound a
	14	vinit
	15	vdisplay a
	16	vfit
	17	vsetdispmode 1
	18
709e97a0	19	# FACE ON
	20	vselmode 4 1
	21
61c421bf	22	set x 170
61c421bf	23	set y 80
4754e164	24	vselect $x $y
61c421bf	25
5747059b	26	checkview -screenshot -3d -path ${imagedir}/${test_image}.png