-- ChipDRCParams.mesa

-- last modified by E. McCreight, January 10, 1983  6:14 PM
-- written by E. McCreight, April 14, 1982  10:25 AM

DIRECTORY
  ChipDRC,
  ChipNetDefs,
  ppdefs;

ChipDRCParams: PROGRAM
  IMPORTS ChipDRC, ChipNetDefs
  EXPORTS ChipDRC SHARES ChipDRC =
  BEGIN OPEN ppdefs, ChipNetDefs, ChipDRC;


  SetDRCParams: PUBLIC PROCEDURE[] =
    BEGIN
    drcSwathWidth ← ScaleFromChipmonk[featureDelay];

    polyGateOverlap ← 2*Lambda;
    minTransistorDiffusionWidth ← 2*Lambda;
    depletionOverlap ← (3*Lambda)/2;

    FOR l: ExtractLevel IN ExtractLevel DO

      minSize[l] ← ScaleFromChipmonk[(SELECT l FROM
        nWell, pWell => 6,
        nDepletion, nBuriedContact => 3,
        thinOx, nPlus, pPlus => 2,
        nImplant, pImplant => 5,
        nGate, pGate, poly, cut => 2,
        metal => 3,
        via => 2,
        metal2 => 3,
        pad => 10,
        ENDCASE => 0)*Lambda];

      closestUnconnected[l] ← ScaleFromChipmonk[(SELECT l FROM
        nPlus, pPlus => 3,
        poly => 2,
        metal => 3,
        metal2 => 3,
        pad => 10,
        ENDCASE => 0)*Lambda];

      ENDLOOP;
    END; -- of SetDRCParams

  SetDRCParams[];
  END. -- of ChipDRCParams