(*
	
	This module handles the control panel for the 
	Chaos program.
        
        Created: 8/22/87 by Richie Bielak
        
        Copyright (c) 1987 by Richie Bielak
        
        This program maybe freely distributed, but please leave
        my name in. Thanks.....Richie

*)
DEFINITION MODULE ChaosPanel;

FROM Intuition IMPORT ScreenPtr;


  TYPE
     ControlRecord = RECORD
                       a            : REAL;
		       xInc, yInc   : REAL;
		       ZoomFactor   : REAL;
		       IterPerOrbit : CARDINAL;
		       MaxOrbits    : CARDINAL;
		       MaxColors    : CARDINAL;
                     END;


 VAR
   ControlValues : ControlRecord;

  PROCEDURE ControlPanel (sp : ScreenPtr);
  PROCEDURE SetUpPanelGadgets ();
  PROCEDURE CleanUpPanelGadgets ();

END ChaosPanel.
