
<<///route/RouteTestD.mesa>>
<<Copyright © 1985 by Xerox Corporation.  All rights reserved.>>
<<Last Edited by: Preas, July 17, 1985 11:44:46 am PDT>>
    <<Bryan Preas August 23, 1985 6:25:53 pm PDT>>
<<>>
DIRECTORY 
CD,
CDCells,
CDDirectory,
CDIO,
CDOps,
Rope,
Route,
RouteUtil,
TerminalIO;

RouteTestD: CEDAR PROGRAM

IMPORTS CD, CDCells, CDDirectory, CDIO, CDOps, Rope, Route, RouteUtil, TerminalIO
SHARES Route =

BEGIN
c1, c2, d1, d2: Route.Pin;
c1cd, c2cd, d1cd, d2cd: CD.Instance;
result: Route.RoutingResult;
design: CD.Design;
object: CD.Object;

technology: CD.Technology _ CD.FetchTechnology[$cmos];
metal: Route.Layer _ CD.FetchLayer[technology, $met];
metal2: Route.Layer _ CD.FetchLayer[technology, $met2];
rules: Route.DesignRules _ Route.CreateDesignRules[$cmos, metal, metal2, vertical];
routingArea: Route.RoutingArea _ Route.CreateRoutingArea["RouteTestD", rules];
Route.IncludeRoutingAreaSide[routingArea, left, [26, 0]];
Route.IncludeRoutingAreaSide[routingArea, right, [0, 0]];
c1cd _ RouteUtil.CreateCDPin["c1", [26, 90, 22, 110], metal];
c1 _ Route.CreatePin[c1cd, left];
c2cd _ RouteUtil.CreateCDPin["c2", [0, 134, 4, 138], metal];
c2 _ Route.CreatePin[c2cd, right];
Route.IncludeNet[routingArea, "c", LIST[c1, c2]];
d1cd _ RouteUtil.CreateCDPin["d1", [26, 134, 22, 138], metal];
d1 _ Route.CreatePin[d1cd, left];
d2cd _ RouteUtil.CreateCDPin["d2", [0, 100, 4, 104], metal];
d2 _ Route.CreatePin[d2cd, right];
Route.IncludeNet[routingArea, "d", LIST[d1, d2]];
result _ Route.ChannelRoute[routingArea, [[0, 0], [40, 0], [0, 200], [0, 0]], [0, 0, 40, 150], full];
design _ CDOps.CreateDesign[technology];
object _ Route.RetrieveRouting[result, result.routingArea.name, NIL, NIL].object;
[ ] _ CDCells.IncludeOb[design: design, 
cell: NIL, ob: object, position: [0, 0], orientation: 0, 
cellCSystem: interrestCoords, obCSystem: interrestCoords, mode: dontPropagate];

IF CDIO.WriteDesign[design,  result.routingArea.name] THEN
BEGIN
newCellName: Rope.ROPE _ CDDirectory.Name[object];
IF ~Rope.Equal[result.routingArea.name, newCellName] THEN
TerminalIO.WriteRope[Rope.Cat["cell name changed to: ", newCellName, "\n"]];
END
ELSE
TerminalIO.WriteRope["Error: design not written\n"];

END.