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

#INTERFACE IGES
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 SHAPE SHADING"
puts ""

pload XDE

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

set only_screen 1
Commit	Line	Data
61c421bf	1	#INTERFACE IGES
	2	puts "================"
	3	puts "OCC137"
	4	puts "================"
	5	#
	6	# The patch "patch-MITUTOYO-USA-05112001.zip" has to be converted to Open Cascade 4.0
	7	#
	8	puts "IT IS NECESSARY TO CHECK SHAPE SHADING"
	9	puts ""
	10
	11	pload XDE
	12
	13	igesbrep [locate_data_file OCC137-ANC101-Solid.igs] a *
	14	tpcompound a
	15	vinit
	16	vdisplay a
	17	vfit
	18	vsetdispmode 1
	19
	20	set only_screen 1