@database HYPER:Modula-2/GfxMacros
@node Main "HYPER:Modula-2/GfxMacros"

Prozeduren

   @{" AreaCircle " link Modul 9}                  @{" BndryOff " link Modul 30}                    @{" CEND " link Modul 11}
   @{" CINIT " link Modul 12}                       @{" CMOVE " link Modul 13}                       @{" CWAIT " link Modul 14}
   @{" DrawCircle " link Modul 15}                  @{" InitAnimate " link Modul 16}                 @{" OffDisplay " link Modul 20}
   @{" OffSprite " link Modul 22}                   @{" OffVBlank " link Modul 24}                   @{" OnDisplay " link Modul 19}
   @{" OnSprite " link Modul 21}                    @{" OnVBlank " link Modul 23}                    @{" RasSize " link Modul 18}
   @{" RemBob " link Modul 17}                      @{" SetAfPen " link Modul 28}                    @{" SetDrPt " link Modul 26}
   @{" SetOPen " link Modul 25}                     @{" SetWrMsk " link Modul 27}                 

@endnode
@node Modul "HYPER:Modula-2/GfxMacros.def.guide"
DEFINITION MODULE GfxMacros;
(* 19.8.92/bp *)
(*$ LargeVars:=FALSE NameChk:=FALSE *)

FROM SYSTEM	IMPORT	ADDRESS;
FROM GraphicsD	IMPORT	@{" BobPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 26}, @{" RastPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 51}, @{" UCopListPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 64}, @{" CopListPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 34};
IMPORT R;


PROCEDURE @{" AreaCircle " link HYPER:Autodocs/graphics/AreaCircle() }(rp{R.A1}:@{" RastPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 51};cx{R.D0},cy{R.D1},
           r{R.D2}:INTEGER):BOOLEAN;
PROCEDURE CEND(c{R.A1}:@{" UCopListPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 64});
PROCEDURE CINIT(c{R.A0}:@{" UCopListPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 64}; n{R.D0}:LONGINT):@{" CopListPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 34};
PROCEDURE CMOVE(c{R.A1}:@{" UCopListPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 64}; a{R.D0}:ADDRESS; b{R.D1}:INTEGER);
PROCEDURE CWAIT(c{R.A1}:@{" UCopListPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 64}; a{R.D0},b{R.D1}:INTEGER);
PROCEDURE DrawCircle(rp{R.A1}:@{" RastPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 51};cx{R.D0},cy{R.D1},r{R.D2}:INTEGER);
PROCEDURE InitAnimate(animKey{R.A0}:ADDRESS);
PROCEDURE @{" RemBob " link HYPER:Autodocs/graphics/RemBob() }(bob{R.A0}:@{" BobPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 26});
PROCEDURE RasSize(w{R.D1}, h{R.D2}:CARDINAL):CARDINAL;
PROCEDURE OnDisplay;
PROCEDURE OffDisplay;
PROCEDURE OnSprite;
PROCEDURE OffSprite;
PROCEDURE OnVBlank;
PROCEDURE OffVBlank;
PROCEDURE @{" SetOPen " link HYPER:Autodocs/graphics/SetOPen() }(rp{R.A0}:@{" RastPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 51};pen{R.D0}:SHORTCARD);
PROCEDURE SetDrPt(rp{R.A0}:@{" RastPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 51};pattern{R.D0}:CARDINAL);
PROCEDURE SetWrMsk(rp{R.A0}:@{" RastPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 51};mask{R.D0}:SHORTCARD);
PROCEDURE SetAfPen(rp{R.A0}:@{" RastPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 51};areaPattern{R.D0}:ADDRESS;
           size{R.D1}:SHORTCARD);
PROCEDURE BndryOff(rp{R.A0}:@{" RastPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 51});

END GfxMacros.def

@endnode