Text Enlarger

[SierraKen]

This program lets you choose a font color and background color and lets you change the font size using the arrow keys. This could be used in games and programs for opening screens, etc. This also can be used to make signs or whatever you wish.  I used a couple of lines of math from an old 90's program called Wormhole someone made and put online back then to make this program. You also can save the picture as a .bmp file as well as keep making more of them. The commands are in the Title Bar. After it shows your text, you can use the up and down arrow keys to make it larger or smaller. But don't hold down the keys, there's some bug that skips over my lines that stop it from getting too large if you hold it down. S goes to the Save screen to save as a .BMP, Space Bar lets to start over and make new text, and Esc ends the program.  This does not use any other files, such as fonts, etc (besides the .bmp pictures you save). It uses pure math to change the font size. 

Have fun!

(Note: A better version with mixed colors for the text is after this one.)

Code: QB64: [Select]

1. 'Feel free to use any of this code in your own programs or games.
2. 'Thank you to the maker of a 1990's program called Wormhole.bas that was put online back then.
3. 'Made on November 6, 2019 by Ken G.
4. start:
5. _LIMIT 200
6. bb = 0
7. sz = 2
8. CLS
9. SCREEN _NEWIMAGE(800, 600, 256)
10. COLOR 15
11. PRINT "                     Big Text  - by Ken G."
12. PRINT: PRINT: PRINT
13. PRINT "This program will make your small text to a larger text in your choice of colors."
14. PRINT "Use the up and down arrow keys to make your text larger or smaller."
15. PRINT "Then you can save it as a .BMP file if you wish."
16. PRINT
17. PRINT "Type a word here or just Enter to quit (23 letters, numbers, symbols, or spaces maximum)."
18. INPUT "-> "; a$
19. IF a$ = "" THEN END
20. CLS
21. PRINT
22. PRINT "Color Chart"
23. FOR cc = 1 TO 15
24.     COLOR cc
25.     PRINT "Color Number = "; cc
26.     more:
27. NEXT cc
28. COLOR 15
29. PRINT
30. INPUT "Type a color number for the background or just Enter for black:"; bb
31. PRINT
32. INPUT "Type a color number for the text:", cl
33. go:
34. CLS
35. LOCATE 1, 27
36. 'First print the text normally in color 1.
37. COLOR 1
38. PRINT a$
39. 'Then detect the text above using POINT and draw the large text.
40. FOR a = 0 TO 800 STEP 1 / sz
41.     FOR b = 0 TO 20 STEP 1 / sz
42.         IF POINT(a, b) > 0 THEN LINE ((a - 196) * sz, b * sz + 50)-((a - 196) * sz + 2, b * sz + 52), cl, BF
43.     NEXT b
44. NEXT a
45. 'Erase the original small text using the background color you chose.
46. LINE (0, 0)-(800, 20), bb, BF
47. IF bb = 0 THEN GOTO skipthis:
48. 'Paint the rest of the screen white if you chose that.
49. FOR x = 0 TO 800
50.     FOR y = 0 TO 600
51.         IF POINT(x, y) <> 0 THEN GOTO nex:
52.         PSET (x, y), bb
53.         nex:
54.     NEXT y
55. NEXT x
56. skipthis:
57. COLOR 15
58. _TITLE "(S)ave Image, Up and Down Arrow Keys to make text bigger or smaller, Space Bar for a new one, Esc to Quit."
59. 'Make a loop here so people can choose to save, make more, or quit.
60. DO
61.     _LIMIT 200
62.     t$ = INKEY$
63.     IF t$ = CHR$(0) + CHR$(72) THEN sz = sz + .5: GOTO go:
64.     IF t$ = CHR$(0) + CHR$(80) THEN sz = sz - .5: GOTO go:
65.     IF sz < 2 THEN sz = 2
66.     IF sz > 15 THEN sz = 15
67.     IF t$ = "s" OR t$ = "S" THEN GOTO saving:
68.     IF t$ = " " THEN GOTO start:
69.     IF t$ = CHR$(27) THEN END
70. LOOP
71.  
72. 'The rest of this program is the saving code to save as a .bmp picture.
73. saving:
74. 'Now we call up the SUB to save the image to BMP.
75. SaveImage 0, "temp.bmp"
76. _DELAY .25
77. SCREEN 0
78. CLS
79. COLOR 15
80. PRINT "                   Saving"
81. PRINT
82. PRINT "     Your BMP file will be saved in the"
83. PRINT "     same directory as this program is."
84. PRINT "     It can be used with almost any"
85. PRINT "     other graphics program or website."
86. PRINT "     It is saved using:"
87. PRINT "     width: 800  height: 600 pixels."
88. PRINT
89. PRINT "     Type a name to save your picture"
90. PRINT "     and press the Enter key. Do not"
91. PRINT "     add .bmp at the end, the program"
92. PRINT "     will do it automatically."
93. PRINT
94. PRINT "     Also do not use the name temp"
95. PRINT "     because the program uses that name"
96. PRINT "     and it would be erased the next time"
97. PRINT "     you save a picture."
98. PRINT "     Example: MyPic"
99. PRINT "     Quit and Enter key ends program."
100. PRINT
101. INPUT "->"; nm$
102. IF nm$ = "Quit" OR nm$ = "quit" OR nm$ = "QUIT" THEN END
103. nm$ = nm$ + ".bmp"
104. 'Checking to see if the file already exists on your computer.
105. theFileExists = _FILEEXISTS(nm$)
106. IF theFileExists = -1 THEN
107.     PRINT "     File Already Exists"
108.     PRINT "     Saving will delete your old"
109.     PRINT "     bmp picture."
110.     PRINT "     Would you like to still do it?"
111.     PRINT "     (Y/N). Esc ends program."
112.     llloop:
113.     _LIMIT 10
114.     ag2$ = INKEY$
115.     IF ag2$ = "" THEN GOTO llloop:
116.     IF ag2$ = "y" OR ag$ = "Y" THEN GOTO saving2:
117.     IF ag2$ = CHR$(27) THEN END
118.     GOTO saving:
119. END IF
120. saving2:
121. NAME "temp.bmp" AS nm$
122.  
123. nm$ = ""
124. FOR snd = 100 TO 700 STEP 100
125.     SOUND snd, 2
126. NEXT snd
127. CLS
128. GOTO start:
129.  
130. 'Here is the SUB needed to save the image to BMP.
131. 'It also can be used for BMP pictures on your own program.
132. SUB SaveImage (image AS LONG, filename AS STRING)
133.     bytesperpixel& = _PIXELSIZE(image&)
134.     IF bytesperpixel& = 0 THEN PRINT "Text modes unsupported!": END
135.     IF bytesperpixel& = 1 THEN bpp& = 8 ELSE bpp& = 24
136.     x& = _WIDTH(image&)
137.     y& = _HEIGHT(image&)
138.     b$ = "BM????QB64????" + MKL$(40) + MKL$(x&) + MKL$(y&) + MKI$(1) + MKI$(bpp&) + MKL$(0) + "????" + STRING$(16, 0) 'partial BMP header info(???? to be filled later)
139.     IF bytesperpixel& = 1 THEN
140.         FOR c& = 0 TO 255 ' read BGR color settings from JPG image + 1 byte spacer(CHR$(0))
141.             cv& = _PALETTECOLOR(c&, image&) ' color attribute to read.
142.             b$ = b$ + CHR$(_BLUE32(cv&)) + CHR$(_GREEN32(cv&)) + CHR$(_RED32(cv&)) + CHR$(0) 'spacer byte
143.         NEXT
144.     END IF
145.     MID$(b$, 11, 4) = MKL$(LEN(b$)) ' image pixel data offset(BMP header)
146.     lastsource& = _SOURCE
147.     _SOURCE image&
148.     IF ((x& * 3) MOD 4) THEN padder$ = STRING$(4 - ((x& * 3) MOD 4), 0)
149.     FOR py& = y& - 1 TO 0 STEP -1 ' read JPG image pixel color data
150.         r$ = ""
151.         FOR px& = 0 TO x& - 1
152.             c& = POINT(px&, py&) 'POINT 32 bit values are large LONG values
153.             IF bytesperpixel& = 1 THEN r$ = r$ + CHR$(c&) ELSE r$ = r$ + LEFT$(MKL$(c&), 3)
154.         NEXT px&
155.         d$ = d$ + r$ + padder$
156.     NEXT py&
157.     _SOURCE lastsource&
158.     MID$(b$, 35, 4) = MKL$(LEN(d$)) ' image size(BMP header)
159.     b$ = b$ + d$ ' total file data bytes to create file
160.     MID$(b$, 3, 4) = MKL$(LEN(b$)) ' size of data file(BMP header)
161.     IF LCASE$(RIGHT$(filename$, 4)) <> ".bmp" THEN ext$ = ".bmp"
162.     f& = FREEFILE
163.     OPEN filename$ + ext$ FOR OUTPUT AS #f&: CLOSE #f& ' erases an existing file
164.     OPEN filename$ + ext$ FOR BINARY AS #f&
165.     PUT #f&, , b$
166.     CLOSE #f&
167. END SUB
168.  

[SierraKen]

I added something most paint programs don't have, mixed colors on the text! You select it in the beginning when it asks you.

(Note: Another update is after this one with a much better looking mixed colors of text.)

Code: QB64: [Select]

1. 'Feel free to use any of this code in your own programs or games.
2. 'Thank you to the maker of a 1990's program called Wormhole.bas that was put online back then.
3. 'Made on November 6, 2019 by Ken G.
4. start:
5. _LIMIT 200
6. bb = 0
7. sz = 2
8. mm = 0
9. CLS
10. SCREEN _NEWIMAGE(800, 600, 256)
11. COLOR 15
12. PRINT "                     Big Text  - by Ken G."
13. PRINT: PRINT: PRINT
14. PRINT "This program will make your small text to a larger text in your choice of colors."
15. PRINT "Use the up and down arrow keys to make your text larger or smaller."
16. PRINT "Then you can save it as a .BMP file if you wish."
17. PRINT
18. PRINT "Type a word here or just Enter to quit (23 letters, numbers, symbols, or spaces maximum)."
19. INPUT "-> "; a$
20. IF a$ = "" THEN END
21. CLS
22. PRINT
23. PRINT "Color Chart"
24. FOR cc = 1 TO 15
25.     COLOR cc
26.     PRINT "Color Number = "; cc
27.     more:
28. NEXT cc
29. COLOR 15
30. PRINT
31. INPUT "Type a color number for the background or just Enter for black:"; bb
32. PRINT
33. INPUT "Do you want mixed colors (Y/N):"; m$
34. IF LEFT$(m$, 1) = "y" OR LEFT$(m$, 1) = "Y" THEN mm = 1: GOTO go:
35. PRINT
36. INPUT "Type a color number for the text:", cl
37. go:
38. CLS
39. LOCATE 1, 27
40. 'First print the text normally in color 1.
41. COLOR 1
42. PRINT a$
43. 'Then detect the text above using POINT and draw the large text.
44. FOR a = 0 TO 800 STEP 1 / sz
45.     FOR b = 0 TO 20 STEP 1 / sz
46.         IF mm = 1 THEN
47.             cl = cl + 1 / sz
48.             IF cl > 15 THEN cl = 1
49.         END IF
50.         IF POINT(a, b) > 0 THEN LINE ((a - 196) * sz, b * sz + 50)-((a - 196) * sz + 2, b * sz + 52), cl, BF
51.     NEXT b
52.     IF mm = 1 THEN cl = 1
53. NEXT a
54. 'Erase the original small text using the background color you chose.
55. LINE (0, 0)-(800, 20), bb, BF
56. IF bb = 0 THEN GOTO skipthis:
57. 'Paint the rest of the screen white if you chose that.
58. FOR x = 0 TO 800
59.     FOR y = 0 TO 600
60.         IF POINT(x, y) <> 0 THEN GOTO nex:
61.         PSET (x, y), bb
62.         nex:
63.     NEXT y
64. NEXT x
65. skipthis:
66. COLOR 15
67. _TITLE "(S)ave Image, Up and Down Arrow Keys to make text bigger or smaller, Space Bar for a new one, Esc to Quit."
68. 'Make a loop here so people can choose to save, make more, or quit.
69. DO
70.     _LIMIT 200
71.     t$ = INKEY$
72.     IF t$ = CHR$(0) + CHR$(72) THEN
73.         sz = sz + .5
74.         IF mm = 1 THEN cl = 1
75.         GOTO go:
76.     END IF
77.     IF t$ = CHR$(0) + CHR$(80) THEN
78.         sz = sz - .5
79.         IF mm = 1 THEN cl = 1
80.         GOTO go:
81.     END IF
82.     IF sz < 2 THEN sz = 2
83.     IF sz > 15 THEN sz = 15
84.     IF t$ = "s" OR t$ = "S" THEN GOTO saving:
85.     IF t$ = " " THEN GOTO start:
86.     IF t$ = CHR$(27) THEN END
87. LOOP
88.  
89. 'The rest of this program is the saving code to save as a .bmp picture.
90. saving:
91. 'Now we call up the SUB to save the image to BMP.
92. SaveImage 0, "temp.bmp"
93. _DELAY .25
94. SCREEN 0
95. CLS
96. COLOR 15
97. PRINT "                   Saving"
98. PRINT
99. PRINT "     Your BMP file will be saved in the"
100. PRINT "     same directory as this program is."
101. PRINT "     It can be used with almost any"
102. PRINT "     other graphics program or website."
103. PRINT "     It is saved using:"
104. PRINT "     width: 800  height: 600 pixels."
105. PRINT
106. PRINT "     Type a name to save your picture"
107. PRINT "     and press the Enter key. Do not"
108. PRINT "     add .bmp at the end, the program"
109. PRINT "     will do it automatically."
110. PRINT
111. PRINT "     Also do not use the name temp"
112. PRINT "     because the program uses that name"
113. PRINT "     and it would be erased the next time"
114. PRINT "     you save a picture."
115. PRINT "     Example: MyPic"
116. PRINT "     Quit and Enter key ends program."
117. PRINT
118. INPUT "->"; nm$
119. IF nm$ = "Quit" OR nm$ = "quit" OR nm$ = "QUIT" THEN END
120. nm$ = nm$ + ".bmp"
121. 'Checking to see if the file already exists on your computer.
122. theFileExists = _FILEEXISTS(nm$)
123. IF theFileExists = -1 THEN
124.     PRINT "     File Already Exists"
125.     PRINT "     Saving will delete your old"
126.     PRINT "     bmp picture."
127.     PRINT "     Would you like to still do it?"
128.     PRINT "     (Y/N). Esc ends program."
129.     llloop:
130.     _LIMIT 10
131.     ag2$ = INKEY$
132.     IF ag2$ = "" THEN GOTO llloop:
133.     IF ag2$ = "y" OR ag$ = "Y" THEN GOTO saving2:
134.     IF ag2$ = CHR$(27) THEN END
135.     GOTO saving:
136. END IF
137. saving2:
138. NAME "temp.bmp" AS nm$
139.  
140. nm$ = ""
141. FOR snd = 100 TO 700 STEP 100
142.     SOUND snd, 2
143. NEXT snd
144. CLS
145. GOTO start:
146.  
147. 'Here is the SUB needed to save the image to BMP.
148. 'It also can be used for BMP pictures on your own program.
149. SUB SaveImage (image AS LONG, filename AS STRING)
150.     bytesperpixel& = _PIXELSIZE(image&)
151.     IF bytesperpixel& = 0 THEN PRINT "Text modes unsupported!": END
152.     IF bytesperpixel& = 1 THEN bpp& = 8 ELSE bpp& = 24
153.     x& = _WIDTH(image&)
154.     y& = _HEIGHT(image&)
155.     b$ = "BM????QB64????" + MKL$(40) + MKL$(x&) + MKL$(y&) + MKI$(1) + MKI$(bpp&) + MKL$(0) + "????" + STRING$(16, 0) 'partial BMP header info(???? to be filled later)
156.     IF bytesperpixel& = 1 THEN
157.         FOR c& = 0 TO 255 ' read BGR color settings from JPG image + 1 byte spacer(CHR$(0))
158.             cv& = _PALETTECOLOR(c&, image&) ' color attribute to read.
159.             b$ = b$ + CHR$(_BLUE32(cv&)) + CHR$(_GREEN32(cv&)) + CHR$(_RED32(cv&)) + CHR$(0) 'spacer byte
160.         NEXT
161.     END IF
162.     MID$(b$, 11, 4) = MKL$(LEN(b$)) ' image pixel data offset(BMP header)
163.     lastsource& = _SOURCE
164.     _SOURCE image&
165.     IF ((x& * 3) MOD 4) THEN padder$ = STRING$(4 - ((x& * 3) MOD 4), 0)
166.     FOR py& = y& - 1 TO 0 STEP -1 ' read JPG image pixel color data
167.         r$ = ""
168.         FOR px& = 0 TO x& - 1
169.             c& = POINT(px&, py&) 'POINT 32 bit values are large LONG values
170.             IF bytesperpixel& = 1 THEN r$ = r$ + CHR$(c&) ELSE r$ = r$ + LEFT$(MKL$(c&), 3)
171.         NEXT px&
172.         d$ = d$ + r$ + padder$
173.     NEXT py&
174.     _SOURCE lastsource&
175.     MID$(b$, 35, 4) = MKL$(LEN(d$)) ' image size(BMP header)
176.     b$ = b$ + d$ ' total file data bytes to create file
177.     MID$(b$, 3, 4) = MKL$(LEN(b$)) ' size of data file(BMP header)
178.     IF LCASE$(RIGHT$(filename$, 4)) <> ".bmp" THEN ext$ = ".bmp"
179.     f& = FREEFILE
180.     OPEN filename$ + ext$ FOR OUTPUT AS #f&: CLOSE #f& ' erases an existing file
181.     OPEN filename$ + ext$ FOR BINARY AS #f&
182.     PUT #f&, , b$
183.     CLOSE #f&
184. END SUB
185.  

[SierraKen]

I should have done this before, but here is a much better looking mixed colors of text.

Code: QB64: [Select]

1. 'Feel free to use any of this code in your own programs or games.
2. 'Thank you to the maker of a 1990's program called Wormhole.bas that was put online back then.
3. 'Made on November 6, 2019 by Ken G.
4. start:
5. _LIMIT 200
6. bb = 0
7. sz = 2
8. mm = 0
9. CLS
10. SCREEN _NEWIMAGE(800, 600, 256)
11. COLOR 15
12. PRINT "                     Big Text  - by Ken G."
13. PRINT: PRINT: PRINT
14. PRINT "This program will make your small text to a larger text in your choice of colors."
15. PRINT "Use the up and down arrow keys to make your text larger or smaller."
16. PRINT "Then you can save it as a .BMP file if you wish."
17. PRINT
18. PRINT "Type a word here or just Enter to quit (23 letters, numbers, symbols, or spaces maximum)."
19. INPUT "-> "; a$
20. IF a$ = "" THEN END
21. CLS
22. PRINT
23. PRINT "Color Chart"
24. FOR cc = 1 TO 15
25.     COLOR cc
26.     PRINT "Color Number = "; cc
27.     more:
28. NEXT cc
29. COLOR 15
30. PRINT
31. INPUT "Type a color number for the background or just Enter for black:"; bb
32. PRINT
33. INPUT "Do you want mixed colors (Y/N):"; m$
34. IF LEFT$(m$, 1) = "y" OR LEFT$(m$, 1) = "Y" THEN mm = 1: cl = 30: GOTO go:
35. PRINT
36. INPUT "Type a color number for the text:", cl
37. go:
38. CLS
39. LOCATE 1, 27
40. 'First print the text normally in color 1.
41. COLOR 1
42. PRINT a$
43. 'Then detect the text above using POINT and draw the large text.
44. FOR a = 0 TO 800 STEP 1 / sz
45.     FOR b = 0 TO 20 STEP 1 / sz
46.         IF mm = 1 THEN
47.             cl = cl + 1 / sz
48.             IF cl > 45 THEN cl = 30
49.         END IF
50.         IF POINT(a, b) > 0 THEN LINE ((a - 196) * sz, b * sz + 50)-((a - 196) * sz + 2, b * sz + 52), cl, BF
51.     NEXT b
52.     IF mm = 1 THEN cl = 30
53. NEXT a
54. 'Erase the original small text using the background color you chose.
55. LINE (0, 0)-(800, 20), bb, BF
56. IF bb = 0 THEN GOTO skipthis:
57. 'Paint the rest of the screen white if you chose that.
58. FOR x = 0 TO 800
59.     FOR y = 0 TO 600
60.         IF POINT(x, y) <> 0 THEN GOTO nex:
61.         PSET (x, y), bb
62.         nex:
63.     NEXT y
64. NEXT x
65. skipthis:
66. COLOR 15
67. _TITLE "(S)ave Image, Up and Down Arrow Keys to make text bigger or smaller, Space Bar for a new one, Esc to Quit."
68. 'Make a loop here so people can choose to save, make more, or quit.
69. DO
70.     _LIMIT 200
71.     t$ = INKEY$
72.     IF t$ = CHR$(0) + CHR$(72) THEN
73.         sz = sz + .5
74.         IF mm = 1 THEN cl = 30
75.         GOTO go:
76.     END IF
77.     IF t$ = CHR$(0) + CHR$(80) THEN
78.         sz = sz - .5
79.         IF mm = 1 THEN cl = 30
80.         GOTO go:
81.     END IF
82.     IF sz < 2 THEN sz = 2
83.     IF sz > 15 THEN sz = 15
84.     IF t$ = "s" OR t$ = "S" THEN GOTO saving:
85.     IF t$ = " " THEN GOTO start:
86.     IF t$ = CHR$(27) THEN END
87. LOOP
88.  
89. 'The rest of this program is the saving code to save as a .bmp picture.
90. saving:
91. 'Now we call up the SUB to save the image to BMP.
92. SaveImage 0, "temp.bmp"
93. _DELAY .25
94. SCREEN 0
95. CLS
96. COLOR 15
97. PRINT "                   Saving"
98. PRINT
99. PRINT "     Your BMP file will be saved in the"
100. PRINT "     same directory as this program is."
101. PRINT "     It can be used with almost any"
102. PRINT "     other graphics program or website."
103. PRINT "     It is saved using:"
104. PRINT "     width: 800  height: 600 pixels."
105. PRINT
106. PRINT "     Type a name to save your picture"
107. PRINT "     and press the Enter key. Do not"
108. PRINT "     add .bmp at the end, the program"
109. PRINT "     will do it automatically."
110. PRINT
111. PRINT "     Also do not use the name temp"
112. PRINT "     because the program uses that name"
113. PRINT "     and it would be erased the next time"
114. PRINT "     you save a picture."
115. PRINT "     Example: MyPic"
116. PRINT "     Quit and Enter key ends program."
117. PRINT
118. INPUT "->"; nm$
119. IF nm$ = "Quit" OR nm$ = "quit" OR nm$ = "QUIT" THEN END
120. nm$ = nm$ + ".bmp"
121. 'Checking to see if the file already exists on your computer.
122. theFileExists = _FILEEXISTS(nm$)
123. IF theFileExists = -1 THEN
124.     PRINT "     File Already Exists"
125.     PRINT "     Saving will delete your old"
126.     PRINT "     bmp picture."
127.     PRINT "     Would you like to still do it?"
128.     PRINT "     (Y/N). Esc ends program."
129.     llloop:
130.     _LIMIT 10
131.     ag2$ = INKEY$
132.     IF ag2$ = "" THEN GOTO llloop:
133.     IF ag2$ = "y" OR ag$ = "Y" THEN GOTO saving2:
134.     IF ag2$ = CHR$(27) THEN END
135.     GOTO saving:
136. END IF
137. saving2:
138. NAME "temp.bmp" AS nm$
139.  
140. nm$ = ""
141. FOR snd = 100 TO 700 STEP 100
142.     SOUND snd, 2
143. NEXT snd
144. CLS
145. GOTO start:
146.  
147. 'Here is the SUB needed to save the image to BMP.
148. 'It also can be used for BMP pictures on your own program.
149. SUB SaveImage (image AS LONG, filename AS STRING)
150.     bytesperpixel& = _PIXELSIZE(image&)
151.     IF bytesperpixel& = 0 THEN PRINT "Text modes unsupported!": END
152.     IF bytesperpixel& = 1 THEN bpp& = 8 ELSE bpp& = 24
153.     x& = _WIDTH(image&)
154.     y& = _HEIGHT(image&)
155.     b$ = "BM????QB64????" + MKL$(40) + MKL$(x&) + MKL$(y&) + MKI$(1) + MKI$(bpp&) + MKL$(0) + "????" + STRING$(16, 0) 'partial BMP header info(???? to be filled later)
156.     IF bytesperpixel& = 1 THEN
157.         FOR c& = 0 TO 255 ' read BGR color settings from JPG image + 1 byte spacer(CHR$(0))
158.             cv& = _PALETTECOLOR(c&, image&) ' color attribute to read.
159.             b$ = b$ + CHR$(_BLUE32(cv&)) + CHR$(_GREEN32(cv&)) + CHR$(_RED32(cv&)) + CHR$(0) 'spacer byte
160.         NEXT
161.     END IF
162.     MID$(b$, 11, 4) = MKL$(LEN(b$)) ' image pixel data offset(BMP header)
163.     lastsource& = _SOURCE
164.     _SOURCE image&
165.     IF ((x& * 3) MOD 4) THEN padder$ = STRING$(4 - ((x& * 3) MOD 4), 0)
166.     FOR py& = y& - 1 TO 0 STEP -1 ' read JPG image pixel color data
167.         r$ = ""
168.         FOR px& = 0 TO x& - 1
169.             c& = POINT(px&, py&) 'POINT 32 bit values are large LONG values
170.             IF bytesperpixel& = 1 THEN r$ = r$ + CHR$(c&) ELSE r$ = r$ + LEFT$(MKL$(c&), 3)
171.         NEXT px&
172.         d$ = d$ + r$ + padder$
173.     NEXT py&
174.     _SOURCE lastsource&
175.     MID$(b$, 35, 4) = MKL$(LEN(d$)) ' image size(BMP header)
176.     b$ = b$ + d$ ' total file data bytes to create file
177.     MID$(b$, 3, 4) = MKL$(LEN(b$)) ' size of data file(BMP header)
178.     IF LCASE$(RIGHT$(filename$, 4)) <> ".bmp" THEN ext$ = ".bmp"
179.     f& = FREEFILE
180.     OPEN filename$ + ext$ FOR OUTPUT AS #f&: CLOSE #f& ' erases an existing file
181.     OPEN filename$ + ext$ FOR BINARY AS #f&
182.     PUT #f&, , b$
183.     CLOSE #f&
184. END SUB
185.  

[SierraKen]

You are welcome Ron! And thanks for the picture made with it! :)

[SierraKen]

Here's an example of the Mixed Colors. I made the text pretty big this time.

[SMcNeill]

I've got a little set of routines which I use to do something similar to this, which might interest you a bit:

Code: QB64: [Select]

1. SCREEN _NEWIMAGE(800, 600, 32)
2. text = TextToImage("Steve is Awesome!", 16, &HFFFF0000, &HFFFFFF00, 0)
3. text2h = ScaleImage(text, 2, 1) 'twice as high
4. text2w = ScaleImage(text, 1, 2) 'twice as wide
5. text4 = ScaleImage(text, 4, 4) 'four times normal size
6.  
7. DO
8.     angle = (angle + 1) MOD 360
9.     CLS
10.     DisplayImage text, 50, 50, 0, 1
11.     DisplayImage text2h, 50, 100, 0, 1
12.     DisplayImage text2w, 50, 150, 0, 1
13.     DisplayImage text4, 400, 300, angle, 0
14.     _LIMIT 60
15.     _DISPLAY
16. LOOP UNTIL _KEYHIT
17. SYSTEM
18.  
19. SUB DisplayImage (Image AS LONG, x AS INTEGER, y AS INTEGER, angle AS SINGLE, mode AS _BYTE)
20.     'Image is the image handle which we use to reference our image.
21.     'x,y is the X/Y coordinates where we want the image to be at on the screen.
22.     'angle is the angle which we wish to rotate the image.
23.     'mode determines HOW we place the image at point X,Y.
24.     'Mode 0 we center the image at point X,Y
25.     'Mode 1 we place the Top Left corner of oour image at point X,Y
26.     'Mode 2 is Bottom Left
27.     'Mode 3 is Top Right
28.     'Mode 4 is Bottom Right
29.  
30.  
31.     DIM px(3) AS INTEGER, py(3) AS INTEGER, w AS INTEGER, h AS INTEGER
32.     DIM sinr AS SINGLE, cosr AS SINGLE, i AS _BYTE
33.     w = _WIDTH(Image): h = _HEIGHT(Image)
34.     SELECT CASE mode
35.         CASE 0 'center
36.             px(0) = -w \ 2: py(0) = -h \ 2: px(3) = w \ 2: py(3) = -h \ 2
37.             px(1) = -w \ 2: py(1) = h \ 2: px(2) = w \ 2: py(2) = h \ 2
38.         CASE 1 'top left
39.             px(0) = 0: py(0) = 0: px(3) = w: py(3) = 0
40.             px(1) = 0: py(1) = h: px(2) = w: py(2) = h
41.         CASE 2 'bottom left
42.             px(0) = 0: py(0) = -h: px(3) = w: py(3) = -h
43.             px(1) = 0: py(1) = 0: px(2) = w: py(2) = 0
44.         CASE 3 'top right
45.             px(0) = -w: py(0) = 0: px(3) = 0: py(3) = 0
46.             px(1) = -w: py(1) = h: px(2) = 0: py(2) = h
47.         CASE 4 'bottom right
48.             px(0) = -w: py(0) = -h: px(3) = 0: py(3) = -h
49.             px(1) = -w: py(1) = 0: px(2) = 0: py(2) = 0
50.     END SELECT
51.     sinr = SIN(angle / 57.2957795131): cosr = COS(angle / 57.2957795131)
52.     FOR i = 0 TO 3
53.         x2 = (px(i) * cosr + sinr * py(i)) + x: y2 = (py(i) * cosr - px(i) * sinr) + y
54.         px(i) = x2: py(i) = y2
55.     NEXT
56.     _MAPTRIANGLE (0, 0)-(0, h - 1)-(w - 1, h - 1), Image TO(px(0), py(0))-(px(1), py(1))-(px(2), py(2))
57.     _MAPTRIANGLE (0, 0)-(w - 1, 0)-(w - 1, h - 1), Image TO(px(0), py(0))-(px(3), py(3))-(px(2), py(2))
58. END SUB
59.  
60. FUNCTION TextToImage& (text$, font&, fc&, bfc&, mode AS _BYTE)
61.     'text$ is the text that we wish to transform into an image.
62.     'font& is the handle of the font we want to use.
63.     'fc& is the color of the font we want to use.
64.     'bfc& is the background color of the font.
65.  
66.     'Mode 1 is print forwards
67.     'Mode 2 is print backwards
68.     'Mode 3 is print from top to bottom
69.     'Mode 4 is print from bottom up
70.     'Mode 0 got lost somewhere, but it's OK.  We check to see if our mode is < 1 or > 4 and compensate automatically if it is to make it one (default).
71.  
72.     IF mode < 1 OR mode > 4 THEN mode = 1
73.     dc& = _DEFAULTCOLOR: bgc& = _BACKGROUNDCOLOR
74.     D = _DEST
75.     F = _FONT
76.     IF font& <> 0 THEN _FONT font&
77.     IF mode < 3 THEN
78.         'print the text lengthwise
79.         w& = _PRINTWIDTH(text$): h& = _FONTHEIGHT
80.     ELSE
81.         'print the text vertically
82.         FOR i = 1 TO LEN(text$)
83.             IF w& < _PRINTWIDTH(MID$(text$, i, 1)) THEN w& = _PRINTWIDTH(MID$(text$, i, 1))
84.         NEXT
85.         h& = _FONTHEIGHT * (LEN(text$))
86.     END IF
87.  
88.     TextToImage& = _NEWIMAGE(w&, h&, 32)
89.     _DEST TextToImage&
90.     IF font& <> 0 THEN _FONT font&
91.     COLOR fc&, bfc&
92.  
93.     SELECT CASE mode
94.         CASE 1
95.             'Print text forward
96.             _PRINTSTRING (0, 0), text$
97.         CASE 2
98.             'Print text backwards
99.             temp$ = ""
100.             FOR i = 0 TO LEN(text$) - 1
101.                 temp$ = temp$ + MID$(text$, LEN(text$) - i, 1)
102.             NEXT
103.             _PRINTSTRING (0, 0), temp$
104.         CASE 3
105.             'Print text upwards
106.             'first lets reverse the text, so it's easy to place
107.             temp$ = ""
108.             FOR i = 0 TO LEN(text$) - 1
109.                 temp$ = temp$ + MID$(text$, LEN(text$) - i, 1)
110.             NEXT
111.             'then put it where it belongs
112.             FOR i = 1 TO LEN(text$)
113.                 fx = (w& - _PRINTWIDTH(MID$(temp$, i, 1))) / 2 + .99 'This is to center any non-monospaced letters so they look better
114.                 _PRINTSTRING (fx, _FONTHEIGHT * (i - 1)), MID$(temp$, i, 1)
115.             NEXT
116.         CASE 4
117.             'Print text downwards
118.             FOR i = 1 TO LEN(text$)
119.                 fx = (w& - _PRINTWIDTH(MID$(text$, i, 1))) / 2 + .99 'This is to center any non-monospaced letters so they look better
120.                 _PRINTSTRING (fx, _FONTHEIGHT * (i - 1)), MID$(text$, i, 1)
121.             NEXT
122.     END SELECT
123.     _DEST D
124.     COLOR dc&, bgc&
125.     _FONT F
126. END FUNCTION
127.  
128. FUNCTION ScaleImage& (Image AS LONG, xscale AS SINGLE, yscale AS SINGLE)
129.     w = _WIDTH(Image): h = _HEIGHT(Image)
130.     w2 = w * xscale: h2 = h * yscale
131.     NewImage& = _NEWIMAGE(w2, h2, 32)
132.     _PUTIMAGE , Image&, NewImage&
133.     ScaleImage& = NewImage&
134. END SUB
135.  
136.  

One routine to convert text to an image. Another to scale an image to whatever proportions I want it to have, and another routine to display the image somewhere on the screen, at whatever angle I want it to have on the screen.  ;)

[SierraKen]

That's pretty cool SMcNeill!