[occt.git] / tests / bugs / modalg / bug397

puts "========================"
puts " OCC397 "
puts "========================"

pload QAcommands

restore [locate_data_file OCC397.brep] a 
puts [checkshape a]

tclean a
explode a f
renamevar a_55 result

vinit
vdisplay result
vfit
vsetdispmode result 1

set x_coord 235
set y_coord 180

checkcolor $x_coord $y_coord 0.5 0.35 0.05

if { ${stat} != 1 } {
    puts "Error : Shading is missing in 3D Viewer"
}

QASelect 220 170
QASelect 220 170

set square 92.9029
set only_screen 1
Commit	Line	Data
a87752f3	1	puts "========================"
	2	puts " OCC397 "
	3	puts "========================"
	4
	5	pload QAcommands
	6
a87752f3	7	restore [locate_data_file OCC397.brep] a
	8	puts [checkshape a]
	9
	10	tclean a
	11	explode a f
	12	renamevar a_55 result
	13
	14	vinit
	15	vdisplay result
	16	vfit
	17	vsetdispmode result 1
	18
f1aa2b62	19	set x_coord 235
f1aa2b62	20	set y_coord 180
a87752f3	21
f1aa2b62	22	checkcolor $x_coord $y_coord 0.5 0.35 0.05
a87752f3	23
f1aa2b62	24	if { ${stat} != 1 } {
a87752f3	25	puts "Error : Shading is missing in 3D Viewer"
	26	}
	27
	28	QASelect 220 170
	29	QASelect 220 170
	30
	31	set square 92.9029
	32	set only_screen 1
	33
	34