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

DEFINITION MODULE Histograms;

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

    Module  Histograms     (Version 0.5)

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

    Purpose   Draws histograms.

    Remarks   --


    Programming

      o Design
        Andreas Fischlin          20/12/1987

      o Implementation
        Andreas Fischlin          20/12/1987


    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:  23/04/1996  AF & DG

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


  FROM DMWindows IMPORT Window, RectArea;
  FROM DMWindIO IMPORT Color, Pattern;


  TYPE
    Histogram;
    HistoAct = PROCEDURE (Histogram);

  PROCEDURE DefineHistogram(w: Window; VAR h: Histogram;
  						    r: RectArea; fromClass,toClass: INTEGER;
  						    xLabel: ARRAY OF CHAR;
                            maxFreqency: CARDINAL; freqNumbs: BOOLEAN;
                            barCol: Color; barPat: Pattern);
  PROCEDURE SetYTickInterval( h: Histogram; interval: INTEGER );

  PROCEDURE ClearHistogram(h: Histogram);
  PROCEDURE DrawHistogram(h: Histogram);
  PROCEDURE MidTopPoint(h: Histogram; class: INTEGER; f: CARDINAL;
  						VAR x,y: INTEGER); (* coordinates in middle of
  										   top of bar for class and
  										   frequency f *)

  PROCEDURE PlotBar(h: Histogram; class: INTEGER; f: CARDINAL);
  PROCEDURE SetPlotBarMode( h: Histogram; wipeOut : BOOLEAN );
  PROCEDURE GetPlotBarMode( h: Histogram; VAR wipeOut, done : BOOLEAN );

  PROCEDURE RemoveHistogram(VAR h: Histogram);
  PROCEDURE DoForAllHistograms(p: HistoAct);

END Histograms.