Well, that's the last time I take a "Tip of the Day" from Jack. Anyway, Here's Marks white-yellow-orange blend in a scallable version, meaning you can change the screen width and height variables, wdt and hgt, as desired.
wdt = 340
hgt = 580
midInk 255, 255, 255, 255, 255, 0, l / (hgt * .45)
midInk 255, 255, 0, 255, 100, 0, l / (hgt * .45)
LINE (wdt
- 1, l
+ hgt
* .45 + 0)-(0, l
+ hgt
* .45 + 0)
midInk 255, 100, 0, 60, 25, 0, l / (hgt * .45)
LINE (wdt
- 1, l
+ (hgt
* .45 + 0) * 2)-(0, l
+ (hgt
* .45 + 0) * 2)
CALL getparagraph
(wdt
, hgt
, x$
) ' Center with: _PRINTSTRING ((_WIDTH - LEN(s$) * 8) / 2, 232), s$
m = 1
q$
= MID$(x$
, m
, wdt \
8) j = 0: xq$ = q$
j = j + 1
xq$ = xq$ + z$
m = m + 1
cnt = cnt + 1
q$(cnt) = xq$
SUB midInk
(r1%
, g1%
, b1%
, r2%
, g2%
, b2%
, fr##
) COLOR _RGB32(r1%
+ (r2%
- r1%
) * fr##
, g1%
+ (g2%
- g1%
) * fr##
, b1%
+ (b2%
- b1%
) * fr##
)
SUB getparagraph
(wdt
, hgt
, x$
) FOR i
= 1 TO wdt
/ 8 * (hgt
- 16) / 16 x$ = x$ + a$
Pete