Adding test cases from chl grid
[occt.git] / tests / bugs / vis / bug21747_9
CommitLineData
3bea4c16 1puts "TODO ?OCC12345 ALL: An exception was caught"
2puts "TODO ?OCC12345 ALL: \\*\\* Exception \\*\\*.*"
3puts "TODO ?OCC12345 ALL: TEST INCOMPLETE"
4puts "============"
5puts "OCC21747"
6puts "Customer : TATA"
7puts "============"
8puts ""
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
27set BugNumber OCC21747
28
29vinit
30
31set R1 0
32set G1 0
33set B1 255
34set R2 255
35set G2 0
36set B2 0
37set Type 4
38
39puts "${BugNumber}"
40puts "Type=DIAGONAL2, Color from BLUE to RED, Direction from RIGHT TOP CORNER to LEFT BOTTOM CORNER"
41puts "R1=${R1} G1=${G1} B1=${B1} R2=${R2} G2=${G2} B2=${B2} Type=${Type}"
42
43vsetgradientbg ${R1} ${G1} ${B1} ${R2} ${G2} ${B2} ${Type}
44
45set only_screen 1