MoveCopyCommands.mesa (part of Chipndale)
by Christian Jacobi July 11, 1983 3:42 pm
last edited Christian Jacobi February 16, 1984 3:55 pm
DIRECTORY
CD,
CDCommands,
CDOrient,
CDSequencer,
CDValue,
Rope,
TerminalIO;
MoveCopyCommands:
CEDAR
PROGRAM
IMPORTS CDCommands, CDSequencer, CDValue, TerminalIO =
BEGIN
TransformS:
PROC [comm: CDSequencer.Command] =
BEGIN
n: CARDINAL;
TerminalIO.WriteRope["Transform selected: "];
n ← TerminalIO.RequestSelection[
label: "transform selected",
choice: LIST["mirror x", "mirror y", "rot 90", "rot 180", "rot 270"]];
SELECT n
FROM
1 => {TerminalIO.WriteRope["mirror x\n"];
CDCommands.TransformSelected[comm.design, CDOrient.mirrorX]};
2 => {TerminalIO.WriteRope["mirror y\n"];
CDCommands.TransformSelected[comm.design, CDOrient.rotate180];
CDCommands.TransformSelected[comm.design, CDOrient.mirrorX];};
3 => {TerminalIO.WriteRope["rot 90\n"];
CDCommands.TransformSelected[comm.design, CDOrient.rotate90]};
4 => {TerminalIO.WriteRope["rot 180\n"];
CDCommands.TransformSelected[comm.design, CDOrient.rotate180]};
5 => {TerminalIO.WriteRope["rot 270\n"];
CDCommands.TransformSelected[comm.design, CDOrient.rotate270]};
ENDCASE => TerminalIO.WriteRope["Skipped\n"];
END;
RotS:
PROC [comm: CDSequencer.Command] =
BEGIN
TerminalIO.WriteRope["Rotate selected\n"];
CDCommands.TransformSelected[comm.design, CDOrient.rotate90]
END;
RotP:
PROC [comm: CDSequencer.Command] =
BEGIN
TerminalIO.WriteRope["Rotate pointed\n"];
CDCommands.TransformPointed[comm.design, CDOrient.rotate90, comm.pos]
END;
MirrorS:
PROC [comm: CDSequencer.Command] =
BEGIN
TerminalIO.WriteRope["Mirror selected\n"];
CDCommands.TransformSelected[comm.design, CDOrient.mirrorX]
END;
MirrorP:
PROC [comm: CDSequencer.Command] =
BEGIN
TerminalIO.WriteRope["Mirror pointed\n"];
CDCommands.TransformPointed[comm.design, CDOrient.mirrorX, comm.pos]
END;
StretchyMoveCommand:
PROC [comm: CDSequencer.Command] =
BEGIN
TerminalIO.WriteRope["Move selected stretchy\n"];
CDCommands.MoveSelected[design: comm.design, offset: CD.DesignPosition[comm.pos.x-comm.sPos.x, comm.pos.y-comm.sPos.y], stretchy: yes]
END;
MoveNoStretchCommand:
PROC [comm: CDSequencer.Command] =
BEGIN
TerminalIO.WriteRope["Move selected (no stretch)\n"];
CDCommands.MoveSelected[design: comm.design, offset: CD.DesignPosition[comm.pos.x-comm.sPos.x, comm.pos.y-comm.sPos.y], stretchy: no]
END;
MoveCommand:
PROC [comm: CDSequencer.Command] =
BEGIN
TerminalIO.WriteRope["Move selected\n"];
CDCommands.MoveSelected[design: comm.design, offset: CD.DesignPosition[comm.pos.x-comm.sPos.x, comm.pos.y-comm.sPos.y], stretchy: option]
END;
CopyCommand:
PROC [comm: CDSequencer.Command] =
BEGIN
TerminalIO.WriteRope["Copy selected\n"];
CDCommands.CopySelected[comm.design, CD.DesignPosition[comm.pos.x-comm.sPos.x, comm.pos.y-comm.sPos.y]]
END;
StepValue:
PROC[design:
CD.Design]
RETURNS [
CD.DesignNumber] =
BEGIN
RETURN [CD.lambda*MAX[CDValue.FetchInt[boundTo: design, key: $CDxStepValue, propagation: global], 1]]
END;
LambdaUp:
PROC [comm: CDSequencer.Command] =
BEGIN
TerminalIO.WriteRope["Move step up\n"];
CDCommands.MoveSelected[comm.design, CD.DesignPosition[0, StepValue[comm.design]], option]
END;
LambdaDown:
PROC [comm: CDSequencer.Command] =
BEGIN
TerminalIO.WriteRope["Move step down\n"];
CDCommands.MoveSelected[comm.design, CD.DesignPosition[0, -StepValue[comm.design]], option]
END;
LambdaLeft:
PROC [comm: CDSequencer.Command] =
BEGIN
TerminalIO.WriteRope["Move step left\n"];
CDCommands.MoveSelected[comm.design, CD.DesignPosition[-StepValue[comm.design], 0], option]
END;
LambdaRight:
PROC [comm: CDSequencer.Command] =
BEGIN
TerminalIO.WriteRope["Move step right\n"];
CDCommands.MoveSelected[comm.design, CD.DesignPosition[StepValue[comm.design], 0], option]
END;
RenameDesign:
PROC [comm: CDSequencer.Command] =
BEGIN ENABLE TerminalIO.UserAbort => CONTINUE;
name: Rope.ROPE;
TerminalIO.WriteRope["Rename design "]; TerminalIO.WriteRope[comm.design.name]; TerminalIO.WriteLn;
name ← TerminalIO.RequestRope["enter name: "];
CDCommands.RenameDesign[comm.design, name];
END;
Impl:
PROC [] =
BEGIN
CDValue.StoreInt[boundTo: NIL, key: $CDxStepValue, value: 1];
CDSequencer.ImplementCommand[$StretchyMoveS, StretchyMoveCommand];
CDSequencer.ImplementCommand[$MoveS, MoveNoStretchCommand];
CDSequencer.ImplementCommand[$AutMoveS, MoveCommand];
CDSequencer.ImplementCommand[$CopyS, CopyCommand];
CDSequencer.ImplementCommand[$LambdaUpS, LambdaUp];
CDSequencer.ImplementCommand[$LambdaDownS, LambdaDown];
CDSequencer.ImplementCommand[$LambdaLeftS, LambdaLeft];
CDSequencer.ImplementCommand[$LambdaRightS, LambdaRight];
CDSequencer.ImplementCommand[$RotS, RotS];
CDSequencer.ImplementCommand[$RotP, RotP];
CDSequencer.ImplementCommand[$MirrorS, MirrorS];
CDSequencer.ImplementCommand[$MirrorP, MirrorP];
CDSequencer.ImplementCommand[$TransformS, TransformS];
CDSequencer.ImplementCommand[$RenameDesign, RenameDesign];
END;
Impl[];
END.