DIRECTORY
IO,
TerminalIO,
Rope,
Commander,
Menus,
Labels ,
IP,
IPCTG,
IPCoTab,
IPToolBox,
IPBasicOps,
IPTopOps,
IPTop,
IPMVEditOps;


IPMVEditOpsImpl: CEDAR PROGRAM
IMPORTS IO, TerminalIO, Rope, IPCoTab, IPToolBox, IPBasicOps, IPCTG, IPTopOps 
EXPORTS IPMVEditOps=
BEGIN OPEN TIO: TerminalIO, Top: IPTop, CT: IPCoTab, CTG: IPCTG;
DefaultBrkOtherIfX: BOOL _ FALSE;
DefaultOrientation: CTG.ChType  _ hor;

MenuHit: PUBLIC PROC [top: Top.Ref, command: ATOM, mouse: Menus.MouseButton, shift, control: BOOL] RETURNS [reGeom, refreshFlag: BOOL _ TRUE] ={
SELECT command FROM
$BrkX =>{argStream: IO.STREAM _ IO.RIS[TIO.RequestRope["BreakCross: <refCh> <ch to break>\n"]];
refCh: CTG.Channel _ top.ctg.GetChannel[argStream.GetID];
toBreakCh: CTG.Channel _ top.ctg.GetChannel[argStream.GetID];
TIO.WriteRope["Breaking Cross..."];
[] _ IPTopOps.BreakCross[top, refCh, toBreakCh, TRUE];};
$FomX =>{argStream: IO.STREAM _ IO.RIS[TIO.RequestRope["FormCross: <ch1> <ch2>\n"]];
ch1: CTG.Channel _ top.ctg.GetChannel[argStream.GetID];
ch2: CTG.Channel _ top.ctg.GetChannel[argStream.GetID];
TIO.WriteRope["Form Cross..."];
[] _ IPTopOps.FormCross[top, ch1, ch2, TRUE];};
$RemZ =>{argStream: IO.STREAM _ IO.RIS[TIO.RequestRope["RemoveZ: <zSpine>\n"]];
zSpine: CTG.Channel _ top.ctg.GetChannel[argStream.GetID];
TIO.WriteRope["Remove Z..."];
[] _ IPTopOps.RemoveZ[top, zSpine, TRUE];};
$FomZ =>{argStream: IO.STREAM _ IO.RIS[TIO.RequestRope["FormZ: <comp1> <comp2> <zType: neg/pos>\n"]];
comp1: CTG.Component _ top.coTab.GetComponent[argStream.GetID];
comp2: CTG.Component _ top.coTab.GetComponent[argStream.GetID];
zType: CTG.Side _ IF Rope.Equal[argStream.GetID, "neg", FALSE] THEN neg ELSE pos;
TIO.WriteRope["Form Z..."];
[] _ IPTopOps.FormZ[top, comp1, comp2, zType, TRUE];};
$LtoT =>{argStream: IO.STREAM _ IO.RIS[TIO.RequestRope["LtoT: <ch> <whichEnd: neg/pos>\n"]];
ch: CTG.Channel _ top.ctg.GetChannel[argStream.GetID];
whichEnd: CTG.Side _ IF Rope.Equal[argStream.GetID, "neg", FALSE]  THEN neg ELSE pos;
TIO.WriteRope["Changing L to T..."];
[] _ IPTopOps.LtoT[top, ch, whichEnd, TRUE];};
$TtoL =>{argStream: IO.STREAM _ IO.RIS[TIO.RequestRope["TtoL: <comp> <ch> <lType: neg/pos>\n"]];
co: CT.Component _ top.coTab.GetComponent[argStream.GetID];
ch: CTG.Channel _ top.ctg.GetChannel[argStream.GetID];
lType: CTG.Side _ IF Rope.Equal[argStream.GetID, "neg", FALSE] THEN neg ELSE pos;
TIO.WriteRope["Changing T to L..."];
[] _ IPTopOps.TtoL[top, co, ch, lType, TRUE];};
$FlxKne =>{argStream: IO.STREAM _ IO.RIS[TIO.RequestRope["FlexKnee: <leg> <floor> <whichEnd: neg/pos>\n"]];
leg: CTG.Channel _ top.ctg.GetChannel[argStream.GetID];
floor: CTG.Channel _ top.ctg.GetChannel[argStream.GetID];
whichEnd: CTG.Side _ IF Rope.Equal[argStream.GetID, "neg", FALSE] THEN neg ELSE pos;
TIO.WriteRope["Forming Knee ..."];
[] _ IPTopOps.FlexKnee[top, leg, floor, whichEnd, TRUE];};
$ExtKne =>{argStream: IO.STREAM _ IO.RIS[TIO.RequestRope["ExtendKnee: <shin>\n"]];
shin: CTG.Channel _ top.ctg.GetChannel[argStream.GetID];
TIO.WriteRope["Extending Knee..."];
[] _ IPTopOps.ExtendKnee[top, shin, TRUE];};
$FlipT =>{argStream: IO.STREAM _ IO.RIS[TIO.RequestRope["FlipT: <chToBend> <attachTo> <whichEnd: neg/pos>\n"]];
chToBend: CTG.Channel _ top.ctg.GetChannel[argStream.GetID];
attachTo: CTG.Channel _ top.ctg.GetChannel[argStream.GetID];
whichEnd: CTG.Side _ IF Rope.Equal[argStream.GetID, "neg", FALSE] THEN neg ELSE pos;
TIO.WriteRope["FlippingT..."];
[] _ IPTopOps.FlipT[top, chToBend, attachTo, whichEnd, TRUE];};
$Mrr => {argStream: IO.STREAM _ IO.RIS[TIO.RequestRope["Mirror: <comp> <mirrorOrientation: hor/ver _ ver>\n"]];
comp: CT.Component _ top.coTab.GetComponent[argStream.GetID];
mirrorOrient: CTG.ChType;
IF Rope.Equal[IO.GetID[argStream! IO.EndOfStream => {mirrorOrient _ IPBasicOps.OTFlip[DefaultOrientation]; CONTINUE}], "hor", FALSE]
THEN mirrorOrient _ hor 
ELSE mirrorOrient _ ver;
TIO.WriteRope[Rope.Cat["Mirroring ", CT.GetName[comp], "..."]];
[] _ IPTopOps.Mirror[top, comp, mirrorOrient, TRUE];};
$Rot => {argStream: IO.STREAM _ IO.RIS[TIO.RequestRope["Rotate: <comp> <numberOfRot: INT _ 1>\n"]];
comp: CT.Component _ top.coTab.GetComponent[argStream.GetID];
numberOfRot: INT;
numberOfRot _ IO.GetInt[argStream ! IO.EndOfStream => {numberOfRot _ 1; CONTINUE}];
TIO.WriteRope[Rope.Cat["Rotating ", CT.GetName[comp], "...."]];
[] _ IPTopOps.Rotate[top, comp, numberOfRot, TRUE];};
$Ornt => {argStream: IO.STREAM _ IO.RIS[TIO.RequestRope["Orient: <comp> <opCode: [0..7]>\n"]];
comp: CT.Component _ top.coTab.GetComponent[argStream.GetID];
opCode: INT _ argStream.GetInt;
TIO.WriteRope[Rope.Cat["Orienting ", CT.GetName[comp], "..."]];
[] _ IPTopOps.Orient[top, comp, opCode, TRUE];};
$SetCo => {argStream: IO.STREAM _ IO.RIS[TIO.RequestRope["SetComponent: <comp> <atX, atY: INT _ 0> <active: BOOL _ TRUE>\n"]];
comp: CT.Component _ top.coTab.GetComponent[argStream.GetID];
active: BOOL;
atX, atY: INT;
atX _ IO.GetInt[argStream ! IO.EndOfStream => {atX _ 1; CONTINUE}];
atY _ IO.GetInt[argStream ! IO.EndOfStream => {atY _ 1; CONTINUE}];
active _ IO.GetBool[argStream ! IO.EndOfStream => {active _ TRUE; CONTINUE}];
TIO.WriteRope[Rope.Cat["Setting Componet ", CT.GetName[comp], "..."]];
[] _ IPTopOps.SetComponent[top, comp, active, [atX, atY], TRUE];
reGeom _ FALSE;
refreshFlag _ FALSE;
};
$MovCo => {argStream: IO.STREAM _ IO.RIS[TIO.RequestRope["Move Component: <comp> <byX, byY: INT>\n"]];
comp: CT.Component _ top.coTab.GetComponent[argStream.GetID];
byX: INT _ argStream.GetInt;
byY: INT _ argStream.GetInt;
TIO.WriteRope[Rope.Cat["Moving Component ", CT.GetName[comp], "..."]];
[] _ IPTopOps.MoveComponent[top, comp, [byX, byY], TRUE];
reGeom _ FALSE;
refreshFlag _ FALSE;
};
$SwapCo => {
argStream: IO.STREAM _ IO.RIS[TIO.RequestRope["Swap Components: <comp1> <comp2>\n"]];
comp1: CT.Component _ top.coTab.GetComponent[argStream.GetID];
comp2: CT.Component _ top.coTab.GetComponent[argStream.GetID];
TIO.WriteRope[Rope.Cat["Swapping Components ", CT.GetName[comp1], " and ", CT.GetName[comp2], "..."]];
[]_ IPTopOps.SwapComponents[top, comp1, comp2, TRUE];
};
$SpawnCo => {
argStream: IO.STREAM _ IO.RIS[TIO.RequestRope["Spawn Components: <comp> <negChildName> <posChildName> <splitDirection: hor/ver _ ver> \n"]];
comp: CT.Component _ top.coTab.GetComponent[argStream.GetID];
negChildName: Rope.ROPE _ argStream.GetID;
posChildName: Rope.ROPE _ argStream.GetID;
splitDirection: CTG.ChType;
splitDirection _ IF Rope.Equal[IO.GetID[argStream ! IO.EndOfStream => {splitDirection _ ver; CONTINUE}], "hor", FALSE] THEN hor ELSE ver;
TIO.WriteRope[Rope.Cat[Rope.Cat[CT.GetName[comp], " spawns into ", negChildName], Rope.Cat[" and ", posChildName, "..."]]];
[]_ IPTopOps.SpawnComps[top, comp, negChildName, posChildName, comp.shape, comp.shape, splitDirection, TRUE, TRUE];
};
$SetCoShp => {
argStream: IO.STREAM _ IO.RIS[TIO.RequestRope["Set Component Shape: <comp> <shape: {(x y) sw: (x1 y1), ...nw: (x4 y4)}>\n"]];
comp: CT.Component _ top.coTab.GetComponent[argStream.GetID];
shape: IP.ShapeRep _ IPToolBox.GetShape[argStream]^;
TIO.WriteRope[Rope.Cat["Setting ", CT.GetName[comp], " shape..."]];
[]_ IPTopOps.SetCompShape[top, comp, shape, TRUE, TRUE];
};
$ClrCnr =>{argStream: IO.STREAM _ IO.RIS[TIO.RequestRope["ClearNegCorners: <co> <corner: [0..4] (0 = all, 1 = sw,..., nw = 4)> (<chToUse: hor/ver>)\n"]];
co: CT.Component _  top.coTab.GetComponent[argStream.GetID];
cornerType: NAT _  argStream.GetInt;
chToUse: CTG.ChType;
chToUse _ IF Rope.Equal[IO.GetID[argStream! IO.EndOfStream => {chToUse _ DefaultOrientation; CONTINUE}], "hor", FALSE]  THEN hor ELSE ver;
TIO.WriteRope[Rope.Cat["Clear Neg Corners...", (SELECT cornerType FROM 0 => "all", 1 => "sw", 2 => "se", 3 => "ne", 4 => "nw",  ENDCASE => ERROR), "..."]];
SELECT cornerType FROM
0=> [] _ IPTopOps.ClearAllNegCorners[top, co, chToUse, DefaultBrkOtherIfX, TRUE];
1 => [] _ IPTopOps.ClearNegCorner[top, co, sw, chToUse, DefaultBrkOtherIfX, TRUE];
2 => [] _ IPTopOps.ClearNegCorner[top, co, se, chToUse, DefaultBrkOtherIfX, TRUE];
3 => [] _ IPTopOps.ClearNegCorner[top, co, ne, chToUse, DefaultBrkOtherIfX, TRUE];
4 => [] _ IPTopOps.ClearNegCorner[top, co, nw, chToUse, DefaultBrkOtherIfX, TRUE];
ENDCASE => ERROR;};
$Grw =>{argStream: IO.STREAM _ IO.RIS[TIO.RequestRope["Grow: <coName> <chToSplit> <negBnd> <posBnd>\n"]];
coName: Rope.ROPE _ argStream.GetID; 
co: CT.Component _ top.coTab.GetComponent[coName];
chToSplit: CTG.Channel _ top.ctg.GetChannel[argStream.GetID];
negBnd: CTG.Channel _ top.ctg.GetChannel[argStream.GetID];
posBnd: CTG.Channel _ top.ctg.GetChannel[argStream.GetID];
TIO.WriteRope["Grow..."];
[] _ IPTopOps.Grow[top, co, chToSplit, negBnd, posBnd, TRUE];
};
$Grw1 =>{argStream: IO.STREAM _ IO.RIS[TIO.RequestRope["Grow1: <coName> <host> <hostCorner: [1..4]>\n"]];
coName: Rope.ROPE _ argStream.GetID; 
co: CT.Component _ top.coTab.GetComponent[coName];
host: CT.Component _ top.coTab.GetComponent[argStream.GetID];
hostCorner: CT.CornerTypes _ (SELECT argStream.GetInt FROM 1 => sw, 2 => se, 3=> ne,  ENDCASE => nw);
TIO.WriteRope["Grow1..."];
[] _ IPTopOps.Grow1[top, co, host, hostCorner, TRUE];};
$Shr =>{argStream: IO.STREAM _ IO.RIS[TIO.RequestRope["Shrink: <co> (<shrinkDirectionHint: hor/ver _ hor>)\n"]];
co: CT.Component _ top.coTab.GetComponent[argStream.GetID];
shrinkDirectionHint: CTG.ChType;
TIO.WriteRope["Shrink..."];
IF Rope.Equal[IO.GetID[argStream! IO.EndOfStream => {shrinkDirectionHint _ DefaultOrientation; CONTINUE}], "hor", FALSE] 
THEN shrinkDirectionHint _ hor 
ELSE shrinkDirectionHint _ ver;
[] _ IPTopOps.Shrink[top, co, shrinkDirectionHint, TRUE];};
$BrkXs =>{argStream: IO.STREAM _ IO.RIS[TIO.RequestRope["BreakCrosses: <refCh> <chBnd1> <chBnd2>\n"]];
refCh: CTG.Channel _ top.ctg.GetChannel[argStream.GetID];
chBnd1: CTG.Channel _ top.ctg.GetChannel[argStream.GetID];
chBnd2: CTG.Channel _ top.ctg.GetChannel[argStream.GetID];
TIO.WriteRope["Breaking Crosses..."];
[] _ IPTopOps.BreakCrosses[top, refCh, chBnd1, chBnd2, TRUE];};
ENDCASE => ERROR;
};--MenuHit

END.
š--File: IPMVEditOpsImpl.mesa
Last Edited by: CSChow, January 28, 1985 7:05:53 am PST
Preas, August 1, 1986 9:02:30 pm PDT
##Some minor details##--
Κ	ό˜J™™7Icode™$—J˜š
Οk	˜	Kšœ
˜Kš
œ˜Kš
œ˜Jš
œ
˜
J˜Jš
œ˜Jšœ
˜Jšœ
˜J˜J˜
J˜Jš
œ	˜	Jš
œ˜Jš
œ˜—J˜J˜šœœ
˜Jšœ
œ4œ˜NJšœ
˜Iunitšœ
œ
œœœœ
˜@Lš
œ™Jšœœœ
˜!Jšœœ˜&L˜šΟnœœ
œœ,œœœœ˜
šœ	˜šœœ
œœ
œ
œ5˜_Jšœœ/˜9Jšœœ/˜=Jšœ ˜#Kšœ0œ˜8—šœœ
œœ
œ
œ*˜TJšœœ/˜7Jšœœ/˜7Jšœ˜Jšœ'œ˜/—šœœ
œœ
œ
œ%˜OJšœœ/˜:Jšœ˜Kšœ#œ˜+—šœœ
œœ
œ
œ;˜eJšœœ5˜?Kšœœ5˜?Kšœœœ$œœœ˜QJšœ˜Kšœ.œ˜6—šœœ
œœ
œ
œ2˜\Jšœœ/˜6Kšœ
œœ$œœœ˜UJšœ!˜$Jšœ&œ˜.—šœœ
œœ
œ
œ6˜`Jšœœ5˜;Jšœœ/˜6Kšœœœ$œœœ˜QJšœ!˜$Jšœ'œ˜/—šœœ
œœ
œ
œ?˜kJšœœ/˜7Jšœœ/˜9Kšœ
œœ$œœœ˜TJšœ˜"Jšœ2œ˜:—šœœ
œœ
œ
œ&˜RJšœœ/˜8Jšœ ˜#Jšœ$œ˜,—šœœ
œœ
œ
œD˜oJšœ
œ/˜<Jšœ
œ/˜<Jšœ
œœ$œœœ˜TJšœ˜Jšœ7œ˜?—šœœ
œœ
œ
œE˜oJšœœ5˜=Jšœœ˜š
œœœGœœ
˜„
Kšœ˜Kšœ˜—Jšœ"œ˜?Kšœ.œ˜6—šœœ
œœ
œ
œ9˜cJšœœ5˜=Jšœ
œ
˜Jšœœœ"œ˜SJšœ!œ˜?Jšœ-œ˜5—šœœ
œœ
œ
œ3˜^Jšœœ5˜=Jšœœ˜Jšœ"œ˜?Jšœ(œ˜0—šœœ
œœ
œ
œR˜~Jšœœ5˜=Jšœ˜
Jšœ
œ
˜Jšœœœœ˜CJšœœœœ˜CJšœ	œœ œ˜MJšœ)œ˜FJšœ:œ˜@Jšœ	œ
˜Jšœœ
˜Jš
œ˜—šœœ
œœ
œ
œ:˜fJšœœ5˜=Jšœœ˜Jšœœ˜Jšœ)œ˜FJšœ3œ˜9Jšœ	œ
˜Jšœœ
˜Jš
œ˜—˜Jšœœ
œœ
œ
œ4˜UJšœœ5˜>Jšœœ5˜>Jšœ,œœ˜fJšœ/œ˜5J˜—˜
Jšœœ
œœ
œ
œk˜Œ
Jšœœ5˜=Jš
œ*˜*Jš
œ*˜*Kšœœ˜Kšœœœœ'œœœœ˜‰
Jšœx˜{Jšœgœœ˜sJ˜—š
œ˜Jšœœ
œœ
œ
œ\˜}Jšœœ5˜=Jš
œ4˜4Jšœ œ˜CJšœ,œœ˜8J˜—šœœ
œœ
œ
œm˜™
Jšœœ6˜<Jšœœ˜$Jšœ	œ˜Kšœ
œœœ/œœœœ˜Š
Kš
œ-œœ:œœ˜›
šœ˜KšœKœ˜QKšœLœ˜RKšœLœ˜RKšœLœ˜RKšœLœ˜RKšœœ˜——šœœ
œœ
œ
œ@˜iJšœ
œ˜%Jšœœ,˜2Jšœœ/˜=Jšœœ/˜:Jšœœ/˜:Jšœ˜Jšœ7œ˜=Kš
œ˜—šœœ
œœ
œ
œ?˜iJšœ
œ˜%Jšœœ,˜2Jšœœ5˜=Kš	œœœœœ˜eJšœ˜Kšœ/œ˜7—šœœ
œœ
œ
œG˜pJšœœ5˜;Jšœœ˜ Jšœ˜š
œœœ;œœ˜yJšœ˜Jšœ˜—Kšœ3œ˜;—šœœ
œœ
œ
œ;˜fJšœœ/˜9Jšœœ/˜:Jšœœ/˜:Jšœ"˜%Kšœ7œ˜?—Kšœœ
˜—LšœΟc	˜—L˜Lšœ
˜——…—'1’