Text Only | Text with Attachments

QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: Pete on October 25, 2021, 07:06:15 pm

Title: Inspired by bplus...
Post by: Pete on October 25, 2021, 07:06:15 pm
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
  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.  
  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
  26.  
  29. _FREEIMAGE overlay
  30.  
  32. _DELAY .66
  33.  
  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
  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

Pete
Title: Re: Inspired by bplus...
Post by: bplus on October 25, 2021, 08:35:53 pm
Nice how you handle a string that doesn't fit on one line across the screen.
Title: Re: Inspired by bplus...
Post by: Pete on October 25, 2021, 09:45:47 pm
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
Title: Re: Inspired by bplus...
Post by: Pete on October 27, 2021, 05:01:14 pm
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
  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.  
  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
  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.  
  77.  
  80. _FREEIMAGE overlay
  81.  
  82. IF b$ = CHR$(27) THEN SYSTEM
  83.  
  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
  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
  96.  
  97. SUB overlay_display
  98.     overlay_hardware = _COPYIMAGE(overlay, 33)
  99.     _PUTIMAGE (0, 0), overlay_hardware

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.
Title: Re: Inspired by bplus...
Post by: Cobalt on October 27, 2021, 07:49:05 pm
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)
Title: Re: Inspired by bplus...
Post by: Pete on October 27, 2021, 08:12:25 pm
@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
  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.  
  21. olay = 0
  22.  
  23. IF olay THEN
  24.     _DEST overlay
  26.     SCREEN overlay
  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
  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.  
  85.  
  88. IF olay THEN _FREEIMAGE overlay
  89.  
  90. IF b$ = CHR$(27) THEN SYSTEM
  91.  
  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
  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
  104.  
  105. SUB overlay_display
  106.     overlay_hardware = _COPYIMAGE(overlay, 33)
  107.     _PUTIMAGE (0, 0), overlay_hardware

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
Title: Re: Inspired by bplus...
Post by: Cobalt on October 27, 2021, 09:22:03 pm
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.
Title: Re: Inspired by bplus...
Post by: Pete on October 27, 2021, 10:59:11 pm
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
  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.  
  21. olay = -1
  22.  
  23. IF olay THEN
  24.     _DEST overlay
  26.     SCREEN overlay
  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
  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.  
  85.  
  88. IF olay THEN _FREEIMAGE overlay
  89.  
  90. IF b$ = CHR$(27) THEN SYSTEM
  91.  
  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
  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
  104.  
  105. SUB overlay_display
  106.     overlay_hardware = _COPYIMAGE(overlay, 33)
  107.     _DELAY .01
  108.     _PUTIMAGE (0, 0), overlay_hardware

Pete
Title: Re: Inspired by bplus...
Post by: bplus on October 28, 2021, 12:13:51 pm
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.
Text Only | Text with Attachments