DIRECTORY 
CD, CDCells, CDDirectory, CDEvents, CDInstances, CDProperties, CDRects, CDTexts, 
Core, CoreOps, CoreProperties,
CoreGeometry, 
IO, PW, 
Sinix, Sisyph, TerminalIO, WireIcons;

WireIconsImpl: CEDAR PROGRAM
IMPORTS CD, CDCells, CDDirectory, CDEvents, CDInstances, CDProperties, CDRects, CDTexts, CoreOps, CoreGeometry, CoreProperties, IO, PW, Sinix, Sisyph, TerminalIO
EXPORTS WireIcons
SHARES Sisyph = BEGIN OPEN WireIcons;
font: CDTexts.CDFont _ CDTexts.MakeFont["Xerox/TiogaFonts/Helvetica8", 4];

AddRect: PROC [size, pos: CD.Position, il: CD.InstanceList] RETURNS [newIl: CD.InstanceList] = {
newIl _ CONS [CDInstances.NewInst[CDRects.CreateRect[size, CD.commentLayer], [pos]], il];
};

AddText: PROC [rope: ROPE, pos: CD.Position, il: CD.InstanceList] RETURNS [newIl: CD.InstanceList] = {
newIl _ CONS [CDInstances.NewInst[CDTexts.Create[rope, font], [pos]], il];
};

PutPin: PROC [wire: Wire, size, pos: CD.Position, il: CD.InstanceList] RETURNS [newIl: CD.InstanceList] = {
newIl _ AddRect[size, pos, il];
CoreGeometry.PutPins[Sisyph.mode.decoration, wire, LIST [[newIl.first.ob, newIl.first.trans]]];
};

EvalNat: PROC [cx: Sisyph.Context, expr: ROPE] RETURNS [nat: NAT] = {
WITH Sisyph.EvalToRef[cx, expr] SELECT FROM
refInt: REF INT	=> RETURN [NAT[refInt^]];
refNat: REF NAT	=> RETURN [refNat^];
ENDCASE	=> ERROR; -- Wrong type
};
MakeComposer: PUBLIC PROC [design: CD.Design, size: NAT] RETURNS [wire: Wire, obj: CD.Object] = {
l: INT = design.technology.lambda;
il: CD.InstanceList _ NIL;
increment: INT _ SELECT TRUE FROM
size<4 => 8, size<6 => 6, size<8  => 4, size<16 => 2, size<32 => 2, ENDCASE => 1;
wire _ CoreOps.CreateWires[size: size];
il _ AddRect[[increment*(size-1)*l+7*l/2, 7*l/2], [0, l/2], il];
il _ PutPin[wire, [l/2, l/2], [increment*(size-1)*l/2+2*l, 4*l], il];
FOR i: NAT IN [0 .. size) DO
wire[i] _ CoreOps.CreateWire[];
il _ PutPin[wire[i], [l/2, l/2], [increment*i*l+2*l, 0], il];
ENDLOOP;
il _ AddRect[[l, l/2], [3*l/2, 0], il];
obj _ PW.CreateCell[instances: il, props: LIST [[$ComposerSize, NEW [INT _ size]], [Sisyph.mode.extractProcProp, $WireIconsExtractComposer]]];
CDCells.SetSimplificationTreshhold[obj, 10.0];
};

Composer: PW.GeneratorProc = {
name: ROPE;
int: INT _ TerminalIO.RequestInt["Size of the composer? "];
IF int<1 THEN {TerminalIO.PutF["*** Incorrect parameter.\n"]; RETURN};
name _ IO.PutFR["::Composer[%g].icon", IO.int[int]];
ob _ CDDirectory.Fetch[design, name].object;
IF ob=NIL THEN {
ob _ MakeComposer[design, NAT [int]].obj;
[] _ CDDirectory.Include[design, ob, name];
};
};

ExtractComposer: Sinix.ExtractProc = {
cx: Sisyph.Context = NARROW [userData];
refNat: REF INT _ NARROW [CDProperties.GetObjectProp[obj, $ComposerSize]];
size: NAT _ NAT [refNat^];
result _ MakeComposer[Sisyph.GetDesign[cx], size].wire;
};
MakeSlash: PROC [design: CD.Design] RETURNS [obj: CD.Object] = {
l: INT = design.technology.lambda;
il: CD.InstanceList _ NIL;
FOR i: INT IN [0 .. 2*l+l/4) DO il _ AddRect[[l/4, l/4], [i, 2*i], il] ENDLOOP;
obj _ PW.CreateCell[il];
CDCells.SetSimplificationTreshhold[obj, 10.0];
};
 
MakeBus: PUBLIC PROC [design: CD.Design, size: NAT, slash: CD.Object _ NIL] RETURNS [wire: Wire, obj: CD.Object] = {
l: INT = design.technology.lambda;
il: CD.InstanceList _ NIL;
wire _ CoreOps.CreateWires[size: size];
IF slash#NIL THEN il _ CONS [CDInstances.NewInst[slash, [[l-l/4, 0]]], il];
il _ PutPin[wire, [9*l/2, l/2], [0, 2*l], il];
FOR i: NAT IN [0 .. size) DO wire[i] _ CoreOps.CreateWire[] ENDLOOP;
il _ AddText[IO.PutR1[IO.int[size]], [6*l/4, -7*l/4], il];
obj _ PW.CreateCell[instances: il, ir: [0, 0, 9*l/2, 9*l/2], props: LIST [[$BusSize, NEW [INT _ size]], [Sisyph.mode.extractProcProp, $WireIconsExtractBus]]];
CDCells.SetSimplificationTreshhold[obj, 10.0];
};

Bus: PW.GeneratorProc = {
slash: CD.Object;
int: INT _ TerminalIO.RequestInt["Size of the bus? "];
IF int<1 THEN {TerminalIO.PutF["*** Incorrect parameter.\n"]; RETURN};
slash _ CDDirectory.Fetch[design, "::SlashForBusIcon"].object;
IF slash=NIL THEN {
slash _ MakeSlash[design];
[] _ CDDirectory.Include[design, slash, "::SlashForBusIcon"];
};
ob _ MakeBus[design, NAT [int], slash].obj;
};

ExtractBus: Sinix.ExtractProc = {
cx: Sisyph.Context = NARROW [userData];
refNat: REF INT _ NARROW [CDProperties.GetObjectProp[obj, $BusSize]];
size: NAT _ NAT [refNat^];
result _ MakeBus[Sisyph.GetDesign[cx], size].wire;
};
MakeExtractor: PUBLIC PROC [design: CD.Design, index, size: NAT] RETURNS [wire: Wire, obj: CD.Object] = {
l: INT = design.technology.lambda;
il: CD.InstanceList _ NIL;
wire _ CoreOps.CreateWires[size: size];
FOR i: NAT IN [0 .. size) DO wire[i] _ CoreOps.CreateWire[] ENDLOOP;
il _ PutPin[wire, [9*l/2, l/2], [0, 2*l], il];
il _ PutPin[wire[index], [l/2, 3*l/2], [2*l, 0], il];
il _ AddRect[[3*l/2, l/8], [l, 3*l/2], il];
il _ AddRect[[3*l/2, l/8], [l, 3*l], il];
il _ AddRect[[l/8, 3*l/2], [l, 3*l/2], il];
il _ AddRect[[l/8, 3*l/2], [19*l/8, 13*l/8], il];
il _ AddText[IO.PutR1[IO.int[index]], [9*l/4, -7*l/4], il];
il _ AddText[IO.PutR1[IO.int[size]], [9*l/4, 11*l/4], il];
obj _ PW.CreateCell[instances: il, ir: [0, 0, 9*l/2, 7*l/2], props: LIST [[$ExtractorIndex, NEW [INT _ index]], [$ExtractorSize, NEW [INT _ size]], [ Sisyph.mode.extractProcProp, $WireIconsExtractExtractor]]];
CDCells.SetSimplificationTreshhold[obj, 10.0];
};

Extractor: PW.GeneratorProc = {
int: INT _ TerminalIO.RequestInt["Index of the extracted wire? "];
int2: INT _ TerminalIO.RequestInt["Size of the structured wire? "];
IF int<0 OR int2<1 OR int>=int2 THEN {TerminalIO.PutF["*** Incorrect parameters.\n"]; RETURN};
ob _ MakeExtractor[design, NAT [int], NAT [int2]].obj;
};

ExtractExtractor: Sinix.ExtractProc = {
cx: Sisyph.Context = NARROW [userData];
refNat: REF INT _ NARROW [CDProperties.GetObjectProp[obj, $ExtractorIndex]];
refNat2: REF INT _ NARROW [CDProperties.GetObjectProp[obj, $ExtractorSize]];
index: NAT _ NAT [refNat^];
size: NAT _ NAT [refNat2^];
result _ MakeExtractor[Sisyph.GetDesign[cx], index, size].wire;
};
MakeRangeExtractor: PUBLIC PROC [design: CD.Design, index, subSize, size: NAT] RETURNS [wires: Wires, obj: CD.Object] = {
l: INT = design.technology.lambda;
il: CD.InstanceList _ NIL;
structWire: Wire _ CoreOps.CreateWires[size: size];
subWire: Wire _ CoreOps.CreateWires[size: subSize];
wires _ LIST [subWire, structWire];
FOR i: NAT IN [0 .. size) DO structWire[i] _ CoreOps.CreateWire[] ENDLOOP;
FOR i: NAT IN [0 .. subSize) DO subWire[i] _ structWire[i+index] ENDLOOP;
il _ PutPin[structWire, [19*l/2, l/2], [0, 2*l], il];
il _ AddRect[[l/2, 3*l/2], [5*l/2, 0], il];
il _ PutPin[subWire, [l/2, 3*l/2], [3*l, 0], il];
il _ AddRect[[5*l/2, l/8], [l, 3*l/2], il];
il _ AddRect[[5*l/2, l/8], [l, 3*l], il];
il _ AddRect[[l/8, 3*l/2], [l, 3*l/2], il];
il _ AddRect[[l/8, 3*l/2], [27*l/8, 13*l/8], il];
il _ AddText[IO.PutFR["%g/%g", IO.int[index], IO.int[subSize]], [13*l/4, -7*l/4], il];
il _ AddText[IO.PutR1[IO.int[size]], [13*l/4, 11*l/4], il];
obj _ PW.CreateCell[instances: il, ir: [0, 0, 19*l/2, 7*l/2], props: LIST [[$ExtractorIndex, NEW [INT _ index]], [$ExtractorSubSize, NEW [INT _ subSize]], [$ExtractorSize, NEW [INT _ size]], [Sisyph.mode.extractProcProp, $WireIconsExtractRangeExtractor]]];
CDCells.SetSimplificationTreshhold[obj, 10.0];
};

RangeExtractor: PW.GeneratorProc = {
int: INT _ TerminalIO.RequestInt["Index of the extracted wire? "];
int2: INT _ TerminalIO.RequestInt["Size of the extracted wire? "];
int3: INT _ TerminalIO.RequestInt["Size of the structured wire? "];
IF int<0 OR int2<1 OR int3<1 OR int>=int3 OR int+int2>int3 THEN {TerminalIO.PutF["*** Incorrect parameters.\n"]; RETURN};
ob _ MakeRangeExtractor[design, NAT [int], NAT [int2], NAT [int3]].obj;
};

ExtractRangeExtractor: Sinix.ExtractProc = {
cx: Sisyph.Context = NARROW [userData];
refNat: REF INT _ NARROW [CDProperties.GetObjectProp[obj, $ExtractorIndex]];
refNat2: REF INT _ NARROW [CDProperties.GetObjectProp[obj, $ExtractorSubSize]];
refNat3: REF INT _ NARROW [CDProperties.GetObjectProp[obj, $ExtractorSize]];
index: NAT _ NAT [refNat^];
subSize: NAT _ NAT [refNat2^];
size: NAT _ NAT [refNat3^];
result _ MakeRangeExtractor[Sisyph.GetDesign[cx], index, subSize, size].wires;
};
ParametrizedBus: PW.GeneratorProc = {
l: INT = design.technology.lambda;
il: CD.InstanceList _ NIL;
slash: CD.Object _ CDDirectory.Fetch[design, "::SlashForBusIcon"].object;
sizeRope: ROPE _ TerminalIO.RequestRope["Size of the parametrized bus? "];
IF slash=NIL THEN {
slash _ MakeSlash[design];
[] _ CDDirectory.Include[design, slash, "::SlashForBusIcon"];
};
il _ CONS [CDInstances.NewInst[slash, [[l-l/4, 0]]], il];
il _ AddRect[[9*l/2, l/2], [0, 2*l], il];
il _ AddText[sizeRope, [6*l/4, -6*l/4], il];
ob _ PW.CreateCell[instances: il, ir: [0, 0, 9*l/2, 9*l/2], props: LIST [[$BusSize, sizeRope], [Sisyph.mode.extractProcProp, $WireIconsExtractParametrizedBus]]];
CDCells.SetSimplificationTreshhold[ob, 10.0];
};

ExtractParametrizedBus: Sinix.ExtractProc = {
cx: Sisyph.Context _ Sisyph.EvaluateParameters[userData, obj, properties];
design: CD.Design _ Sisyph.GetDesign[cx];
l: INT = design.technology.lambda;
sizeRope: ROPE _ NARROW [CDProperties.GetObjectProp[obj, $BusSize]];
size: NAT _ EvalNat[cx, sizeRope];
wire: Wire;
IF size<1 THEN ERROR;
wire _ CoreOps.CreateWires[size: size];
[] _ PutPin[wire, [9*l/2, l/2], [0, 2*l], NIL]; -- new object thrown away!
FOR i: NAT IN [0 .. size) DO wire[i] _ CoreOps.CreateWire[] ENDLOOP;
result _ wire;
};
ParametrizedExtractor: PW.GeneratorProc = {
l: INT = design.technology.lambda;
il: CD.InstanceList _ NIL;
indexRope: ROPE _ TerminalIO.RequestRope["Parametrized index of the extracted wire? "];
sizeRope: ROPE _ TerminalIO.RequestRope["Size of the parametrized bus? "];
il _ AddRect[[9*l/2, l/2], [0, 2*l], il];
il _ AddRect[[l/2, 3*l/2], [2*l, 0], il];
il _ AddRect[[3*l/2, l/8], [l, 3*l/2], il];
il _ AddRect[[3*l/2, l/8], [l, 3*l], il];
il _ AddRect[[l/8, 3*l/2], [l, 3*l/2], il];
il _ AddRect[[l/8, 3*l/2], [19*l/8, 13*l/8], il];
il _ AddText[indexRope, [9*l/4, -6*l/4], il];
il _ AddText[sizeRope, [9*l/4, 11*l/4], il];
ob _ PW.CreateCell[instances: il, ir: [0, 0, 9*l/2, 7*l/2], props: LIST [[$ExtractorIndex, indexRope], [$ExtractorSize, sizeRope], [Sisyph.mode.extractProcProp, $WireIconsExtractParametrizedExtractor]]];
CDCells.SetSimplificationTreshhold[ob, 10.0];
};

ExtractParametrizedExtractor: Sinix.ExtractProc = {
cx: Sisyph.Context _ Sisyph.EvaluateParameters[userData, obj, properties];
design: CD.Design _ Sisyph.GetDesign[cx];
l: INT = design.technology.lambda;
indexRope: ROPE _ NARROW [CDProperties.GetObjectProp[obj, $ExtractorIndex]];
sizeRope: ROPE _ NARROW [CDProperties.GetObjectProp[obj, $ExtractorSize]];
index: NAT _ EvalNat[cx, indexRope];
size: NAT _ EvalNat[cx, sizeRope];
wire: Wire;
IF index<0 OR size<1 OR index>=size THEN ERROR;
wire _ CoreOps.CreateWires[size: size];
FOR i: NAT IN [0 .. size) DO wire[i] _ CoreOps.CreateWire[] ENDLOOP;
[] _ PutPin[wire, [9*l/2, l/2], [0, 2*l], NIL];
[] _ PutPin[wire[index], [l/2, 3*l/2], [2*l, 0], NIL];
result _ wire;
};
ParametrizedRangeExtractor: PW.GeneratorProc = {
l: INT = design.technology.lambda;
il: CD.InstanceList _ NIL;
indexRope: ROPE _ TerminalIO.RequestRope["Parametrized index of the extracted wire? "];
subSizeRope: ROPE _ TerminalIO.RequestRope["Size of the parametrized sub wire? "];
sizeRope: ROPE _ TerminalIO.RequestRope["Size of the parametrized bus? "];
il _ AddRect[[19*l/2, l/2], [0, 2*l], il];
il _ AddRect[[l/2, 3*l/2], [5*l/2, 0], il];
il _ AddRect[[l/2, 3*l/2], [3*l, 0], il];
il _ AddRect[[5*l/2, l/8], [l, 3*l/2], il];
il _ AddRect[[5*l/2, l/8], [l, 3*l], il];
il _ AddRect[[l/8, 3*l/2], [l, 3*l/2], il];
il _ AddRect[[l/8, 3*l/2], [27*l/8, 13*l/8], il];
il _ AddText[IO.PutFR["%g/%g", IO.rope[indexRope], IO.rope[subSizeRope]], [13*l/4, -7*l/4], il];
il _ AddText[sizeRope, [13*l/4, 11*l/4], il];
ob _ PW.CreateCell[instances: il, ir: [0, 0, 19*l/2, 7*l/2], props: LIST [[$ExtractorIndex, indexRope], [$ExtractorSubSize, subSizeRope], [$ExtractorSize, sizeRope], [Sisyph.mode.extractProcProp, $WireIconsExtractParametrizedRangeExtractor]]];
CDCells.SetSimplificationTreshhold[ob, 10.0];
};

ExtractParametrizedRangeExtractor: Sinix.ExtractProc = {
cx: Sisyph.Context _ Sisyph.EvaluateParameters[userData, obj, properties];
design: CD.Design _ Sisyph.GetDesign[cx];
l: INT = design.technology.lambda;
indexRope: ROPE _ NARROW [CDProperties.GetObjectProp[obj, $ExtractorIndex]];
subSizeRope: ROPE _ NARROW [CDProperties.GetObjectProp[obj, $ExtractorSubSize]];
sizeRope: ROPE _ NARROW [CDProperties.GetObjectProp[obj, $ExtractorSize]];
index: NAT _ EvalNat[cx, indexRope];
subSize: NAT _ EvalNat[cx, subSizeRope];
size: NAT _ EvalNat[cx, sizeRope];
wire, subWire: Wire;
wires: Wires;
IF index<0 OR subSize<1 OR size<1 OR index>=size OR index+subSize>size THEN RETURN;
wire _ CoreOps.CreateWires[size: size];
subWire _ CoreOps.CreateWires[size: subSize];
FOR i: NAT IN [0 .. size) DO wire[i] _ CoreOps.CreateWire[] ENDLOOP;
FOR i: NAT IN [0 .. subSize) DO subWire[i] _ wire[i+index] ENDLOOP;
[] _ PutPin[wire, [19*l/2, l/2], [0, 2*l], NIL];
[] _ PutPin[subWire, [l/2, 3*l/2], [3*l, 0], NIL];
wires _ LIST [subWire, wire];
result _ wires;
};
SequencingSlash: PW.GeneratorProc = {
l: INT = design.technology.lambda;
il: CD.InstanceList _ NIL;
il _ AddRect[[5*l/2, l/2], [0, 2*l], il];
FOR i: INT IN [0 .. 2*l+l/4) DO il _ AddRect[[l/4, l/4], [i, 2*i], il] ENDLOOP;
ob _ PW.CreateCell[instances: il, name: "/", props: LIST [[Sisyph.mode.extractProcProp, $WireIconsExtractSequencingSlash]]];
CDCells.SetSimplificationTreshhold[ob, 10.0];
};

ExtractSequencingSlash: Sinix.ExtractProc = {
cx: Sisyph.Context _ Sisyph.EvaluateParameters[userData, obj, properties];
design: CD.Design _ Sisyph.GetDesign[cx];
l: INT = design.technology.lambda;
wire: Wire _ CoreOps.CreateWire[props: CoreProperties.Props[[$Sequence, $Sequence]]];
[] _ PutPin[wire, [5*l/2, l/2], [0, 2*l], NIL];
result _ wire;
};
Convert: CDEvents.EventProc = {
replaceList: CDDirectory.ReplaceList _ NIL;
EachObj: CDDirectory.EachEntryAction = {
instances: CD.InstanceList _ NIL;
base: CD.Position = CD.InterestBase[ob];
size: CD.Position = CD.InterestSize[ob];
new: CD.Object;
EachInst: CDCells.InstEnumerator = {
instances _ CONS [CDInstances.DeComposed[inst, [base]], instances];
};
IF base=[0, 0] THEN RETURN;
IF CDProperties.GetObjectProp[ob, Sisyph.mode.extractProcProp]=NIL THEN RETURN;
SELECT CDProperties.GetObjectProp[ob, Sisyph.mode.extractProcProp] FROM
$WireIconsExtractComposer, $WireIconsExtractBus, $WireIconsExtractExtractor, $WireIconsExtractRangeExtractor, $WireIconsExtractParametrizedBus, $WireIconsExtractParametrizedExtractor, $WireIconsExtractParametrizedRangeExtractor => NULL; 
ENDCASE => RETURN;
IF NOT CDCells.IsCell[ob] THEN RETURN;
[] _ CDCells.EnumerateInstances[ob, EachInst];
new _ PW.CreateCell[instances: instances, ir: [0, 0, size.x, size.y], props: ob.properties];
CDCells.SetSimplificationTreshhold[new, 10.0];
replaceList _ CONS [NEW [CDDirectory.ReplaceRec _ [old: ob, new: new, trans: [base]]], replaceList];
};
IF design=NIL THEN RETURN; -- design is sometimes NIL!!
IF CDProperties.GetProp[design, $WireIconsConvertedFrom23] = $TRUE THEN RETURN;
CDProperties.PutProp[design, $WireIconsConvertedFrom23, $TRUE];
[] _ CDDirectory.Enumerate[design, EachObj];
IF replaceList=NIL THEN RETURN;
TerminalIO.PutF["***WireIconsImpl: repositions for conversion to CD24.\n"];
FOR list: CDDirectory.ReplaceList _ replaceList, list.rest WHILE list#NIL DO
CDDirectory.ReplaceObject[design, list.first.old, list.first.new, list.first.trans];
TerminalIO.PutF["\t\t%g -> %g;", IO.rope[CDDirectory.Name[list.first.old, design]], IO.rope[CDDirectory.Name[list.first.new, design]]];
ENDLOOP;
TerminalIO.PutF["\n***WireIconsImpl made replacements.  Save the design\n"];
};
CDEvents.RegisterEventProc[$AfterInput, Convert];
PW.RegisterGenerator[Composer, "Composer"];
Sinix.RegisterExtractProc[$WireIconsExtractComposer, ExtractComposer];

PW.RegisterGenerator[Bus, "Bus"];
Sinix.RegisterExtractProc[$WireIconsExtractBus, ExtractBus];

PW.RegisterGenerator[Extractor, "Extractor"];
Sinix.RegisterExtractProc[$WireIconsExtractExtractor, ExtractExtractor];

PW.RegisterGenerator[RangeExtractor, "Range Extractor"];
Sinix.RegisterExtractProc[$WireIconsExtractRangeExtractor, ExtractRangeExtractor];

PW.RegisterGenerator[ParametrizedBus, "Parametrized Bus"];
Sinix.RegisterExtractProc[$WireIconsExtractParametrizedBus, ExtractParametrizedBus];

PW.RegisterGenerator[ParametrizedExtractor, "Parametrized Extractor"];
Sinix.RegisterExtractProc[$WireIconsExtractParametrizedExtractor, ExtractParametrizedExtractor];

PW.RegisterGenerator[ParametrizedRangeExtractor, "Parametrized Range Extractor"];
Sinix.RegisterExtractProc[$WireIconsExtractParametrizedRangeExtractor, ExtractParametrizedRangeExtractor];

PW.RegisterGenerator[SequencingSlash, "Sequencing Slash"];
Sinix.RegisterExtractProc[$WireIconsExtractSequencingSlash, ExtractSequencingSlash];


END.

΄WireIconsImpl.mesa
Copyright Σ 1986, 1987 by Xerox Corporation.  All rights reversed.
Bertrand Serlet April 15, 1987 0:40:19 am PDT

Utilities
Composer icon
The big rectangle
The structured wire
The composed wires
The first composed wire
Bus  icon
The slash (if not present, the resulting obj should NOT be used)
The structured wire
The composed wires
The text
Extractor  icon
The composed wires
The structured wire
The extracted wire
The square
The texts
Range Extractor  icon
We create an extra level of hierarchy in the wires to extract things properly
The composed wires
The structured wire
The extracted wire
The rectangle
The texts
Parametrized Bus  icon
The text
The structured wire
The composed wires
Parametrized Extractor  icon
The structured wire
The extracted wire
The square
The texts
The structured wire
The extracted wire
Parametrized Range Extractor  icon
The structured wire
The extracted wire
The rectangle
The texts
The structured wire
The extracted wire
Sequencing Slash
The structured wire
Compatibility Code
Convert: PROC [design: CD.Design] = {
EachObj: CDDirectory.EachEntryAction = {
SELECT TRUE FROM
Rope.Match[":Composer[*].icon", name]	=> {
refNat: REF INT _ NARROW [CDProperties.GetObjectProp[ob, $ComposerSize]];
size: NAT _ NAT [refNat^];
new: CD.Object = MakeComposer[design, size].obj;
off: CD.Position = CDBasics.SubPoints[CDBasics.BaseOfRect[CD.InterestRect[ob]], CDBasics.BaseOfRect[CD.InterestRect[new]]];
CDDirectory.ReplaceObject[design, ob, new, off];
};
Rope.Match[":Bus[*].icon", name]	=> {
refNat: REF INT _ NARROW [CDProperties.GetObjectProp[ob, $BusSize]];
size: NAT _ NAT [refNat^];
new: CD.Object = MakeBus[design, size].obj;
off: CD.Position = CDBasics.SubPoints[CDBasics.BaseOfRect[CD.InterestRect[ob]], CDBasics.BaseOfRect[CD.InterestRect[new]]];
CDDirectory.ReplaceObject[design, ob, new, off];
};
Rope.Match[":Extractor[*, *].icon", name]	=> {
refNat: REF INT _ NARROW [CDProperties.GetObjectProp[ob, $ExtractorIndex]];
refNat2: REF INT _ NARROW [CDProperties.GetObjectProp[ob, $ExtractorSize]];
index: NAT _ NAT [refNat^];
size: NAT _ NAT [refNat2^];
new: CD.Object = MakeExtractor[design, index, size].obj;
off: CD.Position = CDBasics.SubPoints[CDBasics.BaseOfRect[CD.InterestRect[ob]], CDBasics.BaseOfRect[CD.InterestRect[new]]];
CDDirectory.ReplaceObject[design, ob, new, off];
};
Rope.Match[":RangeExtractor[*/*, *].icon", name]	=> {
refNat: REF INT _ NARROW [CDProperties.GetObjectProp[ob, $ExtractorIndex]];
refNat2: REF INT _ NARROW [CDProperties.GetObjectProp[ob, $ExtractorSubSize]];
refNat3: REF INT _ NARROW [CDProperties.GetObjectProp[ob, $ExtractorSize]];
index: NAT _ NAT [refNat^];
subSize: NAT _ NAT [refNat2^];
size: NAT _ NAT [refNat3^];
new: CD.Object = MakeRangeExtractor[design, index, subSize, size].obj;
off: CD.Position = CDBasics.SubPoints[CDBasics.BaseOfRect[CD.InterestRect[ob]], CDBasics.BaseOfRect[CD.InterestRect[new]]];
CDDirectory.ReplaceObject[design, ob, new, off];
};
ENDCASE	=> {};
};
[] _ CDDirectory.Enumerate[design, EachObj];
};

The purpose of this function is to correct the decorations for WireIcons that were created before CD24 and which do not have the interestRect based on [0, 0].  The idea is that we just translate everything!
Initialization

Κο–

"cedar" style˜
codeš
œ™Kš
œB™BKš
œ-™-K™—šΟk	œ
˜
KšœO˜QKš
œ˜Kš
œ˜Kšœœ˜Kš
œ%˜%—K˜•StartOfExpansion[]šΠbn
œœ
˜Kšœ
œvœœ˜‘
Kšœ
˜Kšœ
œ
œ˜%—
head™	š
œJ˜JJ˜—šΟnœœ
œœœ	œ˜`Jšœœ/œ˜YJ˜J˜—šŸœœœœœœ	œ˜fJšœœ>˜JJ˜J˜—šŸœœœœœ	œ˜kJš
œ˜Jšœ3œ(˜_J˜J˜—š
Ÿœœœœœ˜Ešœœ
˜+Jš	œœ
œœœ˜)Jšœœ
œœ˜$JšœœΟc
˜—J˜——™
šŸœœ
œ
œœœœ˜aJšΟg
œœ˜"Jšœœœ
˜šœœœ
œ
˜!JšœDœ˜Q—J˜'Jš
œ™Jš	œ!‘
œ‘œ‘
œ	‘
œ	˜@Jš
œ™Jš	œ‘
œ‘
œ‘œ‘
œ˜EJš
œ™šœœ
œ
˜Jš
œ˜Jš	œ‘
œ‘
œ‘
œ‘
œ
˜=Jšœ
˜—Jš
œ™Jšœ‘
œ‘
œ‘œ
˜'Jš	œœ"œœœF˜Ž
Jš
œ.˜.J˜J˜—šŸœœ˜Jšœœ
˜Jšœœ3˜;Jšœœ1œ˜FJšœœœ˜4Jš
œ,˜,šœœ
œ˜Jšœœ˜)Jš
œ+˜+J˜—J˜J˜—šŸœ˜&Jšœœ˜'Jšœœ
œœ2˜JJšœœœ˜Jšœ‘
œ	‘
œ‘
œ
˜7J˜——™	š
Ÿ	œœ
œ	œœ˜@Jš‘
œœ˜"Jšœœœ
˜Jšœœ
œ	‘
œ
‘
œœ‘
œ‘
œœ
˜OJšœœ˜Jš
œ.˜.J˜J˜
—šŸœœ
œ
œœ	œ
œœœ˜tJš‘
œœ˜"Jšœœœ
˜J˜'Jšœ4œ	™@Jšœœ
œœ‘
œ
‘
œ˜KJš
œ™Jš	œ‘œ‘
œ‘
œ‘
œ˜.Jš
œ™Jš
œœ
œ
œ œ
˜DJš
œ™Jš	œ
œœ‘œ‘œ˜:Jšœœ(‘
œ‘
œ‘
œ	œ
œœA˜ž
Jš
œ.˜.J˜J˜—šŸœœ˜Jšœœ˜Jšœœ.˜6Jšœœ1œ˜FJš
œ>˜>šœœ
œ˜Jš
œ˜Jš
œ=˜=J˜—Jšœœ˜+J˜J˜—šŸ
œ˜!Jšœœ˜'Jšœœ
œœ-˜EJšœœœ˜Jšœ‘
œ	‘
œ‘
œ
˜2J˜——™šŸ
œœ
œ
œœœœ˜iJš‘
œœ˜"Jšœœœ
˜J˜'Jš
œ™Jš
œœ
œ
œ œ
˜DJš
œ™Jš	œ‘œ‘
œ‘
œ‘
œ˜.J™Jšœ‘
œ‘
œ‘
œ˜5J™
Jšœ
‘œ‘
œ‘œ˜+Jšœ
‘œ‘
œ‘
œ˜)Jšœ
‘œ‘
œ‘œ˜+Jšœ
‘œ‘œ‘œ˜1Jš
œ	™	Jš	œ
œœ‘œ‘œ˜;Jš	œ
œœ‘œ‘œ˜:Jšœœ(‘
œ‘
œ‘
œ	œœœœœH˜Ρ
Jš
œ.˜.J˜J˜—šŸ	œœ˜Jšœœ:˜BJšœœ:˜CJš
œœœœ2œ˜^Jšœœœ
˜6J˜J˜—šŸœ˜'Jšœœ˜'Jšœœ
œœ4˜LJšœ	œ
œœ3˜LJšœœœ˜Jšœœœ˜Jšœ‘
œ	‘
œ‘
œ˜?J˜——™šŸœœ
œ
œœœœ˜yJš‘
œœ˜"Jšœœœ
˜Jš
œM™MJ˜3Jš
œ3˜3Jšœœ˜#Jš
œ™Jš
œœ
œ
œ&œ
˜JJš
œœ
œœ"œ
˜IJš
œ™Jš	œ‘œ‘
œ‘
œ‘
œ˜5J™Jšœ
‘œ‘œ‘
œ˜+Jšœ‘
œ‘
œ‘
œ˜1J™
Jšœ
‘œ‘
œ‘œ˜+Jšœ
‘œ‘
œ‘
œ˜)Jšœ
‘œ‘
œ‘œ˜+Jšœ
‘œ‘œ‘œ˜1Jš
œ	™	Jšœ
œœ
œ‘œ‘œ˜VJš	œ
œœ‘œ‘œ˜;Jšœœ)‘
œ‘
œ‘
œ	œœœ œœœœL˜€Jš
œ.˜.J˜J˜—šŸœœ˜$Jšœœ:˜BJšœœ9˜BJšœœ:˜CJšœœœœœœ2œ˜yJšœ œœ	œ
˜GJ˜J˜—šŸœ˜,Jšœœ˜'Jšœœ
œœ4˜LJšœ	œ
œœ6˜OJšœ	œ
œœ3˜LJšœœœ˜Jšœ	œœ˜Jšœœœ˜Jšœ"‘
œ	‘
œ‘
œ˜NJ˜——™šŸœœ˜%Jš‘
œœ˜"Jšœœœ
˜Jšœœ@˜IJšœ
œ<˜Jšœœ
œ˜Jš
œ˜Jš
œ=˜=J˜—Jšœœ‘
œ
‘
œ˜9Jš	œ‘œ‘
œ‘
œ‘
œ˜)Jš
œ™Jšœ‘œ‘œ˜,Jšœœ(‘
œ‘
œ‘
œ	œZ˜‘
Jš
œ-˜-J˜J˜—šŸœ˜-Jš
œJ˜JJš	œœ‘
œ	‘
œ‘
œ
˜)Jš‘
œœ˜"Jšœ
œœ-˜DJšœœ˜"Jš
œ˜Jšœœ
œ
˜Jš
œ'˜'Jš
œ™Jš
œ‘œ‘
œ‘
œœ ˜JJš
œ™Jš
œœ
œ
œ œ
˜DJ˜J˜——™šŸœœ˜+Jš‘
œœ˜"Jšœœœ
˜JšœœH˜WJšœ
œ<˜JJš
œ™Jš	œ‘œ‘
œ‘
œ‘
œ˜)J™Jšœ‘
œ‘
œ‘
œ˜)J™
Jšœ
‘œ‘
œ‘œ˜+Jšœ
‘œ‘
œ‘
œ˜)Jšœ
‘œ‘
œ‘œ˜+Jšœ
‘œ‘œ‘œ˜1Jš
œ	™	Jšœ‘œ‘œ˜-Jšœ‘œ‘œ˜,Jšœœ(‘
œ‘
œ‘
œ	œ„
˜Λ
Jš
œ-˜-J˜J˜—šŸœ˜3Jš
œJ˜JJš	œœ‘
œ	‘
œ‘
œ
˜)Jš‘
œœ˜"Jšœœœ4˜LJšœ
œœ3˜JJšœœ˜$Jšœœ˜"Jš
œ˜Jš
œ	œœ
œ
œ
˜/Jš
œ'˜'Jš
œœ
œ
œ œ
˜DJš
œ™Jš	œ‘œ‘
œ‘
œœ˜/J™Jš	œ‘œ‘
œ‘
œœ˜6J˜J˜——™"šŸœœ˜0Jš‘
œœ˜"Jšœœœ
˜JšœœH˜WJšœ
œA˜RJšœ
œ<˜JJš
œ™Jšœ
‘
œ‘
œ‘
œ˜*J™Jšœ
‘œ‘œ‘
œ˜+Jšœ
‘œ‘
œ‘
œ˜)J™
Jšœ
‘œ‘
œ‘œ˜+Jšœ
‘œ‘
œ‘
œ˜)Jšœ
‘œ‘
œ‘œ˜+Jšœ
‘œ‘œ‘œ˜1Jš
œ	™	Jšœ
œœœ‘œ‘œ˜`Jšœ‘œ‘œ˜-Jšœœ)‘
œ‘
œ‘
œ	œ«
˜σ
Jš
œ-˜-J˜J˜—šŸ!œ˜8Jš
œJ˜JJš	œœ‘
œ	‘
œ‘
œ
˜)Jš‘
œœ˜"Jšœœœ4˜LJšœ
œœ6˜PJšœ
œœ3˜JJšœœ˜$Jšœ	œ˜(Jšœœ˜"Jš
œ˜J˜
Jšœ	œœœ
œœ
œ
˜SJš
œ'˜'Jš
œ-˜-Jš
œœ
œ
œ œ
˜DJš
œœ
œœœ
˜CJš
œ™Jš	œ‘
œ‘
œ‘
œœ˜0J™Jš	œ‘œ‘
œ‘
œœ˜2Jšœœ˜J˜J˜——™šŸœœ˜%Jš‘
œœ˜"Jšœœœ
˜Jš	œ‘œ‘
œ‘
œ‘
œ˜)Jšœœ
œ	‘
œ
‘
œœ‘
œ‘
œœ
˜OJšœœ-œD˜|Jš
œ-˜-J˜J˜—šŸœ˜-Jš
œJ˜JJš	œœ‘
œ	‘
œ‘
œ
˜)Jš‘
œœ˜"Jš
œU˜UJš
œ™Jšœ‘œ‘
œ‘
œ‘
œœ˜/Jš
œ˜J˜——™šŸœœ
œ™%šŸœ!™(šœ
œ
™š
œ*™*Jšœœ
œœ1™IJšœœœ™Jšœœ)™0Jšœœ3œ(œ™{Jš
œ0™0J™—š
œ%™%Jšœœ
œœ,™DJšœœœ™Jšœœ$™+Jšœœ3œ(œ™{Jš
œ0™0J™—š
œ.™.Jšœœ
œœ3™KJšœ	œ
œœ2™KJšœœœ™Jšœœœ™Jšœœ1™8Jšœœ3œ(œ™{Jš
œ0™0J™—š
œ5™5Jšœœ
œœ3™KJšœ	œ
œœ5™NJšœ	œ
œœ2™KJšœœœ™Jšœ	œœ™Jšœœœ™Jšœœ?™FJšœœ3œ(œ™{Jš
œ0™0J™—Jšœ™—J™—Jš
œ,™,J™J™—Kšœbœh™Ξ
šŸœ˜Jšœ'œ
˜+šŸœ!˜(Jšœœœ
˜!Jšœœœ˜(Jšœœœ˜(Jšœœ˜šŸœ˜$Jšœœ3˜CJ˜—Jšœ
œ
œ
˜Jšœ=œ
œ
œ
˜Ošœ=˜GJšœη
œ˜ν
Jšœœ
˜—Jšœ
œœ
œ
˜&Jš
œ.˜.JšœœT˜\Jš
œ.˜.JšœœœM˜dJ˜—Jš	œœ
œ
œ ˜7JšœAœ
œ
˜OJš
œ?˜?Jš
œ,˜,Jšœ
œ
œ
œ
˜Jš
œK˜Kšœ8œœ
˜LJš
œT˜TJšœ!œ1œ1˜‡
Jšœ
˜—Jš
œL˜LJ˜——™Kš
œ1˜1K™Jšœ)˜+Kš
œF˜FK˜Jšœ˜!Kš
œ<˜<K˜Jšœ+˜-Kš
œH˜HK˜Jšœ6˜8Kš
œR˜RK˜Jšœ8˜:Kš
œT˜TK˜JšœD˜FKš
œ`˜`K˜JšœO˜QKš
œj˜jK˜Jšœ8˜:Kš
œT˜T—K˜K˜Kšœ
˜K˜—…—BBdε