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

puts "TODO ?OCC12345 ALL: An exception was caught"
puts "TODO ?OCC12345 ALL: \\*\\* Exception \\*\\*.*"
puts "TODO ?OCC12345 ALL: TEST INCOMPLETE"
puts "============"
puts "OCC21747"
puts "Customer : TATA"
puts "============"
puts ""
#######################################################################
# Implementation of gradient background style 
# 
# vsetgradientbg: vsetgradientbg R1 G1 B1 R2 G2 B2 Type
# R1\G1\B1 - First color [0..255]
# R2\G2\B2 - Second color [0..255]
# Type 0 to 8
# 0 = NONE,
# 1 = HORIZONTAL,
# 2 = VERTICAL,
# 3 = DIAGONAL1,
# 4 = DIAGONAL2,
# 5 = CORNER1,
# 6 = CORNER2,
# 7 = CORNER3,
# 8 = CORNER4
#######################################################################

set BugNumber OCC21747

vinit

set R1 255
set G1 0
set B1 0
set R2 0
set G2 0
set B2 255
set Type 4

puts "${BugNumber}"
puts "Type=DIAGONAL2, Color from RED to BLUE, Direction from RIGHT TOP CORNER to LEFT BOTTOM CORNER"
puts "R1=${R1} G1=${G1} B1=${B1} R2=${R2} G2=${G2} B2=${B2} Type=${Type}"

vsetgradientbg ${R1} ${G1} ${B1} ${R2} ${G2} ${B2} ${Type}

set only_screen 1
Commit	Line	Data
3bea4c16	1	puts "TODO ?OCC12345 ALL: An exception was caught"
	2	puts "TODO ?OCC12345 ALL: \\\\ Exception \\\\.*"
	3	puts "TODO ?OCC12345 ALL: TEST INCOMPLETE"
	4	puts "============"
	5	puts "OCC21747"
	6	puts "Customer : TATA"
	7	puts "============"
	8	puts ""
	9	#######################################################################
	10	# Implementation of gradient background style
	11	#
	12	# vsetgradientbg: vsetgradientbg R1 G1 B1 R2 G2 B2 Type
	13	# R1\G1\B1 - First color [0..255]
	14	# R2\G2\B2 - Second color [0..255]
	15	# Type 0 to 8
	16	# 0 = NONE,
	17	# 1 = HORIZONTAL,
	18	# 2 = VERTICAL,
	19	# 3 = DIAGONAL1,
	20	# 4 = DIAGONAL2,
	21	# 5 = CORNER1,
	22	# 6 = CORNER2,
	23	# 7 = CORNER3,
	24	# 8 = CORNER4
	25	#######################################################################
	26
	27	set BugNumber OCC21747
	28
	29	vinit
	30
	31	set R1 255
	32	set G1 0
	33	set B1 0
	34	set R2 0
	35	set G2 0
	36	set B2 255
	37	set Type 4
	38
	39	puts "${BugNumber}"
	40	puts "Type=DIAGONAL2, Color from RED to BLUE, Direction from RIGHT TOP CORNER to LEFT BOTTOM CORNER"
	41	puts "R1=${R1} G1=${G1} B1=${B1} R2=${R2} G2=${G2} B2=${B2} Type=${Type}"
	42
	43	vsetgradientbg ${R1} ${G1} ${B1} ${R2} ${G2} ${B2} ${Type}
	44
	45	set only_screen 1