(root)/
gcc-13.2.0/
gcc/
testsuite/
gm2/
projects/
pim/
run/
pass/
tower/
DrawG.def
DEFINITION MODULE DrawG ;

FROM AdvSystem IMPORT PlayerSet ;
EXPORT QUALIFIED DrawMan, EraseMan, DrawDoor, DrawTreasure,
                 EraseTreasure, DrawArrow, EraseArrow,
                 DisplayMessage ;


(* All these procedures to draw on the screens - are Global *)
(* Ie they will draw to all the screens that are within     *)
(* the area of effect.                                      *)


PROCEDURE DrawMan (p: CARDINAL) ;

PROCEDURE EraseMan (p: CARDINAL) ;


(* DrawDoor draws a door on every screen possible ie all that *)
(* are in this particular area. Hence the coordinates need    *)
(* to be absolute NOT relative!                               *)

PROCEDURE DrawDoor (RoomOfDoor, IndexToDoor: CARDINAL) ;

PROCEDURE DrawTreasure (room, x, y: CARDINAL) ;

PROCEDURE EraseTreasure (room, x, y: CARDINAL) ;

PROCEDURE DrawArrow (room, x, y, dir: CARDINAL ; VAR playerscreen: PlayerSet) ;

PROCEDURE EraseArrow (x, y: CARDINAL ; playerscreen: PlayerSet; flush: BOOLEAN) ;

PROCEDURE DisplayMessage (a1, a2, a3: ARRAY OF CHAR) ;

      
END DrawG.