Zeichenumrisse / Outline-Fonts

%!
/OutShow                      % Nur Umrisse des Texts zeichnen (s. charpath)
{ true charpath stroke
} def

/CircleOfAdobe                % 22 mal Adobe im Kreis angeordnet schreiben
{ 15 15 345
  { gsave
      rotate 0 0 moveto
      (Adobe) OutShow
    grestore
  } for
} def

%%Page: 1 1
/Helvetica-Bold findfont      % Font festlegen
30 scalefont setfont

250 400 translate             % 'Adobe-Kreis' zeichnen
0.5 setlinewidth
CircleOfAdobe

0 0 moveto
(Adobe Systems) true charpath % 'Adobe Systems' ausgeben, dabei
gsave
  1 setgray                   % die Fuellfarbe auf weiss setzen (sonst
  fill                        % transparent), damit die Linien des bisher
grestore                      % Gezeichneten 'geloescht' werden.
stroke

showpage                      % Seite ausgeben