CDFeatureCheckDragon.cm
Jacobi, March 28, 1986 5:43:16 pm PST
CDBottomUp
run CDFeatureCheckImpl
← &temp ← RefTab.Create[];
-- not allowed: $pwel, $imp, $bur, $cut, $cut2, $wndif, $wpdif
-- not allowed: $errorLayer ....
← &rectlayers ← LIST[$pol, $met, $ndif, $pdif, $nwel, $pwelCont, $nwelCont, $met2, $ovg, $comment]
← &viasize ← NEW[CD.Rect ← [48, 48, 72, 72]]
← RefTab.Store[&temp, $CDFeatureCheckKey, NEW[INT]];
← RefTab.Store[&temp, $CDFeatureCheckName, "Dragon features\n no burried, no arbirary angles, texts restricted to comment"]
← RefTab.Store[&temp, $Polygon, "not allowed"];
← RefTab.Store[&temp, $Rect, &rectlayers];
← RefTab.Store[&temp, $C2PDifRect, $wpdif];
← RefTab.Store[&temp, $C2Trans, LIST[$ndif]];
← RefTab.Store[&temp, $C2WellTrans, LIST[$wpdif]];
← RefTab.Store[&temp, $C2LTrans, LIST[$ndif]];
← RefTab.Store[&temp, $C2LWellTrans, LIST[$wpdif]];
← RefTab.Store[&temp, $C2SimpleCon, LIST[$pol, $ndif, $pwelCont, $nwelCont]];
← RefTab.Store[&temp, $C2WellSimpleCon, LIST[$wpdif]];
← RefTab.Store[&temp, $C2LargeSimpleCon, LIST[$pol, $ndif, $pwelCont, $nwelCont, &viasize]];
← RefTab.Store[&temp, $C2LargeWellSimpleCon, LIST[$wpdif, &viasize]];
← RefTab.Store[&temp, $C2DifShortCon, LIST[$ndif]];
← RefTab.Store[&temp, $C2WellDifShortCon, LIST[$wpdif]];
← RefTab.Store[&temp, $C2Via, $met2];
← RefTab.Store[&temp, $C2LargeVia, LIST[$met2, &viasize]];
← RefTab.Store[&temp, $Text, $comment];
← CDProperties.PutAtomProp[$CDFeatureCheck, $CDFeatureCheck, &temp];
-- CDFeatureCheckDragon parameter set up