CDVSomeCursors.mesa
Copyright © 1983, 1987 by Xerox Corporation. All rights reserved.
Created by Christian Jacobi, August 5, 1983 11:07 am
Last edited by: Christian Jacobi, April 1, 1987 7:27:39 pm PST
DIRECTORY
CD,
CDLayers,
CDSequencer,
CDViewerBackdoor,
CDVPrivate,
CDVScale,
Imager,
ImagerBackdoor,
InputFocus,
RuntimeError,
PrincOpsUtils,
Process,
TIPUser,
ViewerClasses;
CDVSomeCursors:
CEDAR
PROGRAM
IMPORTS CDLayers, CDSequencer, CDVPrivate, CDViewerBackdoor, CDVScale, Imager, ImagerBackdoor, InputFocus, PrincOpsUtils, Process, RuntimeError, TIPUser =
BEGIN
ViewerPos2:
PROC [me: CDVPrivate.VRef]
RETURNS [
CD.Position] =
INLINE {
RETURN [CDVScale.DesignToViewerPosition[me.scale, me.stopVC]];
};
ViewerPos1:
PROC [me: CDVPrivate.VRef]
RETURNS [
CD.Position] =
INLINE {
RETURN [CDVScale.DesignToViewerPosition[me.scale, me.startVC]];
};
DefaultCursor:
PROC[me: CDVPrivate.VRef] = {
p2: CD.Position = ViewerPos2[me];
CDVPrivate.InvertArea[me, p2.x-8, p2.y, p2.x+8, p2.y];
CDVPrivate.InvertArea[me, p2.x, p2.y-8, p2.x, p2.y+8];
};
ArrowCursor:
PROC [me: CDVPrivate.VRef] = {
p1: CD.Position = ViewerPos1[me];
p2: CD.Position = ViewerPos2[me];
Imager.SetColor[me.viewContext, ImagerBackdoor.invert];
Imager.MaskVector[me.viewContext, [p1.x, p1.y], [p2.x, p2.y]];
};
PseudoArrowCursor:
PROC [me: CDVPrivate.VRef] = {
ENABLE RuntimeError.
UNCAUGHT => {
IF CDVPrivate.ShallContinue[me, TRUE, "cursor"] THEN GOTO oops;
};
p1: CD.Position = ViewerPos1[me];
p2: CD.Position = ViewerPos2[me];
CDVPrivate.InvertArea[me, p1.x, p1.y, p1.x, p2.y];
CDVPrivate.InvertArea[me, p1.x, p2.y, p2.x, p2.y];
};
RectCursor:
PROC[me: CDVPrivate.VRef] = {
ENABLE RuntimeError.
UNCAUGHT => {
IF CDVPrivate.ShallContinue[me, TRUE, "cursor"] THEN GOTO oops;
};
p1: CD.Position = ViewerPos1[me];
p2: CD.Position = ViewerPos2[me];
CDVPrivate.InvertArea[me, p1.x, p1.y, p1.x, p2.y];
CDVPrivate.InvertArea[me, p1.x, p2.y, p2.x, p2.y];
CDVPrivate.InvertArea[me, p2.x, p2.y, p2.x, p1.y];
CDVPrivate.InvertArea[me, p2.x, p1.y, p1.x, p1.y];
EXITS oops => NULL;
};
LCursor:
PROC[me: CDVPrivate.VRef] = {
ENABLE RuntimeError.
UNCAUGHT => {
IF CDVPrivate.ShallContinue[me, TRUE, "cursor"] THEN GOTO oops;
};
yi, yo, xi, xo: INT; --i=inner, o=outer, if p1 considered center
wireWidth:
CD.Number =
MAX[CDVScale.DesignToViewerScalar[me.scale, me.defaultWidthVC], 1];
p1: CD.Position = ViewerPos1[me];
p2: CD.Position = ViewerPos2[me];
IF me.firstHorizontalVC
THEN {
IF p2.x<=p1.x
AND p2.x>=p1.x-wireWidth
AND (p2.y<p1.y
OR p2.y>p1.y+wireWidth)
THEN {
-- sorry, only vertical, p2.x ignored
CDVPrivate.InvertArea[me, p1.x, p2.y, p1.x, p1.y];
CDVPrivate.InvertArea[me, p1.x, p1.y, p1.x+wireWidth, p1.y];
CDVPrivate.InvertArea[me, p1.x+wireWidth, p1.y, p1.x+wireWidth, p2.y];
CDVPrivate.InvertArea[me, p1.x+wireWidth, p2.y, p1.x, p2.y];
RETURN
};
IF p2.x>=p1.x THEN {xi ← p2.x; xo ← xi+wireWidth}
ELSE {xo ← p2.x; xi ← xo+wireWidth};
IF p2.y<p1.y
THEN {
-- L shaped, down
CDVPrivate.InvertArea[me, p1.x, p1.y, xi, p1.y];
CDVPrivate.InvertArea[me, xi, p1.y, xi, p2.y];
CDVPrivate.InvertArea[me, xi, p2.y, xo, p2.y];
CDVPrivate.InvertArea[me, xo, p2.y, xo, p1.y+wireWidth];
CDVPrivate.InvertArea[me, xo, p1.y+wireWidth, p1.x, p1.y+wireWidth];
CDVPrivate.InvertArea[me, p1.x, p1.y+wireWidth, p1.x, p1.y];
RETURN
};
IF p2.y>p1.y+wireWidth
THEN {
-- L shaped, up
CDVPrivate.InvertArea[me, p1.x, p1.y, xo, p1.y];
CDVPrivate.InvertArea[me, xo, p1.y, xo, p2.y];
CDVPrivate.InvertArea[me, xo, p2.y, xi, p2.y];
CDVPrivate.InvertArea[me, xi, p2.y, xi, p1.y+wireWidth];
CDVPrivate.InvertArea[me, xi, p1.y+wireWidth, p1.x, p1.y+wireWidth];
CDVPrivate.InvertArea[me, p1.x, p1.y+wireWidth, p1.x, p1.y];
RETURN
};
-- only horizontal
CDVPrivate.InvertArea[me, p1.x, p1.y, p2.x, p1.y];
CDVPrivate.InvertArea[me, p2.x, p1.y, p2.x, p1.y+wireWidth];
CDVPrivate.InvertArea[me, p2.x, p1.y+wireWidth, p1.x, p1.y+wireWidth];
CDVPrivate.InvertArea[me, p1.x, p1.y+wireWidth, p1.x, p1.y];
}
ELSE
-- NOT me.firstHorizontalVC -- {
IF p2.y<=p1.y
AND p2.y>=p1.y-wireWidth
AND (p2.x<p1.x
OR p2.x>p1.x+wireWidth)
THEN {
-- sorry, only horizontal, p2.y ignored
CDVPrivate.InvertArea[me, p2.x, p1.y, p1.x, p1.y];
CDVPrivate.InvertArea[me, p1.x, p1.y, p1.x, p1.y+wireWidth];
CDVPrivate.InvertArea[me, p1.x, p1.y+wireWidth, p2.x, p1.y+wireWidth];
CDVPrivate.InvertArea[me, p2.x, p1.y+wireWidth, p2.x, p1.y];
RETURN
};
IF p2.y>=p1.y THEN {yi ← p2.y; yo ← yi+wireWidth}
ELSE {yo ← p2.y; yi ← yo+wireWidth};
IF p2.x<p1.x
THEN {
-- L shaped, left
CDVPrivate.InvertArea[me, p1.x, p1.y, p1.x, yi];
CDVPrivate.InvertArea[me, p1.x, yi, p2.x, yi];
CDVPrivate.InvertArea[me, p2.x, yi, p2.x, yo];
CDVPrivate.InvertArea[me, p2.x, yo, p1.x+wireWidth, yo];
CDVPrivate.InvertArea[me, p1.x+wireWidth, yo, p1.x+wireWidth, p1.y];
CDVPrivate.InvertArea[me, p1.x+wireWidth, p1.y, p1.x, p1.y];
RETURN
};
IF p2.x>p1.x+wireWidth
THEN {
-- L shaped, right
CDVPrivate.InvertArea[me, p1.x, p1.y, p1.x, yo];
CDVPrivate.InvertArea[me, p1.x, yo, p2.x, yo];
CDVPrivate.InvertArea[me, p2.x, yo, p2.x, yi];
CDVPrivate.InvertArea[me, p2.x, yi, p1.x+wireWidth, yi];
CDVPrivate.InvertArea[me, p1.x+wireWidth, yi, p1.x+wireWidth, p1.y];
CDVPrivate.InvertArea[me, p1.x+wireWidth, p1.y, p1.x, p1.y];
RETURN
};
-- only vertical
CDVPrivate.InvertArea[me, p1.x, p1.y, p1.x, p2.y];
CDVPrivate.InvertArea[me, p1.x, p2.y, p1.x+wireWidth, p2.y];
CDVPrivate.InvertArea[me, p1.x+wireWidth, p2.y, p1.x+wireWidth, p1.y];
CDVPrivate.InvertArea[me, p1.x+wireWidth, p1.y, p1.x, p1.y];
};
EXITS oops => NULL;
};
UseWireCursor: CDViewerBackdoor.FurtherNotifyProc = {
l: CD.Layer = CDLayers.CurrentLayer[me.actualDesign];
w: CD.Number = CDLayers.LayerWidth[me.actualDesign, l];
me.designRec.outlineProcLC ← IF w>0 THEN LCursor ELSE RectCursor;
me.designRec.usedCursor ← $wire;
};
UseRectCursor: CDViewerBackdoor.FurtherNotifyProc = {
me.designRec.usedCursor ← mode;
me.designRec.outlineProcLC ← RectCursor
};
UseArrowCursor: CDViewerBackdoor.FurtherNotifyProc = {
me.designRec.usedCursor ← mode;
me.designRec.outlineProcLC ← ArrowCursor
};
UsePseudoArrowCursor: CDViewerBackdoor.FurtherNotifyProc = {
me.designRec.usedCursor ← mode;
me.designRec.outlineProcLC ← PseudoArrowCursor
};
UseDefaultCursor: CDViewerBackdoor.FurtherNotifyProc = {
me.designRec.usedCursor ← NIL;
me.designRec.outlineProcLC ← DefaultCursor
};
DoThePartialAdvance: CDViewerBackdoor.FurtherNotifyProc = {
UseWireCursor[me, $wire];
IF me.designRec.firstHLC THEN me.designRec.startLC.x ← me.designRec.stopLC.x
ELSE me.designRec.startLC.y ← me.designRec.stopLC.y;
me.designRec.firstHLC ← NOT me.designRec.firstHLC;
me.designRec.startLCValid ← TRUE;
};
DoFlipCursor: CDViewerBackdoor.FurtherNotifyProc = {
UseWireCursor[me, $wire];
me.designRec.firstHLC ← NOT me.designRec.firstHLC
};
IsTheCursor:
PROC [usedCursor:
REF]
RETURNS [yes:
BOOL←
FALSE] =
INLINE {
ENABLE RuntimeError.UNCAUGHT => {--must have not yet been initialized-- GOTO deny};
IF CDVPrivate.cursoredCDViewer#
NIL
THEN
RETURN [NARROW[CDVPrivate.cursoredCDViewer.data, CDVPrivate.VRef].designRec.usedCursor=usedCursor];
EXITS deny => RETURN [FALSE]
};
IsWire: PROC RETURNS [BOOL] = {RETURN [IsTheCursor[$wire]]};
IsRect: PROC RETURNS [BOOL] = {RETURN [IsTheCursor[$rect]]};
IsArrow: PROC RETURNS [BOOL] = {RETURN [IsTheCursor[$arrow]]};
IsDefault: PROC RETURNS [BOOL] = {RETURN [IsTheCursor[NIL]]};
NoFocus:
PROC
RETURNS [
BOOL←
TRUE] = {
--returns true when the cursored viewer is different from the focused viewer
ENABLE RuntimeError.UNCAUGHT => GOTO Oops;
focus: InputFocus.Focus ← InputFocus.GetInputFocus[];
RETURN [focus=NIL OR CDVPrivate.cursoredCDViewer#focus.owner]
EXITS Oops => RETURN
};
SetXModeOn: CDViewerBackdoor.FurtherNotifyProc = {
me.designRec.xMode ← TRUE
};
SetXModeOff: CDViewerBackdoor.FurtherNotifyProc = {
me.designRec.xMode ← FALSE
};
SetMarkOnStart: CDViewerBackdoor.FurtherNotifyProc = {
me.designRec.mark ← me.designRec.startLC
};
SetMarkOnStop: CDViewerBackdoor.FurtherNotifyProc = {
me.designRec.mark ← me.designRec.stopLC
};
SetStartOnMark: CDViewerBackdoor.FurtherNotifyProc = {
me.designRec.startLC ← me.designRec.startLC;
me.designRec.startLCValid ← TRUE;
};
ShowMark: CDViewerBackdoor.FurtherNotifyProc = {
--handled specially because we do not call stoptrack
comm: CDSequencer.Command =
NEW[CDSequencer.CommandRec ←
CDSequencer.CommandRec[
design: me.actualDesign,
key: $ShowMark,
pos: me.designRec.mark,
sPos: me.designRec.mark,
l: me.designRec.currentLayer,
ref: me,
n: me.defaultWidthVC,
b: me.designRec.firstHLC
]
];
TRUSTED {Process.Detach[
FORK
CDSequencer.ExecuteCommand[design: me.actualDesign, comm: comm]
]}
};
CursoredDesignXMode:
PROC []
RETURNS [xmode:
BOOL←
FALSE] = {
ENABLE RuntimeError.UNCAUGHT => {--not yet initialized-- GOTO skip};
IF CDVPrivate.cursoredCDViewer#
NIL
THEN
WITH CDVPrivate.cursoredCDViewer.data
SELECT
FROM
gr: CDVPrivate.VRef => xmode ← gr.designRec.xMode
ENDCASE => NULL;
EXITS skip => NULL
};
IsXMode:
PROC
RETURNS [xMode:
BOOL] = {
xMode ← CursoredDesignXMode[]
};
IsNotXMode:
PROC
RETURNS [notXMode:
BOOL] = {
notXMode ← ~ CursoredDesignXMode[]
};
CDViewerBackdoor.InstallFurtherNotify[NIL, UseDefaultCursor]; --overwrites the default
CDViewerBackdoor.InstallFurtherNotify[$wire, UseWireCursor];
CDViewerBackdoor.InstallFurtherNotify[$rect, UseRectCursor];
IF PrincOpsUtils.
VERSION[].machineType=dorado
THEN
CDViewerBackdoor.InstallFurtherNotify[$arrow, UseArrowCursor]
ELSE
CDViewerBackdoor.InstallFurtherNotify[$arrow, UsePseudoArrowCursor];
CDViewerBackdoor.InstallFurtherNotify[$default, UseDefaultCursor];
CDViewerBackdoor.InstallFurtherNotify[$PartialWireAdvance, DoThePartialAdvance];
CDViewerBackdoor.InstallFurtherNotify[$FlipWire, DoFlipCursor];
TIPUser.RegisterTIPPredicate[key: $ChipndaleWireCursor, p: IsWire];
TIPUser.RegisterTIPPredicate[key: $ChipndaleRectCursor, p: IsRect];
TIPUser.RegisterTIPPredicate[key: $ChipndaleArrowCursor, p: IsArrow];
TIPUser.RegisterTIPPredicate[key: $ChipndaleDefaultCursor, p: IsDefault];
TIPUser.RegisterTIPPredicate[key: $ChipndaleNoFocus, p: NoFocus];
CDViewerBackdoor.InstallFurtherNotify[$SetXModeOn, SetXModeOn];
CDViewerBackdoor.InstallFurtherNotify[$SetXModeOff, SetXModeOff];
CDViewerBackdoor.InstallFurtherNotify[$SetMarkOnStart, SetMarkOnStart];
CDViewerBackdoor.InstallFurtherNotify[$SetMarkOnStop, SetMarkOnStop];
CDViewerBackdoor.InstallFurtherNotify[$SetStartOnMark, SetStartOnMark];
CDViewerBackdoor.InstallFurtherNotify[$ShowMark, ShowMark];
TIPUser.RegisterTIPPredicate[key: $ChipndaleXMode, p: IsXMode];
TIPUser.RegisterTIPPredicate[key: $ChipndaleNXMode, p: IsNotXMode];
END.