0029768: Visualization, TKOpenGl - structure is entirely clipped by suppressed clipping
[occt.git] / tests / bugs / vis / bug21747_14
CommitLineData
3bea4c16 1puts "============"
2puts "OCC21747"
3bea4c16 3puts "============"
4puts ""
5#######################################################################
6# Implementation of gradient background style
7#
8# vsetgradientbg: vsetgradientbg R1 G1 B1 R2 G2 B2 Type
9# R1\G1\B1 - First color [0..255]
10# R2\G2\B2 - Second color [0..255]
11# Type 0 to 8
12# 0 = NONE,
13# 1 = HORIZONTAL,
14# 2 = VERTICAL,
15# 3 = DIAGONAL1,
16# 4 = DIAGONAL2,
17# 5 = CORNER1,
18# 6 = CORNER2,
19# 7 = CORNER3,
20# 8 = CORNER4
21#######################################################################
22
23set BugNumber OCC21747
24
25vinit
26
27set R1 0
28set G1 0
29set B1 255
30set R2 255
31set G2 0
32set B2 0
33set Type 5
34
35puts "${BugNumber}"
36puts "Type=CORNER1, Color from BLUE to RED, Direction from LEFT TOP CORNER"
37puts "R1=${R1} G1=${G1} B1=${B1} R2=${R2} G2=${G2} B2=${B2} Type=${Type}"
38
39vsetgradientbg ${R1} ${G1} ${B1} ${R2} ${G2} ${B2} ${Type}
40
5747059b 41checkview -screenshot -3d -path ${imagedir}/${test_image}.png