Adding test cases from chl grid
[occt.git] / tests / bugs / vis / bug21747_13
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 255
29 set G1 0
30 set B1 0
31 set R2 0
32 set G2 0
33 set B2 255
34 set Type 8
35
36 puts "${BugNumber}"
37 puts "Type=CORNER4, Color from RED to BLUE, Direction from LEFT BOTTOM 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