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


IPMVEditOpsImpl: CEDAR PROGRAM
IMPORTS IO, IPCoTab, IPOrient, IPToolBox, IPBasicOps, IPCTG, IPTopOps, Rope, TerminalIO 
EXPORTS IPMVEditOps =
BEGIN OPEN 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[TerminalIO.RequestRope["BreakCross: <refCh> <ch to break>\n"]];
refCh: CTG.Channel _ top.ctg.GetChannel[argStream.GetID];
toBreakCh: CTG.Channel _ top.ctg.GetChannel[argStream.GetID];
TerminalIO.PutRope["Breaking Cross..."];
[] _ IPTopOps.BreakCross[top, refCh, toBreakCh, TRUE];};
$FomX =>{argStream: IO.STREAM _ IO.RIS[TerminalIO.RequestRope["FormCross: <ch1> <ch2>\n"]];
ch1: CTG.Channel _ top.ctg.GetChannel[argStream.GetID];
ch2: CTG.Channel _ top.ctg.GetChannel[argStream.GetID];
TerminalIO.PutRope["Form Cross..."];
[] _ IPTopOps.FormCross[top, ch1, ch2, TRUE];};
$RemZ =>{argStream: IO.STREAM _ IO.RIS[TerminalIO.RequestRope["RemoveZ: <zSpine>\n"]];
zSpine: CTG.Channel _ top.ctg.GetChannel[argStream.GetID];
TerminalIO.PutRope["Remove Z..."];
[] _ IPTopOps.RemoveZ[top, zSpine, TRUE];};
$FomZ =>{argStream: IO.STREAM _ IO.RIS[TerminalIO.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;
TerminalIO.PutRope["Form Z..."];
[] _ IPTopOps.FormZ[top, comp1, comp2, zType, TRUE];};
$LtoT =>{argStream: IO.STREAM _ IO.RIS[TerminalIO.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;
TerminalIO.PutRope["Changing L to T..."];
[] _ IPTopOps.LtoT[top, ch, whichEnd, TRUE];};
$TtoL =>{argStream: IO.STREAM _ IO.RIS[TerminalIO.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;
TerminalIO.PutRope["Changing T to L..."];
[] _ IPTopOps.TtoL[top, co, ch, lType, TRUE];};
$FlxKne =>{argStream: IO.STREAM _ IO.RIS[TerminalIO.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;
TerminalIO.PutRope["Forming Knee ..."];
[] _ IPTopOps.FlexKnee[top, leg, floor, whichEnd, TRUE];};
$ExtKne =>{argStream: IO.STREAM _ IO.RIS[TerminalIO.RequestRope["ExtendKnee: <shin>\n"]];
shin: CTG.Channel _ top.ctg.GetChannel[argStream.GetID];
TerminalIO.PutRope["Extending Knee..."];
[] _ IPTopOps.ExtendKnee[top, shin, TRUE];};
$FlipT =>{argStream: IO.STREAM _ IO.RIS[TerminalIO.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;
TerminalIO.PutRope["FlippingT..."];
[] _ IPTopOps.FlipT[top, chToBend, attachTo, whichEnd, TRUE];};
$Mrr => {argStream: IO.STREAM _ IO.RIS[TerminalIO.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;
TerminalIO.PutRope[Rope.Cat["Mirroring ", CT.GetName[comp], "..."]];
[] _ IPTopOps.Mirror[top, comp, mirrorOrient, TRUE];};
$Rot => {argStream: IO.STREAM _ IO.RIS[TerminalIO.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}];
TerminalIO.PutRope[Rope.Cat["Rotating ", CT.GetName[comp], "...."]];
[] _ IPTopOps.Rotate[top, comp, numberOfRot, TRUE];};
$Ornt => {argStream: IO.STREAM _ IO.RIS[TerminalIO.RequestRope["Orient: <comp> <opCode: [0..7]>\n"]];
comp: CT.Component _ top.coTab.GetComponent[argStream.GetID];
opCode: IP.Orientation _ IPOrient.CDIntToOrien[argStream.GetInt];
TerminalIO.PutRope[Rope.Cat["Orienting ", CT.GetName[comp], "..."]];
[] _ IPTopOps.Orient[top, comp, opCode, TRUE];};
$SetCo => {argStream: IO.STREAM _ IO.RIS[TerminalIO.RequestRope["SetComponent: <comp> <atX, atY: INT _ 0> <active: BOOL _ TRUE>\n"]];
comp: CT.Component _ top.coTab.GetComponent[IO.GetTokenRope[argStream, IO.IDProc].token];
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}];
TerminalIO.PutRope[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[TerminalIO.RequestRope["Move Component: <comp> <byX, byY: INT>\n"]];
comp: CT.Component _ top.coTab.GetComponent[IO.GetTokenRope[argStream, IO.IDProc].token];
byX: INT _ argStream.GetInt;
byY: INT _ argStream.GetInt;
TerminalIO.PutRope[Rope.Cat["Moving Component ", CT.GetName[comp], "..."]];
[] _ IPTopOps.MoveComponent[top, comp, [byX, byY], TRUE];
reGeom _ FALSE;
refreshFlag _ FALSE;
};
$SwapCo => {
argStream: IO.STREAM _ IO.RIS[TerminalIO.RequestRope["Swap Components: <comp1> <comp2>\n"]];
comp1: CT.Component _ top.coTab.GetComponent[IO.GetTokenRope[argStream, IO.IDProc].token];
comp2: CT.Component _ top.coTab.GetComponent[IO.GetTokenRope[argStream, IO.IDProc].token];
TerminalIO.PutRope[Rope.Cat["Swapping Components ", CT.GetName[comp1], " and ", CT.GetName[comp2], "..."]];
[]_ IPTopOps.SwapComponents[top, comp1, comp2, TRUE];
};
$SpawnCo => {
argStream: IO.STREAM _ IO.RIS[TerminalIO.RequestRope["Spawn Components: <comp> <negChildName> <posChildName> <splitDirection: hor/ver _ ver> \n"]];
comp: CT.Component _ top.coTab.GetComponent[IO.GetTokenRope[argStream, IO.IDProc].token];
negChildName: Rope.ROPE _ IO.GetTokenRope[argStream, IO.IDProc].token;
posChildName: Rope.ROPE _ IO.GetTokenRope[argStream, IO.IDProc].token;
splitDirection: CTG.ChType;
splitDirection _ IF Rope.Equal[IO.GetID[argStream ! IO.EndOfStream => {splitDirection _ ver; CONTINUE}], "hor", FALSE] THEN hor ELSE ver;
TerminalIO.PutRope[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[TerminalIO.RequestRope["Set Component Shape: <comp> <shape: {(x y) sw: (x1 y1), ...nw: (x4 y4)}>\n"]];
comp: CT.Component _ top.coTab.GetComponent[IO.GetTokenRope[argStream, IO.IDProc].token];
shape: IP.ShapeRep _ IPToolBox.GetShape[argStream]^;
TerminalIO.PutRope[Rope.Cat["Setting ", CT.GetName[comp], " shape..."]];
[]_ IPTopOps.SetCompShape[top, comp, shape, TRUE, TRUE];
};
$ClrCnr =>{argStream: IO.STREAM _ IO.RIS[TerminalIO.RequestRope["ClearNegCorners: <co> <corner: [0..4] (0 = all, 1 = sw,..., nw = 4)> (<chToUse: hor/ver>)\n"]];
co: CT.Component _  top.coTab.GetComponent[IO.GetTokenRope[argStream, IO.IDProc].token];
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;
TerminalIO.PutRope[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[TerminalIO.RequestRope["Grow: <coName> <chToSplit> <negBnd> <posBnd>\n"]];
coName: Rope.ROPE _ IO.GetTokenRope[argStream, IO.IDProc].token; 
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];
TerminalIO.PutRope["Grow..."];
[] _ IPTopOps.Grow[top, co, chToSplit, negBnd, posBnd, TRUE];
};
$Grw1 =>{argStream: IO.STREAM _ IO.RIS[TerminalIO.RequestRope["Grow1: <coName> <host> <hostCorner: [1..4]>\n"]];
coName: Rope.ROPE _ IO.GetTokenRope[argStream, IO.IDProc].token; 
co: CT.Component _ top.coTab.GetComponent[coName];
host: CT.Component _ top.coTab.GetComponent[IO.GetTokenRope[argStream, IO.IDProc].token];
hostCorner: CT.CornerTypes _ (SELECT argStream.GetInt FROM 1 => sw, 2 => se, 3=> ne,  ENDCASE => nw);
TerminalIO.PutRope["Grow1..."];
[] _ IPTopOps.Grow1[top, co, host, hostCorner, TRUE];};
$Shr =>{argStream: IO.STREAM _ IO.RIS[TerminalIO.RequestRope["Shrink: <co> (<shrinkDirectionHint: hor/ver _ hor>)\n"]];
co: CT.Component _ top.coTab.GetComponent[IO.GetTokenRope[argStream, IO.IDProc].token];
shrinkDirectionHint: CTG.ChType;
TerminalIO.PutRope["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[TerminalIO.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];
TerminalIO.PutRope["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˜šœœ
˜Jšœ
œ+œ˜XJšœ˜Iunitš
œ
œ
œœœ
˜/Lš
œ™Jšœœœ
˜!Jšœœ˜&L˜šΟnœœ
œœ,œœœœ˜
šœ	˜šœœ
œœ
œ
œ)˜fJšœœ/˜9Jšœœ/˜=Jšœ˜(Kšœ0œ˜8—šœœ
œœ
œ
œ˜[Jšœœ/˜7Jšœœ/˜7Jšœ˜$Jšœ'œ˜/—šœœ
œœ
œ
œ˜VJšœœ/˜:Jšœ˜"Kšœ#œ˜+—šœœ
œœ
œ
œ/˜lJšœœ5˜?Kšœœ5˜?Kšœœœ$œœœ˜QJšœ˜ Kšœ.œ˜6—šœœ
œœ
œ
œ&˜cJšœœ/˜6Kšœ
œœ$œœœ˜UJšœ˜)Jšœ&œ˜.—šœœ
œœ
œ
œ*˜gJšœœ5˜;Jšœœ/˜6Kšœœœ$œœœ˜QJšœ˜)Jšœ'œ˜/—šœœ
œœ
œ
œ3˜rJšœœ/˜7Jšœœ/˜9Kšœ
œœ$œœœ˜TJšœ˜'Jšœ2œ˜:—šœœ
œœ
œ
œ˜YJšœœ/˜8Jšœ˜(Jšœ$œ˜,—šœœ
œœ
œ
œ8˜vJšœ
œ/˜<Jšœ
œ/˜<Jšœ
œœ$œœœ˜TJšœ˜#Jšœ7œ˜?—šœœ
œœ
œ
œ9˜vJšœœ5˜=Jšœœ˜š
œœœGœœ
˜„
Kšœ˜Kšœ˜—Jšœœ˜DKšœ.œ˜6—šœœ
œœ
œ
œ-˜jJšœœ5˜=Jšœ
œ
˜Jšœœœ"œ˜SJšœœ˜DJšœ-œ˜5—šœœ
œœ
œ
œ'˜eJšœœ5˜=Jšœœ7˜AJšœœ˜DJšœ(œ˜0—šœœ
œœ
œ
œF˜…
Jšœœ$œœ˜YJšœ˜
Jšœ
œ
˜Jšœœœœ˜CJšœœœœ˜CJšœ	œœ œ˜MJšœœ˜KJšœ:œ˜@Jšœ	œ
˜Jšœœ
˜Jš
œ˜—šœœ
œœ
œ
œ.˜mJšœœQ˜YJšœœ˜Jšœœ˜Jšœœ˜KJšœ3œ˜9Jšœ	œ
˜Jšœœ
˜Jš
œ˜—˜Jšœœ
œœ
œ
œ(˜\JšœœQ˜ZJšœœQ˜ZJšœ"œœ˜kJšœ/œ˜5J˜—˜
Jšœœ
œœ
œ
œ_˜“
JšœœQ˜YJš
œF˜FJš
œF˜FKšœœ˜Kšœœœœ'œœœœ˜‰
Jšœn˜€
Jšœgœœ˜sJ˜—š
œ˜Jšœœ
œœ
œ
œP˜„
JšœœQ˜YJš
œ4˜4Jšœœ˜HJšœ,œœ˜8J˜—šœœ
œœ
œ
œa˜ 
JšœœR˜XJšœœ˜$Jšœ	œ˜Kšœ
œœœ/œœœœ˜Š
Kš
œ#œœ:œœ˜ 
šœ˜KšœKœ˜QKšœLœ˜RKšœLœ˜RKšœLœ˜RKšœLœ˜RKšœœ˜——šœœ
œœ
œ
œ4˜pJšœ
œ0˜AJšœœ,˜2Jšœœ/˜=Jšœœ/˜:Jšœœ/˜:Jšœ˜Jšœ7œ˜=Kš
œ˜—šœœ
œœ
œ
œ3˜pJšœ
œ0˜AJšœœ,˜2JšœœQ˜YKš	œœœœœ˜eJšœ
˜Kšœ/œ˜7—šœœ
œœ
œ
œ;˜wJšœœQ˜WJšœœ˜ Jšœ˜ š
œœœ;œœ˜yJšœ˜Jšœ˜—Kšœ3œ˜;—šœœ
œœ
œ
œ/˜mJšœœ/˜9Jšœœ/˜:Jšœœ/˜:Jšœ˜*Kšœ7œ˜?—Kšœœ
˜—LšœΟc	˜—L˜Lšœ
˜——…—)¦4F