home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 09 / dtp / progr9_6.ps < prev    next >
Encoding:
Text File  |  1990-08-09  |  999 b   |  26 lines
  1. %---> PROGR9_6.PS
  2. %---> Lesen eines Hexstrings aus einer Datei und
  3. %---> Erzeugen eines Bildes daraus
  4. %---> (c) 1990 Günter Born & TOOLBOX
  5.  
  6. % definiere Hilfsprozeduren und Arrays
  7. /Muster 8 string def
  8.  
  9. gsave                             % Status sichern
  10. {1 exch sub} settransfer          % invertierte Bildausgabe
  11. 100 600 translate                 % Nullpunkt
  12.  70 70  scale                     % Skalierung des Bildes
  13.   8 8 1                           % Parameter für Image
  14.  [8 0 0 -8 0 8]                   %           definieren
  15.  {                                % Leseprozedur
  16.   (a:Bild1.PIC) (r)               % öffne Bildfile
  17.   file                            %       "BILD1.PIC"
  18.                                   %       auf Diskette A:
  19.   Muster readhexstring            % Daten lesen
  20.   pop }                           % und ein Bild daraus
  21.   image                           %              bauen
  22. grestore
  23. showpage                          % auf Drucker ausgeben
  24. % Ende
  25.  
  26.