ETHZ_Logo RAMSES_Logo_Right   RAMSES   RAMSES_Logo_Left Systems Ecology  
Start    search button      Modules:   A-Z   Function   Layer        QuickRefs:   DM   AuxLib   AuxLibE   SciLib   EasyMW   MW   ISIS   RMSLib

DEFINITION MODULE DMPrinting;

  (*******************************************************************

    Module  DMPrinting     ('Dialog Machine' DM_V3.0)

      Copyright (c) 1987-2006 by Olivier Roth, Andreas Fischlin and
      ETH Zurich.

    Purpose   Printing of picture and text objects from a
              'Dialog Machine' program.

    Remarks   This module belongs to the 'Dialog Machine'.


    Programming

      o Design
        Olivier Roth              17/09/1987
        Andreas Fischlin          14/03/1989

      o Implementation
        Olivier Roth              17/09/1987
        Andreas Fischlin          14/03/1989


    ETH Zurich
    Systems Ecology
    CHN E 35.1
    Universitaetstrasse 16
    8092 Zurich
    SWITZERLAND

    URLs:
        <mailto:RAMSES@env.ethz.ch>
        <http://www.sysecol.ethz.ch>
        <http://www.sysecol.ethz.ch/SimSoftware/RAMSES>


    Last revision of definition:  24/07/1990  OR

  *******************************************************************)


  FROM SYSTEM IMPORT ADDRESS;

  TYPE
    PrinterFont = (chicago, newYork, geneva, monaco, times, helvetica, courier, symbol);


  VAR
    PrintingDone: BOOLEAN;
    (*
      Read only variable, which returns whether any of the
      following procedures has been successful.  E.g. if the
      printer cannot be opened or printing was not successful.
    *)


  PROCEDURE PageSetup ;
  (*
    Displays the standard page setup dialog box allowing to set
    paper sizes and other printing options.
  *)

  PROCEDURE PrintPicture ;
  (*
    Displays the standard DialogBox for printing and prints all
    recent output which has been produced on a Dialog Machine
    window between the calls to the procedure
    DMWPictIO.StartPictureSave and DMWPictIO.StopPictureSave by
    means of DMWindIO output procedures
  *)


 PROCEDURE PrintText(font: PrinterFont; fontSize: INTEGER; tabwidth: INTEGER);
  (*
    Displays the standard DialogBox for printing and prints the
    text which has been produced on a Dialog Machine window between
    the calls to the procedure DMWTextIO.StartTextSave and
    DMWTextIO.StopTextSave. The whole text is printed with the font
    font and the size fontSize.  Pages will be numbered at their
    top right corner and the current header texts will be printed
    on top left corner of each page. Header information will be
    separated from the actually printed text by a line.  If
    tabwidth > 0 then the character TAB (ASCII hc 11C) will be
    replaced with the proper space before the next character will
    be printed.
  *)


  PROCEDURE SetHeaderText(h: ARRAY OF CHAR);
  PROCEDURE SetSubHeaderText(sh: ARRAY OF CHAR);
  PROCEDURE SetFooterText(f: ARRAY OF CHAR);


END DMPrinting.

  Contact RAMSES@env.ethz.ch Last updated: 25-Jul-2011 [Top of page]