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

puts "============"
puts "OCC23363"
puts "============"
puts ""
####################################################################################
# ZBufer trihedron drawn without shading
####################################################################################

vinit
vzbufftrihedron
pcylinder p 100 200
vdisplay p
vsetdispmode p 1
vsetinteriorstyle p 1

set x_coord 59
set y_coord 380
checkcolor $x_coord $y_coord 0.54 0 0
set x_coord 50
set y_coord 362
checkcolor $x_coord $y_coord 0 0.77 0
set x_coord 41
set y_coord 354
checkcolor $x_coord $y_coord 0 0 0.62

set only_screen 1
Commit	Line	Data
3bea4c16	1	puts "============"
	2	puts "OCC23363"
	3	puts "============"
	4	puts ""
	5	####################################################################################
	6	# ZBufer trihedron drawn without shading
	7	####################################################################################
	8
	9	vinit
	10	vzbufftrihedron
	11	pcylinder p 100 200
	12	vdisplay p
	13	vsetdispmode p 1
	14	vsetinteriorstyle p 1
	15
	16	set x_coord 59
	17	set y_coord 380
	18	checkcolor $x_coord $y_coord 0.54 0 0
	19	set x_coord 50
	20	set y_coord 362
	21	checkcolor $x_coord $y_coord 0 0.77 0
	22	set x_coord 41
	23	set y_coord 354
	24	checkcolor $x_coord $y_coord 0 0 0.62
	25
	26	set only_screen 1
	27
	28