|
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: 7168 (0x1c00) Types: Ada Source Notes: 03_class, FILE, R1k_Segment, e3_tag, package Palettes, seg_021fd7
└─⟦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; with Quickdraw; package Palettes is Pmcourteous : constant := 0; Pmtolerant : constant := 2; Pmanimated : constant := 4; Pmexplicit : constant := 8; Pmnoupdates : constant := 16#8000#; Pmbkupdates : constant := 16#A000#; Pmfgupdates : constant := 16#C000#; Pmallupdates : constant := 16#E000#; type Array0_2integer is array (0 .. 2) of Mac_Types.Integer; type Colorinfo is record Cirgb : Quickdraw.Rgbcolor; Ciusage : Mac_Types.Integer; Citolerance : Mac_Types.Integer; Cidatafields : Array0_2integer; end record; type Array0_6integer is array (0 .. 6) of Mac_Types.Integer; type Array0_0colorinfo is array (0 .. 0) of Colorinfo; type Palette is record Pmentries : Mac_Types.Integer; Pmdatafields : Array0_6integer; Pminfo : Array0_0colorinfo; end record; type Paletteptr is access Palette; type Palettehandle is access Paletteptr; procedure Initpalettes; pragma Interface (Mpwpascal, Initpalettes, "16#AA90#"); function Newpalette (Entries : Mac_Types.Integer; Srccolors : Quickdraw.Ctabhandle; Srcusage : Mac_Types.Integer; Srctolerance : Mac_Types.Integer) return Palettehandle; pragma Interface (Mpwpascal, Newpalette, "16#AA91#"); function Getnewpalette (Paletteid : Mac_Types.Integer) return Palettehandle; pragma Interface (Mpwpascal, Getnewpalette, "16#AA92#"); procedure Disposepalette (Srcpalette : Palettehandle); pragma Interface (Mpwpascal, Disposepalette, "16#AA93#"); procedure Activatepalette (Srcwindow : Quickdraw.Windowptr); pragma Interface (Mpwpascal, Activatepalette, "16#AA94#"); procedure Setpalette (Dstwindow : Quickdraw.Windowptr; Srcpalette : Palettehandle; Cupdates : Boolean); pragma Interface (Mpwpascal, Setpalette, "16#AA95#"); procedure Nsetpalette (Dstwindow : Quickdraw.Windowptr; Srcpalette : Palettehandle; Ncupdates : Mac_Types.Integer); pragma Interface (Mpwpascal, Nsetpalette, "16#AA95#"); function Getpalette (Srcwindow : Quickdraw.Windowptr) return Palettehandle; pragma Interface (Mpwpascal, Getpalette, "16#AA96#"); procedure Copypalette (Srcpalette : Palettehandle; Dstpalette : Palettehandle; Srcentry : Mac_Types.Integer; Dstentry : Mac_Types.Integer; Dstlength : Mac_Types.Integer); pragma Interface (Mpwpascal, Copypalette, "16#AAA1#"); procedure Pmforecolor (Dstentry : Mac_Types.Integer); pragma Interface (Mpwpascal, Pmforecolor, "16#AA97#"); procedure Pmbackcolor (Dstentry : Mac_Types.Integer); pragma Interface (Mpwpascal, Pmbackcolor, "16#AA98#"); procedure Animateentry (Dstwindow : Quickdraw.Windowptr; Dstentry : Mac_Types.Integer; Srcrgb : Quickdraw.Rgbcolor); pragma Interface (Mpwpascal, Animateentry, "16#AA99#"); procedure Animatepalette (Dstwindow : Quickdraw.Windowptr; Srcctab : Quickdraw.Ctabhandle; Srcindex : Mac_Types.Integer; Dstentry : Mac_Types.Integer; Dstlength : Mac_Types.Integer); pragma Interface (Mpwpascal, Animatepalette, "16#AA9A#"); procedure Getentrycolor (Srcpalette : Palettehandle; Srcentry : Mac_Types.Integer; Dstrgb : in out Quickdraw.Rgbcolor); pragma Interface (Mpwpascal, Getentrycolor, "16#AA9B#"); procedure Setentrycolor (Dstpalette : Palettehandle; Dstentry : Mac_Types.Integer; Srcrgb : Quickdraw.Rgbcolor); pragma Interface (Mpwpascal, Setentrycolor, "16#AA9C#"); procedure Getentryusage (Srcpalette : Palettehandle; Srcentry : Mac_Types.Integer; Dstusage : in out Mac_Types.Integer; Dsttolerance : in out Mac_Types.Integer); pragma Interface (Mpwpascal, Getentryusage, "16#AA9D#"); procedure Setentryusage (Dstpalette : Palettehandle; Dstentry : Mac_Types.Integer; Srcusage : Mac_Types.Integer; Srctolerance : Mac_Types.Integer); pragma Interface (Mpwpascal, Setentryusage, "16#AA9E#"); procedure Ctab2palette (Srcctab : Quickdraw.Ctabhandle; Dstpalette : Palettehandle; Srcusage : Mac_Types.Integer; Srctolerance : Mac_Types.Integer); pragma Interface (Mpwpascal, Ctab2palette, "16#AA9F#"); procedure Palette2ctab (Srcpalette : Palettehandle; Dstctab : Quickdraw.Ctabhandle); pragma Interface (Mpwpascal, Palette2ctab, "16#AAA0#"); end Palettes;
nblk1=6 nid=0 hdr6=c [0x00] rec0=1f rec1=00 rec2=01 rec3=046 [0x01] rec0=18 rec1=00 rec2=02 rec3=030 [0x02] rec0=15 rec1=00 rec2=03 rec3=00c [0x03] rec0=14 rec1=00 rec2=04 rec3=01e [0x04] rec0=14 rec1=00 rec2=05 rec3=022 [0x05] rec0=0a rec1=00 rec2=06 rec3=000 tail 0x2171dcc3683906e0d4160 0x42a00088462060003