DarkCat09/mobilebasic
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Add files via upload

Browse source
This commit is contained in:
Андрей 2021-03-29 20:43:07 +04:00 • committed by GitHub
parent 64c6352265
commit 35131ba393
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
90 changed files with 1738 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

45
Examples/Graphics/setfont.bas Normal file
View file

@ -0,0 +1,45 @@
SUB MAIN
DIM ALPHABET AS STRING
DIM XPOS, YPOS AS INTEGER
ALPHABET="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
XPOS=0
YPOS=40
GRAPHICS
SETCOLOR 0,0,0 // BLACK
CLS
SETCOLOR 255,255,255 // WHITE
SETFONT "MONOSPACE", 20
YPOS=YPOS+STRINGHEIGHT(ALPHABET)
DRAWSTRING ALPHABET,XPOS,YPOS
SETFONT "SANS_SERIF", 20
YPOS=YPOS+STRINGHEIGHT(ALPHABET)
DRAWSTRING ALPHABET,XPOS,YPOS
SETFONT "SERIF", 20
YPOS=YPOS+STRINGHEIGHT(ALPHABET)
DRAWSTRING ALPHABET,XPOS,YPOS
SETCOLOR 255,0,0 // RED
SETFONT "MONOSPACE", 25
YPOS=YPOS+STRINGHEIGHT(ALPHABET)
DRAWSTRING ALPHABET,XPOS,YPOS
SETCOLOR 0,255,0 // GREEN
SETFONT "SANS_SERIF", 30
YPOS=YPOS+STRINGHEIGHT(ALPHABET)
DRAWSTRING ALPHABET,XPOS,YPOS
ROTATE 10
SETCOLOR 0,0,255 // BLUE
SETFONT "SERIF", 35
YPOS=YPOS+STRINGHEIGHT(ALPHABET)
DRAWSTRING ALPHABET,XPOS,YPOS
REPAINT
SLEEP 5000
END SUB