home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2007 November
/
CPNL0711.ISO
/
beeld
/
screen
/
hcf.exe
/
Basic
/
Basic_Pen_004_LineTolerance.bas
< prev
next >
Wrap
BASIC Source File
|
2003-11-26
|
1KB
|
48 lines
Image(0).Resample( 600,800 )
Image(0).Color = _ColorWhite
Pen.Width = 20
Pen.Color = _ColorBlue
Image(0).Line( 90,0, 90,800 )
Image(0).Line( 160,0, 160,800 )
Image(0).Line( 240,0, 240,800 )
Image(0).Line( 300,0, 300,800 )
Pen.StartColor = _ColorRed
Pen.EndColor = _ColorRed
Pen.StartCap = _LineCapArrowAnchor
Pen.EndCap = _LineCapArrowAnchor
Pen.GradientMode = _GradientModeHorizontal
y = 40
for t = 55 to 255 step 50
Pen.StartTolerance = 0
Pen.EndTolerance = t
Image(0).Line( 40,y, 310,y )
Image(0).DrawText( 330,y, 0,0 , 0 + "," + t )
y = y + 50
next
Pen.StartTolerance = 128
Pen.EndTolerance = 128
Image(0).Line( 40,y, 310,y )
Image(0).DrawText( 330,y, 0,0 , 128 + "," + 128 )
y = y + 50
Pen.StartTolerance = 255
Pen.EndTolerance = 255
Image(0).Line( 40,y, 310,y )
Image(0).DrawText( 330,y, 0,0 , 255 + "," + 255 )
y = y + 50
for t = 55 to 255 step 50
Pen.StartTolerance = t
Pen.EndTolerance = 0
Image(0).Line( 40,y, 310,y )
Image(0).DrawText( 330,y, 0,0 , t + "," + 0 )
y = y + 50
next
Redraw()