Anyone know how to make letters with a transparent background?

[Petr]

COLOR 0,0 can really cut down on typos.

This is Braill mode  :-D

[Pete]

Code: QB64: [Select]

1.    

[Pete]

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.

Code: QB64: [Select]

1. wdt = 340
2. hgt = 580
3. SCREEN _NEWIMAGE(wdt, hgt, 32)
4. _SCREENMOVE 500, 100
5. FOR l = 0 TO hgt * .45
6.     midInk 255, 255, 255, 255, 255, 0, l / (hgt * .45)
7.     LINE (wdt - 1, l)-(0, l)
8.  
9.     midInk 255, 255, 0, 255, 100, 0, l / (hgt * .45)
10.     LINE (wdt - 1, l + hgt * .45 + 0)-(0, l + hgt * .45 + 0)
11.  
12.     midInk 255, 100, 0, 60, 25, 0, l / (hgt * .45)
13.     LINE (wdt - 1, l + (hgt * .45 + 0) * 2)-(0, l + (hgt * .45 + 0) * 2)
14. NEXT
15.  
16. _PRINTMODE _KEEPBACKGROUND
17.  
18. CALL getparagraph(wdt, hgt, x$)
19. COLOR _RGB32(0, 0, 0)
20. ' Center with: _PRINTSTRING ((_WIDTH - LEN(s$) * 8) / 2, 232), s$
21. LOCATE 1, 1
22. REDIM q$(hgt \ 16)
23. m = 1
24. DO
25.     q$ = MID$(x$, m, wdt \ 8)
26.     i = _INSTRREV(q$, " ")
27.     IF i = 0 THEN m = m + wdt \ 8 ELSE m = m + i
28.     q$ = MID$(q$, 1, i)
29.     j = 0: xq$ = q$
30.     DO
31.         j = j + 1
32.         z$ = MID$(x$, m, j)
33.         IF z$ <> " " THEN EXIT DO
34.         xq$ = xq$ + z$
35.         m = m + 1
36.     LOOP
37.     cnt = cnt + 1
38.     q$(cnt) = xq$
39.     PRINT MID$(q$(cnt), 1, wdt \ 8);
40.     IF cnt = hgt \ 16 - 1 THEN EXIT DO
41. LOOP
42. SLEEP
43. SYSTEM
44.  
45. SUB midInk (r1%, g1%, b1%, r2%, g2%, b2%, fr##)
46. COLOR _RGB32(r1% + (r2% - r1%) * fr##, g1% + (g2% - g1%) * fr##, b1% + (b2% - b1%) * fr##)
47. END SUB
48.  
49. SUB getparagraph (wdt, hgt, x$)
50. FOR i = 1 TO wdt / 8 * (hgt - 16) / 16
51.     DO
52.         x = INT(RND * 30) + 1
53.         IF x > 26 THEN
54.             x = -64: IF flag = 0 THEN flag = -1: EXIT DO
55.         ELSE
56.             flag = 0: EXIT DO
57.         END IF
58.     LOOP
59.     a$ = CHR$(96 + x)
60.     x$ = x$ + a$
61. NEXT
62. END SUB
63.  

Pete

[bplus]

Make things more interesting, change width and height with p (plus) m (minus) keypress, PLUS some Braille:

Code: QB64: [Select]

1. _TITLE "Try keypress m or p..."
2. wdt = 800
3. hgt = 600
4. SCREEN _NEWIMAGE(wdt, hgt, 32)
5. _SCREENMOVE 500, 100
6. p = 4
7. DO
8.     k$ = INKEY$
9.     IF k$ = "p" THEN
10.         IF p < 64 THEN p = p * 2 ELSE p = 2
11.         wdt = wdt + 5: hgt = hgt + 5
12.     ELSEIF k$ = "m" THEN
13.         IF p > 2 THEN p = p / 2 ELSE p = 64
14.         wdt = wdt - 5: hgt = hgt - 5
15.     END IF
16.     SCREEN _NEWIMAGE(wdt, hgt, 32)
17.     COLOR 15, 0
18.     CLS
19.  
20.     FOR l = 0 TO hgt * .3333
21.         midInk 255, 255, 255, 255, 255, 0, l / (hgt * .3333)
22.         LINE (wdt - 1, l)-(0, l), , BF
23.  
24.         midInk 255, 255, 0, 255, 100, 0, l / (hgt * .3333)
25.         LINE (wdt - 1, l + hgt * .3333 + 0)-(0, l + hgt * .3333 + 0), , BF
26.  
27.         midInk 255, 100, 0, 60, 25, 0, l / (hgt * .3333)
28.         LINE (wdt - 1, l + (hgt * .3333 + 0) * 2)-(0, l + (hgt * .3333 + 0) * 2), , BF
29.     NEXT
30.     COLOR &HFFFFFF00
31.     FOR y = 0 TO hgt STEP p
32.         FOR x = 0 TO wdt STEP p
33.             IF y MOD 2 * p = 0 THEN
34.                 IF x MOD 2 * p = 0 THEN
35.                     CIRCLE (x, y), 1
36.                     PSET (x, y)
37.                 END IF
38.             ELSEIF y MOD 2 * p = p THEN
39.                 IF x MOD 2 * p = p THEN
40.                     CIRCLE (x, y), 1
41.                     PSET (x, y)
42.                 END IF
43.             END IF
44.         NEXT
45.     NEXT
46.  
47.  
48.     _PRINTMODE _KEEPBACKGROUND
49.  
50.     CALL getparagraph(wdt, hgt, x$)
51.     COLOR _RGB32(0, 0, 0)
52.     ' Center with: _PRINTSTRING ((_WIDTH - LEN(s$) * 8) / 2, 232), s$
53.     LOCATE 1, 1
54.     REDIM q$(hgt \ 16)
55.     m = 1: cnt = 0
56.     DO
57.         q$ = MID$(x$, m, wdt \ 8)
58.         i = _INSTRREV(q$, " ")
59.         IF i = 0 THEN m = m + wdt \ 8 ELSE m = m + i
60.         q$ = MID$(q$, 1, i)
61.         j = 0: xq$ = q$
62.         DO
63.             j = j + 1
64.             z$ = MID$(x$, m, j)
65.             IF z$ <> " " THEN EXIT DO
66.             xq$ = xq$ + z$
67.             m = m + 1
68.         LOOP
69.         cnt = cnt + 1
70.         q$(cnt) = xq$
71.         PRINT MID$(q$(cnt), 1, wdt \ 8);
72.         IF cnt = hgt \ 16 - 1 THEN EXIT DO
73.     LOOP
74.     _DISPLAY
75.     _LIMIT 60
76.  
77. LOOP
78. SLEEP
79. SYSTEM
80.  
81. SUB midInk (r1%, g1%, b1%, r2%, g2%, b2%, fr##)
82.     COLOR _RGB32(r1% + (r2% - r1%) * fr##, g1% + (g2% - g1%) * fr##, b1% + (b2% - b1%) * fr##)
83. END SUB
84.  
85. SUB getparagraph (wdt, hgt, x$)
86.     FOR i = 1 TO wdt / 8 * (hgt - 16) / 16
87.         DO
88.             x = INT(RND * 30) + 1
89.             IF x > 26 THEN
90.                 x = -64: IF flag = 0 THEN flag = -1: EXIT DO
91.             ELSE
92.                 flag = 0: EXIT DO
93.             END IF
94.         LOOP
95.         a$ = CHR$(96 + x)
96.         x$ = x$ + a$
97.     NEXT
98. END SUB
99.  
100.  

EDIT: fix Pete's midInk Math