DataMuseum.dk

top - metrics - download

    Length: 44826 (0xaf1a)
    Types: TextFile
    Names: »V«

└─⟦149519bd4⟧ Bits:30000546 8mm tape, Rational 1000, !projects 93-07-13
    └─⟦124ff5788⟧ »DATA« 
        └─⟦this⟧ 
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
    └─⟦6f12a12be⟧ »DATA« 
        └─⟦this⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─⟦d65440be7⟧ »DATA« 
        └─⟦this⟧ 

TextFile

--      Copyright (c) 1990 Meridian Software Systems, Inc.      --
with Mac_Types;
use Mac_Types;
package Quickdraw is

    Invalcolreq : constant := -1;
    Srccopy : constant := 0;
    Srcor : constant := 1;
    Srcxor : constant := 2;
    Srcbic : constant := 3;
    Notsrccopy : constant := 4;
    Notsrcor : constant := 5;
    Notsrcxor : constant := 6;
    Notsrcbic : constant := 7;
    Patcopy : constant := 8;
    Pator : constant := 9;
    Patxor : constant := 10;
    Patbic : constant := 11;
    Notpatcopy : constant := 12;
    Notpator : constant := 13;
    Notpatxor : constant := 14;
    Notpatbic : constant := 15;
    Blend : constant := 32;
    Addpin : constant := 33;
    Addover : constant := 34;
    Subpin : constant := 35;
    Addmax : constant := 37;
    Subover : constant := 38;
    Admin : constant := 39;
    Transparent : constant := 36;
    Normalbit : constant := 0;
    Inversebit : constant := 1;
    Redbit : constant := 4;
    Greenbit : constant := 3;
    Bluebit : constant := 2;
    Cyanbit : constant := 8;
    Magentabit : constant := 7;
    Yellowbit : constant := 6;
    Blackbit : constant := 5;
    Blackcolor : constant := 33;
    Whitecolor : constant := 30;
    Redcolor : constant := 205;
    Greencolor : constant := 341;
    Bluecolor : constant := 409;
    Cyancolor : constant := 273;
    Magentacolor : constant := 137;
    Yellowcolor : constant := 69;
    Piclparen : constant := 0;
    Picrparen : constant := 1;
    Cluttype : constant := 0;
    Fixedtype : constant := 1;
    Directtype : constant := 2;
    Gddevtype : constant := 0;
    Raminit : constant := 10;
    Mainscreen : constant := 11;
    Allinit : constant := 12;
    Screendevice : constant := 13;
    Nodriver : constant := 14;
    Screenactive : constant := 15;
    Hilitebit : constant := 7;
    Philitebit : constant := 0;
    Defqdcolors : constant := 127;
    Mask : constant := 64;
    Hilite : constant := 50;
    Minseed : constant := 1023;

    type Grafverb is (Frame, Paint, Erase, Invert, Fill);

    type Styleitem is (Bold, Italic, Underline, Outline,
                       Shadow, Condense, Extend);

    subtype Qdbyte is Signedbyte;
    subtype Qdptr is Ptr;
    subtype Qdhandle is Handle;
    subtype Qderr is Mac_Types.Integer;
    type Pattern is array (0 .. 7) of Byte;
    type Patptr is access Pattern;
    type Pathandle is access Patptr;
    type Bits16 is array (0 .. 15) of Mac_Types.Integer;
    subtype Style is Signedbyte;

    type Fontinfo is
        record
            Ascent : Mac_Types.Integer;
            Descent : Mac_Types.Integer;
            Widmax : Mac_Types.Integer;
            Leading : Mac_Types.Integer;
        end record;

    type Bitmap is
        record
            Baseaddr : Ptr;
            Rowbytes : Mac_Types.Integer;
            Bounds : Rect;
        end record;

    type Cursor is
        record
            Data : Bits16;
            Mask : Bits16;
            Hotspot : Point;
        end record;
    type Cursptr is access Cursor;
    type Curshandle is access Cursptr;

    type Penstate is
        record
            Pnloc : Point;
            Pnsize : Point;
            Pnmode : Mac_Types.Integer;
            Pnpat : Pattern;
        end record;

    type Region is
        record
            Rgnsize : Mac_Types.Integer;
            Rgnbbox : Rect;
        end record;
    type Rgnptr is access Region;
    type Rgnhandle is access Rgnptr;

    type Picture is
        record
            Picsize : Mac_Types.Integer;
            Picframe : Rect;
        end record;
    type Picptr is access Picture;
    type Pichandle is access Picptr;

    type Array0_0point is array (0 .. 0) of Point;
    type Polygon is
        record
            Polysize : Mac_Types.Integer;
            Polybbox : Rect;
            Polypoints : Array0_0point;
        end record;
    type Polyptr is access Polygon;
    type Polyhandle is access Polyptr;

    type Qdprocs is
        record
            Textproc : Ptr;
            Lineproc : Ptr;
            Rectproc : Ptr;
            Rrectproc : Ptr;
            Ovalproc : Ptr;
            Arcproc : Ptr;
            Polyproc : Ptr;
            Rgnproc : Ptr;
            Bitsproc : Ptr;
            Commentproc : Ptr;
            Txmeasproc : Ptr;
            Getpicproc : Ptr;
            Putpicproc : Ptr;
        end record;
    type Qdprocsptr is access Qdprocs;

    type Grafport is
        record
            Device : Mac_Types.Integer;
            Portbits : Bitmap;
            Portrect : Rect;
            Visrgn : Rgnhandle;
            Cliprgn : Rgnhandle;
            Bkpat : Pattern;
            Fillpat : Pattern;
            Pnloc : Point;
            Pnsize : Point;
            Pnmode : Mac_Types.Integer;
            Pnpat : Pattern;
            Pnvis : Mac_Types.Integer;
            Txfont : Mac_Types.Integer;
            Txface : Style;
            Txmode : Mac_Types.Integer;
            Txsize : Mac_Types.Integer;
            Spextra : Fixed;
            Fgcolor : Longint;
            Bkcolor : Longint;
            Colrbit : Mac_Types.Integer;
            Patstretch : Mac_Types.Integer;
            Picsave : Handle;
            Rgnsave : Handle;
            Polysave : Handle;
            Grafprocs : Qdprocsptr;
        end record;
    type Grafptr is access Grafport;

    type Rgbcolor is
        record
            Red : Mac_Types.Integer;
            Green : Mac_Types.Integer;
            Blue : Mac_Types.Integer;
        end record;
    subtype Windowptr is Grafptr;
    type Varwindowptr is access Windowptr;

    type Colorspec is
        record
            Value : Mac_Types.Integer;
            Rgb : Rgbcolor;
        end record;
    type Colorspecptr is access Colorspec;

    type Cspecarray is array (0 .. 0) of Colorspec;
    type Colortable is
        record
            Ctseed : Longint;
            Ctflags : Mac_Types.Integer;
            Ctsize : Mac_Types.Integer;
            Cttable : Cspecarray;
        end record;
    type Ctabptr is access Colortable;
    type Ctabhandle is access Ctabptr;

    type Matchrec is
        record
            Red : Mac_Types.Integer;
            Green : Mac_Types.Integer;
            Blue : Mac_Types.Integer;
            Matchdata : Longint;
        end record;

    type Pixeltype is (Chunky, Chunkyplanar, Planar);

    type Pixmap is
        record
            Baseaddr : Ptr;
            Rowbytes : Mac_Types.Integer;
            Bounds : Rect;
            Pmversion : Mac_Types.Integer;
            Packtype : Mac_Types.Integer;
            Packsize : Longint;
            Hres : Fixed;
            Vres : Fixed;
            Pixeltype : Mac_Types.Integer;
            Pixelsize : Mac_Types.Integer;
            Cmpcount : Mac_Types.Integer;
            Cmpsize : Mac_Types.Integer;
            Planebytes : Longint;
            Pmtable : Ctabhandle;
            Pmreserved : Longint;
        end record;
    type Pixmapptr is access Pixmap;
    type Pixmaphandle is access Pixmapptr;

    type Pixpat is
        record
            Pattype : Mac_Types.Integer;
            Patmap : Pixmaphandle;
            Patdata : Handle;
            Patxdata : Handle;
            Patxvalid : Mac_Types.Integer;
            Patxmap : Handle;
            Pat1data : Pattern;
        end record;
    type Pixpatptr is access Pixpat;
    type Pixpathandle is access Pixpatptr;

    type Ccrsr is
        record
            Crsrtype : Mac_Types.Integer;
            Crsrmap : Pixmaphandle;
            Crsrdata : Handle;
            Crsrxdata : Handle;
            Crsrxvalid : Mac_Types.Integer;
            Crsrxhandle : Handle;
            Crsr1data : Bits16;
            Crsrmask : Bits16;
            Crsrhotspot : Point;
            Crsrxtable : Longint;
            Crsrid : Longint;
        end record;
    type Ccrsrptr is access Ccrsr;
    type Ccrsrhandle is access Ccrsrptr;

    type Array0_0integer is array (0 .. 0) of Mac_Types.Integer;
    type Cicon is
        record
            Iconpmap : Pixmap;
            Iconmask : Bitmap;
            Iconbmap : Bitmap;
            Icondata : Handle;
            Iconmaskdata : Array0_0integer;
        end record;
    type Ciconptr is access Cicon;
    type Ciconhandle is access Ciconptr;

    type Gammatbl is
        record
            Gversion : Mac_Types.Integer;
            Gtype : Mac_Types.Integer;
            Gformulasize : Mac_Types.Integer;
            Gchancnt : Mac_Types.Integer;
            Gdatacnt : Mac_Types.Integer;
            Gdatawidth : Mac_Types.Integer;
            Gformuladata : Array0_0integer;
        end record;
    type Gammatblptr is access Gammatbl;
    type Gammatblhandle is access Gammatblptr;

    type Array0_0signedbyte is array (0 .. 1) of Signedbyte;
    type Itab is
        record
            Itabseed : Longint;
            Itabres : Mac_Types.Integer;
            Ittable : Array0_0signedbyte;
        end record;
    type Itabptr is access Itab;
    type Itabhandle is access Itabptr;

    type Sprocrec is
        record
            Nxtsrch : Handle;
            Srchproc : Procptr;
        end record;
    type Sprocptr is access Sprocrec;
    type Sprochndl is access Sprocptr;

    type Cprocrec;
    type Cprocptr is access Cprocrec;
    type Cprochndl is access Cprocptr;
    type Cprocrec is
        record
            Nxtcomp : Cprochndl;
            Compproc : Procptr;
        end record;

    type Gdevice;
    type Gdptr is access Gdevice;
    type Gdhandle is access Gdptr;
    type Gdevice is
        record
            Gdrefnum : Mac_Types.Integer;
            Gdid : Mac_Types.Integer;
            Gdtype : Mac_Types.Integer;
            Gditable : Itabhandle;
            Gdrespref : Mac_Types.Integer;
            Gdsearchproc : Sprochndl;
            Gdcompproc : Cprochndl;
            Gdflags : Mac_Types.Integer;
            Gdpmap : Pixmaphandle;
            Gdrefcon : Longint;
            Gdnextgd : Gdhandle;
            Gdrect : Rect;
            Gdmode : Longint;
            Gdccbytes : Mac_Types.Integer;
            Gdccdepth : Mac_Types.Integer;
            Gdccxdata : Handle;
            Gdccxmask : Handle;
            Gdreserved : Longint;
        end record;

    type Grafvars is
        record
            Rgbopcolor : Rgbcolor;
            Rgbhilitecolor : Rgbcolor;
            Pmfgcolor : Handle;
            Pmfgindex : Mac_Types.Integer;
            Pmbkcolor : Handle;
            Pmbkindex : Mac_Types.Integer;
            Pmflags : Mac_Types.Integer;
        end record;
    type Gvarptr is access Grafvars;
    type Gvarhandle is access Gvarptr;

    type Cgrafport is
        record
            Device : Mac_Types.Integer;
            Portpixmap : Pixmaphandle;
            Portversion : Mac_Types.Integer;
            Grafvars : Handle;
            Chextra : Mac_Types.Integer;
            Pnlochfrac : Mac_Types.Integer;
            Portrect : Rect;
            Visrgn : Rgnhandle;
            Cliprgn : Rgnhandle;
            Bkpixpat : Pixpathandle;
            Rgbfgcolor : Rgbcolor;
            Rgbbkcolor : Rgbcolor;
            Pnloc : Point;
            Pnsize : Point;
            Pnmode : Mac_Types.Integer;
            Pnpixpat : Pixpathandle;
            Fillpixpat : Pixpathandle;
            Pnvis : Mac_Types.Integer;
            Txfont : Mac_Types.Integer;
            Txface : Style;
            Txmode : Mac_Types.Integer;
            Txsize : Mac_Types.Integer;
            Spextra : Fixed;
            Fgcolor : Longint;
            Bkcolor : Longint;
            Colrbit : Mac_Types.Integer;
            Patstretch : Mac_Types.Integer;
            Picsave : Handle;
            Rgnsave : Handle;
            Polysave : Handle;
            Grafprocs : Qdprocsptr;
        end record;
    type Cgrafptr is access Cgrafport;

    type Cqdprocs is
        record
            Textproc : Ptr;
            Lineproc : Ptr;
            Rectproc : Ptr;
            Rrectproc : Ptr;
            Ovalproc : Ptr;
            Arcproc : Ptr;
            Polyproc : Ptr;
            Rgnproc : Ptr;
            Bitsproc : Ptr;
            Commentproc : Ptr;
            Txmeasproc : Ptr;
            Getpicproc : Ptr;
            Putpicproc : Ptr;
            Opcodeproc : Ptr;
            Newproc1 : Ptr;
            Newproc2 : Ptr;
            Newproc3 : Ptr;
            Newproc4 : Ptr;
            Newproc5 : Ptr;
            Newproc6 : Ptr;
        end record;
    subtype Cwindowptr is Cgrafptr;
    type Cqdprocsptr is access Cqdprocs;

    type Reqlistrec is
        record
            Reqlsize : Mac_Types.Integer;
            Reqldata : Array0_0integer;
        end record;

    type Array1_11integer is array (1 .. 11) of Mac_Types.Integer;
    type Qdglobals is
        record
            -- QuickDraw private global variables
            Fontdata : Array1_11integer;
            Playindex : Longint;
            Fontptr : Longint;
            Fontadj : Fixed;
            Patalign : Point;
            Polymax : Mac_Types.Integer;
            Thepoly : Polyhandle;
            Qdspare0 : Mac_Types.Integer;
            Playpic : Longint;
            Rgnmax : Mac_Types.Integer;
            Rgnindex : Mac_Types.Integer;
            Rgnbuf : Ptr;
            Widedata : Region;
            Widemaster : Rgnptr;
            Wideopen : Rgnhandle;
            -- QuickDraw public global variables
            Randseed : Longint;
            Screenbits : Bitmap;
            Arrow : Cursor;
            Dkgray : Pattern;
            Ltgray : Pattern;
            Gray : Pattern;
            Black : Pattern;
            White : Pattern;
            Theport : Grafptr;
        end record;

    Qd : Qdglobals;

    procedure Initgraf (Globalptr : Ptr);
    pragma Interface (Mpwpascal, Initgraf, "16#A86E#");

    procedure Openport (Port : Grafptr);
    pragma Interface (Mpwpascal, Openport, "16#A86F#");

    procedure Initport (Port : Grafptr);
    pragma Interface (Mpwpascal, Initport, "16#A86D#");

    procedure Closeport (Port : Grafptr);
    pragma Interface (Mpwpascal, Closeport, "16#A87D#");

    procedure Setport (Port : Grafptr);
    pragma Interface (Mpwpascal, Setport, "16#A873#");

    procedure Getport (Port : in out Grafptr);
    pragma Interface (Mpwpascal, Getport, "16#A874#");

    procedure Grafdevice (Device : Mac_Types.Integer);
    pragma Interface (Mpwpascal, Grafdevice, "16#A872#");

    procedure Setportbits (Bm : Bitmap);
    pragma Interface (Mpwpascal, Setportbits, "16#A875#");

    procedure Portsize (Width : Mac_Types.Integer; Height : Mac_Types.Integer);
    pragma Interface (Mpwpascal, Portsize, "16#A876#");

    procedure Moveportto (Leftglobal : Mac_Types.Integer;
                          Topglobal : Mac_Types.Integer);
    pragma Interface (Mpwpascal, Moveportto, "16#A877#");

    procedure Setorigin (H : Mac_Types.Integer; V : Mac_Types.Integer);
    pragma Interface (Mpwpascal, Setorigin, "16#A878#");

    procedure Setclip (Rgn : Rgnhandle);
    pragma Interface (Mpwpascal, Setclip, "16#A879#");

    procedure Getclip (Rgn : Rgnhandle);
    pragma Interface (Mpwpascal, Getclip, "16#A87A#");

    procedure Cliprect (R : Rect);
    pragma Interface (Mpwpascal, Cliprect, "16#A87B#");

    procedure Backpat (Pat : Pattern);
    pragma Interface (Mpwpascal, Backpat, "16#A87C#");

    procedure Initcursor;
    pragma Interface (Mpwpascal, Initcursor, "16#A850#");

    procedure Setcursor (Crsr : Cursor);
    pragma Interface (Mpwpascal, Setcursor, "16#A851#");

    procedure Hidecursor;
    pragma Interface (Mpwpascal, Hidecursor, "16#A852#");

    procedure Showcursor;
    pragma Interface (Mpwpascal, Showcursor, "16#A853#");

    procedure Obscurecursor;
    pragma Interface (Mpwpascal, Obscurecursor, "16#A856#");

    procedure Hidepen;
    pragma Interface (Mpwpascal, Hidepen, "16#A896#");

    procedure Showpen;
    pragma Interface (Mpwpascal, Showpen, "16#A897#");

    procedure Getpen (Pt : in out Point);
    pragma Interface (Mpwpascal, Getpen, "16#A89A#");

    procedure Getpenstate (Pnstate : in out Penstate);
    pragma Interface (Mpwpascal, Getpenstate, "16#A898#");

    procedure Setpenstate (Pnstate : Penstate);
    pragma Interface (Mpwpascal, Setpenstate, "16#A899#");

    procedure Pensize (Width : Mac_Types.Integer; Height : Mac_Types.Integer);
    pragma Interface (Mpwpascal, Pensize, "16#A89B#");

    procedure Penmode (Mode : Mac_Types.Integer);
    pragma Interface (Mpwpascal, Penmode, "16#A89C#");

    procedure Penpat (Pat : Pattern);
    pragma Interface (Mpwpascal, Penpat, "16#A89D#");

    procedure Pennormal;
    pragma Interface (Mpwpascal, Pennormal, "16#A89E#");

    procedure Moveto (H : Mac_Types.Integer; V : Mac_Types.Integer);
    pragma Interface (Mpwpascal, Moveto, "16#A893#");

    procedure Move (Dh : Mac_Types.Integer; Dv : Mac_Types.Integer);
    pragma Interface (Mpwpascal, Move, "16#A894#");

    procedure Lineto (H : Mac_Types.Integer; V : Mac_Types.Integer);
    pragma Interface (Mpwpascal, Lineto, "16#A891#");

    procedure Line (Dh : Mac_Types.Integer; Dv : Mac_Types.Integer);
    pragma Interface (Mpwpascal, Line, "16#A892#");

    procedure Textfont (Font : Mac_Types.Integer);
    pragma Interface (Mpwpascal, Textfont, "16#A887#");

    procedure Textface (Face : Style);
    pragma Interface (Mpwpascal, Textface, "16#A888#");

    procedure Textmode (Mode : Mac_Types.Integer);
    pragma Interface (Mpwpascal, Textmode, "16#A889#");

    procedure Textsize (Size : Mac_Types.Integer);
    pragma Interface (Mpwpascal, Textsize, "16#A88A#");

    procedure Spaceextra (Extra : Fixed);
    pragma Interface (Mpwpascal, Spaceextra, "16#A88E#");

    procedure Drawchar (Ch : Charword);
    pragma Interface (Mpwpascal, Drawchar, "16#A883#");

    procedure Drawstring (S : Str255);
    pragma Interface (Mpwpascal, Drawstring, "16#A884#");

    procedure Drawtext (Textbuf : Ptr;
                        Firstbyte : Mac_Types.Integer;
                        Bytecount : Mac_Types.Integer);
    pragma Interface (Mpwpascal, Drawtext, "16#A885#");

    function Charwidth (Ch : Charword) return Mac_Types.Integer;
    pragma Interface (Mpwpascal, Charwidth, "16#A88D#");

    function Stringwidth (S : Str255) return Mac_Types.Integer;
    pragma Interface (Mpwpascal, Stringwidth, "16#A88C#");

    function Textwidth (Textbuf : Ptr;
                        Firstbyte : Mac_Types.Integer;
                        Bytecount : Mac_Types.Integer) return Mac_Types.Integer;
    pragma Interface (Mpwpascal, Textwidth, "16#A886#");

    procedure Measuretext
                 (Count : Mac_Types.Integer; Textaddr : Ptr; Charlocs : Ptr);
    pragma Interface (Mpwpascal, Measuretext, "16#A837#");

    procedure Getfontinfo (Info : in out Fontinfo);
    pragma Interface (Mpwpascal, Getfontinfo, "16#A88B#");

    procedure Forecolor (Color : Longint);
    pragma Interface (Mpwpascal, Forecolor, "16#A862#");

    procedure Backcolor (Color : Longint);
    pragma Interface (Mpwpascal, Backcolor, "16#A863#");

    procedure Colorbit (Whichbit : Mac_Types.Integer);
    pragma Interface (Mpwpascal, Colorbit, "16#A864#");

    procedure Setrect (R : in out Rect;
                       Left : Mac_Types.Integer;
                       Top : Mac_Types.Integer;
                       Right : Mac_Types.Integer;
                       Bottom : Mac_Types.Integer);
    pragma Interface (Mpwpascal, Setrect, "16#A8A7#");

    procedure Offsetrect (R : in out Rect;
                          Dh : Mac_Types.Integer;
                          Dv : Mac_Types.Integer);
    pragma Interface (Mpwpascal, Offsetrect, "16#A8A8#");

    procedure Insetrect (R : in out Rect;
                         Dh : Mac_Types.Integer;
                         Dv : Mac_Types.Integer);
    pragma Interface (Mpwpascal, Insetrect, "16#A8A9#");

    function Sectrect (Src1 : Rect; Src2 : Rect; Dstrect : Rect) return Boolean;
    pragma Interface (Mpwpascal, Sectrect, "16#A8AA#");

    procedure Unionrect (Src1 : Rect; Src2 : Rect; Dstrect : in out Rect);
    pragma Interface (Mpwpascal, Unionrect, "16#A8AB#");

    function Equalrect (Rect1 : Rect; Rect2 : Rect) return Boolean;
    pragma Interface (Mpwpascal, Equalrect, "16#A8A6#");

    function Emptyrect (R : Rect) return Boolean;
    pragma Interface (Mpwpascal, Emptyrect, "16#A8AE#");

    procedure Framerect (R : Rect);
    pragma Interface (Mpwpascal, Framerect, "16#A8A1#");

    procedure Paintrect (R : Rect);
    pragma Interface (Mpwpascal, Paintrect, "16#A8A2#");

    procedure Eraserect (R : Rect);
    pragma Interface (Mpwpascal, Eraserect, "16#A8A3#");

    procedure Invertrect (R : Rect);
    pragma Interface (Mpwpascal, Invertrect, "16#A8A4#");

    procedure Fillrect (R : Rect; Pat : Pattern);
    pragma Interface (Mpwpascal, Fillrect, "16#A8A5#");

    procedure Frameoval (R : Rect);
    pragma Interface (Mpwpascal, Frameoval, "16#A8B7#");

    procedure Paintoval (R : Rect);
    pragma Interface (Mpwpascal, Paintoval, "16#A8B8#");

    procedure Eraseoval (R : Rect);
    pragma Interface (Mpwpascal, Eraseoval, "16#A8B9#");

    procedure Invertoval (R : Rect);
    pragma Interface (Mpwpascal, Invertoval, "16#A8BA#");

    procedure Filloval (R : Rect; Pat : Pattern);
    pragma Interface (Mpwpascal, Filloval, "16#A8BB#");

    procedure Frameroundrect (R : Rect;
                              Ovalwidth : Mac_Types.Integer;
                              Ovalheight : Mac_Types.Integer);
    pragma Interface (Mpwpascal, Frameroundrect, "16#A8B0#");

    procedure Paintroundrect (R : Rect;
                              Ovalwidth : Mac_Types.Integer;
                              Ovalheight : Mac_Types.Integer);
    pragma Interface (Mpwpascal, Paintroundrect, "16#A8B1#");

    procedure Eraseroundrect (R : Rect;
                              Ovalwidth : Mac_Types.Integer;
                              Ovalheight : Mac_Types.Integer);
    pragma Interface (Mpwpascal, Eraseroundrect, "16#A8B2#");

    procedure Invertroundrect (R : Rect;
                               Ovalwidth : Mac_Types.Integer;
                               Ovalheight : Mac_Types.Integer);
    pragma Interface (Mpwpascal, Invertroundrect, "16#A8B3#");

    procedure Fillroundrect (R : Rect;
                             Ovalwidth : Mac_Types.Integer;
                             Ovalheight : Mac_Types.Integer;
                             Pat : Pattern);
    pragma Interface (Mpwpascal, Fillroundrect, "16#A8B4#");

    procedure Framearc (R : Rect;
                        Startangle : Mac_Types.Integer;
                        Arcangle : Mac_Types.Integer);
    pragma Interface (Mpwpascal, Framearc, "16#A8BE#");

    procedure Paintarc (R : Rect;
                        Startangle : Mac_Types.Integer;
                        Arcangle : Mac_Types.Integer);
    pragma Interface (Mpwpascal, Paintarc, "16#A8BF#");

    procedure Erasearc (R : Rect;
                        Startangle : Mac_Types.Integer;
                        Arcangle : Mac_Types.Integer);
    pragma Interface (Mpwpascal, Erasearc, "16#A8C0#");

    procedure Invertarc (R : Rect;
                         Startangle : Mac_Types.Integer;
                         Arcangle : Mac_Types.Integer);
    pragma Interface (Mpwpascal, Invertarc, "16#A8C1#");

    procedure Fillarc (R : Rect;
                       Startangle : Mac_Types.Integer;
                       Arcangle : Mac_Types.Integer;
                       Pat : Pattern);
    pragma Interface (Mpwpascal, Fillarc, "16#A8C2#");

    function Newrgn return Rgnhandle;
    pragma Interface (Mpwpascal, Newrgn, "16#A8D8#");

    procedure Openrgn;
    pragma Interface (Mpwpascal, Openrgn, "16#A8DA#");

    procedure Closergn (Dstrgn : Rgnhandle);
    pragma Interface (Mpwpascal, Closergn, "16#A8DB#");

    procedure Disposergn (Rgn : Rgnhandle);
    pragma Interface (Mpwpascal, Disposergn, "16#A8D9#");

    procedure Copyrgn (Srcrgn : Rgnhandle; Dstrgn : Rgnhandle);
    pragma Interface (Mpwpascal, Copyrgn, "16#A8DC#");

    procedure Setemptyrgn (Rgn : Rgnhandle);
    pragma Interface (Mpwpascal, Setemptyrgn, "16#A8DD#");

    procedure Setrectrgn (Rgn : Rgnhandle;
                          Left : Mac_Types.Integer;
                          Top : Mac_Types.Integer;
                          Right : Mac_Types.Integer;
                          Bottom : Mac_Types.Integer);
    pragma Interface (Mpwpascal, Setrectrgn, "16#A8DE#");

    procedure Rectrgn (Rgn : Rgnhandle; R : Rect);
    pragma Interface (Mpwpascal, Rectrgn, "16#A8DF#");

    procedure Offsetrgn (Rgn : Rgnhandle;
                         Dh : Mac_Types.Integer;
                         Dv : Mac_Types.Integer);
    pragma Interface (Mpwpascal, Offsetrgn, "16#A8E0#");

    procedure Insetrgn (Rgn : Rgnhandle;
                        Dh : Mac_Types.Integer;
                        Dv : Mac_Types.Integer);
    pragma Interface (Mpwpascal, Insetrgn, "16#A8E1#");

    procedure Sectrgn (Srcrgna : Rgnhandle;
                       Srcrgnb : Rgnhandle;
                       Dstrgn : Rgnhandle);
    pragma Interface (Mpwpascal, Sectrgn, "16#A8E4#");

    procedure Unionrgn (Srcrgna : Rgnhandle;
                        Srcrgnb : Rgnhandle;
                        Dstrgn : Rgnhandle);
    pragma Interface (Mpwpascal, Unionrgn, "16#A8E5#");

    procedure Diffrgn (Srcrgna : Rgnhandle;
                       Srcrgnb : Rgnhandle;
                       Dstrgn : Rgnhandle);
    pragma Interface (Mpwpascal, Diffrgn, "16#A8E6#");

    procedure Xorrgn (Srcrgna : Rgnhandle;
                      Srcrgnb : Rgnhandle;
                      Dstrgn : Rgnhandle);
    pragma Interface (Mpwpascal, Xorrgn, "16#A8E7#");

    function Rectinrgn (R : Rect; Rgn : Rgnhandle) return Boolean;
    pragma Interface (Mpwpascal, Rectinrgn, "16#A8E9#");

    function Equalrgn (Rgna : Rgnhandle; Rgnb : Rgnhandle) return Boolean;
    pragma Interface (Mpwpascal, Equalrgn, "16#A8E3#");

    function Emptyrgn (Rgn : Rgnhandle) return Boolean;
    pragma Interface (Mpwpascal, Emptyrgn, "16#A8E2#");

    procedure Framergn (Rgn : Rgnhandle);
    pragma Interface (Mpwpascal, Framergn, "16#A8D2#");

    procedure Paintrgn (Rgn : Rgnhandle);
    pragma Interface (Mpwpascal, Paintrgn, "16#A8D3#");

    procedure Erasergn (Rgn : Rgnhandle);
    pragma Interface (Mpwpascal, Erasergn, "16#A8D4#");

    procedure Invertrgn (Rgn : Rgnhandle);
    pragma Interface (Mpwpascal, Invertrgn, "16#A8D5#");

    procedure Fillrgn (Rgn : Rgnhandle; Pat : Pattern);
    pragma Interface (Mpwpascal, Fillrgn, "16#A8D6#");

    procedure Scrollrect (R : Rect;
                          Dh : Mac_Types.Integer;
                          Dv : Mac_Types.Integer;
                          Updatergn : Rgnhandle);
    pragma Interface (Mpwpascal, Scrollrect, "16#A8EF#");

    procedure Copybits (Srcbits : Bitmap;
                        Dstbits : Bitmap;
                        Srcrect : Rect;
                        Dstrect : Rect;
                        Mode : Mac_Types.Integer;
                        Maskrgn : Rgnhandle);
    pragma Interface (Mpwpascal, Copybits, "16#A8EC#");

    procedure Seedfill (Srcptr : Ptr;
                        Dstptr : Ptr;
                        Srcrow : Mac_Types.Integer;
                        Dstrow : Mac_Types.Integer;
                        Height : Mac_Types.Integer;
                        Words : Mac_Types.Integer;
                        Seedh : Mac_Types.Integer;
                        Seedv : Mac_Types.Integer);
    pragma Interface (Mpwpascal, Seedfill, "16#A839#");

    procedure Calcmask (Srcptr : Ptr;
                        Dstptr : Ptr;
                        Srcrow : Mac_Types.Integer;
                        Dstrow : Mac_Types.Integer;
                        Height : Mac_Types.Integer;
                        Words : Mac_Types.Integer);
    pragma Interface (Mpwpascal, Calcmask, "16#A838#");

    procedure Copymask (Srcbits : Bitmap;
                        Maskbits : Bitmap;
                        Dstbits : Bitmap;
                        Srcrect : Rect;
                        Maskrect : Rect;
                        Dstrect : Rect);
    pragma Interface (Mpwpascal, Copymask, "16#A817#");

    function Openpicture (Picframe : Rect) return Pichandle;
    pragma Interface (Mpwpascal, Openpicture, "16#A8F3#");

    procedure Piccomment (Kind : Mac_Types.Integer;
                          Datasize : Mac_Types.Integer;
                          Datahandle : Handle);
    pragma Interface (Mpwpascal, Piccomment, "16#A8F2#");

    procedure Closepicture;
    pragma Interface (Mpwpascal, Closepicture, "16#A8F4#");

    procedure Drawpicture (Mypicture : Pichandle; Dstrect : Rect);
    pragma Interface (Mpwpascal, Drawpicture, "16#A8F6#");

    procedure Killpicture (Mypicture : Pichandle);
    pragma Interface (Mpwpascal, Killpicture, "16#A8F5#");

    function Openpoly return Polyhandle;
    pragma Interface (Mpwpascal, Openpoly, "16#A8CB#");

    procedure Closepoly;
    pragma Interface (Mpwpascal, Closepoly, "16#A8CC#");

    procedure Killpoly (Poly : Polyhandle);
    pragma Interface (Mpwpascal, Killpoly, "16#A8CD#");

    procedure Offsetpoly (Poly : Polyhandle;
                          Dh : Mac_Types.Integer;
                          Dv : Mac_Types.Integer);
    pragma Interface (Mpwpascal, Offsetpoly, "16#A8CE#");

    procedure Framepoly (Poly : Polyhandle);
    pragma Interface (Mpwpascal, Framepoly, "16#A8C6#");

    procedure Paintpoly (Poly : Polyhandle);
    pragma Interface (Mpwpascal, Paintpoly, "16#A8C7#");

    procedure Erasepoly (Poly : Polyhandle);
    pragma Interface (Mpwpascal, Erasepoly, "16#A8C8#");

    procedure Invertpoly (Poly : Polyhandle);
    pragma Interface (Mpwpascal, Invertpoly, "16#A8C9#");

    procedure Fillpoly (Poly : Polyhandle; Pat : Pattern);
    pragma Interface (Mpwpascal, Fillpoly, "16#A8CA#");

    procedure Setpt (Pt : in out Point;
                     H : Mac_Types.Integer;
                     V : Mac_Types.Integer);
    pragma Interface (Mpwpascal, Setpt, "16#A880#");

    procedure Localtoglobal (Pt : in out Point);
    pragma Interface (Mpwpascal, Localtoglobal, "16#A870#");

    procedure Globaltolocal (Pt : in out Point);
    pragma Interface (Mpwpascal, Globaltolocal, "16#A871#");

    function Random return Mac_Types.Integer;
    pragma Interface (Mpwpascal, Random, "16#A861#");

    procedure Stuffhex (Thingptr : Ptr; S : Str255);
    pragma Interface (Mpwpascal, Stuffhex, "16#A866#");

    function Getpixel
                (H : Mac_Types.Integer; V : Mac_Types.Integer) return Boolean;
    pragma Interface (Mpwpascal, Getpixel, "16#A865#");

    procedure Scalept (Pt : in out Point; Srcrect : Rect; Dstrect : Rect);
    pragma Interface (Mpwpascal, Scalept, "16#A8F8#");

    procedure Mappt (Pt : in out Point; Srcrect : Rect; Dstrect : Rect);
    pragma Interface (Mpwpascal, Mappt, "16#A8F9#");

    procedure Maprect (R : in out Rect; Srcrect : Rect; Dstrect : Rect);
    pragma Interface (Mpwpascal, Maprect, "16#A8FA#");

    procedure Maprgn (Rgn : Rgnhandle; Srcrect : Rect; Dstrect : Rect);
    pragma Interface (Mpwpascal, Maprgn, "16#A8FB#");

    procedure Mappoly (Poly : Polyhandle; Srcrect : Rect; Dstrect : Rect);
    pragma Interface (Mpwpascal, Mappoly, "16#A8FC#");

    procedure Setstdprocs (Procs : in out Qdprocs);
    pragma Interface (Mpwpascal, Setstdprocs, "16#A8EA#");

    procedure Stdrect (Verb : Grafverb; R : Rect);
    pragma Interface (Mpwpascal, Stdrect, "16#A8A0#");

    procedure Stdrrect (Verb : Grafverb;
                        R : Rect;
                        Ovalwidth : Mac_Types.Integer;
                        Ovalheight : Mac_Types.Integer);
    pragma Interface (Mpwpascal, Stdrrect, "16#A8AF#");

    procedure Stdoval (Verb : Grafverb; R : Rect);
    pragma Interface (Mpwpascal, Stdoval, "16#A8B6#");

    procedure Stdarc (Verb : Grafverb;
                      R : Rect;
                      Startangle : Mac_Types.Integer;
                      Arcangle : Mac_Types.Integer);
    pragma Interface (Mpwpascal, Stdarc, "16#A8BD#");

    procedure Stdpoly (Verb : Grafverb; Poly : Polyhandle);
    pragma Interface (Mpwpascal, Stdpoly, "16#A8C5#");

    procedure Stdrgn (Verb : Grafverb; Rgn : Rgnhandle);
    pragma Interface (Mpwpascal, Stdrgn, "16#A8D1#");

    procedure Stdbits (Srcbits : Bitmap;
                       Srcrect : Rect;
                       Dstrect : Rect;
                       Mode : Mac_Types.Integer;
                       Maskrgn : Rgnhandle);
    pragma Interface (Mpwpascal, Stdbits, "16#A8EB#");

    procedure Stdcomment (Kind : Mac_Types.Integer;
                          Datasize : Mac_Types.Integer;
                          Datahandle : Handle);
    pragma Interface (Mpwpascal, Stdcomment, "16#A8F1#");

    function Stdtxmeas (Bytecount : Mac_Types.Integer;
                        Textaddr : Ptr;
                        Numer : Varpoint;
                        Denom : Varpoint;
                        Info : Fontinfo) return Mac_Types.Integer;
    pragma Interface (Mpwpascal, Stdtxmeas, "16#A8ED#");

    procedure Stdgetpic (Dataptr : Ptr; Bytecount : Mac_Types.Integer);
    pragma Interface (Mpwpascal, Stdgetpic, "16#A8EE#");

    procedure Stdputpic (Dataptr : Ptr; Bytecount : Mac_Types.Integer);
    pragma Interface (Mpwpascal, Stdputpic, "16#A8F0#");

    procedure Addpt (Src : Point; Dst : in out Point);
    pragma Interface (Mpwpascal, Addpt, "16#A87E#");

    function Equalpt (Pt1 : Point; Pt2 : Point) return Boolean;
    pragma Interface (Mpwpascal, Equalpt, "16#A881#");

    function Ptinrect (Pt : Point; R : Rect) return Boolean;
    pragma Interface (Mpwpascal, Ptinrect, "16#A8AD#");

    procedure Pt2rect (Pt1 : Point; Pt2 : Point; Dstrect : in out Rect);
    pragma Interface (Mpwpascal, Pt2rect, "16#A8AC#");

    procedure Pttoangle
                 (R : Rect; Pt : Point; Angle : in out Mac_Types.Integer);
    pragma Interface (Mpwpascal, Pttoangle, "16#A8C3#");

    function Ptinrgn (Pt : Point; Rgn : Rgnhandle) return Boolean;
    pragma Interface (Mpwpascal, Ptinrgn, "16#A8E8#");

    procedure Stdtext (Count : Mac_Types.Integer;
                       Textaddr : Ptr;
                       Numer : Point;
                       Denom : Point);
    pragma Interface (Mpwpascal, Stdtext, "16#A882#");

    procedure Stdline (Newpt : Point);
    pragma Interface (Mpwpascal, Stdline, "16#A890#");

    procedure Opencport (Port : Cgrafptr);
    pragma Interface (Mpwpascal, Opencport, "16#AA00#");

    procedure Initcport (Port : Cgrafptr);
    pragma Interface (Mpwpascal, Initcport, "16#AA01#");

    procedure Closecport (Port : Cgrafptr);
    pragma Interface (Mpwpascal, Closecport, "16#A87D#");

    function Newpixmap return Pixmaphandle;
    pragma Interface (Mpwpascal, Newpixmap, "16#AA03#");

    procedure Dispospixmap (Pm : Pixmaphandle);
    pragma Interface (Mpwpascal, Dispospixmap, "16#AA04#");

    procedure Copypixmap (Srcpm : Pixmaphandle; Dstpm : Pixmaphandle);
    pragma Interface (Mpwpascal, Copypixmap, "16#AA05#");

    function Newpixpat return Pixpathandle;
    pragma Interface (Mpwpascal, Newpixpat, "16#AA07#");

    procedure Dispospixpat (Pp : Pixpathandle);
    pragma Interface (Mpwpascal, Dispospixpat, "16#AA08#");

    procedure Copypixpat (Srcpp : Pixpathandle; Dstpp : Pixpathandle);
    pragma Interface (Mpwpascal, Copypixpat, "16#AA09#");

    procedure Penpixpat (Pp : Pixpathandle);
    pragma Interface (Mpwpascal, Penpixpat, "16#AA0A#");

    procedure Backpixpat (Pp : Pixpathandle);
    pragma Interface (Mpwpascal, Backpixpat, "16#AA0B#");

    function Getpixpat (Patid : Mac_Types.Integer) return Pixpathandle;
    pragma Interface (Mpwpascal, Getpixpat, "16#AA0C#");

    procedure Makergbpat (Pp : Pixpathandle; Mycolor : Rgbcolor);
    pragma Interface (Mpwpascal, Makergbpat, "16#AA0D#");

    procedure Fillcrect (R : Rect; Pp : Pixpathandle);
    pragma Interface (Mpwpascal, Fillcrect, "16#AA0E#");

    procedure Fillcoval (R : Rect; Pp : Pixpathandle);
    pragma Interface (Mpwpascal, Fillcoval, "16#AA0F#");

    procedure Fillcroundrect (R : Rect;
                              Ovalwidth : Mac_Types.Integer;
                              Ovalheight : Mac_Types.Integer;
                              Pp : Pixpathandle);
    pragma Interface (Mpwpascal, Fillcroundrect, "16#AA10#");

    procedure Fillcarc (R : Rect;
                        Startangle : Mac_Types.Integer;
                        Arcangle : Mac_Types.Integer;
                        Pp : Pixpathandle);
    pragma Interface (Mpwpascal, Fillcarc, "16#AA11#");

    procedure Fillcrgn (Rgn : Rgnhandle; Pp : Pixpathandle);
    pragma Interface (Mpwpascal, Fillcrgn, "16#AA12#");

    procedure Fillcpoly (Poly : Polyhandle; Pp : Pixpathandle);
    pragma Interface (Mpwpascal, Fillcpoly, "16#AA13#");

    procedure Rgbforecolor (Color : Rgbcolor);
    pragma Interface (Mpwpascal, Rgbforecolor, "16#AA14#");

    procedure Rgbbackcolor (Color : Rgbcolor);
    pragma Interface (Mpwpascal, Rgbbackcolor, "16#AA15#");

    procedure Setcpixel (H : Mac_Types.Integer;
                         V : Mac_Types.Integer;
                         Cpix : Rgbcolor);
    pragma Interface (Mpwpascal, Setcpixel, "16#AA16#");

    procedure Setportpix (Pm : Pixmaphandle);
    pragma Interface (Mpwpascal, Setportpix, "16#AA06#");

    procedure Getcpixel (H : Mac_Types.Integer;
                         V : Mac_Types.Integer;
                         Cpix : in out Rgbcolor);
    pragma Interface (Mpwpascal, Getcpixel, "16#AA17#");

    procedure Getforecolor (Color : in out Rgbcolor);
    pragma Interface (Mpwpascal, Getforecolor, "16#AA19#");

    procedure Getbackcolor (Color : in out Rgbcolor);
    pragma Interface (Mpwpascal, Getbackcolor, "16#AA1A#");

    procedure Seedcfill (Srcbits : Bitmap;
                         Dstbits : Bitmap;
                         Srcrect : Rect;
                         Dstrect : Rect;
                         Seedh : Mac_Types.Integer;
                         Seedv : Mac_Types.Integer;
                         Matchproc : Procptr;
                         Matchdata : Longint);
    pragma Interface (Mpwpascal, Seedcfill, "16#AA50#");

    procedure Calccmask (Srcbits : Bitmap;
                         Dstbits : Bitmap;
                         Srcrect : Rect;
                         Dstrect : Rect;
                         Seedrgb : Rgbcolor;
                         Matchproc : Procptr;
                         Matchdata : Longint);
    pragma Interface (Mpwpascal, Calccmask, "16#AA4F#");

    procedure Opcolor (Color : Rgbcolor);
    pragma Interface (Mpwpascal, Opcolor, "16#AA21#");

    procedure Hilitecolor (Color : Rgbcolor);
    pragma Interface (Mpwpascal, Hilitecolor, "16#AA22#");

    procedure Disposctable (Ctable : Ctabhandle);
    pragma Interface (Mpwpascal, Disposctable, "16#AA24#");

    function Getctable (Ctid : Mac_Types.Integer) return Ctabhandle;
    pragma Interface (Mpwpascal, Getctable, "16#AA18#");

    function Getccursor (Crsrid : Mac_Types.Integer) return Ccrsrhandle;
    pragma Interface (Mpwpascal, Getccursor, "16#AA1B#");

    procedure Setccursor (Ccrsr : Ccrsrhandle);
    pragma Interface (Mpwpascal, Setccursor, "16#AA1C#");

    procedure Alloccursor;
    pragma Interface (Mpwpascal, Alloccursor, "16#AA1D#");

    procedure Disposccursor (Ccrsr : Ccrsrhandle);
    pragma Interface (Mpwpascal, Disposccursor, "16#AA26#");

    function Getcicon (Iconid : Mac_Types.Integer) return Ciconhandle;
    pragma Interface (Mpwpascal, Getcicon, "16#AA1E#");

    procedure Plotcicon (Therect : Rect; Theicon : Ciconhandle);
    pragma Interface (Mpwpascal, Plotcicon, "16#AA1F#");

    procedure Disposcicon (Theicon : Ciconhandle);
    pragma Interface (Mpwpascal, Disposcicon, "16#AA25#");

    procedure Setstdcprocs (Procs : in out Cqdprocs);
    pragma Interface (Mpwpascal, Setstdcprocs, "16#AA4E#");

    procedure Charextra (Extra : Fixed);
    pragma Interface (Mpwpascal, Charextra, "16#AA23#");

    function Getmaxdevice (Globalrect : Rect) return Gdhandle;
    pragma Interface (Mpwpascal, Getmaxdevice, "16#AA27#");

    function Getctseed return Longint;
    pragma Interface (Mpwpascal, Getctseed, "16#AA28#");

    function Getdevicelist return Gdhandle;
    pragma Interface (Mpwpascal, Getdevicelist, "16#AA29#");

    function Getmaindevice return Gdhandle;
    pragma Interface (Mpwpascal, Getmaindevice, "16#AA2A#");

    function Getnextdevice (Curdevice : Gdhandle) return Gdhandle;
    pragma Interface (Mpwpascal, Getnextdevice, "16#AA2B#");

    function Testdeviceattribute
                (Gdh : Gdhandle; Attribute : Mac_Types.Integer) return Boolean;
    pragma Interface (Mpwpascal, Testdeviceattribute, "16#AA2C#");

    procedure Setdeviceattribute (Gdh : Gdhandle;
                                  Attribute : Mac_Types.Integer;
                                  Value : Boolean);
    pragma Interface (Mpwpascal, Setdeviceattribute, "16#AA2D#");

    procedure Initgdevice
                 (Qdrefnum : Mac_Types.Integer; Mode : Longint; Gdh : Gdhandle);
    pragma Interface (Mpwpascal, Initgdevice, "16#AA2E#");

    function Newgdevice
                (Refnum : Mac_Types.Integer; Mode : Longint) return Gdhandle;
    pragma Interface (Mpwpascal, Newgdevice, "16#AA2F#");

    procedure Disposgdevice (Gdh : Gdhandle);
    pragma Interface (Mpwpascal, Disposgdevice, "16#AA30#");

    procedure Setgdevice (Gd : Gdhandle);
    pragma Interface (Mpwpascal, Setgdevice, "16#AA31#");

    function Getgdevice return Gdhandle;
    pragma Interface (Mpwpascal, Getgdevice, "16#AA32#");

    function Color2index (Mycolor : Rgbcolor) return Longint;
    pragma Interface (Mpwpascal, Color2index, "16#AA33#");

    procedure Index2color (Index : Longint; Acolor : in out Rgbcolor);
    pragma Interface (Mpwpascal, Index2color, "16#AA34#");

    procedure Invertcolor (Mycolor : in out Rgbcolor);
    pragma Interface (Mpwpascal, Invertcolor, "16#AA35#");

    function Realcolor (Color : Rgbcolor) return Boolean;
    pragma Interface (Mpwpascal, Realcolor, "16#AA36#");

    procedure Getsubtable (Mycolors : Ctabhandle;
                           Itabres : Mac_Types.Integer;
                           Targettbl : Ctabhandle);
    pragma Interface (Mpwpascal, Getsubtable, "16#AA37#");

    procedure Makeitable (Ctabh : Ctabhandle;
                          Itabh : Itabhandle;
                          Res : Mac_Types.Integer);
    pragma Interface (Mpwpascal, Makeitable, "16#AA39#");

    procedure Addsearch (Searchproc : Procptr);
    pragma Interface (Mpwpascal, Addsearch, "16#AA3A#");

    procedure Addcomp (Compproc : Procptr);
    pragma Interface (Mpwpascal, Addcomp, "16#AA3B#");

    procedure Delsearch (Searchproc : Procptr);
    pragma Interface (Mpwpascal, Delsearch, "16#AA4C#");

    procedure Delcomp (Compproc : Procptr);
    pragma Interface (Mpwpascal, Delcomp, "16#AA4D#");

    procedure Subpt (Src : Point; Dst : in out Point);
    pragma Interface (Mpwpascal, Subpt, "16#A87F#");

    procedure Setclientid (Id : Mac_Types.Integer);
    pragma Interface (Mpwpascal, Setclientid, "16#AA3C#");

    procedure Protectentry (Index : Mac_Types.Integer; Protect : Boolean);
    pragma Interface (Mpwpascal, Protectentry, "16#AA3D#");

    procedure Reserveentry (Index : Mac_Types.Integer; Reserve : Boolean);
    pragma Interface (Mpwpascal, Reserveentry, "16#AA3E#");

    procedure Setentries (Start : Mac_Types.Integer;
                          Count : Mac_Types.Integer;
                          Atable : Cspecarray);
    pragma Interface (Mpwpascal, Setentries, "16#AA3F#");

    procedure Saveentries (Srctable : Ctabhandle;
                           Resulttable : Ctabhandle;
                           Selection : in out Reqlistrec);
    pragma Interface (Mpwpascal, Saveentries, "16#AA49#");

    procedure Restoreentries (Srctable : Ctabhandle;
                              Dsttable : Ctabhandle;
                              Selection : in out Reqlistrec);
    pragma Interface (Mpwpascal, Restoreentries, "16#AA4A#");

    function Qderror return Mac_Types.Integer;
    pragma Interface (Mpwpascal, Qderror, "16#AA40#");

    function Getmasktable return Ptr;
    pragma Interface (Mpwpascal, Getmasktable, "GETMASKTABLE");

    function Bitmaprgn (Region : Rgnhandle; Bmap : Bitmap) return Oserr;
    pragma Interface (Mpwpascal, Bitmaprgn, "16#A8D7#");

    generic
        with function Routine
                         (Rgb : Rgbcolor; Position : Varlongint) return Boolean;
    procedure Usersearchroutine;

    generic
        with procedure Routine (Rgb : Rgbcolor);
    procedure Usercomproutine;

end Quickdraw;