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

puts "========"
puts "OCC185"
puts "========"

pload XDE

igesbrep [locate_data_file OCC185.igs] a *

tpcompound result
tclean result

vinit
vdisplay result
vfit

set x_coord 235
set y_coord 214

vsetdispmode result 1

checkcolor $x_coord $y_coord 0.78 0.55 0.9

if { $stat != 1 } {
    puts "Error : Shading is OFF, but should be ON"
}

vsetdispmode result 0

checkcolor $x_coord $y_coord 0 1 0

if { $stat != 1 } {
    puts "Error : Shading is ON, but should be OFF"
}

checkview -screenshot -3d -path ${imagedir}/${test_image}.png
Commit	Line	Data
a87752f3	1	puts "========"
	2	puts "OCC185"
	3	puts "========"
	4
	5	pload XDE
	6
	7	igesbrep [locate_data_file OCC185.igs] a *
	8
	9	tpcompound result
	10	tclean result
	11
	12	vinit
	13	vdisplay result
	14	vfit
	15
f1aa2b62	16	set x_coord 235
f1aa2b62	17	set y_coord 214
a87752f3	18
a87752f3	19	vsetdispmode result 1
a87752f3	20
f1aa2b62	21	checkcolor $x_coord $y_coord 0.78 0.55 0.9
a87752f3	22
f1aa2b62	23	if { $stat != 1 } {
a87752f3	24	puts "Error : Shading is OFF, but should be ON"
	25	}
	26
	27	vsetdispmode result 0
	28
f1aa2b62	29	checkcolor $x_coord $y_coord 0 1 0
	30
	31	if { $stat != 1 } {
a87752f3	32	puts "Error : Shading is ON, but should be OFF"
	33	}
	34
5747059b	35	checkview -screenshot -3d -path ${imagedir}/${test_image}.png
f1aa2b62	36