QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: Theo on December 20, 2019, 02:48:54 pm

Title: printing
Post by: Theo on December 20, 2019, 02:48:54 pm

    I hope a for a command in the next version, for to print in print in bold  and  double height. Sorry for my bad english, this is translated by Google

Title: Re: printing
Post by: Petr on December 20, 2019, 04:30:01 pm

Hi Theo,
Try using this https://www.qb64.org/forum/index.php?topic=1958.msg111894#msg111894

Title: Re: printing
Post by: SMcNeill on December 20, 2019, 04:32:25 pm

If you want to print to the screen, just use _LOADFONT and _FONT.  If you’re wanting to print to paper, use _PRINTIMAGE.


Edit: Changed name to proper syntax, as pointed out by Fell below.  ;)

Title: Re: printing
Post by: FellippeHeitor on December 20, 2019, 05:18:41 pm

Code: QB64: [Select]

1. _PRINTIMAGE

Title: Re: printing
Post by: Theo on December 21, 2019, 07:27:36 am

Thanks for the reply
I gone try all the comments

Thanks

Title: Re: printing
Post by: bplus on December 21, 2019, 10:05:47 am

Here is a way use the default font to any size:

Code: QB64: [Select]

1. OPTION _EXPLICIT
2. _TITLE "Text sub tests" 'B+ started 2019-03-25 mod 2019-12-21 twice
3.  
4. RANDOMIZE TIMER
5. CONST xmax = 1200
6. CONST ymax = 700
7.  
8. SCREEN _NEWIMAGE(xmax, ymax, 32)
9. _SCREENMOVE 100, 40
10.  
11. DIM y, i
12.  
13. COLOR _RGB32(0, 0, 255), &HFFFFFFFF
14. CLS
15. PRINT "Hello World, press any for Text sizing demo..."
16. SLEEP
17.  
18. y = ymax
19. FOR i = 1 TO 15 STEP .5
20.     CLS
21.     y = y - 60 / i
22.     cText xmax / 2, y, 240 / i, _RGB32(255, 0, 0), "So how is this looking?"
23.     _DISPLAY
24.     _LIMIT 2
25. NEXT
26. cText 600, 60, 32, &HFFFFBB00, "Hello World in orange at 2 X's normal font height."
27. LOCATE 30, 1: PRINT "And this Back to normal PRINT and current color with this line... press any to end demo."
28. _DISPLAY
29. SLEEP
30. SYSTEM
31.  
32. SUB Text (x, y, textHeight, K AS _UNSIGNED LONG, txt$)
33.     DIM fg AS _UNSIGNED LONG, cur&, I&, mult, xlen
34.     fg = _DEFAULTCOLOR
35.     'screen snapshot
36.     cur& = _DEST
37.     I& = _NEWIMAGE(8 * LEN(txt$), 16, 32)
38.     _DEST I&
39.     COLOR K, _RGBA32(0, 0, 0, 0)
40.     _PRINTSTRING (0, 0), txt$
41.     mult = textHeight / 16
42.     xlen = LEN(txt$) * 8 * mult
43.     _PUTIMAGE (x, y)-STEP(xlen, textHeight), I&, cur&
44.     COLOR fg
45.     _FREEIMAGE I&
46. END SUB
47.  
48. 'center the text
49. SUB cText (x, y, textHeight, K AS _UNSIGNED LONG, txt$)
50.     DIM fg AS _UNSIGNED LONG, cur&, I&, mult, xlen
51.     fg = _DEFAULTCOLOR
52.     'screen snapshot
53.     cur& = _DEST
54.     I& = _NEWIMAGE(8 * LEN(txt$), 16, 32)
55.     _DEST I&
56.     COLOR K, _RGBA32(0, 0, 0, 0)
57.     _PRINTSTRING (0, 0), txt$
58.     mult = textHeight / 16
59.     xlen = LEN(txt$) * 8 * mult
60.     _PUTIMAGE (x - .5 * xlen, y - .5 * textHeight)-STEP(xlen, textHeight), I&, cur&
61.     COLOR fg
62.     _FREEIMAGE I&
63. END SUB
64.  
65.  

Update: fixed up demo, sizing does not work well really small like Richard Frost's

Text Only | Text with Attachments