home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 3: The Continuation / 17-Bit_The_Continuation_Disc.iso / amigan / amigan 9 / automata / source / amgraphics.def < prev    next >
Encoding:
Modula Definition  |  1994-01-27  |  1010 b   |  33 lines
  1. DEFINITION MODULE AMGraphics;
  2.  
  3. (*  AMGraphics does all the interactive graphics work required during 
  4.     program execution, incluing plotting an automata, printing message
  5.     outputs, and accepting input.
  6.  
  7.     Version 2.0A     by Mike Dryja   February 21, 1987   *)
  8.     
  9. FROM AMCalc IMPORT Automata;
  10.  
  11. TYPE
  12.   ScrollType  = (Coarse, Smooth); (* Possible scroll types for the Automata
  13.                                      screen *)
  14.  
  15. VAR
  16.   Error : BOOLEAN;  (* After any call, returns FALSE if no Error, TRUE if
  17.                        some type of Error occurred *)
  18.  
  19. PROCEDURE PreparePlot ();
  20.   (* Initializes internal variables, so it must be called before a new 
  21.      automata is to be plotted. *)
  22.  
  23. PROCEDURE SetScroll (Scroll : ScrollType);
  24.   (* Sets the scrolling of an automata to be smooth or coarse, even during
  25.      the plot of an automata. *)
  26.  
  27. PROCEDURE PlotAutomata(State : Automata);
  28.   (* Takes an automata and plots it, scrolling the screen when there is no
  29.      more room left. *)
  30.  
  31. END AMGraphics.
  32.  
  33.