DEFINITION MODULE GfxMacros;
(* 19.8.92/bp *)
(*$ LargeVars:=FALSE NameChk:=FALSE *)

FROM SYSTEM	IMPORT	ADDRESS;
FROM GraphicsD	IMPORT	BobPtr, RastPortPtr, UCopListPtr, CopListPtr;
IMPORT R;


PROCEDURE AreaCircle(rp{R.A1}:RastPortPtr;cx{R.D0},cy{R.D1},
           r{R.D2}:INTEGER):BOOLEAN;
PROCEDURE CEND(c{R.A1}:UCopListPtr);
PROCEDURE CINIT(c{R.A0}:UCopListPtr; n{R.D0}:LONGINT):CopListPtr;
PROCEDURE CMOVE(c{R.A1}:UCopListPtr; a{R.D0}:ADDRESS; b{R.D1}:INTEGER);
PROCEDURE CWAIT(c{R.A1}:UCopListPtr; a{R.D0},b{R.D1}:INTEGER);
PROCEDURE DrawCircle(rp{R.A1}:RastPortPtr;cx{R.D0},cy{R.D1},r{R.D2}:INTEGER);
PROCEDURE InitAnimate(animKey{R.A0}:ADDRESS);
PROCEDURE RemBob(bob{R.A0}:BobPtr);
PROCEDURE RasSize(w{R.D1}, h{R.D2}:CARDINAL):CARDINAL;
PROCEDURE OnDisplay;
PROCEDURE OffDisplay;
PROCEDURE OnSprite;
PROCEDURE OffSprite;
PROCEDURE OnVBlank;
PROCEDURE OffVBlank;
PROCEDURE SetOPen(rp{R.A0}:RastPortPtr;pen{R.D0}:SHORTCARD);
PROCEDURE SetDrPt(rp{R.A0}:RastPortPtr;pattern{R.D0}:CARDINAL);
PROCEDURE SetWrMsk(rp{R.A0}:RastPortPtr;mask{R.D0}:SHORTCARD);
PROCEDURE SetAfPen(rp{R.A0}:RastPortPtr;areaPattern{R.D0}:ADDRESS;
           size{R.D1}:SHORTCARD);
PROCEDURE BndryOff(rp{R.A0}:RastPortPtr);

END GfxMacros.def
