DragonRulesImpl.mesa 
Copyright Ó 1987 by Xerox Corporation. All rights reserved.
Barth, April 23, 1987 4:24:38 pm PDT
DIRECTORY DesignRules;
DragonRulesImpl: CEDAR PROGRAM
IMPORTS DesignRules
= BEGIN
Generate: PROC = {
rules: DesignRules.Rules ← DesignRules.CopyRuleSet[DesignRules.GetRuleSet[$VTI]];
rules.id ← $Dragon;
DesignRules.SetValue[rules, $NDifPWellPDifNWellSpace, 10];
DesignRules.SetValue[rules, $NWellPDifSurround, 5];
DesignRules.RegisterRuleSet[rules];
};
Generate[];
END.