ASCII Tabelle



%!PS-Adobe-1.0
%%Title: ASCII Table
%%Creator: Holger Gehringer 
%%CreationDate: 18.08.1998 
%%DocumentMedia: A4 595 842 0 () ()
%%Orientation: Landscape
%%DocumentFonts: Times-Roman Times-Roman
%%Pages: 1
%%PageOrder: Ascend
%%EndComments

% -----------------------------------------------------------------------------
%   functions to change codetable 
% -----------------------------------------------------------------------------
/GermanVec
[ 8#201 /udieresis 8#204 /adieresis 8#216 /Adieresis 8#224 /odieresis
  8#231 /Odieresis 8#232 /Udieresis
  8#341 /germandbls 8#373 /AE
] def

/ReencsmallDict 12 dict def

/ReEncodeSmall
{ ReencsmallDict
  begin
    /NewCodesAndNames exch def
    /NewFontName exch def
    /BaseFontName exch def
    /BaseFontDict BaseFontName findfont def
    /NewFont BaseFontDict maxlength dict def
    BaseFontDict
    { exch dup /FID ne
      { dup /Encoding eq
	{ exch dup length array copy
	  NewFont 3 1 roll put
	}
	{ exch NewFont 3 1 roll put
	} ifelse
      }
      { pop pop
      } ifelse
    } forall
    NewFont
    /FontName NewFontName put
    NewCodesAndNames aload pop
    NewCodesAndNames length 2 idiv
    { NewFont /Encoding get
      3 1 roll put
    } repeat
    NewFontName NewFont definefont pop
  end
} def

% -----------------------------------------------------------------------------
%   MAKRO fuer neue Fonts
% -----------------------------------------------------------------------------
/EA {1 index 0/G0 put 4 string 1 1 4 -1 roll{3 copy neg exch cvs dup 0 71 put cvn 3 -1 roll exch put}for pop} bind def

% -----------------------------------------------------------------------------
%   Definitionen fuer neuen/neue Font/Fonts
% -----------------------------------------------------------------------------


%   hier koennen neue Font-Definitionen stehen
%   hier koennen neue Font-Definitionen stehen
%   hier koennen neue Font-Definitionen stehen


% -----------------------------------------------------------------------------
% ---------------------- Ende der Font-Definitionen ---------------------------
% -----------------------------------------------------------------------------

/inch { 72 mul } bind def
/cm { inch 2.54 div } bind def

/setLandscape
{ /Pagewidth 29.7 cm def
  /Pageheight 21 cm def
  Pageheight 0 translate
  90 rotate
} def

% Zum Spielen: [a b c d e f]
% a/d: Skalierung in x/y-Richtung
% b/c: Trapezverschiebung in x/y-Richtung (->Rotation)
% e/f: Verschiebung in x/y-Richtung

/Char 1 string def
/LR 26 def
/LO 510 def
/LD 15 def
/SD 80 def
/CL1 27 def
/CL2 50 def

/PNumbers
{ /Times-Roman findfont 14 scalefont setfont
  0 1 255
  { /counter exch def
    /LM LR SD counter 32 idiv mul add def
    /TM LO LD counter 32 mod mul sub def
    LM TM moveto
    /Num counter 8 5 string cvrs def
    Num length 1 eq { (00) show } if
    Num length 2 eq { (0) show  } if
    Num show
  } for
} def

/PrtChar
{ /dist exch def
  findfont 14 scalefont setfont
  0 1 255
  { /counter exch def
    /LM LR dist add SD counter 32 idiv mul add def
    /TM LO LD counter 32 mod mul sub def
    LM TM moveto
    Char 0 counter put Char show
  } for
} def

% horizontale Zwischenlinien
/hline
{ 1 1 7
  { /counter exch def
    LR SD counter mul add 5 sub LO LD add moveto
    0 32 LD mul LD 3 div add neg rlineto
  } for
  stroke
} def

% Rahmen
/Border
{ newpath
    LR 5 sub LO LD add moveto
    8 SD mul 5 sub 0 rlineto
    0 32 LD mul LD 3 div add neg rlineto
    8 SD mul 5 sub neg 0 rlineto
  closepath
  stroke
  hline
} def

% Ausgabe der gewaehlten Schriftart unterhalb der Tabelle
/FName
{ /outstr exch def
  /Helvetica findfont 40 scalefont setfont
  LR 10 sub 540 moveto outstr show
} def


%%Page: 1 1

setLandscape

/Helvetica /Helvetica-G GermanVec ReEncodeSmall

Border
PNumbers
% in der naechsten Zeile statt '(Helvetiva / ': '(newFontName / ' !!!
(Helvetica / Helvetica-German) FName
% in der naechsten Zeile statt '/Helvetiva': '/newFontName' !!!
/Helvetica CL1 PrtChar
/Helvetica-G CL2 PrtChar

showpage
%%Trailer
%%Pages: 1


Download PostScript-File

© Holger Gehringer, Dezember 1998