-- ChipReticleParams.mesa

-- A module to set the layer stretches for the ISL/ICL
-- laser reticle generator.

-- last modified by E. McCreight, September 9, 1982  1:10 PM
-- written by E. McCreight, March 19, 1982  1:28 PM

DIRECTORY
  ChipNetDefs,
  ChipReticle;

ChipReticleParams: PROGRAM
  IMPORTS ChipReticle
  EXPORTS ChipReticle SHARES ChipReticle =
  BEGIN OPEN ChipNetDefs, ChipReticle;

  SetStretches: PUBLIC PROCEDURE[] =
    BEGIN
    FOR mask: Masks IN Masks DO
      maskStates[mask].stretch ←
        (SELECT mask FROM
          thinOx => 2000--nm--,
          cut => 1000--nm--,
          ENDCASE => 0);
      ENDLOOP;
    END; -- of SetStretches

  SetStretches[];
  END. -- of ChipReticleImpl