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

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 0
set G1 0
set B1 255
set R2 255
set G2 0
set B2 0
set Type 5

puts "${BugNumber}"
puts "Type=CORNER1, Color from BLUE to RED, Direction from LEFT TOP 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 "============"
	2	puts "OCC21747"
	3	puts "Customer : TATA"
	4	puts "============"
	5	puts ""
	6	#######################################################################
	7	# Implementation of gradient background style
	8	#
	9	# vsetgradientbg: vsetgradientbg R1 G1 B1 R2 G2 B2 Type
	10	# R1\G1\B1 - First color [0..255]
	11	# R2\G2\B2 - Second color [0..255]
	12	# Type 0 to 8
	13	# 0 = NONE,
	14	# 1 = HORIZONTAL,
	15	# 2 = VERTICAL,
	16	# 3 = DIAGONAL1,
	17	# 4 = DIAGONAL2,
	18	# 5 = CORNER1,
	19	# 6 = CORNER2,
	20	# 7 = CORNER3,
	21	# 8 = CORNER4
	22	#######################################################################
	23
	24	set BugNumber OCC21747
	25
	26	vinit
	27
	28	set R1 0
	29	set G1 0
	30	set B1 255
	31	set R2 255
	32	set G2 0
	33	set B2 0
	34	set Type 5
	35
	36	puts "${BugNumber}"
	37	puts "Type=CORNER1, Color from BLUE to RED, Direction from LEFT TOP CORNER"
	38	puts "R1=${R1} G1=${G1} B1=${B1} R2=${R2} G2=${G2} B2=${B2} Type=${Type}"
	39
	40	vsetgradientbg ${R1} ${G1} ${B1} ${R2} ${G2} ${B2} ${Type}
	41
	42	set only_screen 1