Slightly bigger letters

[carloscordeiro]

Hi
Good night, Bplus
I come again to ask for your help.
I wanted to know about you, which statement to make a character a little bigger on the screen.

I want to make the “Show” more lively. . .

For example:

Print “Carlos” = Standard characters - R
Print “Bplus” = Characters 2 x greater than the standard - G
Print “Qbasic 64” = Characters 2.5 x larger than the standard - B.

I searched on http://www.qb64.org/wiki/Main_Page, however I did not find the instruction that does this.

Carlos

[SMcNeill]

_LOADFONT and _FONT are the two commands you’re looking for.  ;)

[carloscordeiro]

Ok SMcNeill, I will try with these commands to increase the letters.
Thanks for answering.

Carlos

[bplus]

Yes, put Steve at 4x greater!  ;-))

PS let me know if you don't want to use fonts, there is another way ;)

[bplus]

OK, OK here is the other way, I know you are dying to know ;)

Code: QB64: [Select]

1. _TITLE "Text SUB demo" 'b+ 2020-10-06
2.  
3. SCREEN _NEWIMAGE(800, 600, 32)
4. _DELAY .25
5. _SCREENMOVE _MIDDLE
6.  
7. COLOR &HFFFF0000
8. PRINT " Carlos" '= Standard characters - R
9. Text 10, 26, 32, &HFF008000, "Bplus"
10. 'PRINT "Bplus" ' = Characters 2 x greater than the standard - G
11. Text 10, 68, 48, &HFF0000FF, "QB64"
12. 'PRINT "QB64" '= Characters 2.5 x larger than the standard - B.
13. Text 10, 126, 64, &HFFFFBB00, "Steve"
14. END ' <<<<<<<<< notice color at end, same as original color setting
15.  
16. SUB Text (x, y, textHeight, K AS _UNSIGNED LONG, txt$)
17.     DIM fg AS _UNSIGNED LONG, cur&, I&, multi, xlen
18.     fg = _DEFAULTCOLOR
19.     'screen snapshot
20.     cur& = _DEST
21.     I& = _NEWIMAGE(8 * LEN(txt$), 16, 32)
22.     _DEST I&
23.     COLOR K, _RGBA32(0, 0, 0, 0)
24.     _PRINTSTRING (0, 0), txt$
25.     multi = textHeight / 16
26.     xlen = LEN(txt$) * 8 * multi
27.     _PUTIMAGE (x, y)-STEP(xlen, textHeight), I&, cur&
28.     COLOR fg
29.     _FREEIMAGE I&
30. END SUB
31.  
32.  

And there is another way to tilt the text 77 degrees and scale the x, y axis independently ie stretch and narrow the text.

[carloscordeiro]

Hello Bplus

Always excited ..

You got it right, I'm dying to know;)

I want to test with the two commands that Steve taught, _LOADFONT and _FONT.

I also want other possibilities like yours, but without the SUB.

If you can submit what this code does, but without the sub I would appreciate it.

I found a code of yours that has the big letters, the way I want it.

But, I don't want a code, I wanted a few lines to show a big letter like the image of your code

Carlos

[Pete]

Subless? How about just GOSUB?

Code: QB64: [Select]

1. _TITLE "Text SUB demo" 'b+ 2020-10-06 / Modified by Pete using GOSUBs instead of SUB.
2. DIM K AS _UNSIGNED LONG
3. SCREEN _NEWIMAGE(800, 600, 32)
4. _DELAY .25
5. _SCREENMOVE _MIDDLE
6.  
7. COLOR &HFFFF0000
8. PRINT " Carlos" '= Standard characters - R
9. x = 10: y = 26: textHeight = 32: K = &HFF008000: txt$ = "Bplus": GOSUB text
10. 'PRINT "Bplus" ' = Characters 2 x greater than the standard - G
11. x = 10: y = 68: textHeight = 48: K = &HFF0000FF: txt$ = "QB64": GOSUB text
12. 'PRINT "QB64" '= Characters 2.5 x larger than the standard - B.
13. x = 10: y = 126: textHeight = 64: K = &HFFFFBB00: txt$ = "Pete!": GOSUB text
14. END ' <<<<<<<<< notice color at end, same as original color setting
15.  
16. text:
17. DIM fg AS _UNSIGNED LONG, cur&, I&, multi, xlen
18. fg = _DEFAULTCOLOR
19. 'screen snapshot
20. cur& = _DEST
21. I& = _NEWIMAGE(8 * LEN(txt$), 16, 32)
22. _DEST I&
23. COLOR K, _RGBA32(0, 0, 0, 0)
24. _PRINTSTRING (0, 0), txt$
25. multi = textHeight / 16
26. xlen = LEN(txt$) * 8 * multi
27. _PUTIMAGE (x, y)-STEP(xlen, textHeight), I&, cur&
28. COLOR fg
29. _FREEIMAGE I&
30. RETURN
31.  

[carloscordeiro]

Another code from Steve.

I just wanted these big letters, preferably bold and without SUB. Something simple.

[Pete]

_LOADFONT and _FONT are what I use, because they work in SCREEN 0. The only screen anyone would ever need.

Pete

[carloscordeiro]

 

Pete, I'll take the simplest.

Yours doesn't have SUB, it's a good option.

[carloscordeiro]

Pete do you have how to post an example of _LOADFONT and _FONT and how can I modify the font size and color?

Appreciate.

[carloscordeiro]

The simplest really is _LOADFONT and _FONT.
I found a 3d example of Steve.
I took the first lines as an example.
It's great, I'll research how to insert the color.

[SMcNeill]

The wiki has several examples of _LOADFONT.

Easiest demo is simply:


SCREEN _NEWIMAGE(640, 480, 32)
f = _LOADFONT("cyberbit.ttf", 72, “MONOSPACE”)
_FONT f
PRINT “HELLO WORLD”

For color, just use a COLOR _RGB(red, green. blue) statement where neede.

[carloscordeiro]

Ok Steve, I was searching the wiki, I also found the colors.

Thanks Steve, Bplus and Pete who presented options.

If Bplus wakes up funny, he will post some more. :)

[bplus]

The simplest really is _LOADFONT and _FONT.
I found a 3d example of Steve.
...

Agree absolutely! You can load a number of different sizes of same font.

It's great, I'll research how to insert the color.

Just use a COLOR statement, simple. For 3d effect alter color as you layer over and offset the text.


The code to the snapshot in Reply #5 is only necessary for cool FX effects with text.