Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: carloscordeiro on October 06, 2020, 06:55:50 pm

Title: Slightly bigger letters
Post by: carloscordeiro on October 06, 2020, 06:55:50 pm
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
Title: Re: Slightly bigger letters
Post by: SMcNeill on October 06, 2020, 07:14:11 pm
_LOADFONT and _FONT are the two commands you’re looking for.  ;)
Title: Re: Slightly bigger letters
Post by: carloscordeiro on October 06, 2020, 07:32:20 pm
Ok SMcNeill, I will try with these commands to increase the letters.
Thanks for answering.

Carlos
Title: Re: Slightly bigger letters
Post by: bplus on October 06, 2020, 07:47:12 pm
Yes, put Steve at 4x greater!  ;-))

PS let me know if you don't want to use fonts, there is another way ;)
Title: Re: Slightly bigger letters
Post by: bplus on October 06, 2020, 09:13:01 pm
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
  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&
  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.
Title: Re: Slightly bigger letters
Post by: carloscordeiro on October 07, 2020, 06:09:46 pm
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
Title: Re: Slightly bigger letters
Post by: Pete on October 07, 2020, 06:40:34 pm
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.
  3. SCREEN _NEWIMAGE(800, 600, 32)
  4. _DELAY .25
  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
  19. 'screen snapshot
  20. cur& = _DEST
  21. I& = _NEWIMAGE(8 * LEN(txt$), 16, 32)
  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&
  31.  
Title: Re: Slightly bigger letters
Post by: carloscordeiro on October 07, 2020, 06:42:22 pm
Another code from Steve.

I just wanted these big letters, preferably bold and without SUB. Something simple.
Title: Re: Slightly bigger letters
Post by: Pete on October 07, 2020, 07:00:49 pm
_LOADFONT and _FONT are what I use, because they work in SCREEN 0. The only screen anyone would ever need.

Pete
Title: Re: Slightly bigger letters
Post by: carloscordeiro on October 07, 2020, 07:03:14 pm
 
Pete, I'll take the simplest.

Yours doesn't have SUB, it's a good option.
Title: Re: Slightly bigger letters
Post by: carloscordeiro on October 07, 2020, 07:04:47 pm
Pete do you have how to post an example of _LOADFONT and _FONT and how can I modify the font size and color?

Appreciate.
Title: Re: Slightly bigger letters
Post by: carloscordeiro on October 07, 2020, 07:36:19 pm
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.
Title: Re: Slightly bigger letters
Post by: SMcNeill on October 07, 2020, 07:44:48 pm
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.
Title: Re: Slightly bigger letters
Post by: carloscordeiro on October 07, 2020, 08:27:56 pm
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. :)
Title: Re: Slightly bigger letters
Post by: bplus on October 07, 2020, 11:04:14 pm
Quote from: carloscordeiro on October 07, 2020, 07:36:19 pm
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.

Quote
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.

Title: Re: Slightly bigger letters
Post by: carloscordeiro on October 08, 2020, 06:20:24 pm
Ok, Bplus

Thanks again

Carlos
Text Only | Text with Attachments