home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 224a.lha / Includes / graphics / text < prev    next >
Encoding:
Text File  |  1989-04-08  |  1.5 KB  |  62 lines
  1.  
  2. EQU FS_NORMAL       0
  3. EQU FSB_EXTENDED    3
  4. EQU FSF_EXTENDED    (1<<3)
  5. EQU FSB_ITALIC      2
  6. EQU FSF_ITALIC      (1<<2)
  7. EQU FSB_BOLD        1
  8. EQU FSF_BOLD        (1<<1)
  9. EQU FSB_UNDERLINED  0
  10. EQU FSF_UNDERLINED  (1<<0)
  11. EQU FPB_ROMFONT     0
  12. EQU FPF_ROMFONT     (1<<0)
  13. EQU FPB_DISKFONT    1
  14. EQU FPF_DISKFONT    (1<<1)
  15. EQU FPB_REVPATH     2
  16. EQU FPF_REVPATH     (1<<2)
  17. EQU FPB_TALLDOT     3
  18. EQU FPF_TALLDOT     (1<<3)
  19. EQU FPB_WIDEDOT     4
  20. EQU FPF_WIDEDOT     (1<<4)
  21. EQU FPB_PROPORTIONAL 5
  22. EQU FPF_PROPORTIONAL (1<<5)
  23. EQU FPB_DESIGNED    6
  24. EQU FPF_DESIGNED    (1<<6)
  25. EQU FPB_REMOVED     7
  26. EQU FPF_REMOVED     (1<<7)
  27.  
  28. {s TextAttr
  29.     APTR     ta_Name
  30.     WORD     ta_YSize
  31.     BYTE     ta_Style
  32.     BYTE     ta_Flags
  33.    s}
  34.  
  35. {s TextFont
  36.     struct   20 tf_Message      ( { Message=20;exec/ports )
  37.     WORD     tf_YSize
  38.     BYTE     tf_Style
  39.     BYTE     tf_Flags
  40.     WORD     tf_XSize
  41.     WORD     tf_Baseline
  42.     WORD     tf_BoldSmear
  43.     WORD     tf_Accessors
  44.     BYTE     tf_LoChar
  45.     BYTE     tf_HiChar
  46.     APTR     tf_CharData
  47.     WORD     tf_Modulo
  48.     APTR     tf_CharLoc
  49.     APTR     tf_CharSpace
  50.     APTR     tf_CharKern
  51.    s}
  52.  
  53.  
  54. >Graphics   -474 (r A1 A0 r) AskFont      (s rP textAttr -- )
  55. >Graphics   -480 (r A1 r)    AddFont      (s font -- )
  56. >Graphics ^ -486 (r A1 r)    RemFont      (s font -- err )
  57. >Graphics ^ -072 (r A0 r)    OpenFont     (s textAttr -- font )
  58. >Graphics   -078 (r A1 r)    CloseFont    (s font -- )
  59. >Graphics ^ -084 (r A1 r)       AskSoftStyle (s rP -- enable )
  60. >Graphics ^ -090 (r A1 D1 D0 r) SetSoftStyle (s rP enable style -- newstyle )
  61.  
  62.