QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: Petr on September 17, 2019, 04:35:54 pm

Title: Textured text (just fast idea)
Post by: Petr on September 17, 2019, 04:35:54 pm

Code: QB64: [Select]

1.  
2.  
3. SCREEN _NEWIMAGE(1600, 600, 32)
4. path$ = "arial.ttf"
5. font = _LOADFONT(path$, 150, "MonoSpace")
6. _FONT font
7. texture = _LOADIMAGE("14321.jpg", 32)
8. t2 = _LOADIMAGE("cihl_zed.jpg", 32)
9.  
10.  
11. FontPrint MIDDLE("This"), 100, texture, "This"
12. FontPrint MIDDLE("is"), 250, texture, "is"
13. FontPrint MIDDLE("easy"), 400, texture, "easy"
14.  
15. SLEEP 3
16. CLS
17.  
18. FontPrint MIDDLE("example"), 100, t2, "example"
19. FontPrint MIDDLE("how"), 250, t2, "how"
20. FontPrint MIDDLE("use"), 400, t2, "use"
21.  
22. SLEEP 3
23. CLS
24.  
25. FontPrint MIDDLE("TEXTURED"), 100, texture, "TEXTURED"
26. FontPrint MIDDLE("TEXT"), 350, t2, "TEXT"
27.  
28. SLEEP 3
29. _FREEIMAGE t2: _FREEIMAGE texture: _FONT 16: CLS: _FREEFONT font
30. END
31.  
32.  
33. SUB FontPrint (X, Y, texture AS LONG, text AS STRING)
34.     F = _FONT
35.     W = _PRINTWIDTH(text): H = _FONTHEIGHT(F)
36.     virtual = _NEWIMAGE(W, H, 32)
37.     _DEST virtual
38.     _FONT F, virtual
39.     _PRINTMODE _FILLBACKGROUND , virtual
40.     COLOR &HFFFFFFFF, &HFF000000
41.     _PRINTSTRING (0, 0), text
42.     _CLEARCOLOR &HFFFFFFFF, virtual
43.     V2 = _NEWIMAGE(W, H, 32)
44.     _PUTIMAGE , texture, V2
45.     _PUTIMAGE , virtual, V2
46.     _FREEIMAGE virtual
47.     _CLEARCOLOR &HFF000000, V2
48.     _PUTIMAGE (X, Y), V2
49.     _FREEIMAGE V2
50. END SUB
51.  
52. FUNCTION MIDDLE (t AS STRING)
53.     MIDDLE = _WIDTH / 2 - _PRINTWIDTH(t) / 2
54. END FUNCTION
55.  

Title: Re: Textured text (just fast idea)
Post by: SMcNeill on September 17, 2019, 04:42:16 pm

Have you seen my textured text routines?  They might help you work with yours a bit.  (And, surprisingly enough, they're FASTER than the native PRINT routines which QB64 uses, without half the options available to them...)

http://qb64.freeforums.net/thread/37/custom-routines-supports-textures-shading

Title: Re: Textured text (just fast idea)
Post by: Petr on September 17, 2019, 05:00:00 pm

Nice work, Steve! You are MEM - king!

Thank for sharing.


  [ This attachment cannot be displayed inline in 'Print Page' view ]  

Title: Re: Textured text (just fast idea)
Post by: TempodiBasic on September 17, 2019, 06:25:05 pm

Good news!
...
good library... is it in the toolbox section?

Text Only | Text with Attachments