Inspired by bplus...

[Pete]

I don't often do graphics, but when I do... I really , really hate to do the grunt work. I had a lot of that with my Wheel of Fortune spoof, and then I participated in the thread where bplus was discussing a _FONT incompatibility issue in past QB64 versions. I've seen enough of Mark's apps to know he makes use of algorithms, often, to do the grunt work. Anyway, versions aside, I decided if I want to do any more graphics applications, I want to start with some algorithms like the one I wrote for this demo. It automatically determines where to draw boxes around letters, rather than trying to estimate or map them out.

Requires version 1.5 or above.

Code: QB64: [Select]

1. DIM SHARED overlay
2. _SCREENMOVE _MIDDLE
3.  
4. Screen0 = _NEWIMAGE(80, 25, 0)
5. SCREEN Screen0
6.  
7. font = _LOADFONT("lucon.ttf", 60, "monospace")
8. IF font <= 0 THEN font = 16
9.  
10. overlay = _NEWIMAGE(_WIDTH * _FONTWIDTH, _HEIGHT * _FONTHEIGHT, 32)
11. _DEST overlay
12. _FONT font
13. COLOR _RGB(255, 102, 0), 0
14.  
15. row = 2: col = 2: r1% = 255: r2% = 0: r3% = 0
16. COLOR _RGB(255, 255, 255)
17. text$ = "I'd like to solve the puzzle, please!"
18. y = row: x = col
19. FOR i = 1 TO LEN(text$)
20.     IF (x + LEN(MID$(text$, i, INSTR(i, text$, " ") - i))) * _FONTWIDTH > _WIDTH THEN BEEP: x = 2: y = y + 2
21.     t$ = MID$(text$, i, 1)
22.     PSL y, x, t$, r1%, r2%, r3%
23.     x = x + 1
24. NEXT
25. SLEEP
26.  
27. _FONT 16
28. _FREEFONT font
29. _FREEIMAGE overlay
30.  
31. _DEST 0
32. _DELAY .66
33.  
34. SYSTEM
35.  
36. SUB PSL (y, x, t$, r1%, r2%, r3%)
37.     IF t$ <> CHR$(32) THEN CALL box(y, x, r1%, r2%, r3%)
38.     _PRINTSTRING ((x - 1) * _FONTWIDTH, (y - 1) * _FONTHEIGHT), t$
39.     overlay_hardware = _COPYIMAGE(overlay, 33)
40.     _PUTIMAGE (0, 0), overlay_hardware
41.     _DISPLAY
42. END SUB
43.  
44. SUB box (y, x, r1%, r2%, r3%)
45.     LINE ((x - 1) * _FONTWIDTH, ((y - 1) * _FONTHEIGHT))-((x - 1) * _FONTWIDTH + _FONTWIDTH, ((y - 1) * _FONTHEIGHT) + _FONTHEIGHT), _RGB(r1%, r2%, r3%), B , 255
46.     overlay_hardware = _COPYIMAGE(overlay, 33)
47.     _PUTIMAGE (0, 0), overlay_hardware
48.     _DISPLAY
49. END SUB

Pete

[bplus]

Nice how you handle a string that doesn't fit on one line across the screen.

[Pete]

Thanks. There are so many ways to make and apply various algorithms for text manipulation and a lot of it depends if you are using a single variable or arrays. This was made for a single variable. An array model would require more functions to wrap text. It's just something I'm kicking around and if I can get it to work to translate my SCREEN 0 WP into a graphics screen WP, I could add underlining text for hypertext usage. Of course using the overlay method could provide that display, too. It's nice to have so many options.

Pete

[Pete]

Well, maybe some more math crap needed, as I haven't tested this a whole lot. It is supposed to be a way to set top, bottom, left, and right margins, and work with various font sizes to put letters to the screen using either an overlay or direct graphics display. It wraps words and displays them in a graphics screen with a page border and boxes around each non-space letter. That means if you take this with you on your Blue Origin flight, it won't work once you leave the atmosphere. Sorry about that...

Input nothing at the first prompt to get the default text phrase. Input 1 at the two other prompts for normal text spacing or increase or decrease either, as desired. Esc to quit, or any key to run again.

Code: QB64: [Select]

1. DIM SHARED overlay, olay
2. _SCREENMOVE 0, 0
3.  
4. Screen0 = _NEWIMAGE(80, 42, 0)
5. SCREEN Screen0
6.  
7. LINE INPUT "Input a phrase: "; text$
8. IF text$ = "" THEN text$ = "I'd like to solve the puzzle, please!"
9. PRINT: LINE INPUT "Input horizontal letter-spacing 1.0 to 3.0: "; a$
10. a = VAL(a$): IF a = 0 THEN a = 0 ELSE IF a > 3 THEN a = 3
11. spacerx = a
12. PRINT: LINE INPUT "Input vertical letter-spacing 1.0 to 3.0: "; a$
13. a = VAL(a$): IF a = 0 THEN a = 0 ELSE IF a > 3 THEN a = 3
14. spacery = a
15. CLS: PRINT text$
16.  
17. font = _LOADFONT("lucon.ttf", 60, "monospace")
18. IF font <= 0 THEN font = 16
19.  
20. overlay = _NEWIMAGE(_WIDTH * _FONTWIDTH, _HEIGHT * _FONTHEIGHT, 32)
21. olay = -1
22. _DEST overlay
23. _FONT font
24. COLOR _RGB(255, 102, 0), 0
25.  
26. row = 1: col = 1: r1% = 255: r2% = 0: r3% = 0
27. ml = 2: mr = 2: mt = 1: mb = 1
28. COLOR _RGB(255, 255, 255)
29. REM spacerx and spacery were assigned upon input.
30. y = row: x = col: j = 0
31. maxcpl% = 1 + INT((_WIDTH - ((ml + mr) * _FONTWIDTH)) / (_FONTWIDTH * spacerx)) ' Determines the max number of characters per line.
32. maxrows% = INT((_HEIGHT / _FONTHEIGHT) / spacery) - (mt + mb) + 1
33.  
34. LINE ((ml - .5) * _FONTWIDTH, (mt - .5) * _FONTHEIGHT)-(((ml - .5) * _FONTWIDTH) + (maxcpl% * _FONTWIDTH * spacerx) + (.5 * _FONTWIDTH), maxrows% * spacery * _FONTHEIGHT + _FONTHEIGHT / 2), _RGB(255, 255, 255), B
35.  
36. flag = 0: j = 0
37. DO
38.     _LIMIT 30
39.     b$ = INKEY$
40.     IF show_letters% = 0 THEN
41.         FOR i = 1 TO LEN(text$)
42.             t$ = MID$(text$, i, 1)
43.             k = INSTR(i, text$ + " ", " ") - i
44.            
45.             j = j + 1
46.  
47.             IF j = 1 THEN
48.                SELECT CASE j + LEN((MID$(text$ + " ", i, k)))
49.                     CASE IS = maxcpl% + 1 ' Space in margin.
50.                         flag = 1 ' Negate leading space on next print line.
51.                     CASE IS > maxcpl% + 1 ' Word is larger than page width.
52.                         flag = -1
53.                 END SELECT
54.             END IF
55.  
56.             l = LEN((MID$(text$ + " ", i, k)))
57.  
58.             IF j + l > maxcpl% AND flag = 0 OR flag = 1 AND j > maxcpl% OR flag = -1 AND j > maxcpl% THEN
59.                 IF row + 1 = maxrows% THEN EXIT FOR
60.                 x = col: y = y + spacery: j = 0
61.                 IF flag = 1 THEN skip = 1 ' Negates one leading space.
62.                 flag = 0: i = i - 1: row = row + 1
63.             ELSE
64.                 IF skip = 0 THEN
65.                     PSL y + mt, x + ml, t$, r1%, r2%, r3%
66.                     x = x + spacerx
67.                 ELSE
68.                     skip = 0: j = 0
69.                 END IF
70.             END IF
71.         NEXT
72.         _DISPLAY
73.         show_letters% = -1
74.     END IF
75.  
76. LOOP UNTIL LEN(b$)
77.  
78. _FONT 16
79. _FREEFONT font
80. _FREEIMAGE overlay
81.  
82. IF b$ = CHR$(27) THEN SYSTEM
83.  
84. _DEST 0
85. RUN
86.  
87. SUB PSL (y, x, t$, r1%, r2%, r3%)
88.     IF t$ <> CHR$(32) THEN CALL box(y, x, r1%, r2%, r3%)
89.     _PRINTSTRING ((x - 1) * _FONTWIDTH, (y - 1) * _FONTHEIGHT), t$
90.     IF olay THEN CALL overlay_display
91. END SUB
92.  
93. SUB box (y, x, r1%, r2%, r3%)
94.     LINE ((x - 1) * _FONTWIDTH, ((y - 1) * _FONTHEIGHT))-((x - 1) * _FONTWIDTH + _FONTWIDTH, ((y - 1) * _FONTHEIGHT) + _FONTHEIGHT), _RGB(r1%, r2%, r3%), B , 255
95. END SUB
96.  
97. SUB overlay_display
98.     overlay_hardware = _COPYIMAGE(overlay, 33)
99.     _PUTIMAGE (0, 0), overlay_hardware
100. END SUB

Pete

@FellippeHeitor BTW - I had some weird results I noticed ONLY when I changed the code and did a recomplie/run with the IDE F5 key. Many times it would only display part of the default text! For example: I input nothing, 1 and 1 and it displayed only part of the default text. Then I pressed a key to rerun, same parameters, and it displayed the entire text, as expected. I'm using v2.0. Any thoughts? Can you reproduce it? I just did by loading the program, typing REM to line 3, and then F5 to compile and run. I then pressed Enter, 1 and Enter, 1 and Enter. It only printed to "I'd like to solve the puzzle," leaving out the please! Very impolite! You'd think I was running FB. :D Anyway, I then pressed a key, re-entered the same parameters, and on that an all other subsequent run loops, it worked fine.

[Cobalt]

Displays everything for me on the first run.

how ever the more I run it the more it begins to do weird things like this:
(and of course you use _DISPLAY so as soon as anything displays over the window its destroyed! so this screen shot is not the original)
missing text seems to be totally random.(and I do wonder if it has to do with _DISPLAY and a race condition)

[Pete]

@Cobalt Okay, we've now established this is something that will happen on not just my system. So I made just a couple of changes to allow it to work without the overlay feature. Removing the hardware overlay solves the issue, so the issue appears to be with PUTIMAGE and COPYIMAGE.

This non-overlay version will run correctly each time...

Code: QB64: [Select]

1. DIM SHARED overlay, olay
2. _SCREENMOVE 0, 0
3.  
4. Screen0 = _NEWIMAGE(80, 42, 0)
5. SCREEN Screen0
6.  
7. LINE INPUT "Input a phrase: "; text$
8. IF text$ = "" THEN text$ = "I'd like to solve the puzzle, please!"
9. PRINT: LINE INPUT "Input horizontal letter-spacing 1.0 to 3.0: "; a$
10. a = VAL(a$): IF a = 0 THEN a = 0 ELSE IF a > 3 THEN a = 3
11. spacerx = a
12. PRINT: LINE INPUT "Input vertical letter-spacing 1.0 to 3.0: "; a$
13. a = VAL(a$): IF a = 0 THEN a = 0 ELSE IF a > 3 THEN a = 3
14. spacery = a
15. CLS: PRINT text$
16.  
17. font = _LOADFONT("lucon.ttf", 60, "monospace")
18. IF font <= 0 THEN font = 16
19.  
20. overlay = _NEWIMAGE(_WIDTH * _FONTWIDTH, _HEIGHT * _FONTHEIGHT, 32)
21. olay = 0
22.  
23. IF olay THEN
24.     _DEST overlay
25. ELSE
26.     SCREEN overlay
27. END IF
28.  
29. _FONT font
30. COLOR _RGB(255, 102, 0), 0
31.  
32. row = 1: col = 1: r1% = 255: r2% = 0: r3% = 0
33. ml = 2: mr = 2: mt = 1: mb = 1
34. COLOR _RGB(255, 255, 255)
35. REM spacerx and spacery were assigned upon input.
36. y = row: x = col: j = 0
37.  
38. maxcpl% = 1 + INT((_WIDTH - ((ml + mr) * _FONTWIDTH)) / (_FONTWIDTH * spacerx)) ' Determines the max number of characters per line.
39. maxrows% = INT((_HEIGHT / _FONTHEIGHT) / spacery) - (mt + mb) + 1
40.  
41. LINE ((ml - .5) * _FONTWIDTH, (mt - .5) * _FONTHEIGHT)-(((ml - .5) * _FONTWIDTH) + (maxcpl% * _FONTWIDTH * spacerx) + (.5 * _FONTWIDTH), maxrows% * spacery * _FONTHEIGHT + _FONTHEIGHT / 2), _RGB(255, 255, 255), B
42.  
43. flag = 0: j = 0
44. DO
45.     _LIMIT 30
46.     b$ = INKEY$
47.     IF show_letters% = 0 THEN
48.         FOR i = 1 TO LEN(text$)
49.             t$ = MID$(text$, i, 1)
50.             k = INSTR(i, text$ + " ", " ") - i
51.  
52.             j = j + 1
53.  
54.             IF j = 1 THEN
55.  
56.                 SELECT CASE j + LEN((MID$(text$ + " ", i, k)))
57.                     CASE IS = maxcpl% + 1 ' Space in margin.
58.                         flag = 1 ' Negate leading space on next print line.
59.                     CASE IS > maxcpl% + 1 ' Word is larger than page width.
60.                         flag = -1
61.                 END SELECT
62.             END IF
63.  
64.             l = LEN((MID$(text$ + " ", i, k)))
65.  
66.             IF j + l > maxcpl% AND flag = 0 OR flag = 1 AND j > maxcpl% OR flag = -1 AND j > maxcpl% THEN
67.                 IF row + 1 = maxrows% THEN EXIT FOR
68.                 x = col: y = y + spacery: j = 0
69.                 IF flag = 1 THEN skip = 1 ' Negates one leading space.
70.                 flag = 0: i = i - 1: row = row + 1
71.             ELSE
72.                 IF skip = 0 THEN
73.                     PSL y + mt, x + ml, t$, r1%, r2%, r3%
74.                     x = x + spacerx
75.                 ELSE
76.                     skip = 0: j = 0
77.                 END IF
78.             END IF
79.         NEXT
80.         _DISPLAY
81.         show_letters% = -1
82.     END IF
83.  
84. LOOP UNTIL LEN(b$)
85.  
86. _FONT 16
87. _FREEFONT font
88. IF olay THEN _FREEIMAGE overlay
89.  
90. IF b$ = CHR$(27) THEN SYSTEM
91.  
92. _DEST 0
93. RUN
94.  
95. SUB PSL (y, x, t$, r1%, r2%, r3%)
96.     IF t$ <> CHR$(32) THEN CALL box(y, x, r1%, r2%, r3%)
97.     _PRINTSTRING ((x - 1) * _FONTWIDTH, (y - 1) * _FONTHEIGHT), t$
98.     IF olay THEN CALL overlay_display
99. END SUB
100.  
101. SUB box (y, x, r1%, r2%, r3%)
102.     LINE ((x - 1) * _FONTWIDTH, ((y - 1) * _FONTHEIGHT))-((x - 1) * _FONTWIDTH + _FONTWIDTH, ((y - 1) * _FONTHEIGHT) + _FONTHEIGHT), _RGB(r1%, r2%, r3%), B , 255
103. END SUB
104.  
105. SUB overlay_display
106.     overlay_hardware = _COPYIMAGE(overlay, 33)
107.     _PUTIMAGE (0, 0), overlay_hardware
108. END SUB

So the putimage and copyimage seem pretty straight forward, unless I'm somehow missing something in my (Steve's) method. Maybe this needs to be investigated as a QB64 bug?

Pete

[Cobalt]

Your also using a HARDWARE image, not just COPYIMAGE and PUTIMAGE.  But I don't think there is anyway to pull off what your doing with just using plan a old image layer. since your trying to use graphics and text only at the same time.

[Pete]

Guys, you know what we haven't tried is _DELAY. @Cobalt You mentioned a "race" issue, and let's investigate that a bit...

So I put a small delay between the hardware overlay and PUTIMAGE statement. It fixed the unfinished display problem, but I still get strange timing results. The run that would fail without the delay inserted simply prints to the screen slower! When I run it again, it is printed almost all at once. So something is not consistent with the hardware rendering, and I notice it every time I change the code and do the first run after the change.

Hardware overlay activated, but with a small delay...

Code: QB64: [Select]

1. DIM SHARED overlay, olay
2. _SCREENMOVE 0, 0
3.  
4. Screen0 = _NEWIMAGE(80, 42, 0)
5. SCREEN Screen0
6.  
7. LINE INPUT "Input a phrase: "; text$
8. IF text$ = "" THEN text$ = "I'd like to solve the puzzle, please!"
9. PRINT: LINE INPUT "Input horizontal letter-spacing 1.0 to 3.0: "; a$
10. a = VAL(a$): IF a = 0 THEN a = 0 ELSE IF a > 3 THEN a = 3
11. spacerx = a
12. PRINT: LINE INPUT "Input vertical letter-spacing 1.0 to 3.0: "; a$
13. a = VAL(a$): IF a = 0 THEN a = 0 ELSE IF a > 3 THEN a = 3
14. spacery = a
15. CLS: PRINT text$
16.  
17. font = _LOADFONT("lucon.ttf", 60, "monospace")
18. IF font <= 0 THEN font = 16
19.  
20. overlay = _NEWIMAGE(_WIDTH * _FONTWIDTH, _HEIGHT * _FONTHEIGHT, 32)
21. olay = -1
22.  
23. IF olay THEN
24.     _DEST overlay
25. ELSE
26.     SCREEN overlay
27. END IF
28.  
29. _FONT font
30. COLOR _RGB(255, 102, 0), 0
31.  
32. row = 1: col = 1: r1% = 255: r2% = 0: r3% = 0
33. ml = 2: mr = 2: mt = 1: mb = 1
34. COLOR _RGB(255, 255, 255)
35. REM spacerx and spacery were assigned upon input.
36. y = row: x = col: j = 0
37.  
38. maxcpl% = 1 + INT((_WIDTH - ((ml + mr) * _FONTWIDTH)) / (_FONTWIDTH * spacerx)) ' Determines the max number of characters per line.
39. maxrows% = INT((_HEIGHT / _FONTHEIGHT) / spacery) - (mt + mb) + 1
40.  
41. LINE ((ml - .5) * _FONTWIDTH, (mt - .5) * _FONTHEIGHT)-(((ml - .5) * _FONTWIDTH) + (maxcpl% * _FONTWIDTH * spacerx) + (.5 * _FONTWIDTH), maxrows% * spacery * _FONTHEIGHT + _FONTHEIGHT / 2), _RGB(255, 255, 255), B
42.  
43. flag = 0: j = 0
44. DO
45.     _LIMIT 30
46.     b$ = INKEY$
47.     IF show_letters% = 0 THEN
48.         FOR i = 1 TO LEN(text$)
49.             t$ = MID$(text$, i, 1)
50.             k = INSTR(i, text$ + " ", " ") - i
51.  
52.             j = j + 1
53.  
54.             IF j = 1 THEN
55.  
56.                 SELECT CASE j + LEN((MID$(text$ + " ", i, k)))
57.                     CASE IS = maxcpl% + 1 ' Space in margin.
58.                         flag = 1 ' Negate leading space on next print line.
59.                     CASE IS > maxcpl% + 1 ' Word is larger than page width.
60.                         flag = -1
61.                 END SELECT
62.             END IF
63.  
64.             l = LEN((MID$(text$ + " ", i, k)))
65.  
66.             IF j + l > maxcpl% AND flag = 0 OR flag = 1 AND j > maxcpl% OR flag = -1 AND j > maxcpl% THEN
67.                 IF row + 1 = maxrows% THEN EXIT FOR
68.                 x = col: y = y + spacery: j = 0
69.                 IF flag = 1 THEN skip = 1 ' Negates one leading space.
70.                 flag = 0: i = i - 1: row = row + 1
71.             ELSE
72.                 IF skip = 0 THEN
73.                     PSL y + mt, x + ml, t$, r1%, r2%, r3%
74.                     x = x + spacerx
75.                 ELSE
76.                     skip = 0: j = 0
77.                 END IF
78.             END IF
79.         NEXT
80.         _DISPLAY
81.         show_letters% = -1
82.     END IF
83.  
84. LOOP UNTIL LEN(b$)
85.  
86. _FONT 16
87. _FREEFONT font
88. IF olay THEN _FREEIMAGE overlay
89.  
90. IF b$ = CHR$(27) THEN SYSTEM
91.  
92. _DEST 0
93. RUN
94.  
95. SUB PSL (y, x, t$, r1%, r2%, r3%)
96.     IF t$ <> CHR$(32) THEN CALL box(y, x, r1%, r2%, r3%)
97.     _PRINTSTRING ((x - 1) * _FONTWIDTH, (y - 1) * _FONTHEIGHT), t$
98.     IF olay THEN CALL overlay_display
99. END SUB
100.  
101. SUB box (y, x, r1%, r2%, r3%)
102.     LINE ((x - 1) * _FONTWIDTH, ((y - 1) * _FONTHEIGHT))-((x - 1) * _FONTWIDTH + _FONTWIDTH, ((y - 1) * _FONTHEIGHT) + _FONTHEIGHT), _RGB(r1%, r2%, r3%), B , 255
103. END SUB
104.  
105. SUB overlay_display
106.     overlay_hardware = _COPYIMAGE(overlay, 33)
107.     _DELAY .01
108.     _PUTIMAGE (0, 0), overlay_hardware
109. END SUB

Pete

[bplus]

Don't know anything about Hardware images so that part wasn't inspired by me.

I think you @Pete are using it to cheat the system to get graphics effect in text mode screen, correct?

I know hardware image has some advantage either speed or permanence of image but are you @Pete using it for that advantage? probably the permanence part, probably should ask Steve as it came from him.

I am thinking a hardware image could only be background, so overlaying it is confusing to me.