mirror of
https://github.com/elliotnunn/supermario.git
synced 2024-12-01 18:50:30 +00:00
1619 lines
53 KiB
R
1619 lines
53 KiB
R
|
/*
|
|||
|
|
File: Pict.r
|
|||
|
|
|
|||
|
|
Contains: Rez template for PICT resources.
|
|||
|
|
|
|||
|
|
Written by: Dean & Mitch. (We didn’t really write this, but we got to change this line, so
|
|||
|
|
we put our names here.)
|
|||
|
|
|
|||
|
|
Copyright: © 1986-1992 by Apple Computer, Inc., all rights reserved.
|
|||
|
|
|
|||
|
|
Change History (most recent first):
|
|||
|
|
|
|||
|
|
<5> 6/24/92 DCL Changed #ifndef __PICT.R__ to __PICT_R__ at the request of the
|
|||
|
|
MPW team (3.2.3 rez broke on the periods)
|
|||
|
|
<4> 2/20/92 DTY Don breaks his first build. Change the semi-colons after all the
|
|||
|
|
notPatBics back to commas.
|
|||
|
|
<3> 2/20/92 DCL Fixing transfer modes. notPatXor had been left out. Radar
|
|||
|
|
#1016119
|
|||
|
|
<2> 3/6/91 DTY mda: Defined structures for FontName, LineJustify,
|
|||
|
|
DirectBitsRect, & DirectBitsRgn. Fixed the opcode for DHDVText.
|
|||
|
|
Added oldPICTCompatible define to keep build working while
|
|||
|
|
allowing transition to new template which defines the
|
|||
|
|
ExtendedVersion2HeaderOp. Additional aesthetic mungings by
|
|||
|
|
Darin.
|
|||
|
|
<1> 3/5/90 BBH first checked in
|
|||
|
|
3/20/89 THT added #ifndef __PICT.R__
|
|||
|
|
12/03/87 THT created
|
|||
|
|
|
|||
|
|
To Do:
|
|||
|
|
Change the #define for oldPICTCompatible to false and make everyone update their PICT 2 so they don’t
|
|||
|
|
break with the new template.
|
|||
|
|
*/
|
|||
|
|
|
|||
|
|
#ifndef __PICT_R__
|
|||
|
|
#define __PICT_R__
|
|||
|
|
|
|||
|
|
#ifndef oldPICTCompatible
|
|||
|
|
#define oldPICTCompatible true
|
|||
|
|
#endif
|
|||
|
|
|
|||
|
|
type 'PICT' {
|
|||
|
|
startOfPict:
|
|||
|
|
unsigned integer = (endOfPict - startOfPict) >> 3;
|
|||
|
|
Rect; /* Bounds of picture */
|
|||
|
|
switch {
|
|||
|
|
case VersionOne:
|
|||
|
|
key integer = $1101;
|
|||
|
|
array OpCodes {
|
|||
|
|
switch {
|
|||
|
|
case NOP:
|
|||
|
|
key byte = $00;
|
|||
|
|
|
|||
|
|
case ClipRgn:
|
|||
|
|
key byte = $01;
|
|||
|
|
ClipRgnStart: integer = (ClipRgnEnd[$$ArrayIndex(OpCodes)] - ClipRgnStart[$$ArrayIndex(OpCodes)]) >> 3;
|
|||
|
|
Rect; /* region’s enclosing rect */
|
|||
|
|
hex string [$$Word(ClipRgnStart[$$ArrayIndex(OpCodes)]) - 10];
|
|||
|
|
ClipRgnEnd:
|
|||
|
|
case BkPat:
|
|||
|
|
key byte = $02;
|
|||
|
|
hex string [8];
|
|||
|
|
|
|||
|
|
case TxFont:
|
|||
|
|
key byte = $03;
|
|||
|
|
integer; /* font */
|
|||
|
|
|
|||
|
|
case TxFace:
|
|||
|
|
key byte = $04;
|
|||
|
|
unsigned hex byte; /* text face */
|
|||
|
|
|
|||
|
|
case TxMode:
|
|||
|
|
key byte = $05;
|
|||
|
|
integer srcCopy, srcOr, srcXor, srcBic, /* mode */
|
|||
|
|
notSrcCopy, notSrcOr, notSrcXor, notSrcBic,
|
|||
|
|
patCopy, patOr, patXor, patBic,
|
|||
|
|
notPatCopy, notPatOr, notPatXor, notPatBic;
|
|||
|
|
|
|||
|
|
case SpExtra:
|
|||
|
|
key byte = $06;
|
|||
|
|
unsigned hex longint;
|
|||
|
|
|
|||
|
|
case PnSize:
|
|||
|
|
key byte = $07;
|
|||
|
|
Point;
|
|||
|
|
|
|||
|
|
case PnMode:
|
|||
|
|
key byte = $08;
|
|||
|
|
unsigned hex integer;
|
|||
|
|
|
|||
|
|
case PnPat:
|
|||
|
|
key byte = $09;
|
|||
|
|
hex string [8];
|
|||
|
|
|
|||
|
|
case ThePat:
|
|||
|
|
key byte = $0A;
|
|||
|
|
hex string [8];
|
|||
|
|
|
|||
|
|
case OvSize:
|
|||
|
|
key byte = $0B;
|
|||
|
|
Point;
|
|||
|
|
|
|||
|
|
case Origin:
|
|||
|
|
key byte = $0C;
|
|||
|
|
integer; /* dh */
|
|||
|
|
integer; /* dv */
|
|||
|
|
|
|||
|
|
case TxSize:
|
|||
|
|
key byte = $0D;
|
|||
|
|
integer;
|
|||
|
|
|
|||
|
|
case FgColor:
|
|||
|
|
key byte = $0E;
|
|||
|
|
longint;
|
|||
|
|
|
|||
|
|
case BkColor:
|
|||
|
|
key byte = $0F;
|
|||
|
|
longint;
|
|||
|
|
|
|||
|
|
case TxRatio:
|
|||
|
|
key byte = $10;
|
|||
|
|
Point; /* numer */
|
|||
|
|
Point; /* denom */
|
|||
|
|
|
|||
|
|
case PicVersion:
|
|||
|
|
key byte = $11;
|
|||
|
|
byte;
|
|||
|
|
|
|||
|
|
case Line:
|
|||
|
|
key byte = $20;
|
|||
|
|
Point; /* pnLoc */
|
|||
|
|
Point; /* newPt */
|
|||
|
|
|
|||
|
|
case LineFrom:
|
|||
|
|
key byte = $21;
|
|||
|
|
Point; /* newPt */
|
|||
|
|
|
|||
|
|
case ShortLine:
|
|||
|
|
key byte = $22;
|
|||
|
|
Point; /* pnLoc */
|
|||
|
|
byte; /* dh */
|
|||
|
|
byte; /* dv */
|
|||
|
|
|
|||
|
|
case ShortLineFrom:
|
|||
|
|
key byte = $23;
|
|||
|
|
byte; /* dh */
|
|||
|
|
byte; /* dv */
|
|||
|
|
|
|||
|
|
case LongText:
|
|||
|
|
key byte = $28;
|
|||
|
|
Point; /* txLoc */
|
|||
|
|
pstring;
|
|||
|
|
|
|||
|
|
case dhText:
|
|||
|
|
key byte = $29;
|
|||
|
|
byte; /* dh */
|
|||
|
|
pstring;
|
|||
|
|
|
|||
|
|
case dvText:
|
|||
|
|
key byte = $2A;
|
|||
|
|
byte; /* dvh */
|
|||
|
|
pstring;
|
|||
|
|
|
|||
|
|
case dhdvText:
|
|||
|
|
key byte = $2B;
|
|||
|
|
byte; /* dh */
|
|||
|
|
byte; /* dv */
|
|||
|
|
pstring;
|
|||
|
|
|
|||
|
|
case FrameRect:
|
|||
|
|
key byte = $30;
|
|||
|
|
Rect;
|
|||
|
|
|
|||
|
|
case PaintRect:
|
|||
|
|
key byte = $31;
|
|||
|
|
Rect;
|
|||
|
|
|
|||
|
|
case EraseRect:
|
|||
|
|
key byte = $32;
|
|||
|
|
Rect;
|
|||
|
|
|
|||
|
|
case InvertRect:
|
|||
|
|
key byte = $33;
|
|||
|
|
Rect;
|
|||
|
|
|
|||
|
|
case FillRect:
|
|||
|
|
key byte = $34;
|
|||
|
|
Rect;
|
|||
|
|
|
|||
|
|
case FrameSameRect:
|
|||
|
|
key byte = $38;
|
|||
|
|
|
|||
|
|
case PaintSameRect:
|
|||
|
|
key byte = $39;
|
|||
|
|
|
|||
|
|
case EraseSameRect:
|
|||
|
|
key byte = $3A;
|
|||
|
|
|
|||
|
|
case InvertSameRect:
|
|||
|
|
key byte = $3B;
|
|||
|
|
|
|||
|
|
case FillSameRect:
|
|||
|
|
key byte = $3C;
|
|||
|
|
|
|||
|
|
case FrameRRect:
|
|||
|
|
key byte = $40;
|
|||
|
|
Rect;
|
|||
|
|
|
|||
|
|
case PaintRRect:
|
|||
|
|
key byte = $41;
|
|||
|
|
Rect;
|
|||
|
|
|
|||
|
|
case EraseRRect:
|
|||
|
|
key byte = $42;
|
|||
|
|
Rect;
|
|||
|
|
|
|||
|
|
case InvertRRect:
|
|||
|
|
key byte = $43;
|
|||
|
|
Rect;
|
|||
|
|
|
|||
|
|
case FillRRect:
|
|||
|
|
key byte = $44;
|
|||
|
|
Rect;
|
|||
|
|
|
|||
|
|
case FrameSameRRect:
|
|||
|
|
key byte = $48;
|
|||
|
|
|
|||
|
|
case PaintSameRRect:
|
|||
|
|
key byte = $49;
|
|||
|
|
|
|||
|
|
case EraseSameRRect:
|
|||
|
|
key byte = $4A;
|
|||
|
|
|
|||
|
|
case InvertSameRRect:
|
|||
|
|
key byte = $4B;
|
|||
|
|
|
|||
|
|
case FillSameRRect:
|
|||
|
|
key byte = $4C;
|
|||
|
|
|
|||
|
|
case FrameOval:
|
|||
|
|
key byte = $50;
|
|||
|
|
Rect;
|
|||
|
|
|
|||
|
|
case PaintOval:
|
|||
|
|
key byte = $51;
|
|||
|
|
Rect;
|
|||
|
|
|
|||
|
|
case EraseOval:
|
|||
|
|
key byte = $52;
|
|||
|
|
Rect;
|
|||
|
|
|
|||
|
|
case InvertOval:
|
|||
|
|
key byte = $53;
|
|||
|
|
Rect;
|
|||
|
|
|
|||
|
|
case FillOval:
|
|||
|
|
key byte = $54;
|
|||
|
|
Rect;
|
|||
|
|
|
|||
|
|
case FrameSameOval:
|
|||
|
|
key byte = $58;
|
|||
|
|
|
|||
|
|
case PaintSameOval:
|
|||
|
|
key byte = $59;
|
|||
|
|
|
|||
|
|
case EraseSameOval:
|
|||
|
|
key byte = $5A;
|
|||
|
|
|
|||
|
|
case InvertSameOval:
|
|||
|
|
key byte = $5B;
|
|||
|
|
|
|||
|
|
case FillSameOval:
|
|||
|
|
key byte = $5C;
|
|||
|
|
|
|||
|
|
case FrameArc:
|
|||
|
|
key byte = $60;
|
|||
|
|
Rect;
|
|||
|
|
integer; /* startAngle */
|
|||
|
|
integer; /* arcAngle */
|
|||
|
|
|
|||
|
|
case PaintArc:
|
|||
|
|
key byte = $61;
|
|||
|
|
Rect;
|
|||
|
|
integer; /* startAngle */
|
|||
|
|
integer; /* arcAngle */
|
|||
|
|
|
|||
|
|
case EraseArc:
|
|||
|
|
key byte = $62;
|
|||
|
|
Rect;
|
|||
|
|
integer; /* startAngle */
|
|||
|
|
integer; /* arcAngle */
|
|||
|
|
|
|||
|
|
case InvertArc:
|
|||
|
|
key byte = $63;
|
|||
|
|
Rect;
|
|||
|
|
integer; /* startAngle */
|
|||
|
|
integer; /* arcAngle */
|
|||
|
|
|
|||
|
|
case FillArc:
|
|||
|
|
key byte = $64;
|
|||
|
|
Rect;
|
|||
|
|
integer; /* startAngle */
|
|||
|
|
integer; /* arcAngle */
|
|||
|
|
|
|||
|
|
case FrameSameArc:
|
|||
|
|
key byte = $68;
|
|||
|
|
integer; /* startAngle */
|
|||
|
|
integer; /* arcAngle */
|
|||
|
|
|
|||
|
|
case PaintSameArc:
|
|||
|
|
key byte = $69;
|
|||
|
|
integer; /* startAngle */
|
|||
|
|
integer; /* arcAngle */
|
|||
|
|
|
|||
|
|
case EraseSameArc:
|
|||
|
|
key byte = $6A;
|
|||
|
|
integer; /* startAngle */
|
|||
|
|
integer; /* arcAngle */
|
|||
|
|
|
|||
|
|
case InvertSameArc:
|
|||
|
|
key byte = $6B;
|
|||
|
|
integer; /* startAngle */
|
|||
|
|
integer; /* arcAngle */
|
|||
|
|
|
|||
|
|
case FillSameArc:
|
|||
|
|
key byte = $6C;
|
|||
|
|
integer; /* startAngle */
|
|||
|
|
integer; /* arcAngle */
|
|||
|
|
|
|||
|
|
case FramePoly:
|
|||
|
|
key byte = $70;
|
|||
|
|
integer = $$CountOf(PolyPoints) * 4 + 10;
|
|||
|
|
Rect; /* enclosing rectangle */
|
|||
|
|
wide array PolyPoints { Point; };
|
|||
|
|
|
|||
|
|
case PaintPoly:
|
|||
|
|
key byte = $71;
|
|||
|
|
integer = $$CountOf(PolyPoints) * 4 + 10;
|
|||
|
|
Rect; /* enclosing rectangle */
|
|||
|
|
wide array PolyPoints { Point; };
|
|||
|
|
|
|||
|
|
case ErasePoly:
|
|||
|
|
key byte = $72;
|
|||
|
|
integer = $$CountOf(PolyPoints) * 4 + 10;
|
|||
|
|
Rect; /* enclosing rectangle */
|
|||
|
|
wide array PolyPoints { Point; };
|
|||
|
|
|
|||
|
|
case InvertPoly:
|
|||
|
|
key byte = $73;
|
|||
|
|
integer = $$CountOf(PolyPoints) * 4 + 10;
|
|||
|
|
Rect; /* enclosing rectangle */
|
|||
|
|
wide array PolyPoints { Point; };
|
|||
|
|
|
|||
|
|
case FillPoly:
|
|||
|
|
key byte = $74;
|
|||
|
|
integer = $$CountOf(PolyPoints) * 4 + 10;
|
|||
|
|
Rect; /* enclosing rectangle */
|
|||
|
|
wide array PolyPoints { Point; };
|
|||
|
|
|
|||
|
|
case FrameSamePoly:
|
|||
|
|
key byte = $78;
|
|||
|
|
|
|||
|
|
case PaintSamePoly:
|
|||
|
|
key byte = $79;
|
|||
|
|
|
|||
|
|
case EraseSamePoly:
|
|||
|
|
key byte = $7A;
|
|||
|
|
|
|||
|
|
case InvertSamePoly:
|
|||
|
|
key byte = $7B;
|
|||
|
|
|
|||
|
|
case FillSamePoly:
|
|||
|
|
key byte = $7C;
|
|||
|
|
|
|||
|
|
case FrameRgn:
|
|||
|
|
key byte = $80;
|
|||
|
|
FrameRgnStart: integer = (FrameRgnEnd[$$ArrayIndex(OpCodes)] - FrameRgnStart[$$ArrayIndex(OpCodes)]) >> 3;
|
|||
|
|
Rect; /* region’s enclosing rect */
|
|||
|
|
hex string [$$Word(FrameRgnStart[$$ArrayIndex(OpCodes)]) - 10];
|
|||
|
|
FrameRgnEnd:
|
|||
|
|
case PaintRgn:
|
|||
|
|
key byte = $81;
|
|||
|
|
PaintRgnStart: integer = (PaintRgnEnd[$$ArrayIndex(OpCodes)] - PaintRgnStart[$$ArrayIndex(OpCodes)]) >> 3;
|
|||
|
|
Rect; /* region’s enclosing rect */
|
|||
|
|
hex string [$$Word(PaintRgnStart[$$ArrayIndex(OpCodes)]) - 10];
|
|||
|
|
PaintRgnEnd:
|
|||
|
|
case EraseRgn:
|
|||
|
|
key byte = $82;
|
|||
|
|
EraseRgnStart: integer = (EraseRgnEnd[$$ArrayIndex(OpCodes)] - EraseRgnStart[$$ArrayIndex(OpCodes)]) >> 3;
|
|||
|
|
Rect; /* region’s enclosing rect */
|
|||
|
|
hex string [$$Word(EraseRgnStart[$$ArrayIndex(OpCodes)]) - 10];
|
|||
|
|
EraseRgnEnd:
|
|||
|
|
case InvertRgn:
|
|||
|
|
key byte = $83;
|
|||
|
|
InvertRgnStart: integer = (InvertRgnEnd[$$ArrayIndex(OpCodes)] - InvertRgnStart[$$ArrayIndex(OpCodes)]) >> 3;
|
|||
|
|
Rect; /* region’s enclosing rect */
|
|||
|
|
hex string [$$Word(InvertRgnStart[$$ArrayIndex(OpCodes)]) - 10];
|
|||
|
|
InvertRgnEnd:
|
|||
|
|
case FillRgn:
|
|||
|
|
key byte = $84;
|
|||
|
|
FillRgnStart: integer = (FillRgnEnd[$$ArrayIndex(OpCodes)] - FillRgnStart[$$ArrayIndex(OpCodes)]) >> 3;
|
|||
|
|
Rect; /* region’s enclosing rect */
|
|||
|
|
hex string [$$Word(FillRgnStart[$$ArrayIndex(OpCodes)]) - 10];
|
|||
|
|
FillRgnEnd:
|
|||
|
|
case FrameSameRgn:
|
|||
|
|
key byte = $88;
|
|||
|
|
|
|||
|
|
case PaintSameRgn:
|
|||
|
|
key byte = $89;
|
|||
|
|
|
|||
|
|
case EraseSameRgn:
|
|||
|
|
key byte = $8A;
|
|||
|
|
|
|||
|
|
case InvertSameRgn:
|
|||
|
|
key byte = $8B;
|
|||
|
|
|
|||
|
|
case FillSameRgn:
|
|||
|
|
key byte = $8C;
|
|||
|
|
|
|||
|
|
case BitsRect:
|
|||
|
|
key byte = $90;
|
|||
|
|
BitsRectRowBytes: integer; /* row bytes */
|
|||
|
|
BitsRectBounds: Rect; /* bounds */
|
|||
|
|
Rect; /* srcRect */
|
|||
|
|
Rect; /* destRect */
|
|||
|
|
integer srcCopy, srcOr, srcXor, srcBic, /* mode */
|
|||
|
|
notSrcCopy, notSrcOr, notSrcXor, notSrcBic,
|
|||
|
|
patCopy, patOr, patXor, patBic,
|
|||
|
|
notPatCopy, notPatOr, notPatXor, notPatBic;
|
|||
|
|
hex string [($$BitField(BitsRectBounds[$$ArrayIndex(OpCodes)],32,16)
|
|||
|
|
- $$BitField(BitsRectBounds[$$ArrayIndex(OpCodes)],0,16))
|
|||
|
|
* $$Word(BitsRectRowBytes[$$ArrayIndex(OpCodes)])];
|
|||
|
|
|
|||
|
|
case BitsRgn:
|
|||
|
|
key byte = $91;
|
|||
|
|
BitsRgnRowBytes: integer; /* row bytes */
|
|||
|
|
BitsRgnBounds: Rect; /* bounds */
|
|||
|
|
Rect; /* srcRect */
|
|||
|
|
Rect; /* destRect */
|
|||
|
|
integer srcCopy, srcOr, srcXor, srcBic, /* mode */
|
|||
|
|
notSrcCopy, notSrcOr, notSrcXor, notSrcBic,
|
|||
|
|
patCopy, patOr, patXor, patBic,
|
|||
|
|
notPatCopy, notPatOr, notPatXor, notPatBic;
|
|||
|
|
BitsRgnStart: integer = (BitsRgnEnd[$$ArrayIndex(OpCodes)] - BitsRgnStart[$$ArrayIndex(OpCodes)]) >> 3;
|
|||
|
|
Rect; /* region’s enclosing rect */
|
|||
|
|
hex string [$$Word(BitsRgnStart[$$ArrayIndex(OpCodes)]) - 10];
|
|||
|
|
BitsRgnEnd:
|
|||
|
|
hex string [($$BitField(BitsRgnBounds[$$ArrayIndex(OpCodes)],32,16)
|
|||
|
|
- $$BitField(BitsRgnBounds[$$ArrayIndex(OpCodes)],0,16))
|
|||
|
|
* $$Word(BitsRgnRowBytes[$$ArrayIndex(OpCodes)])];
|
|||
|
|
|
|||
|
|
case PackBitsRect:
|
|||
|
|
key byte = $98;
|
|||
|
|
PackBitsRectRowBytes: integer; /* row bytes */
|
|||
|
|
PackBitsRectBounds: Rect; /* bounds */
|
|||
|
|
Rect; /* srcRect */
|
|||
|
|
Rect; /* destRect */
|
|||
|
|
integer srcCopy, srcOr, srcXor, srcBic, /* mode */
|
|||
|
|
notSrcCopy, notSrcOr, notSrcXor, notSrcBic,
|
|||
|
|
patCopy, patOr, patXor, patBic,
|
|||
|
|
notPatCopy, notPatOr, notPatXor, notPatBic;
|
|||
|
|
PackBitsBits: hex string [$$PackedSize(PackBitsBits[$$ArrayIndex(OpCodes)],
|
|||
|
|
$$Word(PackBitsRectRowBytes[$$ArrayIndex(OpCodes)]),
|
|||
|
|
($$BitField(PackBitsRectBounds[$$ArrayIndex(OpCodes)],32,16)
|
|||
|
|
- $$BitField(PackBitsRectBounds[$$ArrayIndex(OpCodes)],0,16)))];
|
|||
|
|
|
|||
|
|
case PackBitsRgn:
|
|||
|
|
key byte = $99;
|
|||
|
|
PackBitsRgnRowBytes: integer; /* row bytes */
|
|||
|
|
PackBitsRgnBounds: Rect; /* bounds */
|
|||
|
|
Rect; /* srcRect */
|
|||
|
|
Rect; /* destRect */
|
|||
|
|
integer srcCopy, srcOr, srcXor, srcBic, /* mode */
|
|||
|
|
notSrcCopy, notSrcOr, notSrcXor, notSrcBic,
|
|||
|
|
patCopy, patOr, patXor, patBic,
|
|||
|
|
notPatCopy, notPatOr, notPatXor, notPatBic;
|
|||
|
|
PackBitsRgnStart: integer = (PackBitsRgnEnd[$$ArrayIndex(OpCodes)] - PackBitsRgnStart[$$ArrayIndex(OpCodes)]) >> 3;
|
|||
|
|
Rect; /* region’s enclosing rect */
|
|||
|
|
hex string [$$Word(PackBitsRgnStart[$$ArrayIndex(OpCodes)]) - 10];
|
|||
|
|
PackBitsRgnEnd: hex string [$$PackedSize(PackBitsRgnEnd[$$ArrayIndex(OpCodes)],
|
|||
|
|
$$Word(PackBitsRgnRowBytes[$$ArrayIndex(OpCodes)]),
|
|||
|
|
($$BitField(PackBitsRgnBounds[$$ArrayIndex(OpCodes)],32,16)
|
|||
|
|
- $$BitField(PackBitsRgnBounds[$$ArrayIndex(OpCodes)],0,16)))];
|
|||
|
|
|
|||
|
|
case ShortComment:
|
|||
|
|
key byte = $A0;
|
|||
|
|
integer; /* kind */
|
|||
|
|
|
|||
|
|
case LongComment:
|
|||
|
|
key byte = $A1;
|
|||
|
|
integer; /* kind */
|
|||
|
|
LongCommentStart: integer = (LongCommentEnd[$$ArrayIndex(OpCodes)] - LongCommentStart[$$ArrayIndex(OpCodes)] - 16) >> 3;
|
|||
|
|
hex string [$$Word(LongCommentStart[$$ArrayIndex(OpCodes)])];
|
|||
|
|
LongCommentEnd:
|
|||
|
|
};
|
|||
|
|
};
|
|||
|
|
byte = $FF; /* End of picture */
|
|||
|
|
|
|||
|
|
case VersionTwo:
|
|||
|
|
key longint = $001102ff; /* Version op + version */
|
|||
|
|
array OpCodes {
|
|||
|
|
switch {
|
|||
|
|
case Clip:
|
|||
|
|
key integer = $0001;
|
|||
|
|
ClipStart: integer = (ClipEnd[$$ArrayIndex(OpCodes)] - ClipStart[$$ArrayIndex(OpCodes)]) >> 3;
|
|||
|
|
Rect; /* region’s enclosing rect */
|
|||
|
|
hex string [$$Word(ClipStart[$$ArrayIndex(OpCodes)]) - 10];
|
|||
|
|
ClipEnd:
|
|||
|
|
case BkPat:
|
|||
|
|
key integer = $0002;
|
|||
|
|
hex string [8];
|
|||
|
|
|
|||
|
|
case TxFont:
|
|||
|
|
key integer = $0003;
|
|||
|
|
integer; /* font */
|
|||
|
|
|
|||
|
|
case TxFace:
|
|||
|
|
key integer = $0004;
|
|||
|
|
unsigned hex byte; /* text face */
|
|||
|
|
|
|||
|
|
case TxMode:
|
|||
|
|
key integer = $0005;
|
|||
|
|
integer srcCopy, srcOr, srcXor, srcBic, /* mode */
|
|||
|
|
notSrcCopy, notSrcOr, notSrcXor, notSrcBic,
|
|||
|
|
patCopy, patOr, patXor, patBic,
|
|||
|
|
notPatCopy, notPatOr, notPatXor, notPatBic;
|
|||
|
|
|
|||
|
|
case SpExtra:
|
|||
|
|
key integer = $0006;
|
|||
|
|
unsigned hex longint;
|
|||
|
|
|
|||
|
|
case PnSize:
|
|||
|
|
key integer = $0007;
|
|||
|
|
Point;
|
|||
|
|
|
|||
|
|
case PnMode:
|
|||
|
|
key integer = $0008;
|
|||
|
|
unsigned hex integer;
|
|||
|
|
|
|||
|
|
case PnPat:
|
|||
|
|
key integer = $0009;
|
|||
|
|
hex string [8];
|
|||
|
|
|
|||
|
|
case FillPat:
|
|||
|
|
key integer = $000A;
|
|||
|
|
hex string [8];
|
|||
|
|
|
|||
|
|
case OvSize:
|
|||
|
|
key integer = $000B;
|
|||
|
|
Point;
|
|||
|
|
|
|||
|
|
case Origin:
|
|||
|
|
key integer = $000C;
|
|||
|
|
integer; /* dh */
|
|||
|
|
integer; /* dv */
|
|||
|
|
|
|||
|
|
case TxSize:
|
|||
|
|
key integer = $000D;
|
|||
|
|
integer;
|
|||
|
|
|
|||
|
|
case FgColor:
|
|||
|
|
key integer = $000E;
|
|||
|
|
longint;
|
|||
|
|
|
|||
|
|
case BkColor:
|
|||
|
|
key integer = $000F;
|
|||
|
|
longint;
|
|||
|
|
|
|||
|
|
case TxRatio:
|
|||
|
|
key integer = $0010;
|
|||
|
|
Point; /* numer */
|
|||
|
|
Point; /* denom */
|
|||
|
|
|
|||
|
|
case Version:
|
|||
|
|
key integer = $0011;
|
|||
|
|
byte;
|
|||
|
|
|
|||
|
|
case BkPixPat:
|
|||
|
|
key integer = $0012;
|
|||
|
|
switch {
|
|||
|
|
case newPattern:
|
|||
|
|
key integer = 1;
|
|||
|
|
hex string [8]; /* old-style pattern */
|
|||
|
|
unsigned bitstring[1] = 1; /* New pixMap flag */
|
|||
|
|
unsigned bitstring[2] = 0; /* Must be 0 */
|
|||
|
|
BkPixPatpMapRowBytes: unsigned bitstring[13]; /* Offset to next row */
|
|||
|
|
BkPixPatBounds: rect; /* Bitmap bounds */
|
|||
|
|
integer; /* pixMap vers number */
|
|||
|
|
integer unpacked; /* Packing format */
|
|||
|
|
unsigned longint; /* Size of pixel data */
|
|||
|
|
unsigned hex longint; /* h. resolution (ppi) (fixed) */
|
|||
|
|
unsigned hex longint; /* v. resolution (ppi) (fixed) */
|
|||
|
|
integer chunky, chunkyPlanar, planar; /* Pixel storage format */
|
|||
|
|
integer; /* # bits in pixel */
|
|||
|
|
integer; /* # components in pixel*/
|
|||
|
|
integer; /* # bits per field */
|
|||
|
|
unsigned longint; /* Offset to next plane */
|
|||
|
|
unsigned longint; /* Offset to color table*/
|
|||
|
|
fill long; /* Reserved */
|
|||
|
|
/* Color Table */
|
|||
|
|
unsigned hex longint; /* ctSeed */
|
|||
|
|
integer; /* ctFlags */
|
|||
|
|
integer = $$Countof(ColorSpec) - 1; /* ctSize */
|
|||
|
|
wide array ColorSpec {
|
|||
|
|
integer; /* value */
|
|||
|
|
unsigned integer; /* RGB: red */
|
|||
|
|
unsigned integer; /* green */
|
|||
|
|
unsigned integer; /* blue */
|
|||
|
|
};
|
|||
|
|
/* If rowBytes < 8 then data is unpacked,
|
|||
|
|
if >= 8, then data is packed */
|
|||
|
|
BkPixPatBits: hex string [($$BitField(BkPixPatpMapRowBytes[$$ArrayIndex(OpCodes)],0,13) < 8) *
|
|||
|
|
$$BitField(BkPixPatpMapRowBytes[$$ArrayIndex(OpCodes)],0,13) +
|
|||
|
|
($$BitField(BkPixPatpMapRowBytes[$$ArrayIndex(OpCodes)],0,13) >= 8) *
|
|||
|
|
$$PackedSize(BkPixPatBits[$$ArrayIndex(OpCodes)],
|
|||
|
|
$$BitField(BkPixPatpMapRowBytes[$$ArrayIndex(OpCodes)],0,13),
|
|||
|
|
($$BitField(BkPixPatBounds[$$ArrayIndex(OpCodes)],32,16)
|
|||
|
|
- $$BitField(BkPixPatBounds[$$ArrayIndex(OpCodes)],0,16)))];
|
|||
|
|
|
|||
|
|
case ditherPattern:
|
|||
|
|
key integer = 2;
|
|||
|
|
hex string [8]; /* old-style pattern */
|
|||
|
|
unsigned integer; /* RGB: red */
|
|||
|
|
unsigned integer; /* green */
|
|||
|
|
unsigned integer; /* blue */
|
|||
|
|
};
|
|||
|
|
|
|||
|
|
case PnPixPat:
|
|||
|
|
key integer = $0013;
|
|||
|
|
switch {
|
|||
|
|
case newPattern:
|
|||
|
|
key integer = 1;
|
|||
|
|
hex string [8]; /* old-style pattern */
|
|||
|
|
unsigned bitstring[1] = 1; /* New pixMap flag */
|
|||
|
|
unsigned bitstring[2] = 0; /* Must be 0 */
|
|||
|
|
PnPixPatpMapRowBytes: unsigned bitstring[13]; /* Offset to next row */
|
|||
|
|
PnPixPatBounds: rect; /* Bitmap bounds */
|
|||
|
|
integer; /* pixMap vers number */
|
|||
|
|
integer unpacked; /* Packing format */
|
|||
|
|
unsigned longint; /* Size of pixel data */
|
|||
|
|
unsigned hex longint; /* h. resolution (ppi) (fixed) */
|
|||
|
|
unsigned hex longint; /* v. resolution (ppi) (fixed) */
|
|||
|
|
integer chunky, chunkyPlanar, planar; /* Pixel storage format */
|
|||
|
|
integer; /* # bits in pixel */
|
|||
|
|
integer; /* # components in pixel*/
|
|||
|
|
integer; /* # bits per field */
|
|||
|
|
unsigned longint; /* Offset to next plane */
|
|||
|
|
unsigned longint; /* Offset to color table*/
|
|||
|
|
fill long; /* Reserved */
|
|||
|
|
/* Color Table */
|
|||
|
|
unsigned hex longint; /* ctSeed */
|
|||
|
|
integer; /* ctFlags */
|
|||
|
|
integer = $$Countof(ColorSpec) - 1; /* ctSize */
|
|||
|
|
wide array ColorSpec {
|
|||
|
|
integer; /* value */
|
|||
|
|
unsigned integer; /* RGB: red */
|
|||
|
|
unsigned integer; /* green */
|
|||
|
|
unsigned integer; /* blue */
|
|||
|
|
};
|
|||
|
|
/* If rowBytes < 8 then data is unpacked,
|
|||
|
|
if >= 8, then data is packed */
|
|||
|
|
PnPixPatBits: hex string [($$BitField(PnPixPatpMapRowBytes[$$ArrayIndex(OpCodes)],0,13) < 8) *
|
|||
|
|
$$BitField(PnPixPatpMapRowBytes[$$ArrayIndex(OpCodes)],0,13) +
|
|||
|
|
($$BitField(PnPixPatpMapRowBytes[$$ArrayIndex(OpCodes)],0,13) >= 8) *
|
|||
|
|
$$PackedSize(PnPixPatBits[$$ArrayIndex(OpCodes)],
|
|||
|
|
$$BitField(PnPixPatpMapRowBytes[$$ArrayIndex(OpCodes)],0,13),
|
|||
|
|
($$BitField(PnPixPatBounds[$$ArrayIndex(OpCodes)],32,16)
|
|||
|
|
- $$BitField(PnPixPatBounds[$$ArrayIndex(OpCodes)],0,16)))];
|
|||
|
|
|
|||
|
|
case ditherPattern:
|
|||
|
|
key integer = 2;
|
|||
|
|
hex string [8]; /* old-style pattern */
|
|||
|
|
unsigned integer; /* RGB: red */
|
|||
|
|
unsigned integer; /* green */
|
|||
|
|
unsigned integer; /* blue */
|
|||
|
|
};
|
|||
|
|
|
|||
|
|
case FillPixPat:
|
|||
|
|
key integer = $0014;
|
|||
|
|
switch {
|
|||
|
|
case newPattern:
|
|||
|
|
key integer = 1;
|
|||
|
|
hex string [8]; /* old-style pattern */
|
|||
|
|
unsigned bitstring[1] = 1; /* New pixMap flag */
|
|||
|
|
unsigned bitstring[2] = 0; /* Must be 0 */
|
|||
|
|
FillPixPatpMapRowBytes: unsigned bitstring[13]; /* Offset to next row */
|
|||
|
|
FillPixPatBounds: rect; /* Bitmap bounds */
|
|||
|
|
integer; /* pixMap vers number */
|
|||
|
|
integer unpacked; /* Packing format */
|
|||
|
|
unsigned longint; /* Size of pixel data */
|
|||
|
|
unsigned hex longint; /* h. resolution (ppi) (fixed) */
|
|||
|
|
unsigned hex longint; /* v. resolution (ppi) (fixed) */
|
|||
|
|
integer chunky, chunkyPlanar, planar; /* Pixel storage format */
|
|||
|
|
integer; /* # bits in pixel */
|
|||
|
|
integer; /* # components in pixel*/
|
|||
|
|
integer; /* # bits per field */
|
|||
|
|
unsigned longint; /* Offset to next plane */
|
|||
|
|
unsigned longint; /* Offset to color table*/
|
|||
|
|
fill long; /* Reserved */
|
|||
|
|
/* Color Table */
|
|||
|
|
unsigned hex longint; /* ctSeed */
|
|||
|
|
integer; /* ctFlags */
|
|||
|
|
integer = $$Countof(ColorSpec) - 1; /* ctSize */
|
|||
|
|
wide array ColorSpec {
|
|||
|
|
integer; /* value */
|
|||
|
|
unsigned integer; /* RGB: red */
|
|||
|
|
unsigned integer; /* green */
|
|||
|
|
unsigned integer; /* blue */
|
|||
|
|
};
|
|||
|
|
/* If rowBytes < 8 then data is unpacked,
|
|||
|
|
if >= 8, then data is packed */
|
|||
|
|
FillPixPatBits: hex string [($$BitField(FillPixPatpMapRowBytes[$$ArrayIndex(OpCodes)],0,13) < 8) *
|
|||
|
|
$$BitField(FillPixPatpMapRowBytes[$$ArrayIndex(OpCodes)],0,13) +
|
|||
|
|
($$BitField(FillPixPatpMapRowBytes[$$ArrayIndex(OpCodes)],0,13) >= 8) *
|
|||
|
|
$$PackedSize(FillPixPatBits[$$ArrayIndex(OpCodes)],
|
|||
|
|
$$BitField(FillPixPatpMapRowBytes[$$ArrayIndex(OpCodes)],0,13),
|
|||
|
|
($$BitField(FillPixPatBounds[$$ArrayIndex(OpCodes)],32,16)
|
|||
|
|
- $$BitField(FillPixPatBounds[$$ArrayIndex(OpCodes)],0,16)))];
|
|||
|
|
|
|||
|
|
case ditherPattern:
|
|||
|
|
key integer = 2;
|
|||
|
|
hex string [8]; /* old-style pattern */
|
|||
|
|
unsigned integer; /* RGB: red */
|
|||
|
|
unsigned integer; /* green */
|
|||
|
|
unsigned integer; /* blue */
|
|||
|
|
};
|
|||
|
|
|
|||
|
|
case PnLocHFrac:
|
|||
|
|
key integer = $0015;
|
|||
|
|
unsigned hex integer;
|
|||
|
|
|
|||
|
|
case ChExtra:
|
|||
|
|
key integer = $0016;
|
|||
|
|
integer; /* extra for each character */
|
|||
|
|
|
|||
|
|
case AppleReserved0017:
|
|||
|
|
key integer = $0017;
|
|||
|
|
|
|||
|
|
case AppleReserved0018:
|
|||
|
|
key integer = $0018;
|
|||
|
|
|
|||
|
|
case AppleReserved0019:
|
|||
|
|
key integer = $0019;
|
|||
|
|
|
|||
|
|
case RGBFgCol:
|
|||
|
|
key integer = $001A;
|
|||
|
|
unsigned integer; /* RGB: red */
|
|||
|
|
unsigned integer; /* green */
|
|||
|
|
unsigned integer; /* blue */
|
|||
|
|
|
|||
|
|
case RGBBkCol:
|
|||
|
|
key integer = $001B;
|
|||
|
|
unsigned integer; /* RGB: red */
|
|||
|
|
unsigned integer; /* green */
|
|||
|
|
unsigned integer; /* blue */
|
|||
|
|
|
|||
|
|
case HiliteMode:
|
|||
|
|
key integer = $001C;
|
|||
|
|
|
|||
|
|
case HiliteColor:
|
|||
|
|
key integer = $001D;
|
|||
|
|
unsigned integer; /* RGB: red */
|
|||
|
|
unsigned integer; /* green */
|
|||
|
|
unsigned integer; /* blue */
|
|||
|
|
|
|||
|
|
case DefHilite:
|
|||
|
|
key integer = $001E;
|
|||
|
|
|
|||
|
|
case OpColor:
|
|||
|
|
key integer = $001F;
|
|||
|
|
unsigned integer; /* RGB: red */
|
|||
|
|
unsigned integer; /* green */
|
|||
|
|
unsigned integer; /* blue */
|
|||
|
|
|
|||
|
|
case Line:
|
|||
|
|
key integer = $0020;
|
|||
|
|
Point; /* pnLoc */
|
|||
|
|
Point; /* newPt */
|
|||
|
|
|
|||
|
|
case LineFrom:
|
|||
|
|
key integer = $0021;
|
|||
|
|
Point; /* newPt */
|
|||
|
|
|
|||
|
|
case ShortLine:
|
|||
|
|
key integer = $0022;
|
|||
|
|
Point; /* pnLoc */
|
|||
|
|
byte; /* dh */
|
|||
|
|
byte; /* dv */
|
|||
|
|
|
|||
|
|
case ShortLineFrom:
|
|||
|
|
key integer = $0023;
|
|||
|
|
byte; /* dh */
|
|||
|
|
byte; /* dv */
|
|||
|
|
|
|||
|
|
case AppleReserved0024:
|
|||
|
|
key integer = $0024;
|
|||
|
|
AR24: unsigned integer = (AR24End[$$ArrayIndex(Opcodes)] - AR24[$$ArrayIndex(Opcodes)]) / 8 - 2;
|
|||
|
|
hex string [$$Word(AR24[$$ArrayIndex(Opcodes)])];
|
|||
|
|
AR24End:
|
|||
|
|
|
|||
|
|
case AppleReserved0025:
|
|||
|
|
key integer = $0025;
|
|||
|
|
AR25: unsigned integer = (AR25End[$$ArrayIndex(Opcodes)] - AR25[$$ArrayIndex(Opcodes)]) / 8 - 2;
|
|||
|
|
hex string [$$Word(AR25[$$ArrayIndex(Opcodes)])];
|
|||
|
|
AR25End:
|
|||
|
|
|
|||
|
|
case AppleReserved0026:
|
|||
|
|
key integer = $0026;
|
|||
|
|
AR26: unsigned integer = (AR26End[$$ArrayIndex(Opcodes)] - AR26[$$ArrayIndex(Opcodes)]) / 8 - 2;
|
|||
|
|
hex string [$$Word(AR26[$$ArrayIndex(Opcodes)])];
|
|||
|
|
AR26End:
|
|||
|
|
|
|||
|
|
case AppleReserved0027:
|
|||
|
|
key integer = $0027;
|
|||
|
|
AR27: unsigned integer = (AR27End[$$ArrayIndex(Opcodes)] - AR27[$$ArrayIndex(Opcodes)]) / 8 - 2;
|
|||
|
|
hex string [$$Word(AR27[$$ArrayIndex(Opcodes)])];
|
|||
|
|
AR27End:
|
|||
|
|
|
|||
|
|
case LongText:
|
|||
|
|
key integer = $0028;
|
|||
|
|
Point; /* TxLoc */
|
|||
|
|
pstring; /* text */
|
|||
|
|
|
|||
|
|
case DHText:
|
|||
|
|
key integer = $0029;
|
|||
|
|
byte; /* dh */
|
|||
|
|
pstring; /* text */
|
|||
|
|
|
|||
|
|
case DVText:
|
|||
|
|
key integer = $002A;
|
|||
|
|
byte; /* dv */
|
|||
|
|
pstring; /* text */
|
|||
|
|
|
|||
|
|
case DHDVText:
|
|||
|
|
key integer = $002B;
|
|||
|
|
byte; /* dh */
|
|||
|
|
byte; /* dv */
|
|||
|
|
pstring; /* text */
|
|||
|
|
|
|||
|
|
case FontName:
|
|||
|
|
key integer = $002C;
|
|||
|
|
FontNameBegin: unsigned integer = (FontNameEnd[$$ArrayIndex(Opcodes)] - FontNameBegin[$$ArrayIndex(Opcodes)]) / 8 - 2;
|
|||
|
|
integer; /* Old font ID */
|
|||
|
|
pstring; /* Font name */
|
|||
|
|
FontNameEnd:
|
|||
|
|
|
|||
|
|
case LineJustify:
|
|||
|
|
key integer = $002D;
|
|||
|
|
unsigned integer = 8;
|
|||
|
|
longint; /* Inter-character spacing */
|
|||
|
|
longint; /* Total extra space for justification */
|
|||
|
|
|
|||
|
|
case AppleReserved002E:
|
|||
|
|
key integer = $002E;
|
|||
|
|
AR2E: unsigned integer = (AR2EEnd[$$ArrayIndex(Opcodes)] - AR2E[$$ArrayIndex(Opcodes)]) / 8 - 2;
|
|||
|
|
hex string [$$Word(AR2E[$$ArrayIndex(Opcodes)])];
|
|||
|
|
AR2EEnd:
|
|||
|
|
|
|||
|
|
case AppleReserved002F:
|
|||
|
|
key integer = $002F;
|
|||
|
|
AR2F: unsigned integer = (AR2FEnd[$$ArrayIndex(Opcodes)] - AR2F[$$ArrayIndex(Opcodes)]) / 8 - 2;
|
|||
|
|
hex string [$$Word(AR2F[$$ArrayIndex(Opcodes)])];
|
|||
|
|
AR2FEnd:
|
|||
|
|
|
|||
|
|
case FrameRect:
|
|||
|
|
key integer = $0030;
|
|||
|
|
Rect;
|
|||
|
|
|
|||
|
|
case PaintRect:
|
|||
|
|
key integer = $0031;
|
|||
|
|
Rect;
|
|||
|
|
|
|||
|
|
case EraseRect:
|
|||
|
|
key integer = $0032;
|
|||
|
|
Rect;
|
|||
|
|
|
|||
|
|
case InvertRect:
|
|||
|
|
key integer = $0033;
|
|||
|
|
Rect;
|
|||
|
|
|
|||
|
|
case FillRect:
|
|||
|
|
key integer = $0034;
|
|||
|
|
Rect;
|
|||
|
|
|
|||
|
|
case AppleReserved0035:
|
|||
|
|
key integer = $0035;
|
|||
|
|
Rect;
|
|||
|
|
|
|||
|
|
case AppleReserved0036:
|
|||
|
|
key integer = $0036;
|
|||
|
|
Rect;
|
|||
|
|
|
|||
|
|
case AppleReserved0037:
|
|||
|
|
key integer = $0037;
|
|||
|
|
Rect;
|
|||
|
|
|
|||
|
|
case FrameSameRect:
|
|||
|
|
key integer = $0038;
|
|||
|
|
|
|||
|
|
case PaintSameRect:
|
|||
|
|
key integer = $0039;
|
|||
|
|
|
|||
|
|
case EraseSameRect:
|
|||
|
|
key integer = $003A;
|
|||
|
|
|
|||
|
|
case InvertSameRect:
|
|||
|
|
key integer = $003B;
|
|||
|
|
|
|||
|
|
case FillSameRect:
|
|||
|
|
key integer = $003C;
|
|||
|
|
|
|||
|
|
case AppleReserved003D:
|
|||
|
|
key integer = $003D;
|
|||
|
|
|
|||
|
|
case AppleReserved003E:
|
|||
|
|
key integer = $003E;
|
|||
|
|
|
|||
|
|
case AppleReserved003F:
|
|||
|
|
key integer = $003F;
|
|||
|
|
|
|||
|
|
case FrameRRect:
|
|||
|
|
key integer = $0040;
|
|||
|
|
Rect;
|
|||
|
|
|
|||
|
|
case PaintRRect:
|
|||
|
|
key integer = $0041;
|
|||
|
|
Rect;
|
|||
|
|
|
|||
|
|
case EraseRRect:
|
|||
|
|
key integer = $0042;
|
|||
|
|
Rect;
|
|||
|
|
|
|||
|
|
case InvertRRect:
|
|||
|
|
key integer = $0043;
|
|||
|
|
Rect;
|
|||
|
|
|
|||
|
|
case FillRRect:
|
|||
|
|
key integer = $0044;
|
|||
|
|
Rect;
|
|||
|
|
|
|||
|
|
case AppleReserved0045:
|
|||
|
|
key integer = $0045;
|
|||
|
|
Rect;
|
|||
|
|
|
|||
|
|
case AppleReserved0046:
|
|||
|
|
key integer = $0046;
|
|||
|
|
Rect;
|
|||
|
|
|
|||
|
|
case AppleReserved0047:
|
|||
|
|
key integer = $0047;
|
|||
|
|
Rect;
|
|||
|
|
|
|||
|
|
case FrameSameRRect:
|
|||
|
|
key integer = $0048;
|
|||
|
|
|
|||
|
|
case PaintSameRRect:
|
|||
|
|
key integer = $0049;
|
|||
|
|
|
|||
|
|
case EraseSameRRect:
|
|||
|
|
key integer = $004A;
|
|||
|
|
|
|||
|
|
case InvertSameRRect:
|
|||
|
|
key integer = $004B;
|
|||
|
|
|
|||
|
|
case FillSameRRect:
|
|||
|
|
key integer = $004C;
|
|||
|
|
|
|||
|
|
case AppleReserved004D:
|
|||
|
|
key integer = $004D;
|
|||
|
|
|
|||
|
|
case AppleReserved004E:
|
|||
|
|
key integer = $004E;
|
|||
|
|
|
|||
|
|
case AppleReserved004F:
|
|||
|
|
key integer = $004F;
|
|||
|
|
|
|||
|
|
case FrameOval:
|
|||
|
|
key integer = $0050;
|
|||
|
|
Rect;
|
|||
|
|
|
|||
|
|
case PaintOval:
|
|||
|
|
key integer = $0051;
|
|||
|
|
Rect;
|
|||
|
|
|
|||
|
|
case EraseOval:
|
|||
|
|
key integer = $0052;
|
|||
|
|
Rect;
|
|||
|
|
|
|||
|
|
case InvertOval:
|
|||
|
|
key integer = $0053;
|
|||
|
|
Rect;
|
|||
|
|
|
|||
|
|
case FillOval:
|
|||
|
|
key integer = $0054;
|
|||
|
|
Rect;
|
|||
|
|
|
|||
|
|
case AppleReserved0055:
|
|||
|
|
key integer = $0055;
|
|||
|
|
Rect;
|
|||
|
|
|
|||
|
|
case AppleReserved0056:
|
|||
|
|
key integer = $0056;
|
|||
|
|
Rect;
|
|||
|
|
|
|||
|
|
case AppleReserved0057:
|
|||
|
|
key integer = $0057;
|
|||
|
|
Rect;
|
|||
|
|
|
|||
|
|
case FrameSameOval:
|
|||
|
|
key integer = $0058;
|
|||
|
|
|
|||
|
|
case PaintSameOval:
|
|||
|
|
key integer = $0059;
|
|||
|
|
|
|||
|
|
case EraseSameOval:
|
|||
|
|
key integer = $005A;
|
|||
|
|
|
|||
|
|
case InvertSameOval:
|
|||
|
|
key integer = $005B;
|
|||
|
|
|
|||
|
|
case FillSameOval:
|
|||
|
|
key integer = $005C;
|
|||
|
|
|
|||
|
|
case AppleReserved005D:
|
|||
|
|
key integer = $005D;
|
|||
|
|
|
|||
|
|
case AppleReserved005E:
|
|||
|
|
key integer = $005E;
|
|||
|
|
|
|||
|
|
case FrameArc:
|
|||
|
|
key integer = $0060;
|
|||
|
|
Rect;
|
|||
|
|
integer; /* startAngle */
|
|||
|
|
integer; /* arcAngle */
|
|||
|
|
|
|||
|
|
case PaintArc:
|
|||
|
|
key integer = $0061;
|
|||
|
|
Rect;
|
|||
|
|
integer; /* startAngle */
|
|||
|
|
integer; /* arcAngle */
|
|||
|
|
|
|||
|
|
case EraseArc:
|
|||
|
|
key integer = $0062;
|
|||
|
|
Rect;
|
|||
|
|
integer; /* startAngle */
|
|||
|
|
integer; /* arcAngle */
|
|||
|
|
|
|||
|
|
case InvertArc:
|
|||
|
|
key integer = $0063;
|
|||
|
|
Rect;
|
|||
|
|
integer; /* startAngle */
|
|||
|
|
integer; /* arcAngle */
|
|||
|
|
|
|||
|
|
case FillArc:
|
|||
|
|
key integer = $0064;
|
|||
|
|
Rect;
|
|||
|
|
integer; /* startAngle */
|
|||
|
|
integer; /* arcAngle */
|
|||
|
|
|
|||
|
|
case AppleReserved0065:
|
|||
|
|
key integer = $0065;
|
|||
|
|
Rect;
|
|||
|
|
integer; /* startAngle */
|
|||
|
|
integer; /* arcAngle */
|
|||
|
|
|
|||
|
|
case AppleReserved0066:
|
|||
|
|
key integer = $0066;
|
|||
|
|
Rect;
|
|||
|
|
integer; /* startAngle */
|
|||
|
|
integer; /* arcAngle */
|
|||
|
|
|
|||
|
|
case AppleReserved0067:
|
|||
|
|
key integer = $0067;
|
|||
|
|
Rect;
|
|||
|
|
integer; /* startAngle */
|
|||
|
|
integer; /* arcAngle */
|
|||
|
|
|
|||
|
|
case FrameSameArc:
|
|||
|
|
key integer = $0068;
|
|||
|
|
integer; /* startAngle */
|
|||
|
|
integer; /* arcAngle */
|
|||
|
|
|
|||
|
|
case PaintSameArc:
|
|||
|
|
key integer = $0069;
|
|||
|
|
integer; /* startAngle */
|
|||
|
|
integer; /* arcAngle */
|
|||
|
|
|
|||
|
|
case EraseSameArc:
|
|||
|
|
key integer = $006A;
|
|||
|
|
integer; /* startAngle */
|
|||
|
|
integer; /* arcAngle */
|
|||
|
|
|
|||
|
|
case InvertSameArc:
|
|||
|
|
key integer = $006B;
|
|||
|
|
integer; /* startAngle */
|
|||
|
|
integer; /* arcAngle */
|
|||
|
|
|
|||
|
|
case FillSameArc:
|
|||
|
|
key integer = $006C;
|
|||
|
|
integer; /* startAngle */
|
|||
|
|
integer; /* arcAngle */
|
|||
|
|
|
|||
|
|
case AppleReserved006D:
|
|||
|
|
key integer = $006D;
|
|||
|
|
integer; /* startAngle */
|
|||
|
|
integer; /* arcAngle */
|
|||
|
|
|
|||
|
|
case AppleReserved006E:
|
|||
|
|
key integer = $006E;
|
|||
|
|
integer; /* startAngle */
|
|||
|
|
integer; /* arcAngle */
|
|||
|
|
|
|||
|
|
case AppleReserved006F:
|
|||
|
|
key integer = $006F;
|
|||
|
|
integer; /* startAngle */
|
|||
|
|
integer; /* arcAngle */
|
|||
|
|
|
|||
|
|
case FramePoly:
|
|||
|
|
key integer = $0070;
|
|||
|
|
integer = $$CountOf(PolyPoints) * 4 + 10;
|
|||
|
|
Rect; /* enclosing rectangle */
|
|||
|
|
wide array PolyPoints { Point; };
|
|||
|
|
|
|||
|
|
case PaintPoly:
|
|||
|
|
key integer = $0071;
|
|||
|
|
integer = $$CountOf(PolyPoints) * 4 + 10;
|
|||
|
|
Rect; /* enclosing rectangle */
|
|||
|
|
wide array PolyPoints { Point; };
|
|||
|
|
|
|||
|
|
case ErasePoly:
|
|||
|
|
key integer = $0072;
|
|||
|
|
integer = $$CountOf(PolyPoints) * 4 + 10;
|
|||
|
|
Rect; /* enclosing rectangle */
|
|||
|
|
wide array PolyPoints { Point; };
|
|||
|
|
|
|||
|
|
case InvertPoly:
|
|||
|
|
key integer = $0073;
|
|||
|
|
integer = $$CountOf(PolyPoints) * 4 + 10;
|
|||
|
|
Rect; /* enclosing rectangle */
|
|||
|
|
wide array PolyPoints { Point; };
|
|||
|
|
|
|||
|
|
case FillPoly:
|
|||
|
|
key integer = $0074;
|
|||
|
|
integer = $$CountOf(PolyPoints) * 4 + 10;
|
|||
|
|
Rect; /* enclosing rectangle */
|
|||
|
|
wide array PolyPoints { Point; };
|
|||
|
|
|
|||
|
|
case AppleReserved0075:
|
|||
|
|
key integer = $0075;
|
|||
|
|
integer = $$CountOf(PolyPoints) * 4 + 10;
|
|||
|
|
Rect; /* enclosing rectangle */
|
|||
|
|
wide array PolyPoints { Point; };
|
|||
|
|
|
|||
|
|
case AppleReserved0076:
|
|||
|
|
key integer = $0076;
|
|||
|
|
integer = $$CountOf(PolyPoints) * 4 + 10;
|
|||
|
|
Rect; /* enclosing rectangle */
|
|||
|
|
wide array PolyPoints { Point; };
|
|||
|
|
|
|||
|
|
case AppleReserved0077:
|
|||
|
|
key integer = $0077;
|
|||
|
|
integer = $$CountOf(PolyPoints) * 4 + 10;
|
|||
|
|
Rect; /* enclosing rectangle */
|
|||
|
|
wide array PolyPoints { Point; };
|
|||
|
|
|
|||
|
|
case FrameSamePoly:
|
|||
|
|
key integer = $0078;
|
|||
|
|
|
|||
|
|
case PaintSamePoly:
|
|||
|
|
key integer = $0079;
|
|||
|
|
|
|||
|
|
case EraseSamePoly:
|
|||
|
|
key integer = $007A;
|
|||
|
|
|
|||
|
|
case InvertSamePoly:
|
|||
|
|
key integer = $007B;
|
|||
|
|
|
|||
|
|
case FillSamePoly:
|
|||
|
|
key integer = $007C;
|
|||
|
|
|
|||
|
|
case AppleReserved007D:
|
|||
|
|
key integer = $007D;
|
|||
|
|
|
|||
|
|
case AppleReserved007E:
|
|||
|
|
key integer = $007E;
|
|||
|
|
|
|||
|
|
case AppleReserved007F:
|
|||
|
|
key integer = $007F;
|
|||
|
|
|
|||
|
|
case FrameRgn:
|
|||
|
|
key integer = $0080;
|
|||
|
|
FrameRgnStart2: integer = (FrameRgnEnd2[$$ArrayIndex(OpCodes)] - FrameRgnStart2[$$ArrayIndex(OpCodes)]) >> 3;
|
|||
|
|
Rect; /* region’s enclosing rect */
|
|||
|
|
hex string [$$Word(FrameRgnStart2[$$ArrayIndex(OpCodes)]) - 10];
|
|||
|
|
FrameRgnEnd2:
|
|||
|
|
case PaintRgn:
|
|||
|
|
key integer = $0081;
|
|||
|
|
PaintRgnStart2: integer = (PaintRgnEnd2[$$ArrayIndex(OpCodes)] - PaintRgnStart2[$$ArrayIndex(OpCodes)]) >> 3;
|
|||
|
|
Rect; /* region’s enclosing rect */
|
|||
|
|
hex string [$$Word(PaintRgnStart2[$$ArrayIndex(OpCodes)]) - 10];
|
|||
|
|
PaintRgnEnd2:
|
|||
|
|
case EraseRgn:
|
|||
|
|
key integer = $0082;
|
|||
|
|
EraseRgnStart2: integer = (EraseRgnEnd2[$$ArrayIndex(OpCodes)] - EraseRgnStart2[$$ArrayIndex(OpCodes)]) >> 3;
|
|||
|
|
Rect; /* region’s enclosing rect */
|
|||
|
|
hex string [$$Word(EraseRgnStart2[$$ArrayIndex(OpCodes)]) - 10];
|
|||
|
|
EraseRgnEnd2:
|
|||
|
|
case InvertRgn:
|
|||
|
|
key integer = $0083;
|
|||
|
|
InvertRgnStart2: integer = (InvertRgnEnd2[$$ArrayIndex(OpCodes)] - InvertRgnStart2[$$ArrayIndex(OpCodes)]) >> 3;
|
|||
|
|
Rect; /* region’s enclosing rect */
|
|||
|
|
hex string [$$Word(InvertRgnStart2[$$ArrayIndex(OpCodes)]) - 10];
|
|||
|
|
InvertRgnEnd2:
|
|||
|
|
case FillRgn:
|
|||
|
|
key integer = $0084;
|
|||
|
|
FillRgnStart2: integer = (FillRgnEnd2[$$ArrayIndex(OpCodes)] - FillRgnStart2[$$ArrayIndex(OpCodes)]) >> 3;
|
|||
|
|
Rect; /* region’s enclosing rect */
|
|||
|
|
hex string [$$Word(FillRgnStart2[$$ArrayIndex(OpCodes)]) - 10];
|
|||
|
|
FillRgnEnd2:
|
|||
|
|
case AppleReserved0085:
|
|||
|
|
key integer = $0085;
|
|||
|
|
AppleReserved0085Start:integer = (AppleReserved0085End[$$ArrayIndex(OpCodes)] - AppleReserved0085Start[$$ArrayIndex(OpCodes)]) >> 3;
|
|||
|
|
Rect; /* region’s enclosing rect */
|
|||
|
|
hex string [$$Word(AppleReserved0085Start[$$ArrayIndex(OpCodes)]) - 10];
|
|||
|
|
AppleReserved0085End:
|
|||
|
|
case AppleReserved0086:
|
|||
|
|
key integer = $0086;
|
|||
|
|
AppleReserved0086Start: integer = (AppleReserved0086End[$$ArrayIndex(OpCodes)] - AppleReserved0086Start[$$ArrayIndex(OpCodes)]) >> 3;
|
|||
|
|
Rect; /* region’s enclosing rect */
|
|||
|
|
hex string [$$Word(AppleReserved0086Start[$$ArrayIndex(OpCodes)]) - 10];
|
|||
|
|
AppleReserved0086End:
|
|||
|
|
case AppleReserved0087:
|
|||
|
|
key integer = $0087;
|
|||
|
|
AppleReserved0087Start: integer = (AppleReserved0087End[$$ArrayIndex(OpCodes)] - AppleReserved0087Start[$$ArrayIndex(OpCodes)]) >> 3;
|
|||
|
|
Rect; /* region’s enclosing rect */
|
|||
|
|
hex string [$$Word(AppleReserved0087Start[$$ArrayIndex(OpCodes)]) - 10];
|
|||
|
|
AppleReserved0087End:
|
|||
|
|
case FrameSameRgn:
|
|||
|
|
key integer = $0088;
|
|||
|
|
|
|||
|
|
case PaintSameRgn:
|
|||
|
|
key integer = $0089;
|
|||
|
|
|
|||
|
|
case EraseSameRgn:
|
|||
|
|
key integer = $008A;
|
|||
|
|
|
|||
|
|
case InvertSameRgn:
|
|||
|
|
key integer = $008B;
|
|||
|
|
|
|||
|
|
case FillSameRgn:
|
|||
|
|
key integer = $008C;
|
|||
|
|
|
|||
|
|
case AppleReserved008D:
|
|||
|
|
key integer = $008D;
|
|||
|
|
|
|||
|
|
case AppleReserved008E:
|
|||
|
|
key integer = $008E;
|
|||
|
|
|
|||
|
|
case AppleReserved008F:
|
|||
|
|
key integer = $008F;
|
|||
|
|
|
|||
|
|
case BitsRect:
|
|||
|
|
key integer = $0090;
|
|||
|
|
unsigned bitstring[1] = 1; /* New pixMap flag */
|
|||
|
|
unsigned bitstring[2] = 0; /* Must be 0 */
|
|||
|
|
BitsRectpMapRowBytes: unsigned bitstring[13]; /* Offset to next row */
|
|||
|
|
BitsRectBounds2: rect; /* Bitmap bounds */
|
|||
|
|
integer; /* pixMap vers number */
|
|||
|
|
integer unpacked; /* Packing format */
|
|||
|
|
unsigned longint; /* Size of pixel data */
|
|||
|
|
unsigned hex longint; /* h. resolution (ppi) (fixed) */
|
|||
|
|
unsigned hex longint; /* v. resolution (ppi) (fixed) */
|
|||
|
|
integer chunky, chunkyPlanar, planar; /* Pixel storage format */
|
|||
|
|
integer; /* # bits in pixel */
|
|||
|
|
integer; /* # components in pixel*/
|
|||
|
|
integer; /* # bits per field */
|
|||
|
|
unsigned longint; /* Offset to next plane */
|
|||
|
|
unsigned longint; /* Offset to color table*/
|
|||
|
|
fill long; /* Reserved */
|
|||
|
|
/* Color Table */
|
|||
|
|
unsigned hex longint; /* ctSeed */
|
|||
|
|
integer; /* ctFlags */
|
|||
|
|
integer = $$Countof(ColorSpec) - 1; /* ctSize */
|
|||
|
|
wide array ColorSpec {
|
|||
|
|
integer; /* value */
|
|||
|
|
unsigned integer; /* RGB: red */
|
|||
|
|
unsigned integer; /* green */
|
|||
|
|
unsigned integer; /* blue */
|
|||
|
|
};
|
|||
|
|
Rect; /* srcRect */
|
|||
|
|
Rect; /* destRect */
|
|||
|
|
integer srcCopy, srcOr, srcXor, srcBic, /* mode */
|
|||
|
|
notSrcCopy, notSrcOr, notSrcXor, notSrcBic,
|
|||
|
|
patCopy, patOr, patXor, patBic,
|
|||
|
|
notPatCopy, notPatOr, notPatXor, notPatBic,
|
|||
|
|
blend = 32, addPin, addOver, subPin,
|
|||
|
|
adMax = 37, subOver, adMin;
|
|||
|
|
BitsRectBits: hex string [$$BitField(BitsRectpMapRowBytes[$$ArrayIndex(OpCodes)],0,13) *
|
|||
|
|
($$BitField(BitsRectBounds2[$$ArrayIndex(OpCodes)],32,16)
|
|||
|
|
- $$BitField(BitsRectBounds2[$$ArrayIndex(OpCodes)],0,16))];
|
|||
|
|
|
|||
|
|
|
|||
|
|
case BitsRgn:
|
|||
|
|
key integer = $0091;
|
|||
|
|
unsigned bitstring[1] = 1; /* New pixMap flag */
|
|||
|
|
unsigned bitstring[2] = 0; /* Must be 0 */
|
|||
|
|
BitsRgnpMapRowBytes: unsigned bitstring[13]; /* Offset to next row */
|
|||
|
|
BitsRgnBounds2: rect; /* Bitmap bounds */
|
|||
|
|
integer; /* pixMap vers number */
|
|||
|
|
integer unpacked; /* Packing format */
|
|||
|
|
unsigned longint; /* Size of pixel data */
|
|||
|
|
unsigned hex longint; /* h. resolution (ppi) (fixed) */
|
|||
|
|
unsigned hex longint; /* v. resolution (ppi) (fixed) */
|
|||
|
|
integer chunky, chunkyPlanar, planar; /* Pixel storage format */
|
|||
|
|
integer; /* # bits in pixel */
|
|||
|
|
integer; /* # components in pixel*/
|
|||
|
|
integer; /* # bits per field */
|
|||
|
|
unsigned longint; /* Offset to next plane */
|
|||
|
|
unsigned longint; /* Offset to color table*/
|
|||
|
|
fill long; /* Reserved */
|
|||
|
|
/* Color Table */
|
|||
|
|
unsigned hex longint; /* ctSeed */
|
|||
|
|
integer; /* ctFlags */
|
|||
|
|
integer = $$Countof(ColorSpec) - 1; /* ctSize */
|
|||
|
|
wide array ColorSpec {
|
|||
|
|
integer; /* value */
|
|||
|
|
unsigned integer; /* RGB: red */
|
|||
|
|
unsigned integer; /* green */
|
|||
|
|
unsigned integer; /* blue */
|
|||
|
|
};
|
|||
|
|
Rect; /* srcRect */
|
|||
|
|
Rect; /* destRect */
|
|||
|
|
integer srcCopy, srcOr, srcXor, srcBic, /* mode */
|
|||
|
|
notSrcCopy, notSrcOr, notSrcXor, notSrcBic,
|
|||
|
|
patCopy, patOr, patXor, patBic,
|
|||
|
|
notPatCopy, notPatOr, notPatXor, notPatBic,
|
|||
|
|
blend = 32, addPin, addOver, subPin,
|
|||
|
|
adMax = 37, subOver, adMin;
|
|||
|
|
BitsRgnStart2: integer = (BitsRgnEnd2[$$ArrayIndex(OpCodes)] - BitsRgnStart2[$$ArrayIndex(OpCodes)]) >> 3;
|
|||
|
|
Rect; /* region’s enclosing rect */
|
|||
|
|
hex string [$$Word(BitsRgnStart2[$$ArrayIndex(OpCodes)]) - 10];
|
|||
|
|
BitsRgnEnd2: hex string [$$PackedSize(BitsRgnEnd2[$$ArrayIndex(OpCodes)],
|
|||
|
|
$$BitField(BitsRgnpMapRowBytes[$$ArrayIndex(OpCodes)],0,13),
|
|||
|
|
($$BitField(BitsRgnBounds2[$$ArrayIndex(OpCodes)],32,16)
|
|||
|
|
- $$BitField(BitsRgnBounds2[$$ArrayIndex(OpCodes)],0,16)))];
|
|||
|
|
|
|||
|
|
case AppleReserved0092:
|
|||
|
|
key integer = $0092;
|
|||
|
|
AppleReserved0092Start: unsigned integer = (AppleReserved0092End[$$ArrayIndex(OpCodes)] - AppleReserved0092Start[$$ArrayIndex(OpCodes)]) >> 3 - 2;
|
|||
|
|
hex string [$$Word(AppleReserved0092Start[$$ArrayIndex(OpCodes)])];
|
|||
|
|
AppleReserved0092End:
|
|||
|
|
case AppleReserved0093:
|
|||
|
|
key integer = $0093;
|
|||
|
|
AppleReserved0093Start: unsigned integer = (AppleReserved0093End[$$ArrayIndex(OpCodes)] - AppleReserved0093Start[$$ArrayIndex(OpCodes)]) >> 3 - 2;
|
|||
|
|
hex string [$$Word(AppleReserved0093Start[$$ArrayIndex(OpCodes)])];
|
|||
|
|
AppleReserved0093End:
|
|||
|
|
case AppleReserved0094:
|
|||
|
|
key integer = $0094;
|
|||
|
|
AppleReserved0094Start: unsigned integer = (AppleReserved0094End[$$ArrayIndex(OpCodes)] - AppleReserved0094Start[$$ArrayIndex(OpCodes)]) >> 3 - 2;
|
|||
|
|
hex string [$$Word(AppleReserved0094Start[$$ArrayIndex(OpCodes)])];
|
|||
|
|
AppleReserved0094End:
|
|||
|
|
case AppleReserved0095:
|
|||
|
|
key integer = $0095;
|
|||
|
|
AppleReserved0095Start: unsigned integer = (AppleReserved0095End[$$ArrayIndex(OpCodes)] - AppleReserved0095Start[$$ArrayIndex(OpCodes)]) >> 3 - 2;
|
|||
|
|
hex string [$$Word(AppleReserved0095Start[$$ArrayIndex(OpCodes)])];
|
|||
|
|
AppleReserved0095End:
|
|||
|
|
case AppleReserved0096:
|
|||
|
|
key integer = $0096;
|
|||
|
|
AppleReserved0096Start: unsigned integer = (AppleReserved0096End[$$ArrayIndex(OpCodes)] - AppleReserved0096Start[$$ArrayIndex(OpCodes)]) >> 3 - 2;
|
|||
|
|
hex string [$$Word(AppleReserved0096Start[$$ArrayIndex(OpCodes)])];
|
|||
|
|
AppleReserved0096End:
|
|||
|
|
case AppleReserved0097:
|
|||
|
|
key integer = $0097;
|
|||
|
|
AppleReserved0097Start: unsigned integer = (AppleReserved0097End[$$ArrayIndex(OpCodes)] - AppleReserved0097Start[$$ArrayIndex(OpCodes)]) >> 3 - 2;
|
|||
|
|
hex string [$$Word(AppleReserved0097Start[$$ArrayIndex(OpCodes)])];
|
|||
|
|
AppleReserved0097End:
|
|||
|
|
case PackBitsRect:
|
|||
|
|
key integer = $0098;
|
|||
|
|
unsigned bitstring[1] = 1; /* New pixMap flag */
|
|||
|
|
unsigned bitstring[2] = 0; /* Must be 0 */
|
|||
|
|
PackBitsRectpMapRowBytes:unsigned bitstring[13]; /* Offset to next row */
|
|||
|
|
PackBitsRectBounds2: rect; /* Bitmap bounds */
|
|||
|
|
integer; /* pixMap vers number */
|
|||
|
|
integer unpacked; /* Packing format */
|
|||
|
|
unsigned longint; /* Size of pixel data */
|
|||
|
|
unsigned hex longint; /* h. resolution (ppi) (fixed) */
|
|||
|
|
unsigned hex longint; /* v. resolution (ppi) (fixed) */
|
|||
|
|
integer chunky, chunkyPlanar, planar; /* Pixel storage format */
|
|||
|
|
integer; /* # bits in pixel */
|
|||
|
|
integer; /* # components in pixel*/
|
|||
|
|
integer; /* # bits per field */
|
|||
|
|
unsigned longint; /* Offset to next plane */
|
|||
|
|
unsigned longint; /* Offset to color table*/
|
|||
|
|
fill long; /* Reserved */
|
|||
|
|
/* Color Table */
|
|||
|
|
unsigned hex longint; /* ctSeed */
|
|||
|
|
integer; /* ctFlags */
|
|||
|
|
integer = $$Countof(ColorSpec) - 1; /* ctSize */
|
|||
|
|
wide array ColorSpec {
|
|||
|
|
integer; /* value */
|
|||
|
|
unsigned integer; /* RGB: red */
|
|||
|
|
unsigned integer; /* green */
|
|||
|
|
unsigned integer; /* blue */
|
|||
|
|
};
|
|||
|
|
Rect; /* srcRect */
|
|||
|
|
Rect; /* destRect */
|
|||
|
|
integer srcCopy, srcOr, srcXor, srcBic, /* mode */
|
|||
|
|
notSrcCopy, notSrcOr, notSrcXor, notSrcBic,
|
|||
|
|
patCopy, patOr, patXor, patBic,
|
|||
|
|
notPatCopy, notPatOr, notPatXor, notPatBic,
|
|||
|
|
blend = 32, addPin, addOver, subPin,
|
|||
|
|
adMax = 37, subOver, adMin;
|
|||
|
|
PackBitsRectBits: hex string [$$PackedSize(PackBitsRectBits[$$ArrayIndex(OpCodes)],
|
|||
|
|
$$BitField(PackBitsRectpMapRowBytes[$$ArrayIndex(OpCodes)],0,13),
|
|||
|
|
($$BitField(PackBitsRectBounds2[$$ArrayIndex(OpCodes)],32,16)
|
|||
|
|
- $$BitField(PackBitsRectBounds2[$$ArrayIndex(OpCodes)],0,16)))];
|
|||
|
|
|
|||
|
|
case PackBitsRgn:
|
|||
|
|
key integer = $0099;
|
|||
|
|
unsigned bitstring[1] = 1; /* New pixMap flag */
|
|||
|
|
unsigned bitstring[2] = 0; /* Must be 0 */
|
|||
|
|
PackBitsRgnpMapRowBytes:unsigned bitstring[13]; /* Offset to next row */
|
|||
|
|
PackBitsRgnBounds2: rect; /* Bitmap bounds */
|
|||
|
|
integer; /* pixMap vers number */
|
|||
|
|
integer unpacked; /* Packing format */
|
|||
|
|
unsigned longint; /* Size of pixel data */
|
|||
|
|
unsigned hex longint; /* h. resolution (ppi) (fixed) */
|
|||
|
|
unsigned hex longint; /* v. resolution (ppi) (fixed) */
|
|||
|
|
integer chunky, chunkyPlanar, planar; /* Pixel storage format */
|
|||
|
|
integer; /* # bits in pixel */
|
|||
|
|
integer; /* # components in pixel*/
|
|||
|
|
integer; /* # bits per field */
|
|||
|
|
unsigned longint; /* Offset to next plane */
|
|||
|
|
unsigned longint; /* Offset to color table*/
|
|||
|
|
fill long; /* Reserved */
|
|||
|
|
/* Color Table */
|
|||
|
|
unsigned hex longint; /* ctSeed */
|
|||
|
|
integer; /* ctFlags */
|
|||
|
|
integer = $$Countof(ColorSpec) - 1; /* ctSize */
|
|||
|
|
wide array ColorSpec {
|
|||
|
|
integer; /* value */
|
|||
|
|
unsigned integer; /* RGB: red */
|
|||
|
|
unsigned integer; /* green */
|
|||
|
|
unsigned integer; /* blue */
|
|||
|
|
};
|
|||
|
|
Rect; /* srcRect */
|
|||
|
|
Rect; /* destRect */
|
|||
|
|
integer srcCopy, srcOr, srcXor, srcBic, /* mode */
|
|||
|
|
notSrcCopy, notSrcOr, notSrcXor, notSrcBic,
|
|||
|
|
patCopy, patOr, patXor, patBic,
|
|||
|
|
notPatCopy, notPatOr, notPatXor, notPatBic,
|
|||
|
|
blend = 32, addPin, addOver, subPin,
|
|||
|
|
adMax = 37, subOver, adMin;
|
|||
|
|
PackBitsRgnStart2: integer = (PackBitsRgnEnd2[$$ArrayIndex(OpCodes)] - PackBitsRgnStart2[$$ArrayIndex(OpCodes)]) >> 3;
|
|||
|
|
Rect; /* region’s enclosing rect */
|
|||
|
|
hex string [$$Word(PackBitsRgnStart2[$$ArrayIndex(OpCodes)]) - 10];
|
|||
|
|
PackBitsRgnEnd2: hex string [$$PackedSize(PackBitsRgnEnd2[$$ArrayIndex(OpCodes)],
|
|||
|
|
$$BitField(PackBitsRgnpMapRowBytes[$$ArrayIndex(OpCodes)],0,13),
|
|||
|
|
($$BitField(PackBitsRgnBounds2[$$ArrayIndex(OpCodes)],32,16)
|
|||
|
|
- $$BitField(PackBitsRgnBounds2[$$ArrayIndex(OpCodes)],0,16)))];
|
|||
|
|
|
|||
|
|
case DirectBitsRect:
|
|||
|
|
key integer = $009A;
|
|||
|
|
DirectBitsRectStart: unsigned integer = (DirectBitsRectEnd[$$ArrayIndex(OpCodes)] - DirectBitsRectStart[$$ArrayIndex(OpCodes)]) >> 3 - 2;
|
|||
|
|
unsigned bitstring[1] = 1; /* New pixMap flag */
|
|||
|
|
unsigned bitstring[2] = 0; /* Must be 0 */
|
|||
|
|
DirectBitsRectpMapRowBytes: unsigned bitstring[13]; /* Offset to next row */
|
|||
|
|
DirectBitsRectBounds2: rect; /* Bitmap bounds */
|
|||
|
|
integer; /* pixMap vers number */
|
|||
|
|
integer unpacked; /* Packing format */
|
|||
|
|
unsigned longint; /* Size of pixel data */
|
|||
|
|
unsigned hex longint; /* h. resolution (ppi) (fixed) */
|
|||
|
|
unsigned hex longint; /* v. resolution (ppi) (fixed) */
|
|||
|
|
integer chunky, chunkyPlanar, planar; /* Pixel storage format */
|
|||
|
|
integer; /* # bits in pixel */
|
|||
|
|
integer; /* # components in pixel*/
|
|||
|
|
integer; /* # bits per field */
|
|||
|
|
unsigned longint; /* Offset to next plane */
|
|||
|
|
unsigned longint; /* Offset to color table*/
|
|||
|
|
fill long; /* Reserved */
|
|||
|
|
/* Color Table */
|
|||
|
|
unsigned hex longint; /* ctSeed */
|
|||
|
|
integer; /* ctFlags */
|
|||
|
|
integer = $$Countof(ColorSpec) - 1; /* ctSize */
|
|||
|
|
wide array ColorSpec {
|
|||
|
|
integer; /* value */
|
|||
|
|
unsigned integer; /* RGB: red */
|
|||
|
|
unsigned integer; /* green */
|
|||
|
|
unsigned integer; /* blue */
|
|||
|
|
};
|
|||
|
|
Rect; /* srcRect */
|
|||
|
|
Rect; /* destRect */
|
|||
|
|
integer srcCopy, srcOr, srcXor, srcBic, /* mode */
|
|||
|
|
notSrcCopy, notSrcOr, notSrcXor, notSrcBic,
|
|||
|
|
patCopy, patOr, patXor, patBic,
|
|||
|
|
notPatCopy, notPatOr, notPatXor, notPatBic,
|
|||
|
|
blend = 32, addPin, addOver, subPin,
|
|||
|
|
adMax = 37, subOver, adMin;
|
|||
|
|
DirectBitsRectBits: hex string [$$BitField(DirectBitsRectpMapRowBytes[$$ArrayIndex(OpCodes)],0,13) *
|
|||
|
|
($$BitField(DirectBitsRectBounds2[$$ArrayIndex(OpCodes)],32,16)
|
|||
|
|
- $$BitField(DirectBitsRectBounds2[$$ArrayIndex(OpCodes)],0,16))];
|
|||
|
|
DirectBitsRectEnd:
|
|||
|
|
|
|||
|
|
case DirectBitsRgn:
|
|||
|
|
key integer = $009B;
|
|||
|
|
DirectBitsRgnStart: unsigned integer = (DirectBitsRgnEnd[$$ArrayIndex(OpCodes)] - DirectBitsRgnStart[$$ArrayIndex(OpCodes)]) >> 3 - 2;
|
|||
|
|
unsigned bitstring[1] = 1; /* New pixMap flag */
|
|||
|
|
unsigned bitstring[2] = 0; /* Must be 0 */
|
|||
|
|
DirectBitsRgnpMapRowBytes: unsigned bitstring[13]; /* Offset to next row */
|
|||
|
|
DirectBitsRgnBounds2: rect; /* Bitmap bounds */
|
|||
|
|
integer; /* pixMap vers number */
|
|||
|
|
integer unpacked; /* Packing format */
|
|||
|
|
unsigned longint; /* Size of pixel data */
|
|||
|
|
unsigned hex longint; /* h. resolution (ppi) (fixed) */
|
|||
|
|
unsigned hex longint; /* v. resolution (ppi) (fixed) */
|
|||
|
|
integer chunky, chunkyPlanar, planar; /* Pixel storage format */
|
|||
|
|
integer; /* # bits in pixel */
|
|||
|
|
integer; /* # components in pixel*/
|
|||
|
|
integer; /* # bits per field */
|
|||
|
|
unsigned longint; /* Offset to next plane */
|
|||
|
|
unsigned longint; /* Offset to color table*/
|
|||
|
|
fill long; /* Reserved */
|
|||
|
|
/* Color Table */
|
|||
|
|
unsigned hex longint; /* ctSeed */
|
|||
|
|
integer; /* ctFlags */
|
|||
|
|
integer = $$Countof(ColorSpec) - 1; /* ctSize */
|
|||
|
|
wide array ColorSpec {
|
|||
|
|
integer; /* value */
|
|||
|
|
unsigned integer; /* RGB: red */
|
|||
|
|
unsigned integer; /* green */
|
|||
|
|
unsigned integer; /* blue */
|
|||
|
|
};
|
|||
|
|
Rect; /* srcRect */
|
|||
|
|
Rect; /* destRect */
|
|||
|
|
integer srcCopy, srcOr, srcXor, srcBic, /* mode */
|
|||
|
|
notSrcCopy, notSrcOr, notSrcXor, notSrcBic,
|
|||
|
|
patCopy, patOr, patXor, patBic,
|
|||
|
|
notPatCopy, notPatOr, notPatXor, notPatBic,
|
|||
|
|
blend = 32, addPin, addOver, subPin,
|
|||
|
|
adMax = 37, subOver, adMin;
|
|||
|
|
DirectBitsMaskRgnStart: integer = (DirectBitsMaskRgnEnd[$$ArrayIndex(OpCodes)] - DirectBitsMaskRgnStart[$$ArrayIndex(OpCodes)]) >> 3;
|
|||
|
|
Rect; /* region’s enclosing rect */
|
|||
|
|
hex string [$$Word(DirectBitsMaskRgnStart[$$ArrayIndex(OpCodes)]) - 10];
|
|||
|
|
DirectBitsMaskRgnEnd:
|
|||
|
|
DirectBitsRgnBits: hex string [$$BitField(DirectBitsRgnpMapRowBytes[$$ArrayIndex(OpCodes)],0,13) *
|
|||
|
|
($$BitField(DirectBitsRgnBounds2[$$ArrayIndex(OpCodes)],32,16)
|
|||
|
|
- $$BitField(DirectBitsRgnBounds2[$$ArrayIndex(OpCodes)],0,16))];
|
|||
|
|
DirectBitsRgnEnd:
|
|||
|
|
|
|||
|
|
case AppleReserved009C:
|
|||
|
|
key integer = $009C;
|
|||
|
|
AppleReserved009CStart: unsigned integer = (AppleReserved009CEnd[$$ArrayIndex(OpCodes)] - AppleReserved009CStart[$$ArrayIndex(OpCodes)]) >> 3 - 2;
|
|||
|
|
hex string [$$Word(AppleReserved009CStart[$$ArrayIndex(OpCodes)])];
|
|||
|
|
AppleReserved009CEnd:
|
|||
|
|
case AppleReserved009D:
|
|||
|
|
key integer = $009D;
|
|||
|
|
AppleReserved009DStart: unsigned integer = (AppleReserved009DEnd[$$ArrayIndex(OpCodes)] - AppleReserved009DStart[$$ArrayIndex(OpCodes)]) >> 3 - 2;
|
|||
|
|
hex string [$$Word(AppleReserved009DStart[$$ArrayIndex(OpCodes)])];
|
|||
|
|
AppleReserved009DEnd:
|
|||
|
|
case AppleReserved009E:
|
|||
|
|
key integer = $009E;
|
|||
|
|
AppleReserved009EStart: unsigned integer = (AppleReserved009EEnd[$$ArrayIndex(OpCodes)] - AppleReserved009EStart[$$ArrayIndex(OpCodes)]) >> 3 - 2;
|
|||
|
|
hex string [$$Word(AppleReserved009EStart[$$ArrayIndex(OpCodes)])];
|
|||
|
|
AppleReserved009EEnd:
|
|||
|
|
case AppleReserved009F:
|
|||
|
|
key integer = $009F;
|
|||
|
|
AppleReserved009FStart: unsigned integer = (AppleReserved009FEnd[$$ArrayIndex(OpCodes)] - AppleReserved009FStart[$$ArrayIndex(OpCodes)]) >> 3 - 2;
|
|||
|
|
hex string [$$Word(AppleReserved009FStart[$$ArrayIndex(OpCodes)])];
|
|||
|
|
AppleReserved009FEnd:
|
|||
|
|
case ShortComment:
|
|||
|
|
key integer = $00A0;
|
|||
|
|
integer; /* comment kind */
|
|||
|
|
|
|||
|
|
case LongComment:
|
|||
|
|
key integer = $00A1;
|
|||
|
|
integer; /* comment kind */
|
|||
|
|
LongCommentStart2: integer = (LongCommentEnd2[$$ArrayIndex(OpCodes)] - LongCommentStart2[$$ArrayIndex(OpCodes)] - 16) >> 3;
|
|||
|
|
hex string [$$Word(LongCommentStart2[$$ArrayIndex(OpCodes)])];
|
|||
|
|
LongCommentEnd2:
|
|||
|
|
case OpEndPic:
|
|||
|
|
key integer = $00FF;
|
|||
|
|
|
|||
|
|
case HeaderOp:
|
|||
|
|
key integer = $0C00;
|
|||
|
|
#if oldPICTCompatible
|
|||
|
|
longint Version2 = -1;
|
|||
|
|
/* Fixed point bounding box */
|
|||
|
|
unsigned hex longint;
|
|||
|
|
unsigned hex longint;
|
|||
|
|
unsigned hex longint;
|
|||
|
|
unsigned hex longint;
|
|||
|
|
longint Version2 = -1; /* Reserved */
|
|||
|
|
#else
|
|||
|
|
switch {
|
|||
|
|
case StandardVersion2:
|
|||
|
|
key integer = -1;
|
|||
|
|
integer = -1;
|
|||
|
|
unsigned hex longint;
|
|||
|
|
unsigned hex longint;
|
|||
|
|
unsigned hex longint;
|
|||
|
|
unsigned hex longint;
|
|||
|
|
fill long; /* Reserved */
|
|||
|
|
case ExtendedVersion2:
|
|||
|
|
key integer = -2;
|
|||
|
|
fill word;
|
|||
|
|
unsigned hex longint; /* hRes */
|
|||
|
|
unsigned hex longint; /* vRes */
|
|||
|
|
Rect; /* SrcRect */
|
|||
|
|
fill long; /* Reserved */
|
|||
|
|
};
|
|||
|
|
#endif
|
|||
|
|
};
|
|||
|
|
align word;
|
|||
|
|
};
|
|||
|
|
};
|
|||
|
|
endOfPict:
|
|||
|
|
};
|
|||
|
|
|
|||
|
|
#endif __PICT_R__
|