home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / MacOberonLite 1.0.1 / Sys Files / MacImaging.Mod (.txt) < prev    next >
Encoding:
Oberon Text  |  1993-05-20  |  21.2 KB  |  450 lines  |  [.Ob./.Ob4]
  1. Syntax10.Scn.Fnt
  2. Syntax10b.Scn.Fnt
  3. Chicago10.Scn.Fnt
  4. MODULE MacImaging;
  5. (* This Module contains all essentiel constants, datatypes and routines from the NEW Inside Macintosh
  6.             Imaging
  7.     However this implementation is NOT complete. If use miss some items, please use Inside Mac
  8.     and complete this module for your needs.
  9.     See the documentation ( MakeMacApp.Doc ) for more information about the usage of this module.  *)
  10. IMPORT
  11.     SYSTEM, ME:=MacMemory;
  12. CONST
  13.     (*QuickDraw Transfer Modes*)
  14.         srcCopy*=0; srcOr*=1; srcXor*=2; srcBic*=3; notSrcCopy*=4; notSrcOr*=5; notSrcXor*=6; notSrcBic*=7;
  15.         patCopy*=8; patOr*=9; patXor*=10; patBic*=11; notPatCopy*=12; notPatOr*=13; notPatXor*=14; notPatBic*=15;
  16.     (*QuickDraw Text Styles*)
  17.         plain*=0; bold*=1; italic*=2; underline*=4; outline*=8; shadow*=16; condense*=32; extend*=64;
  18.         Point*=RECORD v*, h*: INTEGER END;
  19.         Rect*=RECORD top*, left*, bottom*, right*: INTEGER END;
  20.         RgnHandle*=POINTER- TO RECORD END;
  21.         Pattern*=ARRAY 2 OF LONGINT;
  22.         PatPtr*=POINTER- TO Pattern;
  23.         PatHandle*=POINTER- TO RECORD p*: PatPtr END;
  24.         BitMap*=RECORD
  25.             baseAddr*: ME.Ptr;
  26.             rowBytes*: INTEGER;
  27.             bounds*: Rect
  28.         END;
  29.         Cursor*=RECORD
  30.             data*, mask*: ARRAY 16 OF INTEGER;
  31.             hotSpot*: Point
  32.         END;
  33.         GrafPtr*=POINTER- TO GrafPort;
  34.         GrafPort*=RECORD
  35.             device: INTEGER; portBits*: BitMap; portRect*: Rect;
  36.             visRgn*, clipRgn*: RgnHandle; bkPat, fillPat: Pattern;
  37.             pnLoc*, pnSize*: Point; pnMode*: INTEGER; pnPat*: Pattern; pnVis: INTEGER;
  38.             txFont*, txFace*, txMode*, txSize*: INTEGER; spExtra: LONGINT;
  39.             fgColor*, bkColor*: LONGINT; colrBit, patStretch: INTEGER;
  40.             picSave, rgnSave, polySave: ME.Handle; grafProcs: ME.Ptr
  41.         END;
  42.         PicPtr*= POINTER- TO Picture;
  43.         PicHandle*= POINTER- TO RECORD p*:PicPtr END;
  44.         Picture*= RECORD
  45.             picSize*: INTEGER;
  46.             picFrame*: Rect
  47.         END;
  48.         PolyPtr*= POINTER- TO Polygon;
  49.         PolyHandle*= POINTER- TO RECORD p*:PolyPtr END;
  50.         Polygon*= RECORD
  51.             polySize*: INTEGER;
  52.             polyBBox*: Rect
  53.       END;
  54.     (* Color QuickDraw *)
  55.         RGBColor*=RECORD
  56.             red*:INTEGER;
  57.             green*:INTEGER;
  58.             blue*:INTEGER
  59.         END;
  60.         ColorSpec*=RECORD
  61.             value*:INTEGER;
  62.             rgb*:RGBColor
  63.         END;
  64.         CTabHandle*= ME.Handle;
  65.         PixMapPtr*= POINTER- TO PixMap;
  66.         PixMapHandle*= POINTER- TO RECORD p*:PixMapPtr END;
  67.         PixMap*= RECORD
  68.             baseAddr*: LONGINT;
  69.             rowBytes*: INTEGER;
  70.             bounds*: Rect;
  71.             pmVersion*: INTEGER;
  72.             packType*: INTEGER;
  73.             packSize*: LONGINT;
  74.             hRes*: LONGINT;
  75.             vRes: LONGINT;
  76.             pixelType*: INTEGER;
  77.             pixelSize*: INTEGER;
  78.             cmpCount*: INTEGER;
  79.             cmpSize*: INTEGER;
  80.             planeBytes*: LONGINT;
  81.             pmTable*: CTabHandle;
  82.             pmReserved*: LONGINT
  83.         END;
  84.         PixPatPtr*=POINTER- TO PixPat;
  85.         PixPatHandle*= POINTER- TO RECORD p*:PixPatPtr END;
  86.         PixPat*= RECORD
  87.             patType*: INTEGER;
  88.             patMap*: PixMapHandle;
  89.             patData*: ME.Handle;
  90.             patXData*: ME.Handle;
  91.             patXValid*: INTEGER;
  92.             patXMap*: ME.Handle;
  93.             pat1Data*: Pattern
  94.         END;
  95.         CCrsrPtr*= POINTER- TO CCrsr;
  96.         CCrsrHandle*= POINTER- TO RECORD p*:CCrsrPtr END;
  97.         CCrsr*= RECORD
  98.             crsrType*: INTEGER;
  99.             crsrMap*: PixMapHandle;
  100.             crsrData*: ME.Handle;
  101.             crsrXData*: ME.Handle;
  102.             crsrXValid*: INTEGER;
  103.             crsrXHandle: ME.Handle;
  104.             crsr1Data*: ARRAY 16 OF INTEGER;
  105.             crsrMask*: ARRAY 16 OF INTEGER;
  106.             crsrHotSpot*: Point;
  107.             crsrXTable: LONGINT;
  108.             crsrID*: LONGINT
  109.         END;
  110.         CIconPtr*= POINTER- TO CIcon;
  111.         CIconHandle*= POINTER- TO RECORD p*:CIconPtr END;
  112.         CIcon*= RECORD
  113.             iconPMap*: PixMap;
  114.             iconMask*: BitMap;
  115.             iconBMap*: BitMap;
  116.             iconData*: ME.Handle;
  117.             iconMaskData*: LONGINT
  118.         END;
  119.         GDPtr*= POINTER- TO GDevice;
  120.         GDHandle*= POINTER- TO RECORD p*:GDPtr END;
  121.         GDevice*= RECORD
  122.             gdRefNum*: INTEGER;
  123.             gdID*: INTEGER;
  124.             gdType*: INTEGER;
  125.             gdITable: ME.Handle;
  126.             gdResPref*: INTEGER;
  127.             gdSearchProc*: ME.Handle;
  128.             gdCompProc*: ME.Handle;
  129.             gdFlags*: INTEGER;
  130.             gdPMap*: PixMapHandle;
  131.             gdRefCon*: LONGINT;
  132.             gdNextGD*: GDHandle;
  133.             gdRect*: Rect;
  134.             gdMode*: LONGINT;
  135.             gdCCBytes*: INTEGER;
  136.             gdCCDepth*: INTEGER;
  137.             gdCCXData: ME.Handle;
  138.             gdCCXMask: ME.Handle;
  139.             gdReserved: LONGINT
  140.         END;
  141.         CGrafPtr*=POINTER- TO CGrafPort;
  142.         CGrafPort*=RECORD
  143.             device*: INTEGER;
  144.             portPixMap*: PixMapHandle;
  145.             portVersion*: INTEGER;
  146.             grafVars*: ME.Handle;
  147.             chExtra*: INTEGER;
  148.             pnLocHFrac*: INTEGER;
  149.             portRect*: Rect;
  150.             visRgn*: RgnHandle;
  151.             clipRgn*: RgnHandle;
  152.             bkPixPat*: PixPatHandle;
  153.             rgbFgColor*: RGBColor;
  154.             rgbBkColor*: RGBColor;
  155.             pnLoc*: Point;
  156.             pnSize*: Point;
  157.             pnMode*: INTEGER;
  158.             pnPixPat*: PixPatHandle;
  159.             fillPixPat*: PixPatHandle;
  160.             pnVis*: INTEGER;
  161.             txFont*: INTEGER;
  162.             txFace*: INTEGER;
  163.             txMode*: INTEGER;
  164.             txSize*: INTEGER;
  165.             spExtra*: LONGINT;
  166.             fgColor*: LONGINT;
  167.             bkColor*: LONGINT;
  168.             colrBit*: INTEGER;
  169.             patStretch*: INTEGER;
  170.             picSave: ME.Handle;
  171.             rgnSave: ME.Handle;
  172.             polySave: ME.Handle;
  173.             grafProcs: LONGINT
  174.         END;
  175.     (* GWorld *)
  176.         GWorldPtr* = CGrafPtr;
  177.         GWorldFlags* = INTEGER;
  178.     (* Palette Manager *)
  179.         ColorInfo*= RECORD
  180.              ciRGB: RGBColor;
  181.              ciUsage*: INTEGER;
  182.              ciTolerance*: INTEGER;
  183.              ciDataFields: ARRAY 3 OF INTEGER
  184.          END;
  185.         PaletteHandle*= ME.Handle;
  186.     (* Printing Manager *)
  187.         TPrStl*= RECORD
  188.             wDev*  : INTEGER;
  189.             iPageV*: INTEGER;
  190.             iPageH*: INTEGER;
  191.             bPort*: SHORTINT;
  192.             feed*: SHORTINT
  193.         END;
  194.         TPrInfo*= RECORD
  195.             iDev* : INTEGER;
  196.             iVRes*: INTEGER;
  197.             iHRes*: INTEGER;
  198.             rPage*: Rect
  199.         END;
  200.         TPPrint*= POINTER- TO TPrint;
  201.         THPrint*= POINTER- TO RECORD p*:TPPrint END;
  202.         TPrint*=RECORD
  203.             iPrVersion: INTEGER;
  204.             prInfo* : TPrInfo;
  205.             rPaper* : Rect;
  206.             prStl* : TPrStl;
  207.             prInfoPT* : TPrInfo;
  208.             prXInfo* : ARRAY 4 OF LONGINT;
  209.             prJob* : ARRAY 5 OF LONGINT;
  210.             printX : ARRAY 19 OF INTEGER
  211.         END;
  212.         TPRect* = POINTER- TO Rect;
  213.         TPrStatus*=ARRAY 13 OF INTEGER;
  214.         QuickDraw*: RECORD
  215.             privates: ARRAY 41 OF INTEGER;
  216.             screenBits*: BitMap; arrow*: Cursor;
  217.             dkGray*, ltGray*, gray*, black*, white*: Pattern;
  218.             thePort*: GrafPtr
  219.         END;
  220.     PROCEDURE- InitGraf*(VAR thePort: GrafPtr)    0A8H, 06EH;
  221.     PROCEDURE- OpenPort*(port: GrafPtr)    0A8H, 06FH;
  222.     PROCEDURE- ClosePort*(port: GrafPtr)    0A8H, 07DH;
  223.     PROCEDURE- SetPort*(port: GrafPtr)    0A8H, 073H;
  224.     PROCEDURE- GetPort*(VAR port: GrafPtr)    0A8H, 074H;
  225.     PROCEDURE- SetOrigin*(h, v: INTEGER)    0A8H, 078H;
  226.     PROCEDURE- SetClip*(rgn: RgnHandle)    0A8H, 079H;
  227.     PROCEDURE- GetClip*(rgn: RgnHandle)    0A8H, 07AH;
  228.     PROCEDURE- ClipRect*(r: Rect)    0A8H, 07BH;
  229.     PROCEDURE- BackPat*(pat: Pattern)    0A8H, 07CH;
  230.     PROCEDURE- InitCursor*    0A8H, 050H;
  231.     PROCEDURE- SetCursor*(crsr: Cursor)    0A8H, 051H;
  232.     PROCEDURE- HideCursor*()    0A8H, 052H;
  233.     PROCEDURE- ShowCursor*()    0A8H, 053H;
  234.     PROCEDURE- ObscureCursor* 0A8H, 056H;
  235.     PROCEDURE- PenSize*(width, height: INTEGER)    0A8H, 09BH;
  236.     PROCEDURE- PenPat*(pat: Pattern)    0A8H, 09DH;
  237.     PROCEDURE- PenNormal*    0A8H, 09EH;
  238.     PROCEDURE- LineTo*(h, v: INTEGER)    0A8H, 091H;
  239.     PROCEDURE- Line*(h, v: INTEGER)    0A8H, 092H;
  240.     PROCEDURE- MoveTo*(h, v: INTEGER)    0A8H, 093H;
  241.     PROCEDURE- Move*(h, v: INTEGER)    0A8H, 094H;
  242.     PROCEDURE- SetRect*(VAR r: Rect; left, top, right, bottom: INTEGER)    0A8H, 0A7H;
  243.     PROCEDURE- OffsetRect*(VAR r: Rect; dh, dv: INTEGER)    0A8H, 0A8H;
  244.     PROCEDURE- InsetRect*(r: Rect; dh, dv: INTEGER)    0A8H, 0A9H;
  245.     PROCEDURE- SectRect*(src1, src2: Rect; VAR dstRect: Rect): BOOLEAN    0A8H, 0AAH;
  246.     PROCEDURE- UnionRect*(src1, src2: Rect; VAR dstRect: Rect)    0A8H, 0ABH;
  247.     PROCEDURE- PtInRect*(pt: Point; r: Rect): BOOLEAN    0A8H, 0ADH;
  248.     PROCEDURE- FrameRect*(r: Rect)    0A8H, 0A1H;
  249.     PROCEDURE- PaintRect*(r: Rect)    0A8H, 0A2H;
  250.     PROCEDURE- EraseRect*(r: Rect)    0A8H, 0A3H;
  251.     PROCEDURE- InvertRect*(r: Rect)    0A8H, 0A4H;
  252.     PROCEDURE- FillRect*(r: Rect; pat: Pattern)    0A8H, 0A5H;
  253.     PROCEDURE- FrameOval*(r: Rect)    0A8H, 0B7H;
  254.     PROCEDURE- PaintOval*(r: Rect)    0A8H, 0B8H;
  255.     PROCEDURE- EraseOval*(r: Rect)    0A8H, 0B9H;
  256.     PROCEDURE- InvertOval*(r: Rect)    0A8H, 0BAH;
  257.     PROCEDURE- FillOval*(r: Rect; pat: Pattern)    0A8H, 0BBH;
  258.     PROCEDURE- FrameRoundRect*(r: Rect; ovalWidth, ovalHeight: INTEGER)    0A8H, 0B0H;
  259.     PROCEDURE- PaintRoundRect*(r: Rect; ovalWidth, ovalHeight: INTEGER)    0A8H, 0B1H;
  260.     PROCEDURE- EraseRoundRect*(r: Rect; ovalWidth, ovalHeight: INTEGER)    0A8H, 0B2H;
  261.     PROCEDURE- InvertRoundRect*(r: Rect; ovalWidth, ovalHeight: INTEGER)    0A8H, 0B3H;
  262.     PROCEDURE- FillRoundRect*(r: Rect; ovalWidth, ovalHeight: INTEGER; pat: Pattern)    0A8H, 0B4H;
  263.     PROCEDURE- FrameArc*(r: Rect; startAngle, arcAngle: INTEGER)    0A8H, 0BEH;
  264.     PROCEDURE- PaintArc*(r: Rect; startAngle, arcAngle: INTEGER)    0A8H, 0BFH;
  265.     PROCEDURE- EraseArc*(r: Rect; startAngle, arcAngle: INTEGER)    0A8H, 0C0H;
  266.     PROCEDURE- InvertArc*(r: Rect; startAngle, arcAngle: INTEGER)    0A8H, 0C1H;
  267.     PROCEDURE- FillArc*(r: Rect; startAngle, arcAngle: INTEGER; pat: Pattern)    0A8H, 0C2H;
  268.     PROCEDURE- OpenPicture*(picFrame: Rect): PicHandle    0A8H,0F3H;
  269.     PROCEDURE- PicComment*(kind: INTEGER;dataSize: INTEGER;dataHandle: ME.Handle)    0A8H,0F2H;
  270.     PROCEDURE- ClosePicture*    0A8H,0F4H;
  271.     PROCEDURE- DrawPicture*(myPicture: PicHandle;dstRect: Rect)    0A8H,0F6H;
  272.     PROCEDURE- KillPicture*(myPicture: PicHandle)    0A8H,0F5H;
  273.     PROCEDURE- GetPicture*(pictureID: INTEGER): PicHandle    0A9H,0BCH;
  274.     PROCEDURE- OpenPoly*(): PolyHandle    0A8H,0CBH;
  275.     PROCEDURE- ClosePoly*    0A8H,0CCH;
  276.     PROCEDURE- KillPoly*(poly: PolyHandle)    0A8H,0CDH;
  277.     PROCEDURE- OffsetPoly*(poly: PolyHandle;dh: INTEGER;dv: INTEGER)    0A8H,0CEH;
  278.     PROCEDURE- FramePoly*(poly: PolyHandle)    0A8H,0C6H;
  279.     PROCEDURE- PaintPoly*(poly: PolyHandle)    0A8H,0C7H;
  280.     PROCEDURE- ErasePoly*(poly: PolyHandle)    0A8H,0C8H;
  281.     PROCEDURE- InvertPoly*(poly: PolyHandle)    0A8H,0C9H;
  282.     PROCEDURE- FillPoly*(poly: PolyHandle;pat: Pattern)    0A8H,0CAH;
  283.     PROCEDURE- NewRgn*(): RgnHandle    0A8H, 0D8H;
  284.     PROCEDURE- DisposeRgn*(rgn: RgnHandle)    0A8H, 0D9H;
  285.     PROCEDURE- CopyRgn*(srcRgn, dstRgn: RgnHandle)    0A8H, 0DCH;
  286.     PROCEDURE- SetRectRgn*(rgn: RgnHandle; left, top, right, bottom: INTEGER)    0A8H, 0DEH;
  287.     PROCEDURE- RectRgn*(rgn: RgnHandle; r: Rect)    0A8H, 0DFH;
  288.     PROCEDURE- SectRgn*(srcRgnA, srcRgnB, dstRgn: RgnHandle)    0A8H, 0E4H;
  289.     PROCEDURE- EmptyRgn*(rgn: RgnHandle): BOOLEAN    0A8H, 0E2H;
  290.     PROCEDURE- OffsetRgn*(rgn: RgnHandle;dh: INTEGER;dv: INTEGER)    0A8H,0E0H;
  291.     PROCEDURE- DiffRgn*(srcRgnA: RgnHandle;srcRgnB: RgnHandle;dstRgn: RgnHandle)    0A8H,0E6H;
  292.     PROCEDURE- CopyBits*(srcBits, dstBits: BitMap; srcRect, dstRect: Rect; mode: INTEGER; maskRgn: RgnHandle)    0A8H, 0ECH;
  293.     PROCEDURE- LocalToGlobal*(VAR pt: Point)    0A8H, 070H;
  294.     PROCEDURE- GlobalToLocal*(VAR pt: Point)    0A8H, 071H;
  295.     (* Color QuickDraw *)
  296.     PROCEDURE- OpenCPort*(port: CGrafPtr)    0AAH,000H;
  297.     PROCEDURE- InitCPort*(port: CGrafPtr)    0AAH,001H;
  298.     PROCEDURE- CloseCPort*(port: CGrafPtr)    0A8H,07DH;
  299.     PROCEDURE- RGBForeColor*(color: RGBColor)    0AAH,014H;
  300.     PROCEDURE- RGBBackColor*(color: RGBColor)    0AAH,015H;
  301.     PROCEDURE- GetForeColor*(VAR color: RGBColor)    0AAH,019H;
  302.     PROCEDURE- GetBackColor*(VAR color: RGBColor)    0AAH,01AH;
  303.     PROCEDURE- NewPixMap*(): PixMapHandle    0AAH,003H;
  304.     PROCEDURE- DisposPixMap*(pm: PixMapHandle)    0AAH,004H;
  305.     PROCEDURE- DisposePixMap*(pm: PixMapHandle)    0AAH,004H;
  306.     PROCEDURE- CopyPixMap*(srcPM: PixMapHandle;dstPM: PixMapHandle)    0AAH,005H;
  307.     PROCEDURE- SeedCFill*(srcBits: BitMap;dstBits: BitMap;srcRect: Rect;dstRect: Rect;
  308.         seedH: INTEGER;seedV: INTEGER;matchProc: PROCEDURE;matchData: LONGINT)    0AAH,050H;
  309.     PROCEDURE- CalcCMask*(srcBits: BitMap;dstBits: BitMap;srcRect: Rect;dstRect: Rect;
  310.         seedRGB: RGBColor;matchProc: PROCEDURE;matchData: LONGINT)    0AAH,04FH;
  311.     PROCEDURE- CopyMask*(srcBits: BitMap;maskBits: BitMap;dstBits: BitMap;srcRect: Rect;
  312.         maskRect: Rect;dstRect: Rect)    0A8H,017H;
  313.     PROCEDURE- NewPixPat*(): PixPatHandle    0AAH,007H;
  314.     PROCEDURE- DisposPixPat*(pp: PixPatHandle)    0AAH,008H;
  315.     PROCEDURE- DisposePixPat*(pp: PixPatHandle)    0AAH,008H;
  316.     PROCEDURE- CopyPixPat*(srcPP: PixPatHandle;dstPP: PixPatHandle)    0AAH,009H;
  317.     PROCEDURE- PenPixPat*(pp: PixPatHandle)    0AAH,00AH;
  318.     PROCEDURE- BackPixPat*(pp: PixPatHandle)    0AAH,00BH;
  319.     PROCEDURE- GetPixPat*(patID: INTEGER): PixPatHandle    0AAH,00CH;
  320.     PROCEDURE- MakeRGBPat*(pp: PixPatHandle;myColor: RGBColor)    0AAH,00DH;
  321.     PROCEDURE- FillCRect*(r: Rect;pp: PixPatHandle)    0AAH,00EH;
  322.     PROCEDURE- FillCOval*(r: Rect;pp: PixPatHandle)    0AAH,00FH;
  323.     PROCEDURE- FillCRoundRect*(r: Rect;ovalWidth: INTEGER;ovalHeight: INTEGER;pp: PixPatHandle)    0AAH,010H;
  324.     PROCEDURE- FillCArc*(r: Rect;startAngle: INTEGER;arcAngle: INTEGER;pp: PixPatHandle)    0AAH,011H;
  325.     PROCEDURE- FillCRgn(rgn: RgnHandle;pp: PixPatHandle)    0AAH,012H;
  326.     PROCEDURE- FillCPoly*(poly: PolyHandle;pp: PixPatHandle)    0AAH,013H;
  327.     PROCEDURE- SetCPixel*(h: INTEGER;v: INTEGER;cPix: RGBColor)    0AAH,016H;
  328.     PROCEDURE- GetCPixel*(h: INTEGER;v: INTEGER;VAR cPix: RGBColor)    0AAH,017H;
  329.     PROCEDURE- GetCCursor*(crsrID: INTEGER): CCrsrHandle    0AAH,01BH;
  330.     PROCEDURE- SetCCursor*(cCrsr: CCrsrHandle)    0AAH,01CH;
  331.     PROCEDURE- AllocCursor    0AAH,01DH;
  332.     PROCEDURE- DisposCCursor*(cCrsr: CCrsrHandle)    0AAH,026H;
  333.     PROCEDURE- DisposeCCursor*(cCrsr: CCrsrHandle)    0AAH,026H;
  334.     PROCEDURE- GetCIcon*(iconID: INTEGER): CIconHandle    0AAH,01EH;
  335.     PROCEDURE- PlotCIcon*(theRect: Rect;theIcon: CIconHandle)    0AAH,01FH;
  336.     PROCEDURE- DisposeCIcon*(theIcon: CIconHandle)    0AAH,025H;
  337.     PROCEDURE- SetPortPix*(pm: PixMapHandle)    0AAH,006H;
  338.     PROCEDURE- OpColor*(color: RGBColor)    0AAH,021H;
  339.     PROCEDURE- HiliteColor*(color: RGBColor)    0AAH,022H;
  340.     PROCEDURE- DisposCTable*(cTable: CTabHandle)    0AAH,024H;
  341.     PROCEDURE- GetCTable*(ctID: INTEGER): CTabHandle    0AAH,018H;
  342.     PROCEDURE- CharExtra*(extra: LONGINT)    0AAH,023H;
  343.     PROCEDURE- BitMapToRegion*(region: RgnHandle;bMap: BitMap): INTEGER    0A8H,0D7H;
  344.     PROCEDURE- CopyDeepMask*(srcBits: BitMap;maskBits: BitMap;dstBits: BitMap;
  345.         srcRect: Rect;maskRect: Rect;dstRect: Rect;mode: INTEGER;maskRgn: RgnHandle)    0AAH,051H;
  346.     (* Graphic Devices *)
  347.     PROCEDURE- GetMaxDevice*(globalRect: Rect): GDHandle    0AAH,027H;
  348.     PROCEDURE- GetDeviceList*(): GDHandle    0AAH,029H;
  349.     PROCEDURE- GetMainDevice*(): GDHandle    0AAH,02AH;
  350.     PROCEDURE- GetNextDevice*(curDevice: GDHandle): GDHandle    0AAH,02BH;
  351.     PROCEDURE- TestDeviceAttribute*(gdh: GDHandle;attribute: INTEGER): BOOLEAN    0AAH,02CH;
  352.     PROCEDURE- SetDeviceAttribute*(gdh: GDHandle;attribute: INTEGER;value: BOOLEAN)    0AAH,02DH;
  353.     PROCEDURE- InitGDevice*(qdRefNum: INTEGER;mode: LONGINT;gdh: GDHandle)    0AAH,02EH;
  354.     PROCEDURE- NewGDevice*(refNum: INTEGER;mode: LONGINT): GDHandle    0AAH,02FH;
  355.     PROCEDURE- DisposGDevice*(gdh: GDHandle)    0AAH,030H;
  356.     PROCEDURE- SetGDevice*(gd: GDHandle)    0AAH,031H;
  357.     PROCEDURE- GetGDevice*(): GDHandle    0AAH,032H;
  358.     (* Color Manager *)
  359.     PROCEDURE- Color2Index*(myColor: RGBColor): LONGINT    0AAH,033H;
  360.     PROCEDURE- Index2Color*(index: LONGINT;VAR aColor: RGBColor)    0AAH,034H;
  361.     PROCEDURE- InvertColor*(VAR myColor: RGBColor)    0AAH,035H;
  362.     PROCEDURE- RealColor*(color: RGBColor): BOOLEAN    0AAH,036H;
  363.     PROCEDURE- GetSubTable*(myColors: CTabHandle;iTabRes: INTEGER;targetTbl: CTabHandle)    0AAH,037H;
  364.     PROCEDURE- MakeITable*(cTabH: CTabHandle;iTabH: ME.Handle;res: INTEGER)    0AAH,039H;
  365.     PROCEDURE- GetCTSeed*(): LONGINT    0AAH,028H;
  366.     PROCEDURE- ProtectEntry*(index: INTEGER;protect: BOOLEAN)    0AAH,03DH;
  367.     PROCEDURE- ReserveEntry*(index: INTEGER;reserve: BOOLEAN)    0AAH,03EH;
  368.     PROCEDURE- QDError*(): INTEGER    0AAH,040H;
  369.     (* Palette Manager *)
  370.     PROCEDURE- InitPalettes*    0AAH,090H;
  371.     PROCEDURE- NewPalette*(entries: INTEGER;srcColors: CTabHandle;srcUsage: INTEGER;
  372.          srcTolerance: INTEGER): PaletteHandle    0AAH,091H;
  373.     PROCEDURE- GetNewPalette*(PaletteID: INTEGER): PaletteHandle    0AAH,092H;
  374.     PROCEDURE- DisposePalette*(srcPalette: PaletteHandle)    0AAH,093H;
  375.     PROCEDURE- ActivatePalette*(srcWindow: GrafPtr)    0AAH,094H;
  376.     PROCEDURE- SetPalette*(dstWindow: GrafPtr;srcPalette: PaletteHandle;cUpdates: BOOLEAN)    0AAH,095H;
  377.     PROCEDURE- GetPalette*(srcWindow: GrafPtr): PaletteHandle    0AAH,096H;
  378.     PROCEDURE- CopyPalette*(srcPalette: PaletteHandle;dstPalette: PaletteHandle;
  379.          srcEntry: INTEGER;dstEntry: INTEGER;dstLength: INTEGER)    0AAH,0A1H;
  380.     PROCEDURE- PmForeColor*(dstEntry: INTEGER)    0AAH,097H;
  381.     PROCEDURE- PmBackColor*(dstEntry: INTEGER)    0AAH,098H;
  382.     PROCEDURE- AnimateEntry*(dstWindow: GrafPtr;dstEntry: INTEGER;srcRGB: RGBColor)    0AAH,099H;
  383.     PROCEDURE- AnimatePalette*(dstWindow: GrafPtr;srcCTab: CTabHandle;srcIndex: INTEGER;
  384.          dstEntry: INTEGER;dstLength: INTEGER)    0AAH,09AH;
  385.     PROCEDURE- GetEntryColor(srcPalette: PaletteHandle;srcEntry: INTEGER;VAR dstRGB: RGBColor)    0AAH,09BH;
  386.     PROCEDURE- SetEntryColor(dstPalette: PaletteHandle;dstEntry: INTEGER;srcRGB: RGBColor)    0AAH,09CH;
  387.     PROCEDURE- GetEntryUsage(srcPalette: PaletteHandle;srcEntry: INTEGER;VAR dstUsage: INTEGER;
  388.          VAR dstTolerance: INTEGER)    0AAH,09DH;
  389.     PROCEDURE- SetEntryUsage*(dstPalette: PaletteHandle;dstEntry: INTEGER;srcUsage: INTEGER;
  390.          srcTolerance: INTEGER)    0AAH,09EH;
  391.     PROCEDURE- CTab2Palette(srcCTab: CTabHandle;dstPalette: PaletteHandle;srcUsage: INTEGER;
  392.          srcTolerance: INTEGER)    0AAH,09FH;
  393.     PROCEDURE- Palette2CTab*(srcPalette: PaletteHandle;dstCTab: CTabHandle)    0AAH,0A0H;
  394.     PROCEDURE- RestoreDeviceClut*(gd: GDHandle)    070H,002H,0AAH,0A2H;
  395.     PROCEDURE- ResizePalette*(p: PaletteHandle;size: INTEGER)    070H,003H,0AAH,0A2H;
  396.     PROCEDURE- SetDepth*(gd: GDHandle;depth: INTEGER;whichFlags: INTEGER;flags: INTEGER): INTEGER
  397.         030H,03CH,00AH,013H,0AAH,0A2H;
  398.     PROCEDURE- HasDepth*(gd: GDHandle;depth: INTEGER;whichFlags: INTEGER;flags: INTEGER): INTEGER
  399.         030H,03CH,00AH,014H,0AAH,0A2H;
  400.     (* Color Picker *)
  401.     PROCEDURE- GetColor*(where: Point;prompt: ME.Str255;inColor: RGBColor;VAR outColor: RGBColor): BOOLEAN
  402.         03FH,03CH,000H,009H,0A8H,02EH;
  403.     (* GWorlds *)
  404.     PROCEDURE- NewGWorld*(VAR offscreenGWorld: GWorldPtr;PixelDepth: INTEGER;boundsRect: Rect;
  405.         cTable: CTabHandle;aGDevice: GDHandle;flags: GWorldFlags): INTEGER    020H,03CH,000H,016H,000H,000H,0ABH,01DH;
  406.     PROCEDURE- LockPixels*(pm: PixMapHandle): BOOLEAN    020H,03CH,000H,004H,000H,001H,0ABH,01DH;
  407.     PROCEDURE- UnlockPixels*(pm: PixMapHandle)    020H,03CH,000H,004H,000H,002H,0ABH,01DH;
  408.     PROCEDURE- UpdateGWorld*(VAR offscreenGWorld: GWorldPtr;pixelDepth: INTEGER;
  409.         boundsRect: Rect;cTable: CTabHandle;aGDevice: GDHandle;flags: GWorldFlags): GWorldFlags
  410.         020H,03CH,000H,016H,000H,003H,0ABH,01DH;
  411.     PROCEDURE- DisposeGWorld*(offscreenGWorld: GWorldPtr)    020H,03CH,000H,004H,000H,004H,0ABH,01DH;
  412.     PROCEDURE- GetGWorld*(VAR port: CGrafPtr;VAR gdh: GDHandle)    020H,03CH,000H,008H,000H,005H,0ABH,01DH;
  413.     PROCEDURE- SetGWorld*(port: CGrafPtr;gdh: GDHandle)    020H,03CH,000H,008H,000H,006H,0ABH,01DH;
  414.     PROCEDURE- CTabChanged*(ctab: CTabHandle)    020H,03CH,000H,004H,000H,007H,0ABH,01DH;
  415.     PROCEDURE- PixPatChanged*(ppat: PixPatHandle)    020H,03CH,000H,004H,000H,008H,0ABH,01DH;
  416.     PROCEDURE- PortChanged*(port: GrafPtr)    020H,03CH,000H,004H,000H,009H,0ABH,01DH;
  417.     PROCEDURE- GDeviceChanged*(gdh: GDHandle)    020H,03CH,000H,004H,000H,00AH,0ABH,01DH;
  418.     PROCEDURE- AllowPurgePixels*(pm: PixMapHandle)    020H,03CH,000H,004H,000H,00BH,0ABH,01DH;
  419.     PROCEDURE- NoPurgePixels*(pm: PixMapHandle)    020H,03CH,000H,004H,000H,00CH,0ABH,01DH;
  420.     PROCEDURE- GetPixelsState*(pm: PixMapHandle): GWorldFlags    020H,03CH,000H,004H,000H,00DH,0ABH,01DH;
  421.     PROCEDURE- SetPixelsState*(pm: PixMapHandle;state: GWorldFlags)    020H,03CH,000H,008H,000H,00EH,0ABH,01DH;
  422.     PROCEDURE- GetPixBaseAddr*(pm: PixMapHandle): LONGINT    020H,03CH,000H,004H,000H,00FH,0ABH,01DH;
  423.     PROCEDURE- NewScreenBuffer*(globalRect: Rect;purgeable: BOOLEAN;VAR gdh: GDHandle;
  424.         VAR offscreenPixMap: PixMapHandle): INTEGER    020H,03CH,000H,00EH,000H,010H,0ABH,01DH;
  425.     PROCEDURE- DisposeScreenBuffer*(offscreenPixMap: PixMapHandle)    020H,03CH,000H,004H,000H,011H,0ABH,01DH;
  426.     PROCEDURE- GetGWorldDevice*(offscreenGWorld: GWorldPtr): GDHandle    020H,03CH,000H,004H,000H,012H,0ABH,01DH;
  427.     PROCEDURE- QDDone*(port: GrafPtr): BOOLEAN    020H,03CH,000H,004H,000H,013H,0ABH,01DH;
  428.     PROCEDURE- OffscreenVersion*(): LONGINT    070H,014H,0ABH,01DH;
  429.     PROCEDURE- NewTempScreenBuffer*(globalRect: Rect;purgeable: BOOLEAN;VAR gdh: GDHandle;
  430.         VAR offscreenPixMap: PixMapHandle): INTEGER    020H,03CH,000H,00EH,000H,015H,0ABH,01DH;
  431.     PROCEDURE- PixMap32Bit*(pmHandle: PixMapHandle): BOOLEAN    020H,03CH,000H,004H,000H,016H,0ABH,01DH;
  432.     PROCEDURE- GetGWorldPixMap*(offscreenGWorld: GWorldPtr): PixMapHandle    020H,03CH,000H,004H,000H,017H,0ABH,01DH;
  433.     (* Printing Manager *)
  434.     PROCEDURE - PrGeneral*(pData: LONGINT) 02FH, 03CH, 070H, 007H, 004H, 080H, 0A8H, 0FDH;
  435.     PROCEDURE - PrError*(): INTEGER    02FH, 03CH, 0BAH, 000H, 000H, 000H, 0A8H, 0FDH;
  436.     PROCEDURE - PrOpen*    02FH, 03CH, 0C8H, 000H, 000H, 000H, 0A8H, 0FDH;
  437.     PROCEDURE - PrValidate*(hPrint: THPrint): BOOLEAN    02FH, 03CH, 052H, 004H, 004H, 098H, 0A8H, 0FDH;
  438.     PROCEDURE - PrintDefault*(hPrint: THPrint)    02FH, 03CH, 020H, 004H, 004H, 080H, 0A8H, 0FDH;
  439.     PROCEDURE - PrStlDialog*(hPrint: THPrint): BOOLEAN    02FH, 03CH, 02AH, 004H, 004H, 084H, 0A8H, 0FDH;
  440.     PROCEDURE - PrJobDialog*(hPrint: THPrint): BOOLEAN    02FH, 03CH, 032H, 004H, 004H, 088H, 0A8H, 0FDH;
  441.     PROCEDURE - PrOpenDoc*(hPrint:THPrint; pPrPort: GrafPtr;pIOBuf: LONGINT): GrafPtr
  442.         02FH, 03CH, 004H, 000H, 00CH, 000H, 0A8H, 0FDH;
  443.     PROCEDURE - PrCloseDoc*(pPrPort: GrafPtr)    02FH, 03CH, 008H, 000H, 004H, 084H, 0A8H, 0FDH;
  444.     PROCEDURE - PrClose*    02FH, 03CH, 0D0H, 000H, 000H, 000H, 0A8H, 0FDH;
  445.     PROCEDURE - PrOpenPage*(pPrPort: GrafPtr; pPageFrame: TPRect) 02FH, 03CH, 010H, 000H, 008H, 008H, 0A8H, 0FDH;
  446.     PROCEDURE - PrClosePage*(pPrPort: GrafPtr)    02FH, 03CH, 018H, 000H, 004H, 00CH, 0A8H, 0FDH;
  447.     PROCEDURE - PrPicFile*(hPrint : THPrint; pPrPort : GrafPtr;pIOBuf, pDevBuf: LONGINT; VAR prStatus: TPrStatus)
  448.         02FH, 03CH, 060H, 005H, 014H, 080H, 0A8H, 0FDH;
  449. END MacImaging.
  450.