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

if { [array get env os_type] != "" } {
   set os $env(os_type)
}
if { [string compare $os "windows"] != 0 } {
}

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

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

# FACE ON
vselmode 4 1

set x 170
set y 80
vselect $x $y

set only_screen 1
Commit	Line	Data
61c421bf	1	if { [array get env os_type] != "" } {
	2	set os $env(os_type)
	3	}
	4	if { [string compare $os "windows"] != 0 } {
61c421bf	5	}
	6
	7	puts "================"
	8	puts "OCC137"
	9	puts "================"
	10	#
	11	# The patch "patch-MITUTOYO-USA-05112001.zip" has to be converted to Open Cascade 4.0
	12	#
	13	puts "IT IS NECESSARY TO CHECK SELECTED FACE SHADING"
	14	puts ""
	15
	16	pload XDE
	17
	18	stepread [locate_data_file OCC137-ANC101-Solid.stp] a *
	19	tpcompound a
	20	vinit
	21	vdisplay a
	22	vfit
	23	vsetdispmode 1
	24
709e97a0	25	# FACE ON
	26	vselmode 4 1
	27
61c421bf	28	set x 170
61c421bf	29	set y 80
4754e164	30	vselect $x $y
61c421bf	31
61c421bf	32	set only_screen 1