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

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

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

set only_screen 1
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 SHAPE SHADING"
	8	puts ""
	9
	10	pload XDE
	11
	12	stepread [locate_data_file OCC137-ANC101-Solid.stp] a *
	13	tpcompound a
	14	vinit
	15	vdisplay a
	16	vfit
	17	vsetdispmode 1
	18
	19	set only_screen 1