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