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 >
Text File  |  1987-06-04  |  2KB  |  73 lines
  1. IMPLEMENTATION MODULE CrossFont;
  2.  
  3. (* exclusive available font - generated with M2Amiga Report FontConverter *)
  4.  
  5.  
  6. FROM SYSTEM IMPORT CAST, INLINE, ADR;
  7. FROM Exec IMPORT UByte;
  8. FROM Graphics IMPORT TextFontPtr, TextFont, FontFlagSet, FontStyleSet;
  9.  
  10.  
  11. VAR font: TextFont;
  12.  
  13.  
  14. PROCEDURE Data;    (* $E- *)
  15.  
  16. BEGIN
  17.   INLINE(
  18.     000F3H,0E3CFH,09FBFH,03ECCH,0F3F6H,06C10H,0B33CH,0F8F3H, 
  19.     0E3EFH,0D9B3H,066CDH,09BF0H,00000H,0019BH,0366CH,0D830H, 
  20.     060CCH,06036H,0CC19H,0BB66H,0CD9BH,03603H,019B3H,06679H, 
  21.     09860H,00000H,039FBH,0E60CH,0DF3EH,06EFCH,06037H,08C1FH, 
  22.     0BF66H,0F99BH,0E3C3H,019B3H,07E30H,0F0C0H,00000H,0019BH, 
  23.     0366CH,0D830H,066CCH,06336H,0CC19H,0B766H,0C1BBH,06063H, 
  24.     0199EH,06678H,06180H,00000H,0019BH,0E3CFH,09FB0H,03ECCH, 
  25.     0F1E6H,06FD9H,0B33CH,0C0FBH,037C3H,00F0CH,042CCH,063F0H, 
  26.     00000H,00000H,00000H,00000H,00000H,00000H,00000H,00000H, 
  27.     00000H,00000H,00000H,00000H,00000H,00000H);
  28. END Data;
  29.  
  30.  
  31.  
  32. PROCEDURE Loc;    (* $E- *)
  33.  
  34. BEGIN
  35.   INLINE(
  36.     00000H,00007H,00007H,00007H,0000EH,00007H,00015H,00007H, 
  37.     0001CH,00007H,00023H,00007H,0002AH,00007H,00031H,00007H, 
  38.     00038H,00007H,0003FH,00007H,00046H,00007H,0004DH,00007H, 
  39.     00054H,00007H,0005BH,00007H,00062H,00007H,00069H,00007H, 
  40.     00070H,00007H,00077H,00007H,0007EH,00007H,00085H,00007H, 
  41.     0008CH,00007H,00093H,00007H,0009AH,00007H,000A1H,00007H, 
  42.     000A8H,00007H,000AFH,00007H,000B6H,00007H,000BDH,00007H, 
  43.     000BDH,00007H,000BDH,00007H,000BDH,00007H);
  44. END Loc;
  45.  
  46.  
  47.  
  48. PROCEDURE CreateFont(): TextFontPtr;
  49.  
  50. (* $V- $F- $R- *)
  51. BEGIN
  52.   WITH font DO
  53.     ySize     := 00006H;
  54.     xSize     := 00007H;
  55.     baseline  := 00006H;
  56.     boldSmear := 00001H;
  57.     accessors := 00001H;
  58.     modulo    := 0001AH;
  59.     loChar    := CHR(00040H);
  60.     hiChar    := CHR(0005FH);
  61.     style     := CAST(FontStyleSet,UByte(00000H));
  62.     flags     := CAST(FontFlagSet,UByte(00042H));
  63.     charData  := ADR(Data);
  64.     charLoc   := ADR(Loc);
  65.     charSpace := NIL;
  66.     charKern  := NIL;
  67.   END;
  68.   RETURN ADR(font);
  69. END CreateFont;
  70.  
  71.  
  72. END CrossFont.
  73.