Rasterbild Uni-Logo


%!
/picstr 129 string def        % Benutzung beim Einlesen der Hex-Werte - jede
                              % Zeile besteht aus 129 Bytes

/UniLogo                      % liest Rasterbild als Hex-String ein
{ 1027 1025 1                 % Bild ist 1027 Spalten breit; 1025 Zeilen hoch
                              % Fuer jeden Bildpunkt wird nur ein Bit benutzt,
                              % d.h. der Punkt ist schwarz oder weiss.
  [ 1027 0 0 -1025 0 1025 ]   % Matrix bildet Rasterbild auf Einheitsquadrat
                              % im Benutzer-Koordinatensystem ab.
  { currentfile picstr        % Prozedur liest Hexwerte vom aktuellen file
    readhexstring pop         % ein. image-Operator ruft sie so oft auf, bis
  } image                     % das Bild komplett ist.
} def

/xPos 100 def                 % x-Pos fuer linke untere Ecke des Rasterbilds
/yPos 200 def                 % y-Pos fuer linke untere Ecke des Rasterbilds
/LogoSize 300 def             % Bild soll 300 x 300 Punkte gross werden

%%Page: 1 1

gsave                         % aktuellen graphics state retten

xPos yPos translate           % Ursprung verschieben

LogoSize LogoSize scale       % Bildgroesse festlegen

% Wird UniLogo ausgefuehrt, beginnt der Interpreter sofort, die Hexwerte vom
% aktuellen File zu lesen. Der sicherste Weg, Daten in einem Programm-File
% unterzubringen, besteht darin, die Lese-Befehle in eine Prozedur zu schreiben,
% deren Aufruf unmittelbar von einem Cariage Return und den Daten gefolgt wird.

UniLogo
ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
ffffffc0000ffffffffffffffffffffffffffc0fffffffffffffffffffff
ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
ffffffffffffffffe0ffffffffffffffffffffffffffffffffffffffffff
ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff

   % hier folgen ca. weitere 4000 solcher Hex-Code Zeilen

ffffffffffffffffc07fffffffffffffffffffffffffffffffffffffffff
ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
ffffffffffffffffffffffffffffe0

grestore                      % alten graphics state wieder herstellen

showpage                      % Seite ausgeben


Download PostScript-File

© Holger Gehringer, Dezember 1998