+- QB64 Phoenix Edition (https://qb64phoenix.com/forum)
+-- Forum: QB64 Rising (https://qb64phoenix.com/forum/forumdisplay.php?fid=1)
+--- Forum: Code and Stuff (https://qb64phoenix.com/forum/forumdisplay.php?fid=3)
+---- Forum: Programs (https://qb64phoenix.com/forum/forumdisplay.php?fid=7)
+---- Thread: Upside-Down Big Text (/showthread.php?tid=3484)
Upside-Down Big Text - SierraKen - 02-21-2025
Convert up to 13 letters, symbols, or numbers into upside-down.
Strange though how I couldn't use CLS instead of the second Screen NewImage at the bottom, or even after the INPUT line (if I put SCREEN before the DO). It just blacks out the screen for some reason with CLS without making the large text.
Code removed because of possible too much memory used in loops. Fixed version is below.
RE: Upside-Down Big Text - Jack002 - 02-22-2025
COOL!
RE: Upside-Down Big Text - SierraKen - 02-22-2025
I removed the loop, just in case having too many SCREEN _NEWIMAGE lines take up too much computer memory.
So here is a much cleaner version:
Code: (Select All)
start:
Input "Word to make upside-down (up to 13 letters, symbols, or numbers: ", word$
If Len(word$) > 13 Then GoTo start
Screen _NewImage(800, 600, 32)
Locate 1, 32
Color 1
Print word$
letters = Len(word$)
ll = (letters * 8) - 2
cent = (_Width / 2)
For I = 248 To 248 + ll Step .15
jj = 0
For j = 15 To 0 Step -.15
jj = jj + .15
If Point(I, j) > 0 Then
Line ((I - 196) * 4, jj * 4 + 50)-((I - 196) * 4 + 2, jj * 4 + 52), _RGB32(0, 0, 0), BF
Else
PSet ((I - 196) * 4, jj * 4 + 50), _RGB32(255, 255, 255)
End If
Next j
jj = 0
Next I
Sleep