1 -- LML original: Sandra Foubister, 1990 2 -- Haskell translation: Colin Runciman, May 1991 3 module Help( 4 helpend, helpdraw, helptile, helpalter, helptsave, helptclear, 5 helptget, helpt4, helpquit, helpbt, helppic, helpdesign, 6 helpdsave, helpdclear, helpdget, inithelp, errmes) where 7 8 import Layout 9 import Mgrfuns 10 11 helpsetup, helpend :: [Char] 12 helpdraw, helpdsave, helpdclear, helpdget :: [Char] 13 helptile, helpalter, helptsave, helptclear, helptget, helpt4 :: [Char] 14 helpquit, helpbt, helppic, helpdesign :: [Char] 15 16 helpsetup = textregion helptextarea ++ font 8 17 18 helpend = cleara helptextarea ++ font 13 19 20 helpdraw = 21 "This button puts you in drawing mode.\n" ++ 22 "Lines can be drawn in the STAMP DESIGN \n" ++ 23 "area by holding down the middle button,\n" ++ 24 "and deleted by clicking\n" ++ 25 "with the right one.\n" ++ 26 "\nLittle circles will appear if a line\n" ++ 27 "touches the edge of the square.\n" ++ 28 "These indicate positions on all the sides\n" ++ 29 "that would contact that line in each of\n" ++ 30 "the possible orientations of the print.\n" ++ 31 "Unless special effects are being sought,\n"++ 32 "the recommendation is that all little\n" ++ 33 "circles be attached to a line.\n" ++ 34 endmes 35 36 helptile = 37 "In this mode, orientations of the print\n" ++ 38 "can be placed in the TILE DESIGN area\n" ++ 39 "to create a 64 X 64 big tile\n" ++ 40 "\nUse the right button to select a print\n" ++ 41 "and the middle button to place it.\n" ++ 42 "\nWithin the tiling area the right button\n" ++ 43 "may also be used to delete a square\n" ++ 44 "\nTo rotate or invert squares within\n" ++ 45 "the big tile it may be more convenient\n" ++ 46 "to use the ALTER mode." ++ 47 endmes 48 49 helpalter = 50 "In ALTER mode, squares within the\n" ++ 51 "big tile can be adjusted.\n" ++ 52 "The middle button causes them to \n" ++ 53 "rotate clockwise.\n" ++ 54 "The right button causes them to\n" ++ 55 "invert." ++ 56 endmes 57 58 helptsave = 59 -- "This SAVE button prompts for a filename.\n" ++ 60 -- "It creates a file from which\n" ++ 61 -- "the actual big tile may be printed out\n" ++ 62 -- "(from outside this program)\n" ++ 63 -- "with the command: " ++ printcommand ++ 64 -- "\nThe filename can also be used\n" ++ 65 -- "to retrieve the pattern of orientations used\n" ++ 66 -- "in the big tile, so that this may be used\n" ++ 67 -- "in conjunction with another print.\n" ++ 68 -- "\n\nThe pattern is retrieved by use of the\n" ++ 69 -- "GET button\n" ++ 70 "Sorry, SAVE is temporarily inoperative." ++ --CR 71 endmes 72 73 helptclear = 74 "This CLEAR button clears the TILE DESIGN\n" ++ 75 "region and draws an empty grid." ++ 76 endmes 77 78 helptget = 79 -- "GET enables previously stored patterns\n" ++ 80 -- "of orientations to be retrieved.\n" ++ 81 -- "Type in the name of the pattern\n" ++ 82 -- "to be retrieved\n" ++ 83 -- "\n\nIn addition to this there are some\n" ++ 84 -- "predefined patterns that can be imposed\n" ++ 85 -- "on the current print: " ++ predefinedpats ++ 86 -- "\nFor these, type the pattern name\n" ++ 87 -- "preceded by *\n" ++ 88 "Sorry, GET is temporarily inoperative." ++ --CR 89 endmes 90 91 helpt4 = 92 "The T4 button tiles the whole big tile\n" ++ 93 "with the pattern of the four squares\n" ++ 94 "in the top left hand corner\n" ++ 95 endmes 96 97 helpquit = 98 "\n\n\nClicking on QUIT allows you\n" ++ 99 "to leave the program.\n" ++ 100 endmes 101 102 helpbt = 103 "\n\n\nWithin the TILE DESIGN area,\n" ++ 104 "a big tile, based on orientations of\n" ++ 105 "a print design, can be built.\n" ++ 106 "\nUsing TILE mode the right button\n" ++ 107 "will select from a palette at the bottom\n" ++ 108 "of the screen, and the middle button will\n" ++ 109 "place the selection within the big tile.\n" ++ 110 "Within the area the right button will\n" ++ 111 "delete squares.\n" ++ 112 "\nUsing ALTER mode the right button will\n" ++ 113 "invert squares, and the middle button \n" ++ 114 "will rotate them." ++ 115 endmes 116 117 helppic = 118 "\nThese boxes show the eight possible\n" ++ 119 "orientations of the print that is\n" ++ 120 "to be used in tiling\n" ++ 121 "\nWhen in tiling mode, clicking with the\n" ++ 122 "right button over one of these\n" ++ 123 "will make it the \"current selection\".\n" ++ 124 "Clicking with the middle button in\n" ++ 125 "the TILE DESIGN grid, will put that\n" ++ 126 "orientation of the print at that place" ++ 127 endmes 128 129 helpdesign = 130 "\n\n\nThis is the area in which to design \nyour print.\n" ++ 131 "\nDraw lines by holding down the\n middle button.\n" ++ 132 "Delete lines by clicking with the\n right button.\n" ++ 133 "\n\nA print that has previously been saved\n" ++ 134 "can be restored by clicking on GET\n" ++ 135 "then typing in the filename at the prompt.\n" ++ 136 endmes 137 138 helpdsave = 139 -- "\nClicking on this SAVE button allows\n" ++ 140 -- "you to save a design for future\n" ++ 141 -- "re-use.\n\n" ++ 142 -- "You will be prompted for a file name\n" ++ 143 -- "in which it will be saved\n\n" ++ 144 -- "To restore the design, click on GET\n" ++ 145 -- "and type in the name of the file in which\n" ++ 146 -- "it has been kept." ++ 147 "Sorry, SAVE is temporarily inoperative." ++ --CR 148 endmes 149 150 helpdclear = 151 "\n\n\nThis clears the PRINT DESIGN grid.\n" ++ 152 "The print currently being worked on\n" ++ 153 "will be lost, unless it has been\n" ++ 154 "explicitly SAVEd first\n" ++ 155 endmes 156 157 helpdget = 158 -- "\n\n\nTo restore a print that has previously\n" ++ 159 -- "been saved, click on GET and then\n" ++ 160 -- "type in the filename." ++ 161 "Sorry, GET is temporarily inoperative." ++ --CR 162 endmes 163 164 inithelp, errmes, endmes{-, printcommand, predefinedpats-} :: [Char] 165 166 inithelp = helpsetup ++ clear ++ 167 "\n\n\n\nTo find out the use of a particular\n" ++ 168 "menu button or region of the screen, \n" ++ 169 "click over the item you wish to\n" ++ 170 "investigate.\n" 171 172 errmes = "\n\n\nYou have clicked over an area \n" ++ 173 "of no particular interest.\n" ++ 174 endmes 175 176 endmes = "\n\n PRESS RETURN TO RETURN TO THE PROGRAM\n" ++ 177 "OR CLICK SOMEWHERE ELSE TO FIND OUT MORE\n" 178 179 --UNUSED: printcommand = "cat filename|lpr -apple1" 180 181 {- UNUSED: 182 predefinedpats = "\n quartet\tquartets\n" ++ 183 " lwheel\trwheel\n" ++ 184 " wheels1\twheels2\n" ++ 185 " pic1\tpic2\n" ++ 186 " escher1\tescher2\n" ++ 187 " symcols\tplain" 188 -}