|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 50176 (0xc400)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, generic, package Quickdraw, seg_021fdf
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
-- Copyright (c) 1990 Meridian Software Systems, Inc. --
with Mac_Types;
use Mac_Types;
package Quickdraw is
Invalcolreq : constant := -1;
Srccopy : constant := 0;
Srcor : constant := 1;
Srcxor : constant := 2;
Srcbic : constant := 3;
Notsrccopy : constant := 4;
Notsrcor : constant := 5;
Notsrcxor : constant := 6;
Notsrcbic : constant := 7;
Patcopy : constant := 8;
Pator : constant := 9;
Patxor : constant := 10;
Patbic : constant := 11;
Notpatcopy : constant := 12;
Notpator : constant := 13;
Notpatxor : constant := 14;
Notpatbic : constant := 15;
Blend : constant := 32;
Addpin : constant := 33;
Addover : constant := 34;
Subpin : constant := 35;
Addmax : constant := 37;
Subover : constant := 38;
Admin : constant := 39;
Transparent : constant := 36;
Normalbit : constant := 0;
Inversebit : constant := 1;
Redbit : constant := 4;
Greenbit : constant := 3;
Bluebit : constant := 2;
Cyanbit : constant := 8;
Magentabit : constant := 7;
Yellowbit : constant := 6;
Blackbit : constant := 5;
Blackcolor : constant := 33;
Whitecolor : constant := 30;
Redcolor : constant := 205;
Greencolor : constant := 341;
Bluecolor : constant := 409;
Cyancolor : constant := 273;
Magentacolor : constant := 137;
Yellowcolor : constant := 69;
Piclparen : constant := 0;
Picrparen : constant := 1;
Cluttype : constant := 0;
Fixedtype : constant := 1;
Directtype : constant := 2;
Gddevtype : constant := 0;
Raminit : constant := 10;
Mainscreen : constant := 11;
Allinit : constant := 12;
Screendevice : constant := 13;
Nodriver : constant := 14;
Screenactive : constant := 15;
Hilitebit : constant := 7;
Philitebit : constant := 0;
Defqdcolors : constant := 127;
Mask : constant := 64;
Hilite : constant := 50;
Minseed : constant := 1023;
type Grafverb is (Frame, Paint, Erase, Invert, Fill);
type Styleitem is (Bold, Italic, Underline, Outline,
Shadow, Condense, Extend);
subtype Qdbyte is Signedbyte;
subtype Qdptr is Ptr;
subtype Qdhandle is Handle;
subtype Qderr is Mac_Types.Integer;
type Pattern is array (0 .. 7) of Byte;
type Patptr is access Pattern;
type Pathandle is access Patptr;
type Bits16 is array (0 .. 15) of Mac_Types.Integer;
subtype Style is Signedbyte;
type Fontinfo is
record
Ascent : Mac_Types.Integer;
Descent : Mac_Types.Integer;
Widmax : Mac_Types.Integer;
Leading : Mac_Types.Integer;
end record;
type Bitmap is
record
Baseaddr : Ptr;
Rowbytes : Mac_Types.Integer;
Bounds : Rect;
end record;
type Cursor is
record
Data : Bits16;
Mask : Bits16;
Hotspot : Point;
end record;
type Cursptr is access Cursor;
type Curshandle is access Cursptr;
type Penstate is
record
Pnloc : Point;
Pnsize : Point;
Pnmode : Mac_Types.Integer;
Pnpat : Pattern;
end record;
type Region is
record
Rgnsize : Mac_Types.Integer;
Rgnbbox : Rect;
end record;
type Rgnptr is access Region;
type Rgnhandle is access Rgnptr;
type Picture is
record
Picsize : Mac_Types.Integer;
Picframe : Rect;
end record;
type Picptr is access Picture;
type Pichandle is access Picptr;
type Array0_0point is array (0 .. 0) of Point;
type Polygon is
record
Polysize : Mac_Types.Integer;
Polybbox : Rect; Polypoints : Array0_0point;
end record;
type Polyptr is access Polygon;
type Polyhandle is access Polyptr;
type Qdprocs is
record
Textproc : Ptr;
Lineproc : Ptr;
Rectproc : Ptr;
Rrectproc : Ptr;
Ovalproc : Ptr;
Arcproc : Ptr;
Polyproc : Ptr;
Rgnproc : Ptr;
Bitsproc : Ptr;
Commentproc : Ptr;
Txmeasproc : Ptr;
Getpicproc : Ptr;
Putpicproc : Ptr;
end record;
type Qdprocsptr is access Qdprocs;
type Grafport is
record
Device : Mac_Types.Integer;
Portbits : Bitmap;
Portrect : Rect;
Visrgn : Rgnhandle;
Cliprgn : Rgnhandle;
Bkpat : Pattern;
Fillpat : Pattern;
Pnloc : Point;
Pnsize : Point;
Pnmode : Mac_Types.Integer;
Pnpat : Pattern;
Pnvis : Mac_Types.Integer;
Txfont : Mac_Types.Integer;
Txface : Style;
Txmode : Mac_Types.Integer;
Txsize : Mac_Types.Integer;
Spextra : Fixed;
Fgcolor : Longint;
Bkcolor : Longint;
Colrbit : Mac_Types.Integer;
Patstretch : Mac_Types.Integer;
Picsave : Handle;
Rgnsave : Handle;
Polysave : Handle;
Grafprocs : Qdprocsptr;
end record;
type Grafptr is access Grafport;
type Rgbcolor is
record
Red : Mac_Types.Integer;
Green : Mac_Types.Integer;
Blue : Mac_Types.Integer;
end record;
subtype Windowptr is Grafptr;
type Varwindowptr is access Windowptr;
type Colorspec is
record
Value : Mac_Types.Integer;
Rgb : Rgbcolor;
end record;
type Colorspecptr is access Colorspec;
type Cspecarray is array (0 .. 0) of Colorspec;
type Colortable is
record
Ctseed : Longint;
Ctflags : Mac_Types.Integer;
Ctsize : Mac_Types.Integer;
Cttable : Cspecarray;
end record;
type Ctabptr is access Colortable;
type Ctabhandle is access Ctabptr;
type Matchrec is
record
Red : Mac_Types.Integer;
Green : Mac_Types.Integer;
Blue : Mac_Types.Integer;
Matchdata : Longint;
end record;
type Pixeltype is (Chunky, Chunkyplanar, Planar);
type Pixmap is
record
Baseaddr : Ptr;
Rowbytes : Mac_Types.Integer;
Bounds : Rect;
Pmversion : Mac_Types.Integer;
Packtype : Mac_Types.Integer;
Packsize : Longint;
Hres : Fixed;
Vres : Fixed;
Pixeltype : Mac_Types.Integer;
Pixelsize : Mac_Types.Integer;
Cmpcount : Mac_Types.Integer;
Cmpsize : Mac_Types.Integer;
Planebytes : Longint;
Pmtable : Ctabhandle;
Pmreserved : Longint;
end record;
type Pixmapptr is access Pixmap;
type Pixmaphandle is access Pixmapptr;
type Pixpat is
record
Pattype : Mac_Types.Integer;
Patmap : Pixmaphandle;
Patdata : Handle;
Patxdata : Handle;
Patxvalid : Mac_Types.Integer;
Patxmap : Handle;
Pat1data : Pattern;
end record;
type Pixpatptr is access Pixpat;
type Pixpathandle is access Pixpatptr;
type Ccrsr is
record
Crsrtype : Mac_Types.Integer;
Crsrmap : Pixmaphandle;
Crsrdata : Handle;
Crsrxdata : Handle;
Crsrxvalid : Mac_Types.Integer;
Crsrxhandle : Handle;
Crsr1data : Bits16;
Crsrmask : Bits16;
Crsrhotspot : Point;
Crsrxtable : Longint;
Crsrid : Longint;
end record;
type Ccrsrptr is access Ccrsr;
type Ccrsrhandle is access Ccrsrptr;
type Array0_0integer is array (0 .. 0) of Mac_Types.Integer;
type Cicon is
record
Iconpmap : Pixmap;
Iconmask : Bitmap;
Iconbmap : Bitmap;
Icondata : Handle;
Iconmaskdata : Array0_0integer;
end record;
type Ciconptr is access Cicon;
type Ciconhandle is access Ciconptr;
type Gammatbl is
record
Gversion : Mac_Types.Integer;
Gtype : Mac_Types.Integer;
Gformulasize : Mac_Types.Integer;
Gchancnt : Mac_Types.Integer;
Gdatacnt : Mac_Types.Integer;
Gdatawidth : Mac_Types.Integer;
Gformuladata : Array0_0integer;
end record;
type Gammatblptr is access Gammatbl;
type Gammatblhandle is access Gammatblptr;
type Array0_0signedbyte is array (0 .. 1) of Signedbyte;
type Itab is
record
Itabseed : Longint;
Itabres : Mac_Types.Integer;
Ittable : Array0_0signedbyte;
end record;
type Itabptr is access Itab;
type Itabhandle is access Itabptr;
type Sprocrec is
record
Nxtsrch : Handle;
Srchproc : Procptr;
end record;
type Sprocptr is access Sprocrec;
type Sprochndl is access Sprocptr;
type Cprocrec;
type Cprocptr is access Cprocrec;
type Cprochndl is access Cprocptr;
type Cprocrec is
record
Nxtcomp : Cprochndl;
Compproc : Procptr;
end record;
type Gdevice;
type Gdptr is access Gdevice;
type Gdhandle is access Gdptr;
type Gdevice is
record
Gdrefnum : Mac_Types.Integer;
Gdid : Mac_Types.Integer;
Gdtype : Mac_Types.Integer;
Gditable : Itabhandle;
Gdrespref : Mac_Types.Integer;
Gdsearchproc : Sprochndl;
Gdcompproc : Cprochndl;
Gdflags : Mac_Types.Integer;
Gdpmap : Pixmaphandle;
Gdrefcon : Longint;
Gdnextgd : Gdhandle;
Gdrect : Rect;
Gdmode : Longint;
Gdccbytes : Mac_Types.Integer;
Gdccdepth : Mac_Types.Integer;
Gdccxdata : Handle;
Gdccxmask : Handle;
Gdreserved : Longint;
end record;
type Grafvars is
record
Rgbopcolor : Rgbcolor;
Rgbhilitecolor : Rgbcolor;
Pmfgcolor : Handle;
Pmfgindex : Mac_Types.Integer;
Pmbkcolor : Handle;
Pmbkindex : Mac_Types.Integer;
Pmflags : Mac_Types.Integer;
end record;
type Gvarptr is access Grafvars;
type Gvarhandle is access Gvarptr;
type Cgrafport is
record
Device : Mac_Types.Integer;
Portpixmap : Pixmaphandle;
Portversion : Mac_Types.Integer;
Grafvars : Handle;
Chextra : Mac_Types.Integer;
Pnlochfrac : Mac_Types.Integer;
Portrect : Rect;
Visrgn : Rgnhandle;
Cliprgn : Rgnhandle;
Bkpixpat : Pixpathandle;
Rgbfgcolor : Rgbcolor;
Rgbbkcolor : Rgbcolor;
Pnloc : Point;
Pnsize : Point;
Pnmode : Mac_Types.Integer;
Pnpixpat : Pixpathandle;
Fillpixpat : Pixpathandle;
Pnvis : Mac_Types.Integer;
Txfont : Mac_Types.Integer;
Txface : Style;
Txmode : Mac_Types.Integer;
Txsize : Mac_Types.Integer;
Spextra : Fixed;
Fgcolor : Longint;
Bkcolor : Longint;
Colrbit : Mac_Types.Integer;
Patstretch : Mac_Types.Integer;
Picsave : Handle;
Rgnsave : Handle;
Polysave : Handle;
Grafprocs : Qdprocsptr;
end record;
type Cgrafptr is access Cgrafport;
type Cqdprocs is
record
Textproc : Ptr;
Lineproc : Ptr;
Rectproc : Ptr;
Rrectproc : Ptr;
Ovalproc : Ptr;
Arcproc : Ptr;
Polyproc : Ptr;
Rgnproc : Ptr;
Bitsproc : Ptr;
Commentproc : Ptr;
Txmeasproc : Ptr;
Getpicproc : Ptr;
Putpicproc : Ptr;
Opcodeproc : Ptr;
Newproc1 : Ptr;
Newproc2 : Ptr;
Newproc3 : Ptr;
Newproc4 : Ptr;
Newproc5 : Ptr;
Newproc6 : Ptr;
end record;
subtype Cwindowptr is Cgrafptr;
type Cqdprocsptr is access Cqdprocs;
type Reqlistrec is
record
Reqlsize : Mac_Types.Integer;
Reqldata : Array0_0integer;
end record;
type Array1_11integer is array (1 .. 11) of Mac_Types.Integer;
type Qdglobals is
record
-- QuickDraw private global variables
Fontdata : Array1_11integer;
Playindex : Longint;
Fontptr : Longint;
Fontadj : Fixed;
Patalign : Point;
Polymax : Mac_Types.Integer;
Thepoly : Polyhandle;
Qdspare0 : Mac_Types.Integer;
Playpic : Longint;
Rgnmax : Mac_Types.Integer;
Rgnindex : Mac_Types.Integer;
Rgnbuf : Ptr;
Widedata : Region;
Widemaster : Rgnptr;
Wideopen : Rgnhandle;
-- QuickDraw public global variables
Randseed : Longint;
Screenbits : Bitmap;
Arrow : Cursor;
Dkgray : Pattern;
Ltgray : Pattern;
Gray : Pattern;
Black : Pattern;
White : Pattern;
Theport : Grafptr;
end record;
Qd : Qdglobals;
procedure Initgraf (Globalptr : Ptr);
pragma Interface (Mpwpascal, Initgraf, "16#A86E#");
procedure Openport (Port : Grafptr);
pragma Interface (Mpwpascal, Openport, "16#A86F#");
procedure Initport (Port : Grafptr);
pragma Interface (Mpwpascal, Initport, "16#A86D#");
procedure Closeport (Port : Grafptr);
pragma Interface (Mpwpascal, Closeport, "16#A87D#");
procedure Setport (Port : Grafptr);
pragma Interface (Mpwpascal, Setport, "16#A873#");
procedure Getport (Port : in out Grafptr);
pragma Interface (Mpwpascal, Getport, "16#A874#");
procedure Grafdevice (Device : Mac_Types.Integer);
pragma Interface (Mpwpascal, Grafdevice, "16#A872#");
procedure Setportbits (Bm : Bitmap);
pragma Interface (Mpwpascal, Setportbits, "16#A875#");
procedure Portsize (Width : Mac_Types.Integer; Height : Mac_Types.Integer);
pragma Interface (Mpwpascal, Portsize, "16#A876#");
procedure Moveportto (Leftglobal : Mac_Types.Integer;
Topglobal : Mac_Types.Integer);
pragma Interface (Mpwpascal, Moveportto, "16#A877#");
procedure Setorigin (H : Mac_Types.Integer; V : Mac_Types.Integer);
pragma Interface (Mpwpascal, Setorigin, "16#A878#");
procedure Setclip (Rgn : Rgnhandle);
pragma Interface (Mpwpascal, Setclip, "16#A879#");
procedure Getclip (Rgn : Rgnhandle);
pragma Interface (Mpwpascal, Getclip, "16#A87A#");
procedure Cliprect (R : Rect);
pragma Interface (Mpwpascal, Cliprect, "16#A87B#");
procedure Backpat (Pat : Pattern);
pragma Interface (Mpwpascal, Backpat, "16#A87C#");
procedure Initcursor;
pragma Interface (Mpwpascal, Initcursor, "16#A850#");
procedure Setcursor (Crsr : Cursor);
pragma Interface (Mpwpascal, Setcursor, "16#A851#");
procedure Hidecursor;
pragma Interface (Mpwpascal, Hidecursor, "16#A852#");
procedure Showcursor;
pragma Interface (Mpwpascal, Showcursor, "16#A853#");
procedure Obscurecursor;
pragma Interface (Mpwpascal, Obscurecursor, "16#A856#");
procedure Hidepen;
pragma Interface (Mpwpascal, Hidepen, "16#A896#");
procedure Showpen;
pragma Interface (Mpwpascal, Showpen, "16#A897#");
procedure Getpen (Pt : in out Point);
pragma Interface (Mpwpascal, Getpen, "16#A89A#");
procedure Getpenstate (Pnstate : in out Penstate);
pragma Interface (Mpwpascal, Getpenstate, "16#A898#");
procedure Setpenstate (Pnstate : Penstate);
pragma Interface (Mpwpascal, Setpenstate, "16#A899#");
procedure Pensize (Width : Mac_Types.Integer; Height : Mac_Types.Integer);
pragma Interface (Mpwpascal, Pensize, "16#A89B#");
procedure Penmode (Mode : Mac_Types.Integer);
pragma Interface (Mpwpascal, Penmode, "16#A89C#");
procedure Penpat (Pat : Pattern);
pragma Interface (Mpwpascal, Penpat, "16#A89D#");
procedure Pennormal;
pragma Interface (Mpwpascal, Pennormal, "16#A89E#");
procedure Moveto (H : Mac_Types.Integer; V : Mac_Types.Integer);
pragma Interface (Mpwpascal, Moveto, "16#A893#");
procedure Move (Dh : Mac_Types.Integer; Dv : Mac_Types.Integer);
pragma Interface (Mpwpascal, Move, "16#A894#");
procedure Lineto (H : Mac_Types.Integer; V : Mac_Types.Integer);
pragma Interface (Mpwpascal, Lineto, "16#A891#");
procedure Line (Dh : Mac_Types.Integer; Dv : Mac_Types.Integer);
pragma Interface (Mpwpascal, Line, "16#A892#");
procedure Textfont (Font : Mac_Types.Integer);
pragma Interface (Mpwpascal, Textfont, "16#A887#");
procedure Textface (Face : Style);
pragma Interface (Mpwpascal, Textface, "16#A888#");
procedure Textmode (Mode : Mac_Types.Integer);
pragma Interface (Mpwpascal, Textmode, "16#A889#");
procedure Textsize (Size : Mac_Types.Integer);
pragma Interface (Mpwpascal, Textsize, "16#A88A#");
procedure Spaceextra (Extra : Fixed);
pragma Interface (Mpwpascal, Spaceextra, "16#A88E#");
procedure Drawchar (Ch : Charword);
pragma Interface (Mpwpascal, Drawchar, "16#A883#");
procedure Drawstring (S : Str255);
pragma Interface (Mpwpascal, Drawstring, "16#A884#");
procedure Drawtext (Textbuf : Ptr;
Firstbyte : Mac_Types.Integer;
Bytecount : Mac_Types.Integer);
pragma Interface (Mpwpascal, Drawtext, "16#A885#");
function Charwidth (Ch : Charword) return Mac_Types.Integer;
pragma Interface (Mpwpascal, Charwidth, "16#A88D#");
function Stringwidth (S : Str255) return Mac_Types.Integer;
pragma Interface (Mpwpascal, Stringwidth, "16#A88C#");
function Textwidth (Textbuf : Ptr;
Firstbyte : Mac_Types.Integer;
Bytecount : Mac_Types.Integer) return Mac_Types.Integer;
pragma Interface (Mpwpascal, Textwidth, "16#A886#");
procedure Measuretext
(Count : Mac_Types.Integer; Textaddr : Ptr; Charlocs : Ptr);
pragma Interface (Mpwpascal, Measuretext, "16#A837#");
procedure Getfontinfo (Info : in out Fontinfo);
pragma Interface (Mpwpascal, Getfontinfo, "16#A88B#");
procedure Forecolor (Color : Longint);
pragma Interface (Mpwpascal, Forecolor, "16#A862#");
procedure Backcolor (Color : Longint);
pragma Interface (Mpwpascal, Backcolor, "16#A863#");
procedure Colorbit (Whichbit : Mac_Types.Integer);
pragma Interface (Mpwpascal, Colorbit, "16#A864#");
procedure Setrect (R : in out Rect;
Left : Mac_Types.Integer;
Top : Mac_Types.Integer;
Right : Mac_Types.Integer;
Bottom : Mac_Types.Integer);
pragma Interface (Mpwpascal, Setrect, "16#A8A7#");
procedure Offsetrect (R : in out Rect;
Dh : Mac_Types.Integer;
Dv : Mac_Types.Integer);
pragma Interface (Mpwpascal, Offsetrect, "16#A8A8#");
procedure Insetrect (R : in out Rect;
Dh : Mac_Types.Integer;
Dv : Mac_Types.Integer);
pragma Interface (Mpwpascal, Insetrect, "16#A8A9#");
function Sectrect (Src1 : Rect; Src2 : Rect; Dstrect : Rect) return Boolean;
pragma Interface (Mpwpascal, Sectrect, "16#A8AA#");
procedure Unionrect (Src1 : Rect; Src2 : Rect; Dstrect : in out Rect);
pragma Interface (Mpwpascal, Unionrect, "16#A8AB#");
function Equalrect (Rect1 : Rect; Rect2 : Rect) return Boolean;
pragma Interface (Mpwpascal, Equalrect, "16#A8A6#");
function Emptyrect (R : Rect) return Boolean;
pragma Interface (Mpwpascal, Emptyrect, "16#A8AE#");
procedure Framerect (R : Rect);
pragma Interface (Mpwpascal, Framerect, "16#A8A1#");
procedure Paintrect (R : Rect);
pragma Interface (Mpwpascal, Paintrect, "16#A8A2#");
procedure Eraserect (R : Rect);
pragma Interface (Mpwpascal, Eraserect, "16#A8A3#");
procedure Invertrect (R : Rect);
pragma Interface (Mpwpascal, Invertrect, "16#A8A4#");
procedure Fillrect (R : Rect; Pat : Pattern);
pragma Interface (Mpwpascal, Fillrect, "16#A8A5#");
procedure Frameoval (R : Rect);
pragma Interface (Mpwpascal, Frameoval, "16#A8B7#");
procedure Paintoval (R : Rect);
pragma Interface (Mpwpascal, Paintoval, "16#A8B8#");
procedure Eraseoval (R : Rect);
pragma Interface (Mpwpascal, Eraseoval, "16#A8B9#");
procedure Invertoval (R : Rect);
pragma Interface (Mpwpascal, Invertoval, "16#A8BA#");
procedure Filloval (R : Rect; Pat : Pattern);
pragma Interface (Mpwpascal, Filloval, "16#A8BB#");
procedure Frameroundrect (R : Rect;
Ovalwidth : Mac_Types.Integer;
Ovalheight : Mac_Types.Integer);
pragma Interface (Mpwpascal, Frameroundrect, "16#A8B0#");
procedure Paintroundrect (R : Rect;
Ovalwidth : Mac_Types.Integer;
Ovalheight : Mac_Types.Integer);
pragma Interface (Mpwpascal, Paintroundrect, "16#A8B1#");
procedure Eraseroundrect (R : Rect;
Ovalwidth : Mac_Types.Integer;
Ovalheight : Mac_Types.Integer);
pragma Interface (Mpwpascal, Eraseroundrect, "16#A8B2#");
procedure Invertroundrect (R : Rect;
Ovalwidth : Mac_Types.Integer;
Ovalheight : Mac_Types.Integer);
pragma Interface (Mpwpascal, Invertroundrect, "16#A8B3#");
procedure Fillroundrect (R : Rect;
Ovalwidth : Mac_Types.Integer;
Ovalheight : Mac_Types.Integer;
Pat : Pattern);
pragma Interface (Mpwpascal, Fillroundrect, "16#A8B4#");
procedure Framearc (R : Rect;
Startangle : Mac_Types.Integer;
Arcangle : Mac_Types.Integer);
pragma Interface (Mpwpascal, Framearc, "16#A8BE#");
procedure Paintarc (R : Rect;
Startangle : Mac_Types.Integer;
Arcangle : Mac_Types.Integer);
pragma Interface (Mpwpascal, Paintarc, "16#A8BF#");
procedure Erasearc (R : Rect;
Startangle : Mac_Types.Integer;
Arcangle : Mac_Types.Integer);
pragma Interface (Mpwpascal, Erasearc, "16#A8C0#");
procedure Invertarc (R : Rect;
Startangle : Mac_Types.Integer;
Arcangle : Mac_Types.Integer);
pragma Interface (Mpwpascal, Invertarc, "16#A8C1#");
procedure Fillarc (R : Rect;
Startangle : Mac_Types.Integer;
Arcangle : Mac_Types.Integer;
Pat : Pattern);
pragma Interface (Mpwpascal, Fillarc, "16#A8C2#");
function Newrgn return Rgnhandle;
pragma Interface (Mpwpascal, Newrgn, "16#A8D8#");
procedure Openrgn;
pragma Interface (Mpwpascal, Openrgn, "16#A8DA#");
procedure Closergn (Dstrgn : Rgnhandle);
pragma Interface (Mpwpascal, Closergn, "16#A8DB#");
procedure Disposergn (Rgn : Rgnhandle);
pragma Interface (Mpwpascal, Disposergn, "16#A8D9#");
procedure Copyrgn (Srcrgn : Rgnhandle; Dstrgn : Rgnhandle);
pragma Interface (Mpwpascal, Copyrgn, "16#A8DC#");
procedure Setemptyrgn (Rgn : Rgnhandle);
pragma Interface (Mpwpascal, Setemptyrgn, "16#A8DD#");
procedure Setrectrgn (Rgn : Rgnhandle;
Left : Mac_Types.Integer;
Top : Mac_Types.Integer;
Right : Mac_Types.Integer;
Bottom : Mac_Types.Integer);
pragma Interface (Mpwpascal, Setrectrgn, "16#A8DE#");
procedure Rectrgn (Rgn : Rgnhandle; R : Rect);
pragma Interface (Mpwpascal, Rectrgn, "16#A8DF#");
procedure Offsetrgn (Rgn : Rgnhandle;
Dh : Mac_Types.Integer;
Dv : Mac_Types.Integer);
pragma Interface (Mpwpascal, Offsetrgn, "16#A8E0#");
procedure Insetrgn (Rgn : Rgnhandle;
Dh : Mac_Types.Integer;
Dv : Mac_Types.Integer);
pragma Interface (Mpwpascal, Insetrgn, "16#A8E1#");
procedure Sectrgn (Srcrgna : Rgnhandle;
Srcrgnb : Rgnhandle;
Dstrgn : Rgnhandle);
pragma Interface (Mpwpascal, Sectrgn, "16#A8E4#");
procedure Unionrgn (Srcrgna : Rgnhandle;
Srcrgnb : Rgnhandle;
Dstrgn : Rgnhandle);
pragma Interface (Mpwpascal, Unionrgn, "16#A8E5#");
procedure Diffrgn (Srcrgna : Rgnhandle;
Srcrgnb : Rgnhandle;
Dstrgn : Rgnhandle);
pragma Interface (Mpwpascal, Diffrgn, "16#A8E6#");
procedure Xorrgn (Srcrgna : Rgnhandle;
Srcrgnb : Rgnhandle;
Dstrgn : Rgnhandle);
pragma Interface (Mpwpascal, Xorrgn, "16#A8E7#");
function Rectinrgn (R : Rect; Rgn : Rgnhandle) return Boolean;
pragma Interface (Mpwpascal, Rectinrgn, "16#A8E9#");
function Equalrgn (Rgna : Rgnhandle; Rgnb : Rgnhandle) return Boolean;
pragma Interface (Mpwpascal, Equalrgn, "16#A8E3#");
function Emptyrgn (Rgn : Rgnhandle) return Boolean;
pragma Interface (Mpwpascal, Emptyrgn, "16#A8E2#");
procedure Framergn (Rgn : Rgnhandle);
pragma Interface (Mpwpascal, Framergn, "16#A8D2#");
procedure Paintrgn (Rgn : Rgnhandle);
pragma Interface (Mpwpascal, Paintrgn, "16#A8D3#");
procedure Erasergn (Rgn : Rgnhandle);
pragma Interface (Mpwpascal, Erasergn, "16#A8D4#");
procedure Invertrgn (Rgn : Rgnhandle);
pragma Interface (Mpwpascal, Invertrgn, "16#A8D5#");
procedure Fillrgn (Rgn : Rgnhandle; Pat : Pattern);
pragma Interface (Mpwpascal, Fillrgn, "16#A8D6#");
procedure Scrollrect (R : Rect;
Dh : Mac_Types.Integer;
Dv : Mac_Types.Integer;
Updatergn : Rgnhandle);
pragma Interface (Mpwpascal, Scrollrect, "16#A8EF#");
procedure Copybits (Srcbits : Bitmap;
Dstbits : Bitmap;
Srcrect : Rect;
Dstrect : Rect;
Mode : Mac_Types.Integer;
Maskrgn : Rgnhandle);
pragma Interface (Mpwpascal, Copybits, "16#A8EC#");
procedure Seedfill (Srcptr : Ptr;
Dstptr : Ptr;
Srcrow : Mac_Types.Integer;
Dstrow : Mac_Types.Integer;
Height : Mac_Types.Integer;
Words : Mac_Types.Integer;
Seedh : Mac_Types.Integer;
Seedv : Mac_Types.Integer);
pragma Interface (Mpwpascal, Seedfill, "16#A839#");
procedure Calcmask (Srcptr : Ptr;
Dstptr : Ptr;
Srcrow : Mac_Types.Integer;
Dstrow : Mac_Types.Integer;
Height : Mac_Types.Integer;
Words : Mac_Types.Integer);
pragma Interface (Mpwpascal, Calcmask, "16#A838#");
procedure Copymask (Srcbits : Bitmap;
Maskbits : Bitmap;
Dstbits : Bitmap;
Srcrect : Rect;
Maskrect : Rect;
Dstrect : Rect);
pragma Interface (Mpwpascal, Copymask, "16#A817#");
function Openpicture (Picframe : Rect) return Pichandle;
pragma Interface (Mpwpascal, Openpicture, "16#A8F3#");
procedure Piccomment (Kind : Mac_Types.Integer;
Datasize : Mac_Types.Integer;
Datahandle : Handle);
pragma Interface (Mpwpascal, Piccomment, "16#A8F2#");
procedure Closepicture;
pragma Interface (Mpwpascal, Closepicture, "16#A8F4#");
procedure Drawpicture (Mypicture : Pichandle; Dstrect : Rect);
pragma Interface (Mpwpascal, Drawpicture, "16#A8F6#");
procedure Killpicture (Mypicture : Pichandle);
pragma Interface (Mpwpascal, Killpicture, "16#A8F5#");
function Openpoly return Polyhandle;
pragma Interface (Mpwpascal, Openpoly, "16#A8CB#");
procedure Closepoly;
pragma Interface (Mpwpascal, Closepoly, "16#A8CC#");
procedure Killpoly (Poly : Polyhandle);
pragma Interface (Mpwpascal, Killpoly, "16#A8CD#");
procedure Offsetpoly (Poly : Polyhandle;
Dh : Mac_Types.Integer;
Dv : Mac_Types.Integer);
pragma Interface (Mpwpascal, Offsetpoly, "16#A8CE#");
procedure Framepoly (Poly : Polyhandle);
pragma Interface (Mpwpascal, Framepoly, "16#A8C6#");
procedure Paintpoly (Poly : Polyhandle);
pragma Interface (Mpwpascal, Paintpoly, "16#A8C7#");
procedure Erasepoly (Poly : Polyhandle);
pragma Interface (Mpwpascal, Erasepoly, "16#A8C8#");
procedure Invertpoly (Poly : Polyhandle);
pragma Interface (Mpwpascal, Invertpoly, "16#A8C9#");
procedure Fillpoly (Poly : Polyhandle; Pat : Pattern);
pragma Interface (Mpwpascal, Fillpoly, "16#A8CA#");
procedure Setpt (Pt : in out Point;
H : Mac_Types.Integer;
V : Mac_Types.Integer);
pragma Interface (Mpwpascal, Setpt, "16#A880#");
procedure Localtoglobal (Pt : in out Point);
pragma Interface (Mpwpascal, Localtoglobal, "16#A870#");
procedure Globaltolocal (Pt : in out Point);
pragma Interface (Mpwpascal, Globaltolocal, "16#A871#");
function Random return Mac_Types.Integer;
pragma Interface (Mpwpascal, Random, "16#A861#");
procedure Stuffhex (Thingptr : Ptr; S : Str255);
pragma Interface (Mpwpascal, Stuffhex, "16#A866#");
function Getpixel
(H : Mac_Types.Integer; V : Mac_Types.Integer) return Boolean;
pragma Interface (Mpwpascal, Getpixel, "16#A865#");
procedure Scalept (Pt : in out Point; Srcrect : Rect; Dstrect : Rect);
pragma Interface (Mpwpascal, Scalept, "16#A8F8#");
procedure Mappt (Pt : in out Point; Srcrect : Rect; Dstrect : Rect);
pragma Interface (Mpwpascal, Mappt, "16#A8F9#");
procedure Maprect (R : in out Rect; Srcrect : Rect; Dstrect : Rect);
pragma Interface (Mpwpascal, Maprect, "16#A8FA#");
procedure Maprgn (Rgn : Rgnhandle; Srcrect : Rect; Dstrect : Rect);
pragma Interface (Mpwpascal, Maprgn, "16#A8FB#");
procedure Mappoly (Poly : Polyhandle; Srcrect : Rect; Dstrect : Rect);
pragma Interface (Mpwpascal, Mappoly, "16#A8FC#");
procedure Setstdprocs (Procs : in out Qdprocs);
pragma Interface (Mpwpascal, Setstdprocs, "16#A8EA#");
procedure Stdrect (Verb : Grafverb; R : Rect);
pragma Interface (Mpwpascal, Stdrect, "16#A8A0#");
procedure Stdrrect (Verb : Grafverb;
R : Rect;
Ovalwidth : Mac_Types.Integer;
Ovalheight : Mac_Types.Integer);
pragma Interface (Mpwpascal, Stdrrect, "16#A8AF#");
procedure Stdoval (Verb : Grafverb; R : Rect);
pragma Interface (Mpwpascal, Stdoval, "16#A8B6#");
procedure Stdarc (Verb : Grafverb;
R : Rect;
Startangle : Mac_Types.Integer;
Arcangle : Mac_Types.Integer);
pragma Interface (Mpwpascal, Stdarc, "16#A8BD#");
procedure Stdpoly (Verb : Grafverb; Poly : Polyhandle);
pragma Interface (Mpwpascal, Stdpoly, "16#A8C5#");
procedure Stdrgn (Verb : Grafverb; Rgn : Rgnhandle);
pragma Interface (Mpwpascal, Stdrgn, "16#A8D1#");
procedure Stdbits (Srcbits : Bitmap;
Srcrect : Rect;
Dstrect : Rect;
Mode : Mac_Types.Integer;
Maskrgn : Rgnhandle);
pragma Interface (Mpwpascal, Stdbits, "16#A8EB#");
procedure Stdcomment (Kind : Mac_Types.Integer;
Datasize : Mac_Types.Integer;
Datahandle : Handle);
pragma Interface (Mpwpascal, Stdcomment, "16#A8F1#");
function Stdtxmeas (Bytecount : Mac_Types.Integer;
Textaddr : Ptr;
Numer : Varpoint;
Denom : Varpoint;
Info : Fontinfo) return Mac_Types.Integer;
pragma Interface (Mpwpascal, Stdtxmeas, "16#A8ED#");
procedure Stdgetpic (Dataptr : Ptr; Bytecount : Mac_Types.Integer);
pragma Interface (Mpwpascal, Stdgetpic, "16#A8EE#");
procedure Stdputpic (Dataptr : Ptr; Bytecount : Mac_Types.Integer);
pragma Interface (Mpwpascal, Stdputpic, "16#A8F0#");
procedure Addpt (Src : Point; Dst : in out Point);
pragma Interface (Mpwpascal, Addpt, "16#A87E#");
function Equalpt (Pt1 : Point; Pt2 : Point) return Boolean;
pragma Interface (Mpwpascal, Equalpt, "16#A881#");
function Ptinrect (Pt : Point; R : Rect) return Boolean;
pragma Interface (Mpwpascal, Ptinrect, "16#A8AD#");
procedure Pt2rect (Pt1 : Point; Pt2 : Point; Dstrect : in out Rect);
pragma Interface (Mpwpascal, Pt2rect, "16#A8AC#");
procedure Pttoangle
(R : Rect; Pt : Point; Angle : in out Mac_Types.Integer);
pragma Interface (Mpwpascal, Pttoangle, "16#A8C3#");
function Ptinrgn (Pt : Point; Rgn : Rgnhandle) return Boolean;
pragma Interface (Mpwpascal, Ptinrgn, "16#A8E8#");
procedure Stdtext (Count : Mac_Types.Integer;
Textaddr : Ptr;
Numer : Point;
Denom : Point);
pragma Interface (Mpwpascal, Stdtext, "16#A882#");
procedure Stdline (Newpt : Point);
pragma Interface (Mpwpascal, Stdline, "16#A890#");
procedure Opencport (Port : Cgrafptr);
pragma Interface (Mpwpascal, Opencport, "16#AA00#");
procedure Initcport (Port : Cgrafptr);
pragma Interface (Mpwpascal, Initcport, "16#AA01#");
procedure Closecport (Port : Cgrafptr);
pragma Interface (Mpwpascal, Closecport, "16#A87D#");
function Newpixmap return Pixmaphandle;
pragma Interface (Mpwpascal, Newpixmap, "16#AA03#");
procedure Dispospixmap (Pm : Pixmaphandle);
pragma Interface (Mpwpascal, Dispospixmap, "16#AA04#");
procedure Copypixmap (Srcpm : Pixmaphandle; Dstpm : Pixmaphandle);
pragma Interface (Mpwpascal, Copypixmap, "16#AA05#");
function Newpixpat return Pixpathandle;
pragma Interface (Mpwpascal, Newpixpat, "16#AA07#");
procedure Dispospixpat (Pp : Pixpathandle);
pragma Interface (Mpwpascal, Dispospixpat, "16#AA08#");
procedure Copypixpat (Srcpp : Pixpathandle; Dstpp : Pixpathandle);
pragma Interface (Mpwpascal, Copypixpat, "16#AA09#");
procedure Penpixpat (Pp : Pixpathandle);
pragma Interface (Mpwpascal, Penpixpat, "16#AA0A#");
procedure Backpixpat (Pp : Pixpathandle);
pragma Interface (Mpwpascal, Backpixpat, "16#AA0B#");
function Getpixpat (Patid : Mac_Types.Integer) return Pixpathandle;
pragma Interface (Mpwpascal, Getpixpat, "16#AA0C#");
procedure Makergbpat (Pp : Pixpathandle; Mycolor : Rgbcolor);
pragma Interface (Mpwpascal, Makergbpat, "16#AA0D#");
procedure Fillcrect (R : Rect; Pp : Pixpathandle);
pragma Interface (Mpwpascal, Fillcrect, "16#AA0E#");
procedure Fillcoval (R : Rect; Pp : Pixpathandle);
pragma Interface (Mpwpascal, Fillcoval, "16#AA0F#");
procedure Fillcroundrect (R : Rect;
Ovalwidth : Mac_Types.Integer;
Ovalheight : Mac_Types.Integer;
Pp : Pixpathandle);
pragma Interface (Mpwpascal, Fillcroundrect, "16#AA10#");
procedure Fillcarc (R : Rect;
Startangle : Mac_Types.Integer;
Arcangle : Mac_Types.Integer;
Pp : Pixpathandle);
pragma Interface (Mpwpascal, Fillcarc, "16#AA11#");
procedure Fillcrgn (Rgn : Rgnhandle; Pp : Pixpathandle);
pragma Interface (Mpwpascal, Fillcrgn, "16#AA12#");
procedure Fillcpoly (Poly : Polyhandle; Pp : Pixpathandle);
pragma Interface (Mpwpascal, Fillcpoly, "16#AA13#");
procedure Rgbforecolor (Color : Rgbcolor);
pragma Interface (Mpwpascal, Rgbforecolor, "16#AA14#");
procedure Rgbbackcolor (Color : Rgbcolor);
pragma Interface (Mpwpascal, Rgbbackcolor, "16#AA15#");
procedure Setcpixel (H : Mac_Types.Integer;
V : Mac_Types.Integer;
Cpix : Rgbcolor);
pragma Interface (Mpwpascal, Setcpixel, "16#AA16#");
procedure Setportpix (Pm : Pixmaphandle);
pragma Interface (Mpwpascal, Setportpix, "16#AA06#");
procedure Getcpixel (H : Mac_Types.Integer;
V : Mac_Types.Integer;
Cpix : in out Rgbcolor);
pragma Interface (Mpwpascal, Getcpixel, "16#AA17#");
procedure Getforecolor (Color : in out Rgbcolor);
pragma Interface (Mpwpascal, Getforecolor, "16#AA19#");
procedure Getbackcolor (Color : in out Rgbcolor);
pragma Interface (Mpwpascal, Getbackcolor, "16#AA1A#");
procedure Seedcfill (Srcbits : Bitmap;
Dstbits : Bitmap;
Srcrect : Rect;
Dstrect : Rect;
Seedh : Mac_Types.Integer;
Seedv : Mac_Types.Integer;
Matchproc : Procptr;
Matchdata : Longint);
pragma Interface (Mpwpascal, Seedcfill, "16#AA50#");
procedure Calccmask (Srcbits : Bitmap;
Dstbits : Bitmap;
Srcrect : Rect;
Dstrect : Rect;
Seedrgb : Rgbcolor;
Matchproc : Procptr;
Matchdata : Longint);
pragma Interface (Mpwpascal, Calccmask, "16#AA4F#");
procedure Opcolor (Color : Rgbcolor);
pragma Interface (Mpwpascal, Opcolor, "16#AA21#");
procedure Hilitecolor (Color : Rgbcolor);
pragma Interface (Mpwpascal, Hilitecolor, "16#AA22#");
procedure Disposctable (Ctable : Ctabhandle);
pragma Interface (Mpwpascal, Disposctable, "16#AA24#");
function Getctable (Ctid : Mac_Types.Integer) return Ctabhandle;
pragma Interface (Mpwpascal, Getctable, "16#AA18#");
function Getccursor (Crsrid : Mac_Types.Integer) return Ccrsrhandle;
pragma Interface (Mpwpascal, Getccursor, "16#AA1B#");
procedure Setccursor (Ccrsr : Ccrsrhandle);
pragma Interface (Mpwpascal, Setccursor, "16#AA1C#");
procedure Alloccursor;
pragma Interface (Mpwpascal, Alloccursor, "16#AA1D#");
procedure Disposccursor (Ccrsr : Ccrsrhandle);
pragma Interface (Mpwpascal, Disposccursor, "16#AA26#");
function Getcicon (Iconid : Mac_Types.Integer) return Ciconhandle;
pragma Interface (Mpwpascal, Getcicon, "16#AA1E#");
procedure Plotcicon (Therect : Rect; Theicon : Ciconhandle);
pragma Interface (Mpwpascal, Plotcicon, "16#AA1F#");
procedure Disposcicon (Theicon : Ciconhandle);
pragma Interface (Mpwpascal, Disposcicon, "16#AA25#");
procedure Setstdcprocs (Procs : in out Cqdprocs);
pragma Interface (Mpwpascal, Setstdcprocs, "16#AA4E#");
procedure Charextra (Extra : Fixed);
pragma Interface (Mpwpascal, Charextra, "16#AA23#");
function Getmaxdevice (Globalrect : Rect) return Gdhandle;
pragma Interface (Mpwpascal, Getmaxdevice, "16#AA27#");
function Getctseed return Longint;
pragma Interface (Mpwpascal, Getctseed, "16#AA28#");
function Getdevicelist return Gdhandle;
pragma Interface (Mpwpascal, Getdevicelist, "16#AA29#");
function Getmaindevice return Gdhandle;
pragma Interface (Mpwpascal, Getmaindevice, "16#AA2A#");
function Getnextdevice (Curdevice : Gdhandle) return Gdhandle;
pragma Interface (Mpwpascal, Getnextdevice, "16#AA2B#");
function Testdeviceattribute
(Gdh : Gdhandle; Attribute : Mac_Types.Integer) return Boolean;
pragma Interface (Mpwpascal, Testdeviceattribute, "16#AA2C#");
procedure Setdeviceattribute (Gdh : Gdhandle;
Attribute : Mac_Types.Integer;
Value : Boolean);
pragma Interface (Mpwpascal, Setdeviceattribute, "16#AA2D#");
procedure Initgdevice
(Qdrefnum : Mac_Types.Integer; Mode : Longint; Gdh : Gdhandle);
pragma Interface (Mpwpascal, Initgdevice, "16#AA2E#");
function Newgdevice
(Refnum : Mac_Types.Integer; Mode : Longint) return Gdhandle;
pragma Interface (Mpwpascal, Newgdevice, "16#AA2F#");
procedure Disposgdevice (Gdh : Gdhandle);
pragma Interface (Mpwpascal, Disposgdevice, "16#AA30#");
procedure Setgdevice (Gd : Gdhandle);
pragma Interface (Mpwpascal, Setgdevice, "16#AA31#");
function Getgdevice return Gdhandle;
pragma Interface (Mpwpascal, Getgdevice, "16#AA32#");
function Color2index (Mycolor : Rgbcolor) return Longint;
pragma Interface (Mpwpascal, Color2index, "16#AA33#");
procedure Index2color (Index : Longint; Acolor : in out Rgbcolor);
pragma Interface (Mpwpascal, Index2color, "16#AA34#");
procedure Invertcolor (Mycolor : in out Rgbcolor);
pragma Interface (Mpwpascal, Invertcolor, "16#AA35#");
function Realcolor (Color : Rgbcolor) return Boolean;
pragma Interface (Mpwpascal, Realcolor, "16#AA36#");
procedure Getsubtable (Mycolors : Ctabhandle;
Itabres : Mac_Types.Integer;
Targettbl : Ctabhandle);
pragma Interface (Mpwpascal, Getsubtable, "16#AA37#");
procedure Makeitable (Ctabh : Ctabhandle;
Itabh : Itabhandle;
Res : Mac_Types.Integer);
pragma Interface (Mpwpascal, Makeitable, "16#AA39#");
procedure Addsearch (Searchproc : Procptr);
pragma Interface (Mpwpascal, Addsearch, "16#AA3A#");
procedure Addcomp (Compproc : Procptr);
pragma Interface (Mpwpascal, Addcomp, "16#AA3B#");
procedure Delsearch (Searchproc : Procptr);
pragma Interface (Mpwpascal, Delsearch, "16#AA4C#");
procedure Delcomp (Compproc : Procptr);
pragma Interface (Mpwpascal, Delcomp, "16#AA4D#");
procedure Subpt (Src : Point; Dst : in out Point);
pragma Interface (Mpwpascal, Subpt, "16#A87F#");
procedure Setclientid (Id : Mac_Types.Integer);
pragma Interface (Mpwpascal, Setclientid, "16#AA3C#");
procedure Protectentry (Index : Mac_Types.Integer; Protect : Boolean);
pragma Interface (Mpwpascal, Protectentry, "16#AA3D#");
procedure Reserveentry (Index : Mac_Types.Integer; Reserve : Boolean);
pragma Interface (Mpwpascal, Reserveentry, "16#AA3E#");
procedure Setentries (Start : Mac_Types.Integer;
Count : Mac_Types.Integer;
Atable : Cspecarray);
pragma Interface (Mpwpascal, Setentries, "16#AA3F#");
procedure Saveentries (Srctable : Ctabhandle;
Resulttable : Ctabhandle;
Selection : in out Reqlistrec);
pragma Interface (Mpwpascal, Saveentries, "16#AA49#");
procedure Restoreentries (Srctable : Ctabhandle;
Dsttable : Ctabhandle;
Selection : in out Reqlistrec);
pragma Interface (Mpwpascal, Restoreentries, "16#AA4A#");
function Qderror return Mac_Types.Integer;
pragma Interface (Mpwpascal, Qderror, "16#AA40#");
function Getmasktable return Ptr;
pragma Interface (Mpwpascal, Getmasktable, "GETMASKTABLE");
function Bitmaprgn (Region : Rgnhandle; Bmap : Bitmap) return Oserr;
pragma Interface (Mpwpascal, Bitmaprgn, "16#A8D7#");
generic
with function Routine
(Rgb : Rgbcolor; Position : Varlongint) return Boolean;
procedure Usersearchroutine;
generic
with procedure Routine (Rgb : Rgbcolor);
procedure Usercomproutine;
end Quickdraw;
nblk1=30
nid=14
hdr6=5e
[0x00] rec0=22 rec1=00 rec2=01 rec3=024
[0x01] rec0=1e rec1=00 rec2=02 rec3=028
[0x02] rec0=22 rec1=00 rec2=03 rec3=006
[0x03] rec0=26 rec1=00 rec2=04 rec3=002
[0x04] rec0=22 rec1=00 rec2=05 rec3=03e
[0x05] rec0=20 rec1=00 rec2=06 rec3=01e
[0x06] rec0=22 rec1=00 rec2=07 rec3=00e
[0x07] rec0=1e rec1=00 rec2=08 rec3=052
[0x08] rec0=1f rec1=00 rec2=09 rec3=00e
[0x09] rec0=22 rec1=00 rec2=0a rec3=044
[0x0a] rec0=1e rec1=00 rec2=0b rec3=040
[0x0b] rec0=1d rec1=00 rec2=0c rec3=01c
[0x0c] rec0=21 rec1=00 rec2=0d rec3=018
[0x0d] rec0=1e rec1=00 rec2=0e rec3=042
[0x0e] rec0=20 rec1=00 rec2=0f rec3=000
[0x0f] rec0=1a rec1=00 rec2=10 rec3=030
[0x10] rec0=1f rec1=00 rec2=11 rec3=02a
[0x11] rec0=1a rec1=00 rec2=12 rec3=022
[0x12] rec0=1a rec1=00 rec2=13 rec3=076
[0x13] rec0=19 rec1=00 rec2=30 rec3=01a
[0x14] rec0=17 rec1=00 rec2=15 rec3=022
[0x15] rec0=1d rec1=00 rec2=16 rec3=016
[0x16] rec0=18 rec1=00 rec2=17 rec3=004
[0x17] rec0=16 rec1=00 rec2=18 rec3=04e
[0x18] rec0=1b rec1=00 rec2=19 rec3=01e
[0x19] rec0=18 rec1=00 rec2=1a rec3=004
[0x1a] rec0=19 rec1=00 rec2=1b rec3=046
[0x1b] rec0=1a rec1=00 rec2=1c rec3=000
[0x1c] rec0=17 rec1=00 rec2=1d rec3=042
[0x1d] rec0=18 rec1=00 rec2=1e rec3=056
[0x1e] rec0=1c rec1=00 rec2=1f rec3=04a
[0x1f] rec0=1b rec1=00 rec2=20 rec3=00a
[0x20] rec0=17 rec1=00 rec2=21 rec3=04a
[0x21] rec0=18 rec1=00 rec2=22 rec3=06c
[0x22] rec0=18 rec1=00 rec2=23 rec3=024
[0x23] rec0=19 rec1=00 rec2=24 rec3=054
[0x24] rec0=1b rec1=00 rec2=25 rec3=020
[0x25] rec0=18 rec1=00 rec2=26 rec3=03e
[0x26] rec0=19 rec1=00 rec2=27 rec3=03a
[0x27] rec0=18 rec1=00 rec2=28 rec3=01c
[0x28] rec0=19 rec1=00 rec2=29 rec3=048
[0x29] rec0=1a rec1=00 rec2=2a rec3=03e
[0x2a] rec0=17 rec1=00 rec2=2b rec3=06e
[0x2b] rec0=19 rec1=00 rec2=2c rec3=054
[0x2c] rec0=1b rec1=00 rec2=2d rec3=002
[0x2d] rec0=15 rec1=00 rec2=2e rec3=04c
[0x2e] rec0=15 rec1=00 rec2=2f rec3=000
[0x2f] rec0=00 rec1=00 rec2=00 rec3=000
tail 0x2171dcca483906e203ffa 0x42a00088462060003
Free Block Chain:
0x14: 0000 00 00 03 fc 80 05 65 67 65 72 3b 05 00 04 20 20 ┆ eger; ┆