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

puts "================"
puts "OCC22900"
puts "================"
puts ""
#######################################################################################
# Problem with shape displaying in shading mode
######################################################################################

set BugNumber OCC22900

set x1 204
set y1 202

vertex v1 0 0 0
vertex v2 0 0 30
edge e1 v1 v2
pcone con1 5 0 10
ttranslate con1 0 0 30
compound con1 e1 c1
don c1
fit
vinit
vdisplay c1
vfit
vsetcolor c1 RED
vsetcolor c1 GREEN
vsetdispmode 1
vsetcolor c1 RED

checkcolor ${x1} ${y1}] 1 0 0

set only_screen 1
Commit	Line	Data
3bea4c16	1	puts "================"
	2	puts "OCC22900"
	3	puts "================"
	4	puts ""
	5	#######################################################################################
	6	# Problem with shape displaying in shading mode
	7	######################################################################################
	8
	9	set BugNumber OCC22900
	10
	11	set x1 204
	12	set y1 202
	13
	14	vertex v1 0 0 0
	15	vertex v2 0 0 30
	16	edge e1 v1 v2
	17	pcone con1 5 0 10
	18	ttranslate con1 0 0 30
	19	compound con1 e1 c1
	20	don c1
	21	fit
	22	vinit
	23	vdisplay c1
	24	vfit
	25	vsetcolor c1 RED
	26	vsetcolor c1 GREEN
	27	vsetdispmode 1
	28	vsetcolor c1 RED
	29
	30	checkcolor ${x1} ${y1}] 1 0 0
	31
	32	set only_screen 1