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

DEFINITION MODULE Patterns;

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

    Module  Patterns     (Version 1.0)

      Copyright (c) 1988-2006 by Olivier Roth and ETH Zurich.

    Purpose   Provide useful bit patterns.

    Remarks   Should be used instead of DMWindIO.pat.
              The first 5 patterns correspond to
              pat[light..dark].


    Programming

      o Design
        Olivier Roth              08/03/1988

      o Implementation
        Olivier Roth              08/03/1988


    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 DMWindIO IMPORT Pattern;


  VAR
    patt : ARRAY[0..59] OF Pattern;
    (*  0.. 4 : DMWindIO.pat[light..dark];
        5..11 : vertical line (thin..thick);
       12..18 : horizontal line (thin..thick);
       19..23 : several vertical lines (few..many,thin..thick);
       24..27 : several horizontal lines (few..many,thin..thick);
       28..33 : digaonal line uppwards (thin..thick);
       34..39 : digaonal line downwards (thin..thick);
       40..47 : specials: small dots, bigger dots, small crosses,
                          big crosses, crossing diagonals;
       48..55 : crossed vertical x horizontal line(s);
       56..57 : chess patterns;
       58..59 : empty and filled round dot;
     *)

END Patterns.