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

Prozeduren

   @{" AddAnimOb " link Modul 22}                   @{" AddBob " link Modul 27}                      @{" AddFont " link Modul 31}
   @{" AddVSprite " link Modul 33}                  @{" AllocRaster " link Modul 37}                 @{" AndRectRegion " link Modul 41}
   @{" AndRegionRegion " link Modul 45}             @{" Animate " link Modul 49}                     @{" AreaDraw " link Modul 53}
   @{" AreaEllipse " link Modul 58}                 @{" AreaEnd " link Modul 65}                     @{" AreaMove " link Modul 67}
   @{" AskFont " link Modul 72}                     @{" AskSoftStyle " link Modul 76}                @{" AttemptLockLayerRom " link Modul 79}
   @{" BitMapScale " link Modul 82}                 @{" BltBitMap " link Modul 85}                   @{" BltBitMapRastPort " link Modul 98}
   @{" BltClear " link Modul 109}                    @{" BltMaskBitMapRastPort " link Modul 114}       @{" BltPattern " link Modul 126}
   @{" BltTemplate " link Modul 135}                 @{" CBump " link Modul 145}                       @{" CINIT " link Modul 152}
   @{" CMove " link Modul 187}                       @{" CWait " link Modul 194}                       @{" ChangeSprite " link Modul 147}
   @{" ClearEOL " link Modul 161}                    @{" ClearRectRegion " link Modul 163}             @{" ClearRegion " link Modul 167}
   @{" ClearScreen " link Modul 169}                 @{" ClipBlit " link Modul 171}                    @{" CloseFont " link Modul 182}
   @{" CloseMonitor " link Modul 184}                @{" CopySBitMap " link Modul 192}                 @{" DisownBlitter " link Modul 199}
   @{" DisposeRegion " link Modul 201}               @{" DoCollision " link Modul 203}                 @{" Draw " link Modul 205}
   @{" DrawEllipse " link Modul 210}                 @{" DrawGList " link Modul 217}                   @{" EraseRect " link Modul 221}
   @{" ExtendFont " link Modul 228}                  @{" FindDisplayInfo " link Modul 232}             @{" Flood " link Modul 235}
   @{" FontExtent " link Modul 241}                  @{" FreeColorMap " link Modul 245}                @{" FreeCopList " link Modul 247}
   @{" FreeCprList " link Modul 249}                 @{" FreeGBuffers " link Modul 251}                @{" FreeRaster " link Modul 256}
   @{" FreeSprite " link Modul 261}                  @{" FreeVPortCopLists " link Modul 263}           @{" GetColorMap " link Modul 265}
   @{" GetDisplayInfoData " link Modul 268}          @{" GetGBuffers " link Modul 275}                 @{" GetRGB4 " link Modul 280}
   @{" GetSprite " link Modul 284}                   @{" GetVPModeID " link Modul 288}                 @{" GfxAssociate " link Modul 291}
   @{" GfxFree " link Modul 295}                     @{" GfxLookUp " link Modul 297}                   @{" GfxNew " link Modul 300}
   @{" InitArea " link Modul 302}                    @{" InitBitMap " link Modul 307}                  @{" InitGMasks " link Modul 318}
   @{" InitGels " link Modul 313}                    @{" InitMasks " link Modul 320}                   @{" InitRastPort " link Modul 322}
   @{" InitTmpRas " link Modul 324}                  @{" InitVPort " link Modul 331}                   @{" InitView " link Modul 329}
   @{" LoadRGB4 " link Modul 333}                    @{" LoadView " link Modul 338}                    @{" LockLayerRom " link Modul 340}
   @{" MakeVPort " link Modul 342}                   @{" ModeNotAvailable " link Modul 346}            @{" Move " link Modul 349}
   @{" MoveSprite " link Modul 354}                  @{" MrgCop " link Modul 360}                      @{" NewRegion " link Modul 362}
   @{" NextDisplayInfo " link Modul 364}             @{" OpenFont " link Modul 367}                    @{" OpenMonitor " link Modul 370}
   @{" OrRectRegion " link Modul 374}                @{" OrRegionRegion " link Modul 378}              @{" OwnBlitter " link Modul 382}
   @{" PolyDraw " link Modul 384}                    @{" QBSBlit " link Modul 391}                     @{" QBlit " link Modul 389}
   @{" ReadPixel " link Modul 393}                   @{" ReadPixelArray8 " link Modul 398}             @{" ReadPixelLine8 " link Modul 407}
   @{" RectFill " link Modul 415}                    @{" RemFont " link Modul 422}                     @{" RemIBob " link Modul 424}
   @{" RemVSprite " link Modul 429}                  @{" ScalerDiv " link Modul 431}                   @{" ScrollRaster " link Modul 436}
   @{" ScrollVPort " link Modul 445}                 @{" SetAPen " link Modul 447}                     @{" SetBPen " link Modul 451}
   @{" SetCollision " link Modul 455}                @{" SetDrMd " link Modul 460}                     @{" SetFont " link Modul 464}
   @{" SetRGB4 " link Modul 472}                     @{" SetRGB4CM " link Modul 479}                   @{" SetRast " link Modul 468}
   @{" SetSoftStyle " link Modul 486}                @{" SortGList " link Modul 491}                   @{" StripFont " link Modul 493}
   @{" SyncSBitMap " link Modul 495}                 @{" Text " link Modul 497}                        @{" TextExtent " link Modul 502}
   @{" TextFit " link Modul 508}                     @{" TextLength " link Modul 518}                  @{" UCopperListInit " link Modul 523}
   @{" UnlockLayerRom " link Modul 527}              @{" VBeamPos " link Modul 529}                    @{" VideoControl " link Modul 531}
   @{" WaitBOVP " link Modul 537}                    @{" WaitBlit " link Modul 535}                    @{" WaitTOF " link Modul 539}
   @{" WeighTAMatch " link Modul 541}                @{" WritePixel " link Modul 546}                  @{" WritePixelArray8 " link Modul 551}
   @{" WritePixelLine8 " link Modul 560}             @{" XorRectRegion " link Modul 568}               @{" XorRegionRegion " link Modul 572}


Konstanten

   @{" graphicsMinVersion " link Modul 18}          @{" graphicsName " link Modul 20}             

Variablen

   @{" graphicsBase " link Modul 16}                @{" graphicsVersion " link Modul 14}          

@endnode
@node Modul "HYPER:Modula-2/GraphicsL.def.guide"
DEFINITION MODULE GraphicsL{"graphics.library",33};
(* 13-Apr-1992/cn *)

FROM SYSTEM IMPORT ADDRESS,BITSET,BYTE,LONGSET,WORD;

FROM Hardware IMPORT
 @{" BltnodePtr " link HYPER:Modula-2/Hardware.def.guide/Modul 95};

FROM UtilityD IMPORT
 @{" TagItemPtr " link HYPER:Modula-2/UtilityD.def.guide/Modul 22};

IMPORT
 d:GraphicsD,R;

VAR
 graphicsVersion:INTEGER;
 graphicsBase:d.@{" GfxBasePtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 41};

CONST
 graphicsMinVersion=33;
 graphicsName="graphics.library";

PROCEDURE @{" AddAnimOb " link HYPER:Autodocs/graphics/AddAnimOb() }(
           anOb{R.A0}:d.@{" AnimObPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 22};
           VAR anKey{R.A1}:d.@{" AnimObPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 22};
           rp{R.A2}:d.@{" RastPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 51}); CODE -156;

PROCEDURE @{" AddBob " link HYPER:Autodocs/graphics/AddBob() }(
           @{" Bob " link HYPER:Modula-2/GraphicsD.def.guide/Modul 598}{R.A0}:d.@{" BobPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 26};
           rp{R.A1}:d.@{" RastPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 51}); CODE -96;

PROCEDURE @{" AddFont " link HYPER:Autodocs/graphics/AddFont() }(textFont{R.A1}:d.@{" TextFontPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 61}); CODE -480;

PROCEDURE @{" AddVSprite " link HYPER:Autodocs/graphics/AddVSprite() }(
           vs{R.A0}:d.@{" VSpritePtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 69};
           rp{R.A1}:d.@{" RastPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 51}); CODE -102;

PROCEDURE @{" AllocRaster " link HYPER:Autodocs/graphics/AllocRaster() }(
           width{R.D0}:CARDINAL;
           height{R.D1}:CARDINAL):ADDRESS; CODE -492;

PROCEDURE @{" AndRectRegion " link HYPER:Autodocs/graphics/AndRectRegion() }(
           region{R.A0}:d.@{" RegionPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 54};
           rectangle{R.A1}:d.@{" RectanglePtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 53}); CODE -504;

PROCEDURE @{" AndRegionRegion " link HYPER:Autodocs/graphics/AndRegionRegion() }(
           region1{R.A0}:d.@{" RegionPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 54};
           region2{R.A1}:d.@{" RegionPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 54}):BOOLEAN; CODE -624;

PROCEDURE @{" Animate " link HYPER:Autodocs/graphics/Animate() }(
           VAR anKey{R.A0}:d.@{" AnimObPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 22};
           rp{R.A1}:d.@{" RastPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 51}); CODE -162;

PROCEDURE @{" AreaDraw " link HYPER:Autodocs/graphics/AreaDraw() }(
           rp{R.A1}:d.@{" RastPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 51};
           x{R.D0}:INTEGER;
           y{R.D1}:INTEGER):BOOLEAN; CODE -258;

PROCEDURE @{" AreaEllipse " link HYPER:Autodocs/graphics/AreaEllipse() }(
           rp{R.A1}:d.@{" RastPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 51};
           cX{R.D0}:INTEGER;
           cY{R.D1}:INTEGER;
           a{R.D2}:INTEGER;
           b{R.D3}:INTEGER):BOOLEAN; CODE -186;

PROCEDURE @{" AreaEnd " link HYPER:Autodocs/graphics/AreaEnd() }(rp{R.A1}:d.@{" RastPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 51}):BOOLEAN; CODE -264;

PROCEDURE @{" AreaMove " link HYPER:Autodocs/graphics/AreaMove() }(
           rp{R.A1}:d.@{" RastPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 51};
           x{R.D0}:INTEGER;
           y{R.D1}:INTEGER):BOOLEAN; CODE -252;

PROCEDURE @{" AskFont " link HYPER:Autodocs/graphics/AskFont() }(
           rp{R.A1}:d.@{" RastPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 51};
           textAttr{R.A0}:d.@{" TextAttrPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 58}); CODE -474;

PROCEDURE @{" AskSoftStyle " link HYPER:Autodocs/graphics/AskSoftStyle() }(
           rp{R.A1}:d.@{" RastPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 51}):d.@{" FontStyleSet " link HYPER:Modula-2/GraphicsD.def.guide/Modul 816}; CODE -84;

PROCEDURE @{" AttemptLockLayerRom " link HYPER:Autodocs/graphics/AttemptLockLayerRom() }(
           layer{R.A5}:d.@{" LayerPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 43}):BOOLEAN; CODE -654;

PROCEDURE(*36*) @{" BitMapScale " link HYPER:Autodocs/graphics/BitMapScale() }(
                 VAR bitScaleArgs{R.A0}:d.@{" BitScaleArgs " link HYPER:Modula-2/GraphicsD.def.guide/Modul 882}); CODE -678;

PROCEDURE @{" BltBitMap " link HYPER:Autodocs/graphics/BltBitMap() }(
           srcBitMap{R.A0}:d.@{" BitMapPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 24};
           srcX{R.D0}:INTEGER;
           srcY{R.D1}:INTEGER;
           dstBitMap{R.A1}:d.@{" BitMapPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 24};
           dstX{R.D2}:INTEGER;
           dstY{R.D3}:INTEGER;
           sizeX{R.D4}:INTEGER;
           sizeY{R.D5}:INTEGER;
           minterm{R.D6}:SHORTCARD;
           mask{R.D7}:SHORTCARD;
           tempA{R.A2}:ADDRESS):LONGCARD; CODE -30;

PROCEDURE @{" BltBitMapRastPort " link HYPER:Autodocs/graphics/BltBitMapRastPort() }(
           srcbm{R.A0}:d.@{" BitMapPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 24};
           srcX{R.D0}:INTEGER;
           srcY{R.D1}:INTEGER;
           destRp{R.A1}:d.@{" RastPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 51};
           destX{R.D2}:INTEGER;
           destY{R.D3}:INTEGER;
           sizeX{R.D4}:INTEGER;
           sizeY{R.D5}:INTEGER;
           minterm{R.D6}:SHORTCARD); CODE -606;

PROCEDURE @{" BltClear " link HYPER:Autodocs/graphics/BltClear() }(
           memBlock{R.A1}:ADDRESS;
           bytecount{R.D0}:LONGCARD;
           flags{R.D1}:LONGSET); CODE -300;

PROCEDURE @{" BltMaskBitMapRastPort " link HYPER:Autodocs/graphics/BltMaskBitMapRastPort() }(
           srcbm{R.A0}:d.@{" BitMapPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 24};
           srcX{R.D0}:INTEGER;
           srcY{R.D1}:INTEGER;
           destRp{R.A1}:d.@{" RastPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 51};
           destX{R.D2}:INTEGER;
           destY{R.D3}:INTEGER;
           sizeX{R.D4}:INTEGER;
           sizeY{R.D5}:INTEGER;
           minterm{R.D6}:BYTE;
           bltmask{R.A2}:ADDRESS); CODE -636;

PROCEDURE @{" BltPattern " link HYPER:Autodocs/graphics/BltPattern() }(
           rp{R.A1}:d.@{" RastPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 51};
           mask{R.A0}:ADDRESS;
           xl{R.D0}:INTEGER;
           yl{R.D1}:INTEGER;
           maxX{R.D2}:INTEGER;
           maxY{R.D3}:INTEGER;
           bytecnt{R.D4}:INTEGER); CODE -312;

PROCEDURE @{" BltTemplate " link HYPER:Autodocs/graphics/BltTemplate() }(
           srcTemplate{R.A0}:ADDRESS;
           srcX{R.D0}:INTEGER;
           srcMod{R.D1}:INTEGER;
           rp{R.A1}:d.@{" RastPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 51};
           dstX{R.D2}:INTEGER;
           dstY{R.D3}:INTEGER;
           sizeX{R.D4}:INTEGER;
           sizeY{R.D5}:INTEGER); CODE -36;

PROCEDURE @{" CBump " link HYPER:Autodocs/graphics/CBump() }(c{R.A1}:d.@{" UCopListPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 64}); CODE -366;

PROCEDURE @{" ChangeSprite " link HYPER:Autodocs/graphics/ChangeSprite() }(
           vp{R.A0}:d.@{" ViewPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 68};
           s{R.A1}:d.@{" SimpleSpritePtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 56};
           newdata{R.A2}:ADDRESS); CODE -420;

PROCEDURE CINIT(
           copperList{R.A0}:d.@{" UCopListPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 64};
           num{R.D0}:LONGINT):d.@{" CopListPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 34}; CODE -594;
(*
 CINIT ist in C ein Makro dass die Funktion UCopperListInit aufruft.
 Hier ist CINIT so definiert, dass es identisch zu UCopperListInit
 ist.
*)

PROCEDURE @{" ClearEOL " link HYPER:Autodocs/graphics/ClearEOL() }(rp{R.A1}:d.@{" RastPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 51}); CODE -42;

PROCEDURE @{" ClearRectRegion " link HYPER:Autodocs/graphics/ClearRectRegion() }(
           region{R.A0}:d.@{" RegionPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 54};
           rectangle{R.A1}:d.@{" RectanglePtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 53}):BOOLEAN; CODE -522;

PROCEDURE @{" ClearRegion " link HYPER:Autodocs/graphics/ClearRegion() }(region{R.A0}:d.@{" RegionPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 54}); CODE -528;

PROCEDURE @{" ClearScreen " link HYPER:Autodocs/graphics/ClearScreen() }(rp{R.A1}:d.@{" RastPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 51}); CODE -48;

PROCEDURE @{" ClipBlit " link HYPER:Autodocs/graphics/ClipBlit() }(
           src{R.A0}:d.@{" RastPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 51};
           srcX{R.D0}:INTEGER;
           srcY{R.D1}:INTEGER;
           dest{R.A1}:d.@{" RastPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 51};
           destX{R.D2}:INTEGER;
           destY{R.D3}:INTEGER;
           xSize{R.D4}:INTEGER;
           ySize{R.D5}:INTEGER;
           minterm{R.D6}:SHORTCARD); CODE -552;

PROCEDURE @{" CloseFont " link HYPER:Autodocs/graphics/CloseFont() }(font{R.A1}:d.@{" TextFontPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 61}); CODE -78;

PROCEDURE(*36*) @{" CloseMonitor " link HYPER:Autodocs/graphics/CloseMonitor() }(
                 monitorSpec{R.A0}:d.@{" MonitorSpecPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 46}):BOOLEAN; CODE -720;

PROCEDURE CMove(
           c{R.A1}:d.@{" UCopListPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 64};
           a{R.D0}:ADDRESS;
           v{R.D1}:INTEGER); CODE -372;

PROCEDURE @{" CopySBitMap " link HYPER:Autodocs/graphics/CopySBitMap() }(layer{R.A0}:d.@{" LayerPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 43}); CODE -450;

PROCEDURE CWait(
           c{R.A1}:d.@{" UCopListPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 64};
           v{R.D0}:INTEGER;
           h{R.D1}:INTEGER); CODE -378;

PROCEDURE @{" DisownBlitter " link HYPER:Autodocs/graphics/DisownBlitter() }(); CODE -462;

PROCEDURE @{" DisposeRegion " link HYPER:Autodocs/graphics/DisposeRegion() }(region{R.A0}:d.@{" RegionPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 54}); CODE -534;

PROCEDURE @{" DoCollision " link HYPER:Autodocs/graphics/DoCollision() }(rp{R.A1}:d.@{" RastPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 51}); CODE -108;

PROCEDURE @{" Draw " link HYPER:Autodocs/graphics/Draw() }(
           rp{R.A1}:d.@{" RastPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 51};
           x{R.D0}:INTEGER;
           y{R.D1}:INTEGER); CODE -246;

PROCEDURE @{" DrawEllipse " link HYPER:Autodocs/graphics/DrawEllipse() }(
           rp{R.A1}:d.@{" RastPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 51};
           cX{R.D0}:INTEGER;
           cY{R.D1}:INTEGER;
           a{R.D2}:INTEGER;
           b{R.D3}:INTEGER); CODE -180;

PROCEDURE @{" DrawGList " link HYPER:Autodocs/graphics/DrawGList() }(
           rp{R.A1}:d.@{" RastPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 51};
           vp{R.A0}:d.@{" ViewPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 68}); CODE -114;

PROCEDURE(*36*) @{" EraseRect " link HYPER:Autodocs/graphics/EraseRect() }(
                 rp{R.A1}:d.@{" RastPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 51};
                 xMin{R.D0}:INTEGER;
                 yMin{R.D1}:INTEGER;
                 xMax{R.D2}:INTEGER;
                 yMax{R.D3}:INTEGER); CODE -810;

PROCEDURE(*36*) @{" ExtendFont " link HYPER:Autodocs/graphics/ExtendFont() }(
                 font{R.A0}:d.@{" TextFontPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 61};
                 fontTags{R.A1}:@{" TagItemPtr " link HYPER:Modula-2/UtilityD.def.guide/Modul 22}):LONGCARD; CODE -816;

PROCEDURE(*36*) @{" FindDisplayInfo " link HYPER:Autodocs/graphics/FindDisplayInfo() }(
                 dispID{R.D0}:LONGCARD):d.@{" DisplayInfoHandle " link HYPER:Modula-2/GraphicsD.def.guide/Modul 394}; CODE -726;

PROCEDURE @{" Flood " link HYPER:Autodocs/graphics/Flood() }(
           rp{R.A1}:d.@{" RastPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 51};
           mode{R.D2}:LONGCARD;
           x{R.D0}:INTEGER;
           y{R.D1}:INTEGER):BOOLEAN; CODE -330;

PROCEDURE(*36*) @{" FontExtent " link HYPER:Autodocs/graphics/FontExtent() }(
                 font{R.A0}:d.@{" TextFontPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 61};
                 VAR fontExtent{R.A1}:d.@{" TextExtent " link HYPER:Modula-2/GraphicsD.def.guide/Modul 997}); CODE -762;

PROCEDURE @{" FreeColorMap " link HYPER:Autodocs/graphics/FreeColorMap() }(colorMap{R.A0}:d.@{" ColorMapPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 30}); CODE -576;

PROCEDURE @{" FreeCopList " link HYPER:Autodocs/graphics/FreeCopList() }(coplist{R.A0}:d.@{" CopListPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 34}); CODE -546;

PROCEDURE @{" FreeCprList " link HYPER:Autodocs/graphics/FreeCprList() }(cprlist{R.A0}:d.@{" CprlistPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 35}); CODE -564;

PROCEDURE @{" FreeGBuffers " link HYPER:Autodocs/graphics/FreeGBuffers() }(
           anOb{R.A0}:d.@{" AnimObPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 22};
           rp{R.A1}:d.@{" RastPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 51};
           db{R.D0}:BOOLEAN); CODE -600;

PROCEDURE @{" FreeRaster " link HYPER:Autodocs/graphics/FreeRaster() }(
           p{R.A0}:ADDRESS;
           width{R.D0}:CARDINAL;
           height{R.D1}:CARDINAL); CODE -498;

PROCEDURE @{" FreeSprite " link HYPER:Autodocs/graphics/FreeSprite() }(pick{R.D0}:INTEGER); CODE -414;

PROCEDURE @{" FreeVPortCopLists " link HYPER:Autodocs/graphics/FreeVPortCopLists() }(vp{R.A0}:d.@{" ViewPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 68}); CODE -540;

PROCEDURE @{" GetColorMap " link HYPER:Autodocs/graphics/GetColorMap() }(
           entries{R.D0}:LONGINT):d.@{" ColorMapPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 30}; CODE -570;

PROCEDURE(*36*) @{" GetDisplayInfoData " link HYPER:Autodocs/graphics/GetDisplayInfoData() }(
                 handle{R.A0}:d.@{" DisplayInfoHandle " link HYPER:Modula-2/GraphicsD.def.guide/Modul 394};
                 buf{R.A1}:ADDRESS;
                 size{R.D0}:LONGCARD;
                 tagID{R.D1}:LONGCARD;
                 displayID{R.D2}:LONGCARD):LONGCARD; CODE -756;

PROCEDURE @{" GetGBuffers " link HYPER:Autodocs/graphics/GetGBuffers() }(
           anOb{R.A0}:d.@{" AnimObPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 22};
           rp{R.A1}:d.@{" RastPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 51};
           db{R.D0}:BOOLEAN):BOOLEAN; CODE -168;

PROCEDURE @{" GetRGB4 " link HYPER:Autodocs/graphics/GetRGB4() }(
           colorMap{R.A0}:d.@{" ColorMapPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 30};
           entry{R.D0}:LONGINT):LONGINT; CODE -582;

PROCEDURE @{" GetSprite " link HYPER:Autodocs/graphics/GetSprite() }(
           sprite{R.A0}:d.@{" SimpleSpritePtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 56};
           pick{R.D0}:INTEGER):INTEGER; CODE -408;

PROCEDURE(*36*) @{" GetVPModeID " link HYPER:Autodocs/graphics/GetVPModeID() }(
                 vp{R.A0}:d.@{" ViewPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 68}):LONGCARD; CODE -792;

PROCEDURE(*36*) @{" GfxAssociate " link HYPER:Autodocs/graphics/GfxAssociate() }(
                 associateNode{R.A0}:ADDRESS;
                 gfxNodePtr{R.A1}:ADDRESS); CODE -672;

PROCEDURE(*36*) @{" GfxFree " link HYPER:Autodocs/graphics/GfxFree() }(gfxNodePtr{R.A0}:ADDRESS); CODE -666;

PROCEDURE(*36*) GfxLookUp(
                 associateNode{R.A0}:ADDRESS):ADDRESS; CODE -702;

PROCEDURE(*36*) @{" GfxNew " link HYPER:Autodocs/graphics/GfxNew() }(gfxNodeType{R.D0}:LONGCARD):ADDRESS; CODE -660;

PROCEDURE @{" InitArea " link HYPER:Autodocs/graphics/InitArea() }(
           VAR areainfo{R.A0}:d.@{" AreaInfo " link HYPER:Modula-2/GraphicsD.def.guide/Modul 777};
           buffer{R.A1}:ADDRESS;
           maxvectors{R.D0}:INTEGER); CODE -282;

PROCEDURE @{" InitBitMap " link HYPER:Autodocs/graphics/InitBitMap() }(
           VAR bm{R.A0}:d.@{" BitMap " link HYPER:Modula-2/GraphicsD.def.guide/Modul 83};
           depth{R.D0}:INTEGER;
           width{R.D1}:LONGCARD;
           height{R.D2}:LONGCARD); CODE -390;

PROCEDURE @{" InitGels " link HYPER:Autodocs/graphics/InitGels() }(
           head{R.A0}:d.@{" VSpritePtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 69};
           tail{R.A1}:d.@{" VSpritePtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 69};
           gInfo{R.A2}:d.@{" GelsInfoPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 40}); CODE -120;

PROCEDURE @{" InitGMasks " link HYPER:Autodocs/graphics/InitGMasks() }(anOb{R.A0}:d.@{" AnimObPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 22}); CODE -174;

PROCEDURE @{" InitMasks " link HYPER:Autodocs/graphics/InitMasks() }(vs{R.A0}:d.@{" VSpritePtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 69}); CODE -126;

PROCEDURE @{" InitRastPort " link HYPER:Autodocs/graphics/InitRastPort() }(VAR rp{R.A1}:d.@{" RastPort " link HYPER:Modula-2/GraphicsD.def.guide/Modul 828}); CODE -198;

PROCEDURE @{" InitTmpRas " link HYPER:Autodocs/graphics/InitTmpRas() }(
           VAR tmpras{R.A0}:d.@{" TmpRas " link HYPER:Modula-2/GraphicsD.def.guide/Modul 789};
           buffer{R.A1}:ADDRESS;
           size{R.D0}:LONGINT); CODE -468;

PROCEDURE @{" InitView " link HYPER:Autodocs/graphics/InitView() }(VAR view{R.A1}:d.@{" View " link HYPER:Modula-2/GraphicsD.def.guide/Modul 1071}); CODE -360;

PROCEDURE @{" InitVPort " link HYPER:Autodocs/graphics/InitVPort() }(VAR vp{R.A0}:d.@{" ViewPort " link HYPER:Modula-2/GraphicsD.def.guide/Modul 1054}); CODE -204;

PROCEDURE @{" LoadRGB4 " link HYPER:Autodocs/graphics/LoadRGB4() }(
           vp{R.A0}:d.@{" ViewPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 68};
           colors{R.A1}:ADDRESS;
           count{R.D0}:INTEGER); CODE -192;

PROCEDURE @{" LoadView " link HYPER:Autodocs/graphics/LoadView() }(view{R.A1}:d.@{" ViewPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 66}); CODE -222;

PROCEDURE @{" LockLayerRom " link HYPER:Autodocs/graphics/LockLayerRom() }(layer{R.A5}:d.@{" LayerPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 43}); CODE -432;

PROCEDURE @{" MakeVPort " link HYPER:Autodocs/graphics/MakeVPort() }(
           view{R.A0}:d.@{" ViewPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 66};
           viewport{R.A1}:d.@{" ViewPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 68}); CODE -216;

PROCEDURE(*36*) @{" ModeNotAvailable " link HYPER:Autodocs/graphics/ModeNotAvailable() }(
                 modeID{R.D0}:LONGCARD):LONGCARD; CODE -798;

PROCEDURE @{" Move " link HYPER:Autodocs/graphics/Move() }(
           rp{R.A1}:d.@{" RastPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 51};
           x{R.D0}:INTEGER;
           y{R.D1}:INTEGER); CODE -240;

PROCEDURE @{" MoveSprite " link HYPER:Autodocs/graphics/MoveSprite() }(
           vp{R.A0}:d.@{" ViewPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 68};
           sprite{R.A1}:d.@{" SimpleSpritePtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 56};
           x{R.D0}:INTEGER;
           y{R.D1}:INTEGER); CODE -426;

PROCEDURE @{" MrgCop " link HYPER:Autodocs/graphics/MrgCop() }(view{R.A1}:d.@{" ViewPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 66}); CODE -210;

PROCEDURE @{" NewRegion " link HYPER:Autodocs/graphics/NewRegion() }():d.@{" RegionPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 54}; CODE -516;

PROCEDURE(*36*) @{" NextDisplayInfo " link HYPER:Autodocs/graphics/NextDisplayInfo() }(
                 displayID{R.D0}:LONGCARD):LONGCARD; CODE -732;

PROCEDURE @{" OpenFont " link HYPER:Autodocs/graphics/OpenFont() }(
           textAttr{R.A0}:d.@{" TextAttrPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 58}):d.@{" TextFontPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 61}; CODE -72;

PROCEDURE(*36*) @{" OpenMonitor " link HYPER:Autodocs/graphics/OpenMonitor() }(
                 monitorName{R.A1}:ADDRESS;
                 displayID{R.D0}:LONGCARD):d.@{" MonitorSpecPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 46}; CODE -714;

PROCEDURE @{" OrRectRegion " link HYPER:Autodocs/graphics/OrRectRegion() }(
           region{R.A0}:d.@{" RegionPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 54};
           rectangle{R.A1}:d.@{" RectanglePtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 53}):BOOLEAN; CODE -510;

PROCEDURE @{" OrRegionRegion " link HYPER:Autodocs/graphics/OrRegionRegion() }(
           region1{R.A0}:d.@{" RegionPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 54};
           region2{R.A1}:d.@{" RegionPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 54}):BOOLEAN; CODE -612;

PROCEDURE @{" OwnBlitter " link HYPER:Autodocs/graphics/OwnBlitter() }(); CODE -456;

PROCEDURE @{" PolyDraw " link HYPER:Autodocs/graphics/PolyDraw() }(
           rp{R.A1}:d.@{" RastPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 51};
           count{R.D0}:INTEGER;
           array{R.A0}:ADDRESS); CODE -336;

PROCEDURE @{" QBlit " link HYPER:Autodocs/graphics/QBlit() }(bp{R.A1}:@{" BltnodePtr " link HYPER:Modula-2/Hardware.def.guide/Modul 95}); CODE -276;

PROCEDURE @{" QBSBlit " link HYPER:Autodocs/graphics/QBSBlit() }(bsp{R.A1}:@{" BltnodePtr " link HYPER:Modula-2/Hardware.def.guide/Modul 95}); CODE -294;

PROCEDURE @{" ReadPixel " link HYPER:Autodocs/graphics/ReadPixel() }(
           rp{R.A1}:d.@{" RastPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 51};
           x{R.D0}:INTEGER;
           y{R.D1}:INTEGER):LONGINT; CODE -318;

PROCEDURE(*36*) @{" ReadPixelArray8 " link HYPER:Autodocs/graphics/ReadPixelArray8() }(
                 rp{R.A0}:d.@{" RastPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 51};
                 xstart{R.D0}:CARDINAL;
                 ystart{R.D1}:CARDINAL;
                 xstop{R.D2}:CARDINAL;
                 ystop{R.D3}:CARDINAL;
                 array{R.A2}:ADDRESS;
                 temprp{R.A1}:d.@{" RastPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 51}):LONGINT; CODE -780;

PROCEDURE(*36*) @{" ReadPixelLine8 " link HYPER:Autodocs/graphics/ReadPixelLine8() }(
                 rp{R.A0}:d.@{" RastPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 51};
                 xstart{R.D0}:CARDINAL;
                 ystart{R.D1}:CARDINAL;
                 width{R.D2}:CARDINAL;
                 array{R.A2}:ADDRESS;
                 tempRP{R.A1}:d.@{" RastPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 51}):LONGINT; CODE -768;

PROCEDURE @{" RectFill " link HYPER:Autodocs/graphics/RectFill() }(
           rp{R.A1}:d.@{" RastPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 51};
           xMin{R.D0}:INTEGER;
           yMin{R.D1}:INTEGER;
           xMax{R.D2}:INTEGER;
           yMax{R.D3}:INTEGER); CODE -306;

PROCEDURE @{" RemFont " link HYPER:Autodocs/graphics/RemFont() }(textFont{R.A1}:d.@{" TextFontPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 61}); CODE -486;

PROCEDURE @{" RemIBob " link HYPER:Autodocs/graphics/RemIBob() }(
           bob{R.A0}:d.@{" BobPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 26};
           rp{R.A1}:d.@{" RastPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 51};
           vp{R.A2}:d.@{" ViewPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 68}); CODE -132;

PROCEDURE @{" RemVSprite " link HYPER:Autodocs/graphics/RemVSprite() }(vs{R.A0}:d.@{" VSpritePtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 69}); CODE -138;

PROCEDURE(*36*) @{" ScalerDiv " link HYPER:Autodocs/graphics/ScalerDiv() }(
                 factor{R.D0}:CARDINAL;
                 numerator{R.D1}:CARDINAL;
                 denominator{R.D2}:CARDINAL):CARDINAL; CODE -684;

PROCEDURE @{" ScrollRaster " link HYPER:Autodocs/graphics/ScrollRaster() }(
           rp{R.A1}:d.@{" RastPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 51};
           dx{R.D0}:INTEGER;
           dy{R.D1}:INTEGER;
           xMin{R.D2}:INTEGER;
           yMin{R.D3}:INTEGER;
           xMax{R.D4}:INTEGER;
           yMax{R.D5}:INTEGER); CODE -396;

PROCEDURE @{" ScrollVPort " link HYPER:Autodocs/graphics/ScrollVPort() }(vp{R.A0}:d.@{" ViewPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 68}); CODE -588;

PROCEDURE @{" SetAPen " link HYPER:Autodocs/graphics/SetAPen() }(
           rp{R.A1}:d.@{" RastPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 51};
           pen{R.D0}:CARDINAL); CODE -342;

PROCEDURE @{" SetBPen " link HYPER:Autodocs/graphics/SetBPen() }(
           rp{R.A1}:d.@{" RastPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 51};
           pen{R.D0}:CARDINAL); CODE -348;

PROCEDURE @{" SetCollision " link HYPER:Autodocs/graphics/SetCollision() }(
           num{R.D0}:LONGCARD;
           routine{R.A0}:ADDRESS;
           gInfo{R.A1}:d.@{" GelsInfoPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 40}); CODE -144;

PROCEDURE @{" SetDrMd " link HYPER:Autodocs/graphics/SetDrMd() }(
           rp{R.A1}:d.@{" RastPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 51};
           mode{R.D0}:d.@{" DrawModeSet " link HYPER:Modula-2/GraphicsD.def.guide/Modul 811}); CODE -354;

PROCEDURE @{" SetFont " link HYPER:Autodocs/graphics/SetFont() }(
           rp{R.A1}:d.@{" RastPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 51};
           font{R.A0}:d.@{" TextFontPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 61}); CODE -66;

PROCEDURE @{" SetRast " link HYPER:Autodocs/graphics/SetRast() }(
           rp{R.A1}:d.@{" RastPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 51};
           pen{R.D0}:CARDINAL); CODE -234;

PROCEDURE @{" SetRGB4 " link HYPER:Autodocs/graphics/SetRGB4() }(
           vp{R.A0}:d.@{" ViewPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 68};
           n{R.D0}:CARDINAL;
           r{R.D1}:CARDINAL;
           g{R.D2}:CARDINAL;
           b{R.D3}:CARDINAL); CODE -288;

PROCEDURE @{" SetRGB4CM " link HYPER:Autodocs/graphics/SetRGB4CM() }(
           cm{R.A0}:d.@{" ColorMapPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 30};
           n{R.D0}:CARDINAL;
           r{R.D1}:CARDINAL;
           g{R.D2}:CARDINAL;
           b{R.D3}:CARDINAL); CODE -630;

PROCEDURE @{" SetSoftStyle " link HYPER:Autodocs/graphics/SetSoftStyle() }(
           rp{R.A1}:d.@{" RastPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 51};
           style{R.D0}:d.@{" FontStyleSet " link HYPER:Modula-2/GraphicsD.def.guide/Modul 816};
           enable{R.D1}:d.@{" FontStyleSet " link HYPER:Modula-2/GraphicsD.def.guide/Modul 816}):d.@{" FontStyleSet " link HYPER:Modula-2/GraphicsD.def.guide/Modul 816}; CODE -90;

PROCEDURE @{" SortGList " link HYPER:Autodocs/graphics/SortGList() }(rp{R.A1}:d.@{" RastPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 51}); CODE -150;

PROCEDURE(*36*) @{" StripFont " link HYPER:Autodocs/graphics/StripFont() }(font{R.A0}:d.@{" TextFontPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 61}); CODE -822;

PROCEDURE @{" SyncSBitMap " link HYPER:Autodocs/graphics/SyncSBitMap() }(layer{R.A0}:d.@{" LayerPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 43}); CODE -444;

PROCEDURE @{" Text " link HYPER:Autodocs/graphics/Text() }(
           rp{R.A1}:d.@{" RastPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 51};
           string{R.A0}:ADDRESS;
           count{R.D0}:LONGINT); CODE -60;

PROCEDURE(*36*) @{" TextExtent " link HYPER:Autodocs/graphics/TextExtent() }(
                 rp{R.A1}:d.@{" RastPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 51};
                 string{R.A0}:ADDRESS;
                 count{R.D0}:INTEGER;
                 VAR textExtent{R.A2}:d.@{" TextExtent " link HYPER:Modula-2/GraphicsD.def.guide/Modul 997}); CODE -690;

PROCEDURE(*36*) @{" TextFit " link HYPER:Autodocs/graphics/TextFit() }(
                 rp{R.A1}:d.@{" RastPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 51};
                 string{R.A0}:ADDRESS;
                 strLen{R.D0}:CARDINAL;
                 VAR textExtent{R.A2}:d.@{" TextExtent " link HYPER:Modula-2/GraphicsD.def.guide/Modul 997};
                 constrainingExtent{R.A3}:d.@{" TextExtentPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 59};
                 strDirection{R.D1}:INTEGER;
                 constrainBitWidth{R.D2}:CARDINAL;
                 constrainBitHeight{R.D3}:CARDINAL):LONGCARD; CODE -696;

PROCEDURE @{" TextLength " link HYPER:Autodocs/graphics/TextLength() }(
           rp{R.A1}:d.@{" RastPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 51};
           string{R.A0}:ADDRESS;
           count{R.D0}:INTEGER):INTEGER; CODE -54;

PROCEDURE UCopperListInit(
           copperList{R.A0}:d.@{" UCopListPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 64};
           num{R.D0}:LONGINT):d.@{" CopListPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 34}; CODE -594;

PROCEDURE @{" UnlockLayerRom " link HYPER:Autodocs/graphics/UnlockLayerRom() }(layer{R.A5}:d.@{" LayerPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 43}); CODE -438;

PROCEDURE @{" VBeamPos " link HYPER:Autodocs/graphics/VBeamPos() }():LONGINT; CODE -384;

PROCEDURE(*36*) @{" VideoControl " link HYPER:Autodocs/graphics/VideoControl() }(
                 VAR colorMap{R.A0}:d.@{" ColorMap " link HYPER:Modula-2/GraphicsD.def.guide/Modul 1109};
                 tagarray{R.A1}:@{" TagItemPtr " link HYPER:Modula-2/UtilityD.def.guide/Modul 22}):BOOLEAN; CODE -708;

PROCEDURE @{" WaitBlit " link HYPER:Autodocs/graphics/WaitBlit() }(); CODE -228;

PROCEDURE @{" WaitBOVP " link HYPER:Autodocs/graphics/WaitBOVP() }(vp{R.A0}:d.@{" ViewPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 68}); CODE -402;

PROCEDURE @{" WaitTOF " link HYPER:Autodocs/graphics/WaitTOF() }(); CODE -270;

PROCEDURE(*36*) @{" WeighTAMatch " link HYPER:Autodocs/graphics/WeighTAMatch() }(
                 reqTextAttr{R.A0}:d.@{" TTextAttrPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 63};
                 targetTextAttr{R.A1}:d.@{" TTextAttrPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 63};
                 targetTags{R.A2}:@{" TagItemPtr " link HYPER:Modula-2/UtilityD.def.guide/Modul 22}):CARDINAL; CODE -804;

PROCEDURE @{" WritePixel " link HYPER:Autodocs/graphics/WritePixel() }(
           rp{R.A1}:d.@{" RastPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 51};
           x{R.D0}:INTEGER;
           y{R.D1}:INTEGER):BOOLEAN; CODE -324;

PROCEDURE(*36*) @{" WritePixelArray8 " link HYPER:Autodocs/graphics/WritePixelArray8() }(
                 rp{R.A0}:d.@{" RastPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 51};
                 xstart{R.D0}:CARDINAL;
                 ystart{R.D1}:CARDINAL;
                 xstop{R.D2}:CARDINAL;
                 ystop{R.D3}:CARDINAL;
                 array{R.A2}:ADDRESS;
                 temprp{R.A1}:d.@{" RastPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 51}):LONGINT; CODE -786;

PROCEDURE(*36*) @{" WritePixelLine8 " link HYPER:Autodocs/graphics/WritePixelLine8() }(
                 rp{R.A0}:d.@{" RastPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 51};
                 xstart{R.D0}:CARDINAL;
                 ystart{R.D1}:CARDINAL;
                 width{R.D2}:CARDINAL;
                 array{R.A2}:ADDRESS;
                 tempRP{R.A1}:d.@{" RastPortPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 51}):LONGINT; CODE -774;

PROCEDURE @{" XorRectRegion " link HYPER:Autodocs/graphics/XorRectRegion() }(
           region{R.A0}:d.@{" RegionPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 54};
           rectangle{R.A1}:d.@{" RectanglePtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 53}):BOOLEAN; CODE -558;

PROCEDURE @{" XorRegionRegion " link HYPER:Autodocs/graphics/XorRegionRegion() }(
           region1{R.A0}:d.@{" RegionPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 54};
           region2{R.A1}:d.@{" RegionPtr " link HYPER:Modula-2/GraphicsD.def.guide/Modul 54}):BOOLEAN; CODE -618;

END GraphicsL.lib33

@endnode