Frank Bowers December 20, 1985 2:38:20 pm PST

Bryan Preas April 7, 1986 9:53:33 am PST

CD, CDIO, CDOps, Core, Rope, SC, SCPrivate, RTTestUtil;

IMPORTS CDIO, CDOps, SC, RTTestUtil

SHARES SC =

BEGIN

result: SC.Result;

libName: Rope.ROPE ←"SCTestLib.dale";

hMaterial: Rope.ROPE ← "metal";

vMaterial: Rope.ROPE ← "poly";

cellType: Core.CellType ← RTTestUtil.CreateCore[libName];

cdDesign: CD.Design ← CDOps.CreateDesign[CDIO.ReadDesign[libName].technology];

rules: SC.DesignRules ← SC.CreateDesignRules[cdDesign.technology.key, hMaterial, vMaterial, horizontal];

handle: SC.Handle ← SC.CreateHandle[cellType, NIL, libName, rules, "SCTestTiny"];

SC.InitialPlace[handle, 2];

-- SCPrivate.SCRandomTest[handle, 10000, 0];

SC.SAPlaceImprove[handle: handle, saParms: SC.SAGetParms[handle, SC.SAInitialPlace[handle], cellType]];

SC.GlobalRoute[handle];

SC.PosImprove[handle];

SC.OrientImprove[handle];

result ← SC.DetailRoute[handle];

RTTestUtil.WriteLayout[result.object, handle.name, cdDesign];

SC.Destroy[handle];

END.