Add files via upload
This commit is contained in:
parent
64c6352265
commit
35131ba393
90 changed files with 1738 additions and 0 deletions
32
Examples/Graphics/drawline.bas
Normal file
32
Examples/Graphics/drawline.bas
Normal file
|
@ -0,0 +1,32 @@
|
|||
SUB MAIN
|
||||
DIM HEIGHT, WIDTH AS INTEGER
|
||||
DIM I AS INTEGER
|
||||
|
||||
GRAPHICS
|
||||
|
||||
HEIGHT=SCREENHEIGHT()
|
||||
WIDTH=SCREENWIDTH()
|
||||
|
||||
SETCOLOR 0,0,0 // BLACK
|
||||
CLS
|
||||
|
||||
SETCOLOR 255,255,0 // YELLOW
|
||||
FOR I=0 to WIDTH STEP 5
|
||||
PRINT "I=" + STR$(I)
|
||||
DRAWLINE 0,0,I,HEIGHT
|
||||
END FOR
|
||||
|
||||
SETCOLOR 0,255,255 // CYAN
|
||||
FOR I=0 TO WIDTH STEP 5
|
||||
DRAWLINE WIDTH,0,I,HEIGHT
|
||||
END FOR
|
||||
|
||||
REPAINT
|
||||
|
||||
FOR I=1 TO 10
|
||||
SLEEP 1000
|
||||
TEXT
|
||||
SLEEP 1000
|
||||
GRAPHICS
|
||||
END FOR
|
||||
END SUB
|
Loading…
Add table
Add a link
Reference in a new issue