Add files via upload
This commit is contained in:
parent
64c6352265
commit
35131ba393
90 changed files with 1738 additions and 0 deletions
21
Examples/Graphics/drawroundrect.bas
Normal file
21
Examples/Graphics/drawroundrect.bas
Normal file
|
@ -0,0 +1,21 @@
|
|||
SUB MAIN
|
||||
DIM W, H AS INTEGER
|
||||
DIM RW, RH AS INTEGER
|
||||
DIM X, Y AS INTEGER
|
||||
|
||||
GRAPHICS
|
||||
|
||||
W = SCREENWIDTH()
|
||||
H = SCREENHEIGHT()
|
||||
RW = W / 2
|
||||
RH = H / 2
|
||||
X = RW / 2
|
||||
Y = RH / 2
|
||||
|
||||
SETCOLOR 0,0,0
|
||||
CLS
|
||||
SETCOLOR 255,255,255
|
||||
DRAWROUNDRECT X,Y,RW,RH,50,50
|
||||
REPAINT
|
||||
SLEEP 5000
|
||||
END SUB
|
Loading…
Add table
Add a link
Reference in a new issue