home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2007 November
/
CPNL0711.ISO
/
beeld
/
screen
/
hcf.exe
/
Basic
/
Basic_Pen_003_LineGradient.bas
< prev
next >
Wrap
BASIC Source File
|
2003-11-26
|
2KB
|
65 lines
Image(0).Resample( 600,800 )
Image(0).Color = _ColorWhite
Pen.Width = 30
Pen.StartColor = _ColorBlue
Pen.EndColor = _ColorRed
y = 40
Pen.StartCap = _LineCapRoundAnchor
Pen.EndCap = _LineCapRoundAnchor
Pen.GradientMode = _GradientModeHorizontal
Image(0).Line( 40,y, 300,y )
Image(0).DrawText( 330,y, 0,0 , "_GradientModeHorizontal" )
y = y + 80
Pen.GradientMode = _GradientModeVertical
Image(0).Line( 40,y, 300,y )
Image(0).DrawText( 330,y, 0,0 , "_GradientModeVertical" )
y = y + 80
Pen.GradientMode = _GradientModeForwardDiagonal
Image(0).Line( 40,y, 300,y )
Image(0).DrawText( 330,y, 0,0 , "_GradientModeForwardDiagonal" )
y = y + 80
Pen.GradientMode = _GradientModeBackwardDiagonal
Image(0).Line( 40,y, 300,y )
Image(0).DrawText( 330,y, 0,0 , "_GradientModeBackwardDiagonal" )
y = y + 80
Pen.GradientMode = _GradientModeCenter
Image(0).Line( 40,y, 300,y )
Image(0).DrawText( 330,y, 0,0 , "_GradientModeCenter" )
y = y + 80
Pen.Color = _ColorGreen
Pen.GradientMode = _GradientModeNone
Image(0).Line( 40,y, 300,y )
Image(0).DrawText( 330,y, 0,0 , "_GradientModeNone" )
y = y + 80
'//////////
x = 40
Pen.GradientMode = _GradientModeHorizontal
Image(0).Line( x,y, x,y+200 )
x = x + 100
Pen.GradientMode = _GradientModeVertical
Image(0).Line( x,y, x,y+200 )
x = x + 100
Pen.GradientMode = _GradientModeForwardDiagonal
Image(0).Line( x,y, x,y+200 )
x = x + 100
Pen.GradientMode = _GradientModeBackwardDiagonal
Image(0).Line( x,y, x,y+200 )
x = x + 100
Pen.GradientMode = _GradientModeCenter
Image(0).Line( x,y, x,y+200 )
x = x + 100
Redraw()