Adding test cases from chl grid
[occt.git] / tests / bugs / vis / bug21747_9
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 0
32 set G1 0
33 set B1 255
34 set R2 255
35 set G2 0
36 set B2 0
37 set Type 4
38
39 puts "${BugNumber}"
40 puts "Type=DIAGONAL2, Color from BLUE to RED, 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