home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2007 November
/
CPNL0711.ISO
/
beeld
/
screen
/
hcf.exe
/
Basic
/
Basic_Pen_001_LineCap.bas
< prev
next >
Wrap
BASIC Source File
|
2003-11-26
|
2KB
|
76 lines
Image(0).Resample( 600,600 )
Image(0).Color = _ColorWhite
Pen.Width = 10
Pen.Color = _ColorBlue
y = 20
Image(0).Line( 20,y, 300,y )
Image(0).DrawText( 320,y, 0,0 , "Standard ( _LineCapFlat )" )
y = y + 40
Pen.EndCap = _LineCapSquare
Image(0).Line( 20,y, 300,y )
Image(0).DrawText( 320,y, 0,0 , "_LineCapSquare" )
y = y + 40
Pen.EndCap = _LineCapRound
Image(0).Line( 20,y, 300,y )
Image(0).DrawText( 320,y, 0,0 , "_LineCapRound" )
y = y + 40
Pen.EndCap = _LineCapTriangle
Image(0).Line( 20,y, 300,y )
Image(0).DrawText( 320,y, 0,0 , "_LineCapTriangle" )
y = y + 40
Pen.EndCap = _LineCapNoAnchor
Image(0).Line( 20,y, 300,y )
Image(0).DrawText( 320,y, 0,0 , "_LineCapNoAnchor" )
y = y + 40
Pen.EndCap = _LineCapSquareAnchor
Image(0).Line( 20,y, 300,y )
Image(0).DrawText( 320,y, 0,0 , "_LineCapSquareAnchor" )
y = y + 40
Pen.EndCap = _LineCapRoundAnchor
Image(0).Line( 20,y, 300,y )
Image(0).DrawText( 320,y, 0,0 , "_LineCapRoundAnchor" )
y = y + 40
Pen.EndCap = _LineCapDiamondAnchor
Image(0).Line( 20,y, 300,y )
Image(0).DrawText( 320,y, 0,0 , "_LineCapDiamondAnchor" )
y = y + 40
Pen.EndCap = _LineCapArrowAnchor
Image(0).Line( 20,y, 300,y )
Image(0).DrawText( 320,y, 0,0 , "_LineCapArrowAnchor" )
y = y + 40
Pen.StartCap = _LineCapFlat
Pen.EndCap = _LineCapFlat
Image(0).Line( 20,y, 300,y )
Image(0).Line( 300,y, 300,y+40 )
Image(0).DrawText( 320,y, 0,0 , "_LineCapFlat, _LineCapFlat" )
y = y + 60
Pen.StartCap = _LineCapSquare
Pen.EndCap = _LineCapSquare
Image(0).Line( 20,y, 300,y )
Image(0).Line( 300,y, 300,y+40 )
Image(0).DrawText( 320,y, 0,0 , "_LineCapSquare, _LineCapSquare" )
y = y + 60
Pen.StartCap = _LineCapRoundAnchor
Pen.EndCap = _LineCapSquare
Image(0).Line( 20,y, 300,y )
Pen.StartCap = _LineCapSquare
Pen.EndCap = _LineCapArrowAnchor
Image(0).Line( 300,y, 300,y+40 )
Image(0).DrawText( 320,y, 0,0 , "_LineCapRoundAnchor, _LineCapArrowAnchor" )
y = y + 60
Redraw()