mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
43 lines
911 B
Plaintext
Executable File
43 lines
911 B
Plaintext
Executable File
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 6
|
|
|
|
puts "${BugNumber}"
|
|
puts "Type=CORNER2, Color from BLUE to RED, Direction from RIGHT 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
|