home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 9 / FreshFishVol9-CD2.bin / bbs / reviews / text.lha / text / ProperGrammarII.ps < prev    next >
Internet Message Format  |  1993-06-13  |  61KB
  1. Path: menudo.uh.edu!usenet
  2. From: mwm@contessa.palo-alto.ca.us (Mike Meyer)
  3. Newsgroups: comp.sys.amiga.reviews
  4. Subject: EXAMPLE: Proper Grammar II (Postscript)
  5. Followup-To: comp.sys.amiga.applications
  6. Date: 13 Jun 1993 16:04:37 GMT
  7. Organization: The Amiga Online Review Column - ed. Daniel Barrett
  8. Lines: 1542
  9. Sender: amiga-reviews@math.uh.edu (comp.sys.amiga.reviews moderator)
  10. Distribution: world
  11. Message-ID: <1vfj6l$t5p@menudo.uh.edu>
  12. Reply-To: mwm@contessa.palo-alto.ca.us (Mike Meyer)
  13. NNTP-Posting-Host: karazm.math.uh.edu
  14. Keywords: grammar, spelling, commercial
  15.  
  16.  
  17.     This is an example of the Postscript output of Proper Grammar II as
  18. produced by Final Copy II.  It goes with the review "ProperGrammarII" which
  19. is also in this ftp archive.
  20.  
  21. ---
  22.    Dan Barrett, Moderator, comp.sys.amiga.reviews
  23.    Send reviews to:    amiga-reviews-submissions@math.uh.edu
  24.    Request information:    amiga-reviews-requests@math.uh.edu
  25.    Moderator mail:    amiga-reviews@math.uh.edu
  26.  
  27. ------------8<----------------- cut here ----------------8<------------------
  28. %!PS-Adobe-2.0
  29. %%Copyright:     1991-SoftWood, Inc.
  30. %%Creator:       Final Copy
  31. %%CreationDate:  Friday,=A0June=A011,=A01993 - 8:16=A0PM
  32. %%Title:         src:text/reviews/ProperGrammarII.fc
  33. %%Pages:         (atend)
  34. %%DocumentFonts:  Bookman-LightItalic
  35. %%+ Bookman-Light
  36. %%+ Optane
  37. %%EndComments
  38. /#copies 1 def
  39. /u_doc (src:text/reviews/ProperGrammarII.fc) def
  40. /u_time (8:16\240PM) def
  41. /u_date (Friday,\240June\24011,\2401993) def
  42. /u_pageht 792.00 def
  43. /u_pagewd 612.00 def
  44. % initialize a few blank procedures ( to be replaced in user-def.ps )
  45. /UserDoc {} bind def
  46. /UserEOD {} bind def
  47. /UserBOP {} bind def
  48. /UserEOP {} bind def
  49. % FILE INSERTED: user-def.ps
  50. % =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
  51. =3D=3D
  52.  
  53. % =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
  54. =3D=3D
  55. % END OF FILE: user-def.ps
  56.  
  57. %%BeginProlog
  58. % Prolog for "Final Copy" PostScript=AE output
  59. % Author:    Pat Brouillette
  60. % Version:    V2.0!!
  61. % Date:        June 9, 1992
  62. % Copyright (c) 1991,1992 SoftWood, Inc.
  63. % This file may not be modified or used for purposes other than
  64. % creating output with "Final Copy", so there.
  65. %
  66. % If you wish to make changes, make them in the file "user-def.ps"
  67. % located in the "FCFiles" directory and create a few PostScript
  68. % procedures, "UserDoc", "UserBOP", and "UserEOP". "Final Copy" will
  69. % automagically call these procedures at the beginning of the document
  70. % and the beginning and end of each page, respectively.
  71. %
  72. /SWDict 130 dict def
  73. SWDict begin
  74. /bd {bind def}bind def
  75. /ld {load def}bd
  76. /ed {exch def}bd
  77. /FF {gsave showpage grestore}bd
  78. /n /newpath ld
  79. /cp /currentpoint ld
  80. /clp /closepath ld
  81. /st /stroke ld
  82. /sh /show ld
  83. /tr /translate ld
  84. /m /moveto ld
  85. /rm /rmoveto ld
  86. /l /lineto ld
  87. /rl /rlineto ld
  88. /c /curveto ld
  89. /rc /rcurveto ld
  90. /gs /gsave ld
  91. /gr /grestore ld
  92. /clw /currentlinewidth ld
  93. /slw /setlinewidth ld
  94. /clj /currentlinejoin ld
  95. /slj /setlinejoin ld
  96. /clc /currentlinecap ld
  97. /slc /setlinecap ld
  98. /cml /currentmiterlimit ld
  99. /sml /setmiterlimit ld
  100. /cdash /currentdash ld
  101. /sdash /setdash ld
  102. /cg /currentgray ld
  103. /sg /setgray ld
  104. /cm /currentmatrix ld
  105. /sm /setmatrix ld
  106. /chsb /currenthsbcolor ld
  107. /shsb /sethsbcolor ld
  108. /crgb /currentrgbcolor ld
  109. /srgb /setrgbcolor ld
  110.  
  111. /reencsmalldict 12 dict def
  112. /ReEncodeSmall
  113. { reencsmalldict begin
  114. /newcodesandnames exch def
  115. /newfontname exch def
  116. /basefontname exch def
  117. /basefontdict basefontname findfont def
  118. /newfont basefontdict maxlength dict def
  119. basefontdict
  120.     { exch dup /FID ne
  121.         { dup /Encoding ne
  122.             { exch newfont 3 1 roll put }
  123.             { exch dup length array copy newfont 3 1 roll put }
  124.             ifelse }
  125.         { pop pop }
  126.         ifelse
  127.     } forall
  128. newfont /FontName newfontname put
  129. newcodesandnames aload pop
  130. newcodesandnames length 2 idiv
  131. { newfont /Encoding get 3 1 roll put} repeat
  132. newfontname newfont definefont pop
  133. end
  134. } def
  135.  
  136. /AmiVec [
  137. 8#220 /dotlessi        8#221 /grave        8#222 /acute        8#223 /circumflex
  138. 8#224 /tilde        8#225 /macron        8#226 /breve        8#227 /dotaccent
  139. 8#230 /dieresis        8#232 /ring        8#233 /cedilla        8#235 /hungarumlaut
  140. 8#236 /ogonek        8#237 /caron        8#240 /nbspace        8#241 /exclamdown
  141. 8#242 /cent        8#243 /sterling        8#244 /currency        8#245 /yen
  142. 8#246 /brokenbar    8#247 /section        8#250 /dieresis        8#251 /copyright
  143. 8#252 /ordfeminine    8#253 /guillemotleft    8#254 /logicalnot    8#255 /hyphen
  144. 8#256 /registered    8#257 /macron        8#260 /degree        8#261 /plusminus
  145. 8#262 /twosuperior    8#263 /threesuperior    8#264 /acute        8#265 /mu
  146. 8#266 /paragraph    8#267 /bullet        8#270 /cedilla        8#271 /onesuperior
  147. 8#272 /ordmasculine    8#273 /guillemotright    8#274 /onequarter    8#275 /onehal=
  148. f
  149. 8#276 /threequarters    8#277 /questiondown    8#300 /Agrave        8#301 /Aacute
  150. 8#302 /Acircumflex    8#303 /Atilde        8#304 /Adieresis    8#305 /Aring
  151. 8#306 /AE        8#307 /Ccedilla        8#310 /Egrave        8#311 /Eacute
  152. 8#312 /Ecircumflex    8#313 /Edieresis    8#314 /Igrave        8#315 /Iacute
  153. 8#316 /Icircumflex    8#317 /Idieresis    8#320 /Eth        8#321 /Ntilde
  154. 8#322 /Ograve        8#323 /Oacute        8#324 /Ocircumflex    8#325 /Otilde
  155. 8#326 /Odieresis    8#327 /multiply        8#330 /Oslash        8#331 /Ugrave
  156. 8#332 /Uacute        8#333 /Ucircumflex    8#334 /Udieresis    8#335 /Yacute
  157. 8#336 /Thorn        8#337 /germandbls    8#340 /agrave        8#341 /aacute
  158. 8#342 /acircumflex    8#343 /atilde        8#344 /adieresis    8#345 /aring
  159. 8#346 /ae        8#347 /ccedilla        8#350 /egrave        8#351 /eacute
  160. 8#352 /ecircumflex    8#353 /edieresis    8#354 /igrave        8#355 /iacute
  161. 8#356 /icircumflex    8#357 /idieresis    8#360 /eth        8#361 /ntilde
  162. 8#362 /ograve        8#363 /oacute        8#364 /ocircumflex    8#365 /otilde
  163. 8#366 /odieresis    8#367 /divide        8#370 /oslash        8#371 /ugrave
  164. 8#372 /uacute        8#373 /ucircumflex    8#374 /udieresis    8#375 /yacute
  165. 8#376 /thorn        8#377 /ydieresis    8#055 /hyphen
  166. ] def
  167.  
  168. /fult 1 def
  169. /fuld -2 def
  170. /fstd 5 def
  171. % Gold's re-make font scheme
  172. /font {
  173.     /newfontname ed /basefontname ed
  174.     dup /sY ed mul 100 div /sX ed sY 0.3 mul /fstd ed
  175.     100 div sX mul sX mul sY div /Ob ed
  176.     FontDirectory newfontname known not
  177.     { basefontname newfontname AmiVec ReEncodeSmall } if
  178.     newfontname findfont [ sX 0 Ob sY 0 0 ] makefont setfont
  179.     currentfont dup/FontInfo get/UnderlinePosition known not
  180.         {pop /Courier findfont}if
  181.         /FontInfo get/UnderlinePosition get 1000 div sY mul /fuld ed
  182.     currentfont dup/FontInfo get/UnderlineThickness known not
  183.         {pop /Courier findfont}if
  184.         /FontInfo get/UnderlineThickness get 1000 div sY mul /fult ed
  185. }def
  186.  
  187. /js { 4 2 roll moveto dup stringwidth pop 3 -1 roll exch sub exch dup len=
  188. gth 1 sub 3 -1 roll exch div 0 3 -1 roll ashow }bd
  189. /ujs { 4 copy pop 3 1 roll n m 0 /fuld load rm /fult load slw 0 rl st js =
  190. } bd
  191. /djs { 4 copy pop 3 1 roll n m 0 /fuld load 2 mul rm /fult load slw 0 rl =
  192. st ujs } bd
  193. /sjs { 4 copy pop 3 1 roll n m 0 /fstd load rm /fult load slw 0 rl st js =
  194. } bd
  195. /ms {m sh}bd
  196. /lms { cp /y0 ed /x0 ed sh cp /y1 ed /x1 ed x0 y0 n m rm x1 x0 sub y1 y0 =
  197. sub rl /fult load slw st x1 y1 m }bd
  198. /ums { m 0 /fuld load 3 -1 roll lms }bd
  199. /dms { 3 copy n m stringwidth pop 0 /fuld load 2 mul rm /fult load slw 0 =
  200. rl st ums }bd
  201. /sms { m 0 /fstd load 3 -1 roll lms }bd
  202. /F {findfont exch scalefont setfont}bd
  203. /box{m /ht ed/wd ed wd 0 rl 0 ht rl wd neg 0 rl clp}bd
  204. end
  205. % end of SoftWood dictionary
  206. %%EndProlog
  207. %%BeginSetup
  208. userdict /SWDict known not {
  209. /Times-Roman findfont 12 scalefont setfont newpath 72 500 moveto
  210. (Error:  the Final Copy PostScript preamble is not available )show
  211. newpath 72 486 moveto
  212. (on your printer.  Make sure that Final Copy has been properly)show
  213. newpath 72 472 moveto(  installed on your computer system.)show
  214. newpath 72 458 moveto(This print job has been aborted.)show
  215. showpage stop}if
  216. SWDict begin
  217. /DefaultFontName /Times def
  218. % Call the user's document setup routine
  219. UserDoc
  220. % set pen to black
  221. 0 sg
  222. %%EndSetup
  223.  
  224. %%Page: 4
  225. %%BeginPageSetup
  226. /u_copy 1 def
  227. /u_page 4 def
  228. % Call the user's page setup routine
  229. UserBOP
  230. %%EndPageSetup
  231. 0 100 12.00 /Bookman-LightItalic /font1 font
  232. 72.00 701.40 212.70  (Comparison to other similar products) js
  233. 0 100 12.00 /Bookman-Light /font2 font
  234. 72.00 682.70 277.30  (The other similar products I've used are nearly ) j=
  235. s
  236. 349.30 682.70 14.80  (10) js
  237. ( ) 364.10 682.70  ms
  238. 367.90 682.70 161.10  (years old at this point. The ) js
  239. 0 100 12.00 /Bookman-LightItalic /font1 font
  240. 72.00 668.70 29.40  (UNIX) js
  241. ( ) 101.40 668.70  ms
  242. 105.00 668.70 38.30  (diction)