home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
17 Bit Software 1: Collection A
/
17Bit_Collection_A.iso
/
files
/
1065.dms
/
1065.adf
/
Cross
/
txt
/
CrossFont.mod
< prev
next >
Wrap
Text File
|
1987-06-04
|
2KB
|
73 lines
IMPLEMENTATION MODULE CrossFont;
(* exclusive available font - generated with M2Amiga Report FontConverter *)
FROM SYSTEM IMPORT CAST, INLINE, ADR;
FROM Exec IMPORT UByte;
FROM Graphics IMPORT TextFontPtr, TextFont, FontFlagSet, FontStyleSet;
VAR font: TextFont;
PROCEDURE Data; (* $E- *)
BEGIN
INLINE(
000F3H,0E3CFH,09FBFH,03ECCH,0F3F6H,06C10H,0B33CH,0F8F3H,
0E3EFH,0D9B3H,066CDH,09BF0H,00000H,0019BH,0366CH,0D830H,
060CCH,06036H,0CC19H,0BB66H,0CD9BH,03603H,019B3H,06679H,
09860H,00000H,039FBH,0E60CH,0DF3EH,06EFCH,06037H,08C1FH,
0BF66H,0F99BH,0E3C3H,019B3H,07E30H,0F0C0H,00000H,0019BH,
0366CH,0D830H,066CCH,06336H,0CC19H,0B766H,0C1BBH,06063H,
0199EH,06678H,06180H,00000H,0019BH,0E3CFH,09FB0H,03ECCH,
0F1E6H,06FD9H,0B33CH,0C0FBH,037C3H,00F0CH,042CCH,063F0H,
00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H,
00000H,00000H,00000H,00000H,00000H,00000H);
END Data;
PROCEDURE Loc; (* $E- *)
BEGIN
INLINE(
00000H,00007H,00007H,00007H,0000EH,00007H,00015H,00007H,
0001CH,00007H,00023H,00007H,0002AH,00007H,00031H,00007H,
00038H,00007H,0003FH,00007H,00046H,00007H,0004DH,00007H,
00054H,00007H,0005BH,00007H,00062H,00007H,00069H,00007H,
00070H,00007H,00077H,00007H,0007EH,00007H,00085H,00007H,
0008CH,00007H,00093H,00007H,0009AH,00007H,000A1H,00007H,
000A8H,00007H,000AFH,00007H,000B6H,00007H,000BDH,00007H,
000BDH,00007H,000BDH,00007H,000BDH,00007H);
END Loc;
PROCEDURE CreateFont(): TextFontPtr;
(* $V- $F- $R- *)
BEGIN
WITH font DO
ySize := 00006H;
xSize := 00007H;
baseline := 00006H;
boldSmear := 00001H;
accessors := 00001H;
modulo := 0001AH;
loChar := CHR(00040H);
hiChar := CHR(0005FH);
style := CAST(FontStyleSet,UByte(00000H));
flags := CAST(FontFlagSet,UByte(00042H));
charData := ADR(Data);
charLoc := ADR(Loc);
charSpace := NIL;
charKern := NIL;
END;
RETURN ADR(font);
END CreateFont;
END CrossFont.