home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 224a.lha / Includes / libraries / diskfont < prev    next >
Encoding:
Text File  |  1989-04-08  |  1019 b   |  57 lines
  1.  
  2. EQU  MAXFONTPATH   256
  3.  
  4. {s FontContents
  5.     struct MAXFONTPATH fc_FileName
  6.     WORD   fc_YSize
  7.     BYTE   fc_Style
  8.     BYTE   fc_Flags
  9.    s}
  10.  
  11. EQU  FCH_ID        $0f00
  12.  
  13. {s FontContentsHeader
  14.     WORD   fch_FileID
  15.     WORD   fch_NumEntries
  16.    s}
  17.  
  18.  
  19. EQU  DFH_ID        $0f80
  20. EQU  MAXFONTNAME   32
  21.  
  22.  
  23. {s DiskFontHeader
  24.     struct   14 dfh_DF      ( { Node=14;exec/nodes )
  25.     WORD     dfh_FileID
  26.     WORD     dfh_Revision
  27.     LONG     dfh_Segment
  28.     struct   MAXFONTNAME dfh_Name
  29.     struct   52 dfh_TF              ( { TextFont=52;graphics/text )
  30.    s}
  31.  
  32.  
  33. EQU  AFB_MEMORY   0
  34. EQU  AFF_MEMORY   (1<<0)
  35. EQU  AFB_DISK     1
  36. EQU  AFF_DISK     (1<<1)
  37.  
  38.  
  39. {s AvailFonts
  40.     WORD   af_Type
  41.     struct 8 af_Attr        ( { TextAttr=8;graphics/text )
  42.    s}
  43.  
  44. {s AvailFontsHeader
  45.     WORD   afh_NumEntries
  46.    s}
  47.  
  48. : DFNAME   " diskfont.library"  drop  ;
  49.  
  50. libindex:  >Diskfont
  51.  
  52.  
  53. >Diskfont ^ -030 (r A0 r) OpenDiskFont (s textAttr -- font )
  54. >Diskfont ^ -036 (r A0 D1 D0 r) Availfonts
  55.                       (s buffer flags buflen -- err )
  56.  
  57.