Newsgroups: comp.lang.postscript
Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!zaphod.mps.ohio-state.edu!sol.ctr.columbia.edu!cunixf.cc.columbia.edu!cs.columbia.edu!maguire
From: maguire@cs.columbia.edu (Gerald Q. Maguire)
Subject: Re: Composite accented characters
In-Reply-To: mzellers@starnet.uucp's message of 25 Mar 91 18:05:10 GMT
Message-ID: <MAGUIRE.91Mar25185349@cs.cs.columbia.edu>
Sender: maguire@cs.columbia.edu (Gerald Q. Maguire)
Organization: Columbia University Department of Computer Science
References: <5916@acorn.co.uk> <1991Mar25.180510.22349@starnet.uucp>
Distribution: comp
Date: 25 Mar 91 18:53:49

Sample of using the encode from Scribe to provide the same 8 bit
characters as a HP terminal in Roman8 mode.
Enjoy,
Chip


@Use(Database="/u/cs/maguire/scribe")
@make(article)
@device(postscript)
@style(fontfamily="QTimesRoman8")
@style(stringmax 50000)

@style(DeviceInitialization=
<% the followin procedure is from Adobe_distill 1.0

 /REMAP { %def
   FontDirectory 2 index known { pop pop pop } { %ifelse
     findfont begin currentdict dup length dict begin
       { 1 index /FID ne {def}{pop pop} ifelse } forall
       exch dup length 0 gt { /Encoding exch def }{ pop } ifelse
     currentdict end end definefont pop
   } ifelse
 }  def

/appencoding
[
  /.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
  /.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
  /.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
  /.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
  /space/exclam/quotedbl/numbersign/dollar/percent/ampersand/quotesingle
  /parenleft/parenright/asterisk/plus/comma/hyphen/period/slash
  /zero/one/two/three/four/five/six/seven/eight/nine/colon/semicolon
  /less/equal/greater/question/at/A/B/C/D/E/F/G/H/I/J/K/L/M/N
  /O/P/Q/R/S/T/U/V/W/X/Y/Z/bracketleft/backslash/bracketright
  /asciicircum/underscore/grave/a/b/c/d/e/f/g/h/i/j/k/l/m/n/o
  /p/q/r/s/t/u/v/w/x/y/z/braceleft/bar/braceright/asciitilde/.notdef
  /fraction /quotesingle /quotedblleft /guilsinglleft /guilsinglright
  /fi /endash /dagger
  /daggerdbl /periodcentered /quotesinglbase /quotedblbase
  /quotedblright /ellipsis /perthousand /breve
  /dotaccent /dieresis /cedilla /hungarumlaut /ogonek /caron /Lslash /OE
  /dotlessi /lslash /oe /Ecircumflex /Edieresis /Egrave /Eth
  /Icircumflex
  /Idieresis /Agrave /Acircumflex /Egrave /Ecircumflex /Edieresis
  /Icircumflex /Idieresis
  /acute /grave /circumflex /dieresis /tilde /Ugrave /Ucircumflex /fl
  /macron /Yacute /yacute /ring /Ccedilla /ccedilla /Ntilde /ntilde
  /exclamdown /questiondown /currency /sterling /yen /section /florin
  /cent
  /acircumflex /ecircumflex /ocircumflex /ucircumflex /aacute /eacute
  /oacute /uacute
  /agrave /egrave /ograve /ugrave /adieresis /edieresis /odieresis
  /udieresis
  /Aring /icircumflex /Oslash /AE /aring /iacute /oslash /ae
  /Adieresis /igrave /Odieresis /Udieresis /Eacute /idieresis
  /germandbls /Ocircumflex
  /Aacute /Atilde /atilde /Zcaron /zcaron /Iacute /Igrave /Oacute
  /Ograve /Otilde /otilde /Scaron /scaron /Uacute /Ydieresis /ydieresis
  /Thorn /thorn /bullet /mu /paragraph /threequarters /emdash
  /onequarter
  /onehalf /ordfeminine /ordmasculine /guillemotleft /brokenbar
  /guillemotright /plusminus /eth
] def

appencoding /Times-Roman8 /Times-Roman REMAP

% PostScript Prelude for Scribe.
...
%%EndProlog
>)

Print all the printing characters from the QTimesRoman8 font:





@begin(format)
 !"#$%&'()*+,-./0123456789:;<=>?
@@
ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`
abcdefghijklmnopqrstuvwxyz{|}~

















@end(format)

@heading(Roman 8 characters and HP keyboard)

@begin(format)
  8#200 /fraction	%% scribe 164
  8#201 /quotesingle	%% scribe 169
  8#202 /quotedblleft	%% scribe 170
  8#203 /guilsinglleft  %% scribe 172
  8#204 /guilsinglright %% scribe 173
  8#205 /fi		%% scribe 174
  8#206 /endash		%% scribe 177
  8#207 /dagger		%% scribe 178

  8#210 /daggerdbl	%% scribe 179
  8#211 /periodcentered %% scribe 180
  8#212 /quotesinglbase %% scribe 184
  8#213 /quotedblbase   %% scribe 185
  8#214 /quotedblright  %% scribe 186
  8#215 /ellipsis	%% scribe 188
  8#216 /perthousand	%% scribe 189
  8#217 /breve		%% scribe 198

 8#220 /dotaccent	%% scribe 199
  8#221 /dieresis	%% scribe 200
  8#222 /cedilla	%% scribe 203
  8#223 /hungarumlaut	%% scribe 205
  8#224 /ogonek		%% scribe 206
  8#225 /caron		%% scribe 207
  8#226 /Lslash		%% scribe 232
  8#227 /OE		%% scribe 234

  8#230 /dotlessi	%% scribe 245
  8#231 /lslash		%% scribe 248
  8#232 /oe		%% scribe 250
  8#233 /Ecircumflex	%% unassigned
  8#234 /Edieresis	%% unassigned
  8#235 /Egrave		%% unassigned
  8#236 /Eth		%% unassigned
  8#237 /Icircumflex	%% unassigned

  8#240 /Idieresis	%% unassigned
    8#241 /Agrave
    8#242 /Acircumflex
    8#243 /Egrave
    8#244 /Ecircumflex
    8#245 /Edieresis
    8#246 /Icircumflex
    8#247 /Idieresis

    8#250 /acute
    8#251	/grave
    8#252 /circumflex
    8#253 /dieresis
    8#254 /tilde
    8#255 /Ugrave
    8#256 /Ucircumflex
    8#257 /fl  % /ItalianLira %%% missing from Postscript use fl

    8#260 /macron
    8#261 /Yacute
    8#262 /yacute
    8#263 /ring
    8#264 /Ccedilla
    8#265 /ccedilla
    8#266 /Ntilde
    8#267 /ntilde

    8#270 /exclamdown
    8#271	/questiondown
    8#272 /currency
    8#273 /sterling
    8#274 /yen
    8#275 /section
    8#276 /florin
    8#277 /cent

    8#300 /acircumflex
    8#301	/ecircumflex
    8#302 /ocircumflex
    8#303 /ucircumflex
    8#304 /aacute
    8#305 /eacute
    8#306 /oacute
    8#307 /uacute

    8#310 /agrave
    8#311	/egrave
    8#312 /ograve
    8#313 /ugrave
    8#314 /adieresis
    8#315 /edieresis
    8#316 /odieresis
    8#317 /udieresis

    8#320 /Aring
    8#321 /icircumflex
    8#322 /Oslash
    8#323 /AE
    8#324 /aring
    8#325 /iacute
    8#326 /oslash
    8#327 /ae

    8#330 /Adieresis
    8#331 /igrave
    8#332 /Odieresis
    8#333 /Udieresis
    8#334 /Eacute
    8#335 /idieresis
    8#336 /germandbls
    8#337 /Ocircumflex

    8#340 /Aacute
    8#341 /Atilde
    8#342 /atilde
    8#343 /Zcaron % /Dstroke %%% missing from Postscript use Zcaron
    8#344 /zcaron % /dstroke %%% missing from Postscript use zcaron
    8#345 /Iacute
    8#346 /Igrave
    8#347 /Oacute

    8#350 /Ograve
    8#351	/Otilde
    8#352 /otilde
    8#353 /Scaron
    8#354 /scaron
    8#355 /Uacute
    8#356 /Ydieresis
    8#357 /ydieresis

    8#360 /Thorn
    8#361 /thorn
    8#362 /bullet
    8#363 /mu
    8#364 /paragraph
    8#365 /threequarters % /IO %%% missing from Postscript use 3/4
    8#366 /emdash
    8#367 /onequarter

    8#370 /onehalf
    8#371	/ordfeminine
    8#372 /ordmasculine
    8#373 /guillemotleft
    8#374 /brokenbar % /solidbox  %%% missing from Postscript use brokenbar
     8#375 /guillemotright
    8#376 /plusminus
    8#377 /eth %%% use "eth" as the symbol in the 16#FF slot
@end(format)

