SHOW:
|
|
- or go back to the newest paste.
| 1 | - | const Yellow=14,Red=12 |
| 1 | + | #include "fbgfx.bi" |
| 2 | - | var iCor = Yellow |
| 2 | + | |
| 3 | const ScreenWid=640,ScreenHei=480 | |
| 4 | - | color iCor : iCor xor= (Yellow xor Red) |
| 4 | + | |
| 5 | - | locate 1,1 : print "Price: $3232"; |
| 5 | + | screenres ScreenWid,ScreenHei,8 'setup 640x480x8bpp (256 colors) |
| 6 | - | sleep 200 |
| 6 | + | width ScreenWid\8,ScreenHei\16 'set font size to 8x16 |
| 7 | - | loop |
| 7 | + | |
| 8 | - | |
| 8 | + | 'iDirX is how many pixels it moves per frame (initially 1 (to the right)) |
| 9 | 'since we're going from -10 to 10... that number must be a divisor of 10 | |
| 10 | 'so must be one of 1,2,5 or 10 (this simplify the check) | |
| 11 | dim as integer iOffsetX,iDirX=1 | |
| 12 | dim as integer iPosX,iPosY | |
| 13 | dim as string sSentence = "Hello World" | |
| 14 | ||
| 15 | 'calculate center position for sentence | |
| 16 | iPosX = (ScreenWid-len(sSentence)*8)\2 'horizontal | |
| 17 | iPosY = (ScreenHei-16)\2 'vertical | |
| 18 | ||
| 19 | do | |
| 20 | ||
| 21 | screenlock 'block screen from update | |
| 22 | cls 'clears whole screen (could fill just an area) | |
| 23 | 'draw centered text over right position (in yellow) | |
| 24 | Draw String ( iPosX+iOffsetX , iPosY ) , sSentence , 14 | |
| 25 | ||
| 26 | iOffsetX += iDirX 'change position depending on direction (left/right) | |
| 27 | if iOffsetX = -10 orelse iOffsetX = 10 then | |
| 28 | iDirX = -iDirX 'if it hit side positions invert direction | |
| 29 | end if | |
| 30 | screenunlock 'allow display of the screen | |
| 31 | sleep 30 'waits 30ms... making roughly 30fps | |
| 32 | ||
| 33 | 'draw frames until ESC is pressed | |
| 34 | loop until multikey(fb.SC_ESCAPE) |
