DEFINITION MODULE GW;


(**********************************************************************
***************           Written by Ed Bartz           ***************
***************           Copyright  5/14/87            ***************
***************    This program may be redistributed    ***************
***************    or modified as long as these         ***************
***************    notices and all other references     ***************
***************    to the author remain intack.         ***************
***************    Also this may not be used for        ***************
***************    profit by anyone without the         ***************
***************    express permission of the author.    ***************
**********************************************************************)

FROM Intuition  IMPORT WindowPtr;

    TYPE
      Pl = RECORD
       x,y,r   :INTEGER;
       color   :CARDINAL;
       m       :REAL;
      END;

      Mdata = RECORD
       P1ang,P1vel,P2ang,P2vel  :REAL;
      END;

      Shell = RECORD
        vx,vy: REAL;
        x,y : INTEGER;
      END;

      String = ARRAY [0..80] OF CHAR;

   PROCEDURE DrawPlanet(x,y,r:INTEGER;color,ptype:CARDINAL;wp:WindowPtr);

    PROCEDURE Distance(A,B :Pl): INTEGER;

PROCEDURE Pposition (VAR PlanetPos: ARRAY OF Pl;Pnum,ptype: CARDINAL; w: WindowPtr);

PROCEDURE Sposition(w: WindowPtr;VAR Ship,PPos: ARRAY OF Pl;Pnum: CARDINAL);

    PROCEDURE Stars(wp: WindowPtr);

    PROCEDURE Sexplosion(mis:Shell;wp: WindowPtr);

    PROCEDURE Pexplosion(mis:Shell;wp: WindowPtr);

    PROCEDURE DrawLine (x1,y1,x2,y2,c : CARDINAL; wp : WindowPtr);

    PROCEDURE DrawShip(x1,y1,x2,y2 : CARDINAL; wp : WindowPtr);

END GW.