Fading

Fading by Rick D. Clark

'text fade in and out.
Option Explicit

Declare Sub CenterText(row As Integer, mess As String)

#Define cstep 1
Const fbBlack = Rgb(0, 0, 0)

Screen 18, 32

Dim As Integer r, g, b, ccolor, fadedir
Dim mytext As String
Dim skey As String

mytext = "Ascii-World.com"
Do
skey = Inkey$
ccolor = Rgb(r, g, b)
Color ccolor, fbBlack
CenterText 15, mytext
'try setting one or two of the vars below to constant values
'you'll get fades with different colors
'for example set
'g = 50
'and comment out the g+= g-=
If fadedir = 0 Then
r += cstep
g += cstep
b += cstep
Else
r -= cstep
g -= cstep
b -= cstep
End If
If r = 255 Then
fadedir = 1
End If
Sleep 10
Loop Until skey = Chr$(27)

'center text on row
Sub CenterText(row As Integer, mess As String)
Locate row, 40 - (Len(mess) / 2)
Print mess;
End Sub

Fadin by Rattrapmax6

SCREENRES 300, 200, 32, 2, 1
'LOCATE 25, 37: PRINT "A";

DIM AS INTEGER P1, P2 = 1
DIM AS SINGLE X, Y, XV, YV, V
DIM AS STRING TEXT, FADE
DIM scr(300 * 200 * 4 + 4)

TEXT = "www.ASCII-World.com"
'###############################################
FADE = "Mid" ' Short, Mid, or Long (Try each!!!)
'###############################################

X = 12: Y = (LEN(TEXT)\2) - 18
XV = 1: YV = 1

T! = TIMER
RATE = 9
DO
SCREENSET P2, P1
SWAP P2, P1
CLS
IF UCASE$(FADE) = "LONG" THEN PUT (0,0), scr(0), alpha, 254
IF UCASE$(FADE) = "MID" THEN PUT (0,0), scr(0), alpha, 250
IF UCASE$(FADE) = "SHORT" THEN PUT (0,0), scr(0), alpha, 240
IF UCASE$(FADE) = "" THEN PUT (0,0), scr(0), alpha, 250

IF (TIMER - T!) <> 0 THEN FPS = F / (TIMER - T!)
IF FPS <> 0 THEN V = RATE / FPS
F += 1

IF INT(X) = 1 THEN XV = V
IF INT(Y) = 1 THEN YV = V
IF INT(X) = (37 - LEN(TEXT)) THEN XV = -V
IF INT(Y) = 25 THEN YV = -V
Y += YV
X += XV
LOCATE INT(Y), INT(X): PRINT TEXT;
GET (0, 0)-(299, 199), @scr(0)
SLEEP 10
LOOP UNTIL INKEY$ = CHR$(27)
Unless otherwise stated, the content of this page is licensed under Creative Commons Attribution-Share Alike 2.5 License.