home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 093.lha / Chaos / Sources / cpanel.def < prev    next >
Encoding:
Modula Definition  |  1986-11-21  |  793 b   |  38 lines
  1. (*
  2.     
  3.     This module handles the control panel for the 
  4.     Chaos program.
  5.         
  6.         Created: 8/22/87 by Richie Bielak
  7.         
  8.         Copyright (c) 1987 by Richie Bielak
  9.         
  10.         This program maybe freely distributed, but please leave
  11.         my name in. Thanks.....Richie
  12.  
  13. *)
  14. DEFINITION MODULE ChaosPanel;
  15.  
  16. FROM Intuition IMPORT ScreenPtr;
  17.  
  18.  
  19.   TYPE
  20.      ControlRecord = RECORD
  21.                        a            : REAL;
  22.                xInc, yInc   : REAL;
  23.                ZoomFactor   : REAL;
  24.                IterPerOrbit : CARDINAL;
  25.                MaxOrbits    : CARDINAL;
  26.                MaxColors    : CARDINAL;
  27.                      END;
  28.  
  29.  
  30.  VAR
  31.    ControlValues : ControlRecord;
  32.  
  33.   PROCEDURE ControlPanel (sp : ScreenPtr);
  34.   PROCEDURE SetUpPanelGadgets ();
  35.   PROCEDURE CleanUpPanelGadgets ();
  36.  
  37. END ChaosPanel.
  38.