% MJSCedar.Style
% last written by Spreitzer, March 17, 1983 2:24 pm
BeginStyle
(Cedar) AttachStyle

% Formats
(code) "for ordinary Cedar program statements" {
standard
"Gacha" family 10 bp size
nestingLevel 1 .eq .not {CodeIndent bigger leftIndent} .cvx .if
CodeIndent 3 .mul restIndent
 } StyleRule

% Looks
(look.v) "for code" {
"Gacha" family} StyleRule
(look.w) "for concepts" {
AlternateFontFamily} StyleRule
EndStyle