Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: Richard Frost on November 05, 2020, 11:15:54 pm

Title: Simple page formatting
Post by: Richard Frost on November 05, 2020, 11:15:54 pm
'Ave ye ever wanted to plunk a page of text to the screen, yet be able to edit it
ad infinitum, or change the font, without having to monkey with the formatting? 
Here's a simple way.  It's also the heart of a book reader.

Code: QB64: [Select]
  1. DEFLNG A-Z
  2. SCREEN _NEWIMAGE(480, 600, 32) '                                                   whatever screen you like
  3.  
  4. f = _LOADFONT("liberati.ttf", 14, "BOLD") '                                        whatever font you like, or none
  5. _FONT f '                                                                          use the font, or not
  6.  
  7. xmar = 20: ymar = 20 '                                                             margins, vary to suit taste/requirements
  8. xmin = xmar: xmax = _WIDTH - xmar
  9. ymin = ymar: ymax = _HEIGHT - ymar
  10. x = xmin: y = ymin
  11.  
  13.     READ t$
  14.     IF t$ = "end" THEN EXIT DO
  15.     DO
  16.         p = INSTR(t$, " ") '                                                       position of next space in line
  17.         IF p = 0 THEN p = LEN(t$) '                                                no space, take whatever is remaining
  18.         IF p = 0 THEN EXIT DO '                                                    nothing to see here, people, move along
  19.         w$ = LEFT$(t$, p) '                                                        word
  20.         t$ = RIGHT$(t$, LEN(t$) - LEN(w$)) '                                       remove word from line
  21.         nl = 0: IF RIGHT$(w$, 2) = "/p" THEN nl = 1: w$ = LEFT$(w$, LEN(w$) - 2) ' detect new paragraph, and strip command from word
  22.         w$ = RTRIM$(w$) + " " '                                                    because there's no space between lines in the data statements
  23.         IF (x + _PRINTWIDTH(w$)) > xmax THEN x = xmin: y = y + 16 '                won't fit, start new line
  24.         _PRINTSTRING (x, y), w$ '                                                  show word
  25.         x = x + _PRINTWIDTH(w$) '                                                  git along, little doggy
  26.         IF nl THEN x = xmin: y = y + 32 '                                          new paragraph
  27.     LOOP UNTIL y > ymax '                                                          ran out of space on the page
  31.  
  32. DATA "Chess Information/p"
  33. DATA ""
  34. DATA "Move a piece by clicking on it, then click the destination square, or move the"
  35. DATA "mouse cursor off the board and use the arrow keys and Enter.  The program will"
  36. DATA "not allow illegal moves.  If you change your mind about moving a piece after"
  37. DATA "having selected it, move it to an illegal spot or press Esc./p"
  38. DATA ""
  39. DATA "If you quit the program by accident, the game may be resumed by selecting File"
  40. DATA "Playback in the Setup menu and choose the highest numbered .alg file.  Games"
  41. DATA "are saved with the filenames chNNNNNN.alg, with N being a number in sequence./p"
  42. DATA ""
  43. DATA "Selet options by letter or mouse click.  Castling and en passant are supported./p"
  44. DATA ""
  45. DATA "If the clock color is set to Thermal (the default), the colors indicate CPU"
  46. DATA "load - green normal, yellow >74%, and red >94%.  Delays are forced at red, but"
  47. DATA "it may not be enough to prevent your computer from going into thermal shutdown "
  48. DATA "(rebooting).  I suggest you do not run this program while web browsing and"
  49. DATA "playing music videos. There's also a thermometer option, but it's ugly./p"
  50. DATA ""
  51. DATA "The plasma effect can be restarted with g (graphics), accentuated with ', or"
  52. DATA "turned off in Setup. PgUp/PgDn controls the sound volume./p"
  53. DATA ""
  54. DATA "Exit the program by clicking the local X at top right or the game will not be"
  55. DATA "saved.  More information, extra commands, and keyboard shortcuts may be"
  56. DATA "found by looking at the source code./p"
  57. DATA ""
  58. DATA "Esc: Return to game"
  59.  
  60. DATA "end"
  61.  
Title: Re: Simple page formatting
Post by: Richard Frost on November 05, 2020, 11:38:52 pm
Er - the 16 should be (_FONTHEIGHT+2) and the 32 should be ((_FONTHEIGHT+2)*2).

Anyway, see how little code it takes to reformat text. 
Title: Re: Simple page formatting
Post by: bplus on November 05, 2020, 11:40:19 pm
Quote
Anyway, see how little code it takes to reformat text.
 

Yeah, that's pretty compact!
Title: Re: Simple page formatting
Post by: Petr on November 06, 2020, 01:11:05 pm
That's nice. There are many other things that can be done about it.
Text Only | Text with Attachments