Schriftart mit Muster unterlegen


%!
/Stern
{ moveto
  0 2 360
  { newpath
    gsave
      rotate
      0 0 moveto
      250 0 rlineto
      stroke
    grestore  
  } for
} def

%%Page: 1 1
250 380 translate
0 0 Stern

showpage

%%Page: 2 2
/Times-Roman findfont         % Font setzen
60 scalefont setfont

gsave                         % alten Clipping-Pfad speichern
  120 400 moveto
  (Sterntext) true charpath   % 'Sterntext' im Outline-Format benutzen
  clip                        % den Text als Clipping-Pfad benutzen

  250 380 translate           % jetzt Stern zeichnen
  0 0 Stern
grestore                      % alten Clipping-Pfad wiederherstellen

showpage


Download PostScript-File

© Holger Gehringer, Dezember 1998