% Style.Style
% last written by Paxton, July 22, 1982 2:59 pm

BeginStyle

(BasicLooks) AttachStyle
(BasicPrint) AttachStyle

(look.e) "emphasis" {
	the face italic .eq {+bold face} {+italic face} .ifelse .cvx .exec
	} StyleRule
	
(look.c) "command name" { +bold face } StyleRule

(step) 0.25 in .def

(standard) "set up standard font, etc." {
	"Tioga" family
	regular face
	caps+lowercase alphabets
	10 pt size
	13 pt leading
	14 pt top.leading
	14 pt bottom.leading
	} StyleRule

(default) "default type for nodes" {
	standard
	step bigger left.indent
	} StyleRule

(header) "for document header info" {
	standard
	+italic face
	step bigger left.indent
	} StyleRule

(ruledef) "for first node of rule definition" {
	"TimesRoman" family
	12 pt size
	step bigger left.indent
	regular face
	24 pt top.leading
	14 pt bottom.leading
	regular face
	} StyleRule

(root) "default type for root nodes" {
	standard
	10 pt top.indent
	step .neg left.indent
	5 pt right.indent
	4 sp tab.stops
	} StyleRule

EndStyle