supermario/base/SuperMarioProj.1994-02-09/Interfaces/PInterfaces/Palettes.p
2019-06-29 23:17:50 +08:00

170 lines
5.3 KiB
OpenEdge ABL

{
Created: Saturday, July 27, 1991 at 10:24 PM
Palettes.p
Pascal Interface to the Macintosh Libraries
Copyright Apple Computer, Inc. 1987-1991
All rights reserved
This file is used in these builds: BigBang
Change History (most recent first):
<11> 8/8/91 JL Fixed GetGray call. Wrong selector; someone translated 12
decimal to 12 hex.
<10> 7/31/91 JL Updated Copyright.
<9> 1/30/91 JL checked in database generated file from dsg.
<8> 1/18/91 KON Change SaveFore, SaveBack, RestoreFore, RestoreBack to coincide
with IM interfaces. [CEL]
<7> 1/9/91 dvb Change return type of HasDepth to INTEGER.
<6> 12/13/90 dvb Make .h and .p and .a files consistent.
<5> 11/5/90 JL Returned pmInhibit equates.
<4> 9/15/90 DC added GetGray and CheckColors
<3> 6/19/90 DVB Add in the latest PMgr dispatchs
To Do:
}
{$IFC UNDEFINED UsingIncludes}
{$SETC UsingIncludes := 0}
{$ENDC}
{$IFC NOT UsingIncludes}
UNIT Palettes;
INTERFACE
{$ENDC}
{$IFC UNDEFINED UsingPalettes}
{$SETC UsingPalettes := 1}
{$I+}
{$SETC PalettesIncludes := UsingIncludes}
{$SETC UsingIncludes := 1}
{$IFC UNDEFINED UsingQuickdraw}
{$I $$Shell(PInterfaces)Quickdraw.p}
{$ENDC}
{$IFC UNDEFINED UsingWindows}
{$I $$Shell(PInterfaces)Windows.p}
{$ENDC}
{$SETC UsingIncludes := PalettesIncludes}
CONST
pmCourteous = 0; {Record use of color on each device touched.}
pmTolerant = $0002; {render ciRGB if ciTolerance is exceeded by best match.}
pmAnimated = $0004; {reserve an index on each device touched and render ciRGB.}
pmExplicit = $0008; {no reserve, no render, no record; stuff index into port.}
pmWhite = $0010;
pmBlack = $0020;
pmInhibitG2 = $0100;
pmInhibitC2 = $0200;
pmInhibitG4 = $0400;
pmInhibitC4 = $0800;
pmInhibitG8 = $1000;
pmInhibitC8 = $2000;
{ NSetPalette Update Constants }
pmNoUpdates = $8000; {no updates}
pmBkUpdates = $A000; {background updates only}
pmFgUpdates = $C000; {foreground updates only}
pmAllUpdates = $E000; {all updates}
TYPE
ColorInfo = RECORD
ciRGB: RGBColor; {true RGB values}
ciUsage: INTEGER; {color usage}
ciTolerance: INTEGER; {tolerance value}
ciDataFields: ARRAY [0..2] OF INTEGER; {private fields}
END;
PalettePtr = ^Palette;
PaletteHandle = ^PalettePtr;
Palette = RECORD
pmEntries: INTEGER; {entries in pmTable}
pmDataFields: ARRAY [0..6] OF INTEGER; {private fields}
pmInfo: ARRAY [0..0] OF ColorInfo;
END;
PROCEDURE InitPalettes;
INLINE $AA90;
FUNCTION NewPalette(entries: INTEGER;srcColors: CTabHandle;srcUsage: INTEGER;
srcTolerance: INTEGER): PaletteHandle;
INLINE $AA91;
FUNCTION GetNewPalette(PaletteID: INTEGER): PaletteHandle;
INLINE $AA92;
PROCEDURE DisposePalette(srcPalette: PaletteHandle);
INLINE $AA93;
PROCEDURE ActivatePalette(srcWindow: WindowPtr);
INLINE $AA94;
PROCEDURE SetPalette(dstWindow: WindowPtr;srcPalette: PaletteHandle;cUpdates: BOOLEAN);
INLINE $AA95;
PROCEDURE NSetPalette(dstWindow: WindowPtr;srcPalette: PaletteHandle;nCUpdates: INTEGER);
INLINE $AA95;
FUNCTION GetPalette(srcWindow: WindowPtr): PaletteHandle;
INLINE $AA96;
PROCEDURE CopyPalette(srcPalette: PaletteHandle;dstPalette: PaletteHandle;
srcEntry: INTEGER;dstEntry: INTEGER;dstLength: INTEGER);
INLINE $AAA1;
PROCEDURE PmForeColor(dstEntry: INTEGER);
INLINE $AA97;
PROCEDURE PmBackColor(dstEntry: INTEGER);
INLINE $AA98;
PROCEDURE AnimateEntry(dstWindow: WindowPtr;dstEntry: INTEGER;srcRGB: RGBColor);
INLINE $AA99;
PROCEDURE AnimatePalette(dstWindow: WindowPtr;srcCTab: CTabHandle;srcIndex: INTEGER;
dstEntry: INTEGER;dstLength: INTEGER);
INLINE $AA9A;
PROCEDURE GetEntryColor(srcPalette: PaletteHandle;srcEntry: INTEGER;VAR dstRGB: RGBColor);
INLINE $AA9B;
PROCEDURE SetEntryColor(dstPalette: PaletteHandle;dstEntry: INTEGER;srcRGB: RGBColor);
INLINE $AA9C;
PROCEDURE GetEntryUsage(srcPalette: PaletteHandle;srcEntry: INTEGER;VAR dstUsage: INTEGER;
VAR dstTolerance: INTEGER);
INLINE $AA9D;
PROCEDURE SetEntryUsage(dstPalette: PaletteHandle;dstEntry: INTEGER;srcUsage: INTEGER;
srcTolerance: INTEGER);
INLINE $AA9E;
PROCEDURE CTab2Palette(srcCTab: CTabHandle;dstPalette: PaletteHandle;srcUsage: INTEGER;
srcTolerance: INTEGER);
INLINE $AA9F;
PROCEDURE Palette2CTab(srcPalette: PaletteHandle;dstCTab: CTabHandle);
INLINE $AAA0;
FUNCTION Entry2Index(entry: INTEGER): LONGINT;
INLINE $7000,$AAA2;
PROCEDURE RestoreDeviceClut(gd: GDHandle);
INLINE $7002,$AAA2;
PROCEDURE ResizePalette(p: PaletteHandle;size: INTEGER);
INLINE $7003,$AAA2;
PROCEDURE SaveFore(VAR c: ColorSpec);
INLINE $303C,$040D,$AAA2;
PROCEDURE SaveBack(VAR c: ColorSpec);
INLINE $303C,$040E,$AAA2;
PROCEDURE RestoreFore(c: ColorSpec);
INLINE $303C,$040F,$AAA2;
PROCEDURE RestoreBack(c: ColorSpec);
INLINE $303C,$0410,$AAA2;
FUNCTION SetDepth(gd: GDHandle;depth: INTEGER;whichFlags: INTEGER;flags: INTEGER): OSErr;
INLINE $303C,$0A13,$AAA2;
FUNCTION HasDepth(gd: GDHandle;depth: INTEGER;whichFlags: INTEGER;flags: INTEGER): INTEGER;
INLINE $303C,$0A14,$AAA2;
FUNCTION PMgrVersion: INTEGER;
INLINE $7015,$AAA2;
PROCEDURE SetPaletteUpdates(p: PaletteHandle;updates: INTEGER);
INLINE $303C,$0616,$AAA2;
FUNCTION GetPaletteUpdates(p: PaletteHandle): INTEGER;
INLINE $303C,$0417,$AAA2;
FUNCTION GetGray(device: GDHandle;backGround: RGBColor;VAR foreGround: RGBColor): BOOLEAN;
INLINE $303C,$0C19,$AAA2;
{$ENDC} { UsingPalettes }
{$IFC NOT UsingIncludes}
END.
{$ENDC}