1Brutus: 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 16 fontname: array of string; 17 sizename: array of string; 18 tagname: array of string; 19 tagconfig: array of string; 20 21 init: fn(ctxt: ref Draw->Context, args: list of string); 22}; 23