home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / ps / compoch.ars < prev    next >
Text File  |  1991-04-10  |  6KB  |  246 lines
  1.  
  2. @Use(Database="/u/cs/maguire/scribe")
  3. @make(article)
  4. @device(postscript)
  5. @style(fontfamily="QTimesRoman8")
  6. @style(stringmax 50000)
  7.  
  8. @style(DeviceInitialization=
  9. <% the followin procedure is from Adobe_distill 1.0
  10.  
  11.  /REMAP { %def
  12.    FontDirectory 2 index known { pop pop pop } { %ifelse
  13.      findfont begin currentdict dup length dict begin
  14.        { 1 index /FID ne {def}{pop pop} ifelse } forall
  15.        exch dup length 0 gt { /Encoding exch def }{ pop } ifelse
  16.      currentdict end end definefont pop
  17.    } ifelse
  18.  }  def
  19.  
  20. /appencoding
  21. [
  22.   /.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
  23.   /.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
  24.   /.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
  25.   /.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
  26.   /space/exclam/quotedbl/numbersign/dollar/percent/ampersand/quotesingle
  27.   /parenleft/parenright/asterisk/plus/comma/hyphen/period/slash
  28.   /zero/one/two/three/four/five/six/seven/eight/nine/colon/semicolon
  29.   /less/equal/greater/question/at/A/B/C/D/E/F/G/H/I/J/K/L/M/N
  30.   /O/P/Q/R/S/T/U/V/W/X/Y/Z/bracketleft/backslash/bracketright
  31.   /asciicircum/underscore/grave/a/b/c/d/e/f/g/h/i/j/k/l/m/n/o
  32.   /p/q/r/s/t/u/v/w/x/y/z/braceleft/bar/braceright/asciitilde/.notdef
  33.   /fraction /quotesingle /quotedblleft /guilsinglleft /guilsinglright
  34.   /fi /endash /dagger
  35.   /daggerdbl /periodcentered /quotesinglbase /quotedblbase
  36.   /quotedblright /ellipsis /perthousand /breve
  37.   /dotaccent /dieresis /cedilla /hungarumlaut /ogonek /caron /Lslash /OE
  38.   /dotlessi /lslash /oe /Ecircumflex /Edieresis /Egrave /Eth
  39.   /Icircumflex
  40.   /Idieresis /Agrave /Acircumflex /Egrave /Ecircumflex /Edieresis
  41.   /Icircumflex /Idieresis
  42.   /acute /grave /circumflex /dieresis /tilde /Ugrave /Ucircumflex /fl
  43.   /macron /Yacute /yacute /ring /Ccedilla /ccedilla /Ntilde /ntilde
  44.   /exclamdown /questiondown /currency /sterling /yen /section /florin
  45.   /cent
  46.   /acircumflex /ecircumflex /ocircumflex /ucircumflex /aacute /eacute
  47.   /oacute /uacute
  48.   /agrave /egrave /ograve /ugrave /adieresis /edieresis /odieresis
  49.   /udieresis
  50.   /Aring /icircumflex /Oslash /AE /aring /iacute /oslash /ae
  51.   /Adieresis /igrave /Odieresis /Udieresis /Eacute /idieresis
  52.   /germandbls /Ocircumflex
  53.   /Aacute /Atilde /atilde /Zcaron /zcaron /Iacute /Igrave /Oacute
  54.   /Ograve /Otilde /otilde /Scaron /scaron /Uacute /Ydieresis /ydieresis
  55.   /Thorn /thorn /bullet /mu /paragraph /threequarters /emdash
  56.   /onequarter
  57.   /onehalf /ordfeminine /ordmasculine /guillemotleft /brokenbar
  58.   /guillemotright /plusminus /eth
  59. ] def
  60.  
  61. appencoding /Times-Roman8 /Times-Roman REMAP
  62.  
  63. % PostScript Prelude for Scribe.
  64. ...
  65. %%EndProlog
  66. >)
  67.  
  68. Print all the printing characters from the QTimesRoman8 font:
  69.  
  70.  
  71.  
  72.  
  73.  
  74. @begin(format)
  75.  !"#$%&'()*+,-./0123456789:;<=>?
  76. @@
  77. ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`
  78. abcdefghijklmnopqrstuvwxyz{|}~
  79.  
  80.  
  81.  
  82.  
  83.  
  84.  !"#$%&'()*+,-./
  85.  
  86. 0123456789:;<=>?
  87.  
  88. @ABCDEFGHIJKLMNO
  89.  
  90. PQRSTUVWXYZ[\]^_
  91.  
  92. `abcdefghijklmno
  93.  
  94. pqrstuvwxyz{|}~
  95. @end(format)
  96.  
  97. @heading(Roman 8 characters and HP keyboard)
  98.  
  99. @begin(format)
  100.   8#201 /quotesingle    %% scribe 169
  101.   8#202 /quotedblleft    %% scribe 170
  102.   8#203 /guilsinglleft  %% scribe 172
  103.   8#204 /guilsinglright %% scribe 173
  104.   8#205 /fi        %% scribe 174
  105.   8#206 /endash        %% scribe 177
  106.   8#207 /dagger        %% scribe 178
  107.  
  108.   8#210 /daggerdbl    %% scribe 179
  109.       8#211 /periodcentered %% scribe 180
  110.  
  111.   8#212 /quotesinglbase %% scribe 184
  112.   8#213 /quotedblbase   %% scribe 185
  113.   8#214 /quotedblright  %% scribe 186
  114.  
  115.   8#216 /perthousand    %% scribe 189
  116.   8#217 /breve        %% scribe 198
  117.  
  118.  8#220 /dotaccent    %% scribe 199
  119.   8#221 /dieresis    %% scribe 200
  120.   8#222 /cedilla    %% scribe 203
  121.   8#223 /hungarumlaut    %% scribe 205
  122.   8#224 /ogonek        %% scribe 206
  123.   8#225 /caron        %% scribe 207
  124.   8#226 /Lslash        %% scribe 232
  125.   8#227 /OE        %% scribe 234
  126.  
  127.   8#230 /dotlessi    %% scribe 245
  128.   8#231 /lslash        %% scribe 248
  129.   8#232 /oe        %% scribe 250
  130.   8#233 /Ecircumflex    %% unassigned
  131.   8#234 /Edieresis    %% unassigned
  132.   8#235 /Egrave        %% unassigned
  133.   8#236 /Eth        %% unassigned
  134.   8#237 /Icircumflex    %% unassigned
  135.  
  136.    8#240 /Idieresis    %% unassigned
  137. !    8#241 /Agrave
  138. "    8#242 /Acircumflex
  139. #    8#243 /Egrave
  140. $    8#244 /Ecircumflex
  141. %    8#245 /Edieresis
  142. &    8#246 /Icircumflex
  143. '    8#247 /Idieresis
  144.  
  145. (    8#250 /acute
  146. )    8#251    /grave
  147. *    8#252 /circumflex
  148. +    8#253 /dieresis
  149. ,    8#254 /tilde
  150. -    8#255 /Ugrave
  151. .    8#256 /Ucircumflex
  152. /    8#257 /fl  % /ItalianLira %%% missing from Postscript use fl
  153.  
  154. 0    8#260 /macron
  155. 1    8#261 /Yacute
  156. 2    8#262 /yacute
  157. 3    8#263 /ring
  158. 4    8#264 /Ccedilla
  159. 5    8#265 /ccedilla
  160. 6    8#266 /Ntilde
  161. 7    8#267 /ntilde
  162.  
  163. 8    8#270 /exclamdown
  164. 9    8#271    /questiondown
  165. :    8#272 /currency
  166. ;    8#273 /sterling
  167. <    8#274 /yen
  168. =    8#275 /section
  169. >    8#276 /florin
  170. ?    8#277 /cent
  171.  
  172. @    8#300 /acircumflex
  173. A    8#301    /ecircumflex
  174. B    8#302 /ocircumflex
  175. C    8#303 /ucircumflex
  176. D    8#304 /aacute
  177. E    8#305 /eacute
  178. F    8#306 /oacute
  179. G    8#307 /uacute
  180.  
  181. H    8#310 /agrave
  182. I    8#311    /egrave
  183. J    8#312 /ograve
  184. K    8#313 /ugrave
  185. L    8#314 /adieresis
  186. M    8#315 /edieresis
  187. N    8#316 /odieresis
  188. O    8#317 /udieresis
  189.  
  190. P    8#320 /Aring
  191. Q    8#321 /icircumflex
  192. R    8#322 /Oslash
  193. S    8#323 /AE
  194. T    8#324 /aring
  195. U    8#325 /iacute
  196. V    8#326 /oslash
  197. W    8#327 /ae
  198.  
  199. X    8#330 /Adieresis
  200. Y    8#331 /igrave
  201. Z    8#332 /Odieresis
  202. [    8#333 /Udieresis
  203. \    8#334 /Eacute
  204. ]    8#335 /idieresis
  205. ^    8#336 /germandbls
  206. _    8#337 /Ocircumflex
  207.  
  208. `    8#340 /Aacute
  209. a    8#341 /Atilde
  210. b    8#342 /atilde
  211. c    8#343 /Zcaron % /Dstroke %%% missing from Postscript use Zcaron
  212. d    8#344 /zcaron % /dstroke %%% missing from Postscript use zcaron
  213. e    8#345 /Iacute
  214. f    8#346 /Igrave
  215. g    8#347 /Oacute
  216.  
  217. h    8#350 /Ograve
  218. i    8#351    /Otilde
  219. j    8#352 /otilde
  220. k    8#353 /Scaron
  221. l    8#354 /scaron
  222. m    8#355 /Uacute
  223. n    8#356 /Ydieresis
  224. o    8#357 /ydieresis
  225.  
  226. p    8#360 /Thorn
  227. q    8#361 /thorn
  228. r    8#362 /bullet
  229. s    8#363 /mu
  230. t    8#364 /paragraph
  231. u    8#365 /threequarters % /IO %%% missing from Postscript use 3/4
  232. v    8#366 /emdash
  233. w    8#367 /onequarter
  234.  
  235. x    8#370 /onehalf
  236. y    8#371    /ordfeminine
  237. z    8#372 /ordmasculine
  238. {    8#373 /guillemotleft
  239. |    8#374 /brokenbar % /solidbox  %%% missing from Postscript use brokenbar
  240. }     8#375 /guillemotright
  241. ~    8#376 /plusminus
  242.     8#377 /eth %%% use "eth" as the symbol in the 16#FF slot
  243. @end(format)
  244.  
  245.  
  246.