% BeachThesisTable.style % last edited by Beach, December 17, 1984 9:00:55 pm PST BeginStyle (BeachThesis) AttachStyle (tableNestingLevel) 1 StyleParam (Nest) "display nesting level" { nestingLevel the tableNestingLevel .gt { 0 leftIndent } { ParaIndent bigger leftIndent } .ifelse .cvx .exec } PrintRule (look.d) "down for subscript" { DoubleIncrement BasicIncrement .add .neg vShift BasicIncrement smaller size} StyleRule (look.u) "up, for superscript" { DoubleIncrement BasicIncrement .add vShift BasicIncrement smaller size} StyleRule (entry) "one of my table entries" { block centered lineFormatting .75 in lineLength } StyleRule (table) "one of my tables" { nestingLevel 1 .add tableNestingLevel center } StyleRule EndStyle Κφ– "style" style˜Iheaderšœ˜K˜8ruledef˜ LšœΟc œ ˜Lšœœ˜!šœœ˜!Idefaultšœk˜kMšœ ˜ —šœœœ˜Jšœ/˜/Jšœ&˜&—šœœœ˜ Jšœ*˜*Jšœ&˜&—šœœ˜$Mšœ˜M˜M˜M˜ —šœœ˜Mšœ%˜%J˜M˜ ——L˜L˜—…—ΰά