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. šMoveCopyCommands.mesa (part of Chipndale) by Christian Jacobi July 11, 1983 3:42 pm last edited Christian Jacobi February 16, 1984 3:55 pm Êú˜Jšœ+™+Jšœ,™,Jšœ8™8J™šÏk ˜ Jšœ˜J˜J˜ J˜J˜J˜J˜J˜—šÏnœœ˜Jšœ0˜7—Jš˜J˜šž œœ˜.Jš˜Jšœœ˜J˜-˜ J˜Jšœœ;˜G—šœ˜ ˜*J˜=—˜*J˜>J˜>—˜)J˜>—˜)J˜?—˜)J˜?—Jšœ&˜-—Jšœ˜J˜—šžœœ˜(Jš˜J˜*J˜Jš˜JšœœœP˜eJšœ˜—J˜šžœœ˜,Jš˜J˜'Jšœ%œ3˜ZJšœ˜J˜—šž œœ˜.Jš˜J˜)Jšœ%œ4˜[Jšœ˜J˜—šž œœ˜.Jš˜J˜)Jšœ%œ4˜[Jšœ˜J˜—šžœœ˜/Jš˜J˜*Jšœ%œ3˜ZJšœ˜J˜—šžœœ˜0Jšœœœ˜.Jšœœ˜J˜cJ˜.J˜+Jšœ˜J˜—šžœœ˜Jš˜Jšœœ ˜=JšœB˜BJšœ;˜;J˜5J˜2J˜3J˜7J˜7J˜9J˜*J˜*J˜0J˜0J˜6Jšœ:˜:Jšœ˜J˜—J˜Jšœ˜—…—´H