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

puts "============"
puts "OCC21757"
puts "============"
puts ""
#######################################################################
# Funny (giraffe-like) shading of torus meshed with specific parameters (WNT)
#######################################################################

set BugNumber OCC21757

vinit
vsetdispmode 1
vclear

# variant 2: alternative implicit method of setting deflection
plane pl2 0 0 200 0 0 1
ptorus result pl2 200 50 45
vdisplay result
vsetshading result 0.0004
vfit
checkcolor 200 200 0.89 0.63 0.109

set only_screen 1
Commit	Line	Data
6fcb77aa	1	puts "============"
	2	puts "OCC21757"
	3	puts "============"
	4	puts ""
	5	#######################################################################
	6	# Funny (giraffe-like) shading of torus meshed with specific parameters (WNT)
	7	#######################################################################
	8
	9	set BugNumber OCC21757
	10
	11	vinit
	12	vsetdispmode 1
	13	vclear
	14
	15	# variant 2: alternative implicit method of setting deflection
	16	plane pl2 0 0 200 0 0 1
	17	ptorus result pl2 200 50 45
	18	vdisplay result
	19	vsetshading result 0.0004
	20	vfit
	21	checkcolor 200 200 0.89 0.63 0.109
	22
	23	set only_screen 1