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

puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
puts "========"
puts "OCC173"
puts "(case 1)"
puts "========"
puts ""
###########################################################
## Impossible to change the material or the transparency of the attached BREP shape. 
###########################################################

restore [locate_data_file OCC173.brep] result
puts [checkshape result]

vinit result
tclean 
vdisplay result
vfit
vsetdispmode result 1

set x_coord 175
set y_coord 195

QAUpdateLights

checkcolor $x_coord $y_coord 1 0.75 0.15

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

########################################################
vsetmaterial result COPPER

QAUpdateLights

checkcolor $x_coord $y_coord 0.77 0.32 0.23

if { $stat != 1 } {
    puts "Error : material of shape is not COPPER"
}

set only_screen 1
Commit	Line	Data
a87752f3	1	puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
	2	puts "========"
	3	puts "OCC173"
	4	puts "(case 1)"
	5	puts "========"
	6	puts ""
	7	###########################################################
	8	## Impossible to change the material or the transparency of the attached BREP shape.
	9	###########################################################
	10
	11	restore [locate_data_file OCC173.brep] result
	12	puts [checkshape result]
	13
	14	vinit result
	15	tclean
	16	vdisplay result
	17	vfit
	18	vsetdispmode result 1
	19
f1aa2b62	20	set x_coord 175
	21	set y_coord 195
	22
a87752f3	23	QAUpdateLights
a87752f3	24
f1aa2b62	25	checkcolor $x_coord $y_coord 1 0.75 0.15
a87752f3	26
f1aa2b62	27	if { $stat != 1 } {
a87752f3	28	puts "Error : Shading is missing in 3D Viewer"
	29	}
	30
	31	########################################################
	32	vsetmaterial result COPPER
	33
	34	QAUpdateLights
a87752f3	35
f1aa2b62	36	checkcolor $x_coord $y_coord 0.77 0.32 0.23
	37
	38	if { $stat != 1 } {
	39	puts "Error : material of shape is not COPPER"
a87752f3	40	}
	41
	42	set only_screen 1