mirror of
https://github.com/elliotnunn/boot3.git
synced 2025-01-04 17:32:51 +00:00
5b0f0cc134
Resource forks are included only for .rsrc files. These are DeRezzed into their data fork. 'ckid' resources, from the Projector VCS, are not included. The Tools directory, containing mostly junk, is also excluded.
101 lines
2.6 KiB
OpenEdge ABL
101 lines
2.6 KiB
OpenEdge ABL
|
|
{
|
|
Created: Saturday, July 27, 1991 at 10:26 PM
|
|
Picker.p
|
|
Pascal Interface to the Macintosh Libraries
|
|
|
|
Copyright Apple Computer, Inc. 1987-1991
|
|
All rights reserved
|
|
This file is used in these builds: ROM System
|
|
|
|
|
|
Change History (most recent first):
|
|
|
|
<3> 7/31/91 JL Updated Copyright.
|
|
<2> 7/23/91 JL Checked in File from database. Adjusted comments.
|
|
|
|
To Do:
|
|
}
|
|
|
|
|
|
{$IFC UNDEFINED UsingIncludes}
|
|
{$SETC UsingIncludes := 0}
|
|
{$ENDC}
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
UNIT Picker;
|
|
INTERFACE
|
|
{$ENDC}
|
|
|
|
{$IFC UNDEFINED UsingPicker}
|
|
{$SETC UsingPicker := 1}
|
|
|
|
{$I+}
|
|
{$SETC PickerIncludes := UsingIncludes}
|
|
{$SETC UsingIncludes := 1}
|
|
{$IFC UNDEFINED UsingQuickdraw}
|
|
{$I $$Shell(PInterfaces)Quickdraw.p}
|
|
{$ENDC}
|
|
{$SETC UsingIncludes := PickerIncludes}
|
|
|
|
CONST
|
|
MaxSmallFract = $0000FFFF; {Maximum small fract value, as long}
|
|
|
|
TYPE
|
|
{ A SmallFract value is just the fractional part of a Fixed number,
|
|
which is the low order word. SmallFracts are used to save room,
|
|
and to be compatible with Quickdraw's RGBColor. They can be
|
|
assigned directly to and from INTEGERs. }
|
|
|
|
SmallFract = INTEGER; { Unsigned fraction between 0 and 1 }
|
|
|
|
{ For developmental simplicity in switching between the HLS and HSV
|
|
models, HLS is reordered into HSL. Thus both models start with
|
|
hue and saturation values; value/lightness/brightness is last. }
|
|
|
|
HSVColor = RECORD
|
|
hue: SmallFract; {Fraction of circle, red at 0}
|
|
saturation: SmallFract; {0-1, 0 for gray, 1 for pure color}
|
|
value: SmallFract; {0-1, 0 for black, 1 for max intensity}
|
|
END;
|
|
|
|
HSLColor = RECORD
|
|
hue: SmallFract; {Fraction of circle, red at 0}
|
|
saturation: SmallFract; {0-1, 0 for gray, 1 for pure color}
|
|
lightness: SmallFract; {0-1, 0 for black, 1 for white}
|
|
END;
|
|
|
|
CMYColor = RECORD
|
|
cyan: SmallFract;
|
|
magenta: SmallFract;
|
|
yellow: SmallFract;
|
|
END;
|
|
|
|
|
|
FUNCTION Fix2SmallFract(f: Fixed): SmallFract;
|
|
INLINE $3F3C,$0001,$A82E;
|
|
FUNCTION SmallFract2Fix(s: SmallFract): Fixed;
|
|
INLINE $3F3C,$0002,$A82E;
|
|
PROCEDURE CMY2RGB(cColor: CMYColor;VAR rColor: RGBColor);
|
|
INLINE $3F3C,$0003,$A82E;
|
|
PROCEDURE RGB2CMY(rColor: RGBColor;VAR cColor: CMYColor);
|
|
INLINE $3F3C,$0004,$A82E;
|
|
PROCEDURE HSL2RGB(hColor: HSLColor;VAR rColor: RGBColor);
|
|
INLINE $3F3C,$0005,$A82E;
|
|
PROCEDURE RGB2HSL(rColor: RGBColor;VAR hColor: HSLColor);
|
|
INLINE $3F3C,$0006,$A82E;
|
|
PROCEDURE HSV2RGB(hColor: HSVColor;VAR rColor: RGBColor);
|
|
INLINE $3F3C,$0007,$A82E;
|
|
PROCEDURE RGB2HSV(rColor: RGBColor;VAR hColor: HSVColor);
|
|
INLINE $3F3C,$0008,$A82E;
|
|
FUNCTION GetColor(where: Point;prompt: Str255;inColor: RGBColor;VAR outColor: RGBColor): BOOLEAN;
|
|
INLINE $3F3C,$0009,$A82E;
|
|
|
|
|
|
{$ENDC} { UsingPicker }
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
END.
|
|
{$ENDC}
|
|
|