I have 2 problem with brsuh gradient :
1) I have make "Brush 1" with multicolor gradient and the "Brush 2" with gradient "#BLACK" and "#WHITE". The Brush 2 Display the multicolor gradient of the Brush 1 is it a Bug?
2) BOX(0,0,180,20) ; <- Small height compress gradient ???
BOX(0,50,180,100) ; <- Big height expanded gradient ???
(See down script)
---
Code: Select all
@DISPLAY 1,{width=640,height=480,Color=#GRAY,Borderless=1}
CreateBrush(1,640,40,#SILVER)
SelectBrush(1)
SetFillStyle(#FILLGRADIENT,#LINEAR,0,0,90,{Colors = {#RED, 0,#YELLOW,0.2,#LIME, 0.3, #AQUA, 0.4, #BLUE, 0.6, #PURPLE, 0.7,#FUCHSIA, 0.8,#RED, 1}})
BOX(0,0,640,600)
EndSelect
ScaleBrush(1,255,50)
DisplayBrush(1,0,0)
/**/
CreateBrush(2,180,100,#GRAY)
SelectBrush(2)
SetFillStyle(#FILLGRADIENT,#LINEAR,#BLACK,#WHITE,90)
BOX(0,0,180,20) ; <- Small height compress gradient ???
BOX(0,50,180,100) ; <- Big height expanded gradient ???
EndSelect
DisplayBrush(2,0,80)
/****************************************************************************/
EscapeQuit(True)
/* Loops */
Repeat
WaitEvent
Forever