|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ T V ┃
Length: 6749 (0x1a5d)
Types: TextFile
Names: »V«
└─⟦149519bd4⟧ Bits:30000546 8mm tape, Rational 1000, !projects 93-07-13
└─ ⟦124ff5788⟧ »DATA«
└─⟦this⟧
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─ ⟦129cab021⟧ »DATA«
└─⟦this⟧
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
└─ ⟦6f12a12be⟧ »DATA«
└─⟦this⟧
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
└─ ⟦d65440be7⟧ »DATA«
└─⟦this⟧
-- Copyright (c) 1990 Meridian Software Systems, Inc. --
with Mac_Types;
use Mac_Types;
with Quickdraw;
package Fonts is
Systemfont : constant := 0;
Applfont : constant := 1;
Newyork : constant := 2;
Geneva : constant := 3;
Monaco : constant := 4;
Venice : constant := 5;
London : constant := 6;
Athens : constant := 7;
Sanfran : constant := 8;
Toronto : constant := 9;
Cairo : constant := 11;
Losangeles : constant := 12;
Times : constant := 20;
Helvetica : constant := 21;
Courier : constant := 22;
Symbol : constant := 23;
Mobile : constant := 24;
Commandmark : constant := 17;
Checkmark : constant := 18;
Diamondmark : constant := 19;
Applemark : constant := 20;
Propfont : constant := 36864;
Prpfnth : constant := 36865;
Prpfntw : constant := 36866;
Prpfnthw : constant := 36867;
Fixedfont : constant := 45056;
Fxdfnth : constant := 45057;
Fxdfntw : constant := 45058;
Fxdfnthw : constant := 45059;
Fontwid : constant := 44208;
type Fminput is
record
Family : Mac_Types.Integer;
Size : Mac_Types.Integer;
Face : Quickdraw.Style;
Needbits : Boolean;
Device : Mac_Types.Integer;
Numer : Point;
Denom : Point;
end record;
type Fmoutput is
record
Errnum : Mac_Types.Integer;
Fonthandle : Handle;
Bold : Byte;
Italic : Byte;
Uloffset : Byte;
Ulshadow : Byte;
Ulthick : Byte;
Shadow : Byte;
Extra : Signedbyte;
Ascent : Byte;
Descent : Byte;
Widmax : Byte;
Leading : Signedbyte;
Unused : Byte;
Numer : Point;
Denom : Point;
end record;
type Fmoutptr is access Fmoutput;
type Fontrec is
record
Fonttype : Mac_Types.Integer;
Firstchar : Mac_Types.Integer;
Lastchar : Mac_Types.Integer;
Widmax : Mac_Types.Integer;
Kernmax : Mac_Types.Integer;
Ndescent : Mac_Types.Integer;
Frectwidth : Mac_Types.Integer;
Frectheight : Mac_Types.Integer;
Owtloc : Mac_Types.Integer;
Ascent : Mac_Types.Integer;
Descent : Mac_Types.Integer;
Leading : Mac_Types.Integer;
Rowwords : Mac_Types.Integer;
end record;
type Fmetricrec is
record
Ascent : Fixed;
Descent : Fixed;
Leading : Fixed;
Widmax : Fixed;
Wtabhandle : Handle;
end record;
type Widentry is
record
Widstyle : Mac_Types.Integer;
end record;
type Widtable is
record
Numwidths : Mac_Types.Integer;
end record;
type Asscentry is
record
Fontsize : Mac_Types.Integer;
Fontstyle : Mac_Types.Integer;
Fontid : Mac_Types.Integer;
end record;
type Fontassoc is
record
Numassoc : Mac_Types.Integer;
end record;
type Array0_47signedbyte is array (0 .. 47) of Signedbyte;
type Styletable is
record
Fontclass : Mac_Types.Integer;
Offset : Longint;
Reserved : Longint;
Indexes : Array0_47signedbyte;
end record;
type Nametable is
record
Stringcount : Mac_Types.Integer;
Basefontname : Str255;
end record;
type Kernpair is
record
Kernfirst : Char;
Kernsecond : Char;
Kernwidth : Mac_Types.Integer;
end record;
type Kernentry is
record
Kernlength : Mac_Types.Integer;
Kernstyle : Mac_Types.Integer;
end record;
type Kerntable is
record
Numkerns : Mac_Types.Integer;
end record;
type Array0_256fixed is array (1 .. 256) of Fixed;
type Widthtable is
record
Tabdata : Array0_256fixed;
Tabfont : Handle;
Sextra : Longint;
Style : Longint;
Fid : Mac_Types.Integer;
Fsize : Mac_Types.Integer;
Face : Mac_Types.Integer;
Device : Mac_Types.Integer;
Innumer : Point;
Indenom : Point;
Afid : Mac_Types.Integer;
Fhand : Handle;
Usedfam : Boolean;
Aface : Byte;
Voutput : Mac_Types.Integer;
Houtput : Mac_Types.Integer;
Vfactor : Mac_Types.Integer;
Hfactor : Mac_Types.Integer;
Asize : Mac_Types.Integer;
Tabsize : Mac_Types.Integer;
end record;
type Array1_9integer is array (1 .. 9) of Mac_Types.Integer;
type Array1_2integer is array (1 .. 2) of Mac_Types.Integer;
type Famrec is
record
Ffflags : Mac_Types.Integer;
Fffamid : Mac_Types.Integer;
Fffirstchar : Mac_Types.Integer;
Fflastchar : Mac_Types.Integer;
Ffascent : Mac_Types.Integer;
Ffdescent : Mac_Types.Integer;
Ffleading : Mac_Types.Integer;
Ffwidmax : Mac_Types.Integer;
Ffwtaboff : Longint;
Ffkernoff : Longint;
Ffstyloff : Longint;
Ffproperty : Array1_9integer;
Ffintl : Array1_2integer;
Ffversion : Mac_Types.Integer;
end record;
procedure Initfonts;
pragma Interface (Mpwpascal, Initfonts, "16#A8FE#");
procedure Getfontname (Familyid : Mac_Types.Integer;
Thename : in out Str255);
pragma Interface (Mpwpascal, Getfontname, "16#A8FF#");
procedure Getfnum (Thename : Str255; Familyid : in out Mac_Types.Integer);
pragma Interface (Mpwpascal, Getfnum, "16#A900#");
function Realfont (Fontnum : Mac_Types.Integer; Size : Mac_Types.Integer)
return Boolean;
pragma Interface (Mpwpascal, Realfont, "16#A902#");
procedure Setfontlock (Lockflag : Boolean);
pragma Interface (Mpwpascal, Setfontlock, "16#A903#");
function Fmswapfont (Inrec : Fminput) return Fmoutptr;
pragma Interface (Mpwpascal, Fmswapfont, "16#A901#");
procedure Setfscaledisable (Fscaledisable : Boolean);
pragma Interface (Mpwpascal, Setfscaledisable, "16#A834#");
procedure Fontmetrics (Themetrics : Fmetricrec);
pragma Interface (Mpwpascal, Fontmetrics, "16#A835#");
procedure Setfractenable (Fractenable : Boolean);
pragma Interface (Mpwpascal, Setfractenable, "SETFRACTENABLE");
end Fonts;