brutus.m 648 B

12345678910111213141516171819202122
  1. Brutus: module
  2. {
  3. # Font tags are given as (font*NSIZE + size)
  4. Size6, Size8, Size10, Size12, Size16, NSIZE: con iota;
  5. Roman, Italic, Bold, Type, NFONT: con iota;
  6. NFONTTAG: con NFONT*NSIZE;
  7. Example, Caption, List, Listelem, Label, Labelref, Exercise, Heading,
  8. Nofill, Author, Title, Index, Indextopic, NTAG: con NFONTTAG + iota;
  9. DefFont: con Roman;
  10. DefSize: con Size10;
  11. TitleFont: con Bold;
  12. TitleSize: con Size16;
  13. HeadingFont: con Bold;
  14. HeadingSize: con Size12;
  15. fontname: array of string;
  16. sizename: array of string;
  17. tagname: array of string;
  18. tagconfig: array of string;
  19. init: fn(ctxt: ref Draw->Context, args: list of string);
  20. };