home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 555a.lha / FontList / source / HardCopy.def < prev    next >
Text File  |  1991-09-19  |  3KB  |  54 lines
  1. (*------------------------------------------------------------------------------
  2.     Project    : HardCopy
  3.     Module    : HardCopy.def
  4.     Author    : Robert Brandner (rb)
  5.     Address    : Schillerstr. 3 / A-8280 Fürstenfeld / AUSTRIA / EUROPE
  6.     Copyright    : Public Domain
  7.     Language    : Modula-II (M2Amiga V4.0d)
  8.     History    : V0.99, 25-Mar 91, rb
  9.     History    :      , 22-Aug 91, rb adaptiert und optimiert für V4.0d
  10.     Contents    : Hardcopy eines Rastports erzeugen.
  11. ------------------------------------------------------------------------------*)
  12.  
  13. (*$ NameChk := FALSE *)
  14.  
  15. DEFINITION MODULE HardCopy;
  16.  
  17. FROM Printer   IMPORT SpecialSet,Error;
  18. FROM GraphicsD IMPORT RastPortPtr,ViewModeSet,ColorMapPtr;
  19.  
  20. PROCEDURE DumpRPort(rp:RastPortPtr;        (* Hardcopy von diesem RPort  *)
  21.                     cm:ColorMapPtr;         (* Verwendete Farben.         *)
  22.                     vm:ViewModeSet;         (* Typ des ViewPorts          *)
  23.                     x0,y0,w,h:CARDINAL;     (* zu druckender RP-Auschnitt *)
  24.                     prtw,prth:LONGINT;      (* Ausdruck-Größe          *)
  25.                     s:SpecialSet;        (* Special-Flags              *)
  26.                     VAR err:Error           (* genaue Spez. von Fehlern   *)
  27.                     ):BOOLEAN;            (* TRUE: Alles ok, FALSE:Error*)
  28.  
  29. (*------------------------------------------------------------------------------
  30.     Es wird eine Hardcopy des Rastports erzeugt. Durch Übergabe einer
  31.     Colormap, kann der Ausdruck andere Farben haben, als die des View-
  32.     ports.
  33.     Der Ausschnitt des Rastports, der durch x0,y0 (linke obere Ecke),
  34.     sowie w (Breite), und h (Höhe) definiert ist, wird gedruckt.
  35.     prtw,prth geben die Größe des Ausdrucks an. Allerdings hängt die
  36.     Interpretation der beiden Werte von den SpecialFlags ab.
  37.     Eine genaue Beschreibung der SpecialFlags gibt es im Rom-Kernel-
  38.     Reference-Manual.
  39.     Hier eine kurze und unvollständige Erklärung der wichtigsten Flags:
  40.  
  41.     Flags               Bedeutung von prtw, prth
  42.     --------------------------------------------------------------------
  43.     keine               Absolute Ausdruckgröße in Druckerpixels.
  44.     milCols,milRows     Größe in 1/1000 inch (1 inch=2.54 cm)
  45.     fullCols,fullRows   keine; Ausdruck erfolgt in maximaler Größe
  46.     fracCols,fracRows   Bruchteil von maximaler Größe
  47.     center        keine; Druck wird zentriert
  48.     aspect        Ausdruck erfolgt unverzerrt
  49.     density1,2,4    keine; Ausdruckdichte ändern
  50. ------------------------------------------------------------------------------*)
  51.  
  52. END HardCopy.def
  53.  
  54.