Simple page formatting

[Richard Frost]

'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.  
12. DO
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
28. LOOP
29. SLEEP
30. END
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.  

[Richard Frost]

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. 

[bplus]

Anyway, see how little code it takes to reformat text.
 

Yeah, that's pretty compact!

[Petr]

That's nice. There are many other things that can be done about it.