DIRECTORY
Containers USING [Container],
Icons,
Imager USING [Box],
IO USING [STREAM],
MBQueue USING [Queue],
Menus USING [Menu, MenuProc],
Rope USING [ROPE],
ViewerClasses USING [Viewer];

IconEditorDefs: CEDAR DEFINITIONS = BEGIN

maxStorage: INT16 = 32; -- how many icons kept "in core" at any given time

Halfword: TYPE ~ Icons.Halfword; -- CARD16
bitsPerHalfword: NAT ~ Icons.bitsPerHalfword; -- 16

iconW: INT16 ~ Icons.iconW;
iconH: INT16 ~ Icons.iconH;
intWBound: INT16 = iconW-1;
intHBound: INT16 = iconH-1;
IntW: TYPE = [0..intWBound];
IntH: TYPE = [0..intHBound];

BitArray: TYPE = ARRAY IntH OF MACHINE DEPENDENT RECORD [
b: PACKED ARRAY IntW OF BOOL
];
RectangleRec: TYPE = RECORD [ x, y, w, h: INT16 м 0];
LineRec: TYPE = RECORD [ x1, y1, x2, y2: INT16 м 0];
MarkType: TYPE = {rect, line};
MarkPoint: TYPE = RECORD [x, y: INT16 м 0];
IconUpdate: TYPE = {screen, board, icon, bit, newIcon, mark, rect, line};
IconInfoRef:  TYPE = REF IconInfoRec;
IconInfoRec: TYPE = RECORD [
handle: IconHandle,
update: IconUpdate,
currentIcon: IconFlavor,
clearBit: BOOL м FALSE,
x, y: REAL м 0];
normalThickness: REAL = 1.0;
distX: INT16 = 4; -- fixed distance between Icons on the menu
distY: INT16 = 4;
maxIconsOnDisplay: INT16 = 20; -- Maximum # of Icons allowed in the displayed Icon menu
minimumUnit: INT16 = 3;

IconFlavor: TYPE = MACHINE DEPENDENT { -- pre-defined icons
document(0),
dirtyDocument(1),
fileCabinet(2),
tool(3),
typescript(4),
private(177776B), -- will cause call of viewer paintProc to paint icon
unInit(177777B) -- private flag for unitialized icon type
};

IconRef: TYPE = REF IconFileFormat;
IconFileFormat: TYPE = MACHINE DEPENDENT RECORD [
bits:  BitArray, -- 64 x 64 bit pattern
label: BOOL м FALSE, -- label icon with viewer name?
invertLabel: BOOL м FALSE, -- invert text when labeling?
filler: [0..37777B] м 0, -- 14 bits of filler
lx, ly, lw, lh: INT16 м 0,
fillerInt: INT16 м 0,
empty: PACKED ARRAY [0..250) OF Halfword м ALL[0] -- leftovers
];

IconHandle: TYPE = REF IconHandleRec;
IconHandleRec: TYPE = RECORD [
container: Containers.Container,
viewer: ViewerClasses.Viewer,
iconFileWindow: ViewerClasses.Viewer,
iconNumberWindow: ViewerClasses.Viewer,
iconFetchFileWindow: ViewerClasses.Viewer,
iconNameWindow: ViewerClasses.Viewer,
iconFileName: Rope.ROPE,
iconFile: IO.STREAM,
workingDir: Rope.ROPE,
queue: MBQueue.Queue,
numberOfIcons: INT16 м 0,
numberReadIn: INT16 м 0,
numIconsPerRow, numIconsPerCol: INT16,
possibleX, possibleY: INT16,
icX, icY: INT16,
boardSize: REAL,
unit: INT16,
startDisplay: INT16 м 0,
icons: ARRAY [0..maxStorage) OF IconRef,
currentIC: IconFlavor м FIRST[IconFlavor],
nextFlavor: IconFlavor,
currentIconRep: IconRef,
savedBitMap: BitArray,
firstMark: BOOL м TRUE,
drewLine, drewRectangle: BOOL м FALSE,
currentRectangle, labelRect: RectangleRec,
currentLine:  LineRec,
mark1, mark2: MarkPoint,
functionNotApplied: BOOL
];

CouldntLoadIcons: SIGNAL;
CouldntSaveIcons: SIGNAL;
ViewerNoGood: SIGNAL;

GetFileName: PROC [h: IconHandle, v: ViewerClasses.Viewer] RETURNS [Rope.ROPE];

PointsMarked: PROC [handle: IconHandle, type: MarkType] RETURNS [BOOL];

SaveBitMap: PROC [handle: IconHandle];

LayoutBoard: PROC [handle: IconHandle, bounds: Imager.Box];

GetNewFlavor: PROC [handle: IconHandle] RETURNS [newFlavor: IconFlavor];

LoadIcons: PROC [handle: IconHandle, filename: Rope.ROPE]
RETURNS [nRead: INT16, iconFile: IO.STREAM];

SaveIcons: PROC [handle: IconHandle, filename: Rope.ROPE, numberOfIcons: INT16]
RETURNS [iconFile: IO.STREAM];

NormalizeRectangle: PROC [corner1, corner2: MarkPoint] RETURNS [rect: RectangleRec];

TransferEndPoints: PROC [endpoint1, endpoint2: MarkPoint] RETURNS [line: LineRec];

ComputeEndPoints:  PROC [handle: IconHandle, oldLine: LineRec]
RETURNS [newLine: LineRec];

IconProc: TYPE ~ PROC [
					handle:	IconHandle,
					flavor:	IconFlavor,
					rect:		RectangleRec м [],
					line:		LineRec м [],
					slowShift:	BOOL м FALSE];

ClearIcon: PROC [handle: IconHandle, flavor: IconFlavor];

MirrorIcon: PROC [handle: IconHandle, flavor: IconFlavor, rect: RectangleRec];

FlipIcon: PROC [handle: IconHandle, flavor: IconFlavor, rect: RectangleRec];

DrawLine: PROC [handle: IconHandle, line: LineRec, flavor: IconFlavor];

FreshMarks: PROC [handle: IconHandle];

WhiteLabel: PROC [handle: IconHandle, flavor: IconFlavor];

BlackLabel: PROC [handle: IconHandle, flavor: IconFlavor];

SetLabel: PROC [handle: IconHandle, flavor: IconFlavor, rect: RectangleRec];

UnSetLabel: PROC [handle: IconHandle, flavor: IconFlavor];

SetWhite: PROC [handle: IconHandle, flavor: IconFlavor, rect: RectangleRec];

SetDeskTopGray: PROC [
handle: IconHandle, flavor: IconFlavor, rect: RectangleRec, firstClearToWhite: BOOL м TRUE];

SetDarkGray: PROC [handle: IconHandle, flavor: IconFlavor, rect: RectangleRec];

SetBlack:  PROC [handle: IconHandle, flavor: IconFlavor, rect: RectangleRec];

Invert: PROC [handle: IconHandle, flavor: IconFlavor, rect: RectangleRec];

MoveRight: PROC [handle: IconHandle, flavor: IconFlavor, slowShift: BOOL];

MoveLeft: PROC [handle: IconHandle, flavor: IconFlavor, slowShift: BOOL];

MoveUp: PROC [handle: IconHandle, flavor: IconFlavor, slowShift: BOOL];

MoveDown: PROC [handle: IconHandle, flavor: IconFlavor, slowShift: BOOL];

FillIcon: PROC [handle: IconHandle];

CreateMenu: PROC [handle: IconHandle] RETURNS [iconMenu: Menus.Menu];

BlackLabelProc, WhiteLabelProc, LineProc, InvertProc, BlackProc, DarkGrayProc, DeskTopGrayProc, DeskTopGrayIfWhiteProc, WhiteProc, UnLabelIconProc, LabelIconProc, RightProc, LeftProc, DownProc, UpProc, UndoProc, FillIconProc, ShowLabelProc, CreateIconProc, DeleteIconProc, KillAllIconsProc, RotateDisplayProc, LoadIconProc, SaveProc, ResetProc: Menus.MenuProc;

END.

  М  
IconEditorDefs.mesa
Copyright ╙ 1987, 1992 by Xerox Corporation.  All rights reserved.
Last Edited by: Ken Pier, May 17, 1991 5:58 pm PDT
Bloomenthal, April 11, 1990 12:17:04 pm PDT
Russ Atkinson (RRA) March 9, 1987 5:19:02 pm PST

*** general constants and types used for icons ***

BitArray: TYPE = PACKED ARRAY [0..iconH*iconW/bitsPerHalfword) OF Halfword;

*** constants used for laying out display ***
*** type declarations for Icon File Format ***
*** type declarations for Icon Editor ***
serialize Menu/Buttons
How many icons in the current file
How many icons originally read in (needed for reset)
space remaining for board after Icon menu allocated
computed origin for the Icon menu
where to start displaying icons on screen
Keeps track of next possible flavor for new icons
the icon currently displayed on drawing board
used for "un-doing" operations
area and line marking variables
Used for marking diagonal points of rectangles
Used for erasing previously drawn rectangles or lines
Normalized coordinates of rectangle (from bottom left)
Diagonal (mark) points of rectangles
Indicates whether previous rectangle should be erased
*** Signals ***
Э╩  ХNewlineDelimiter
Ц(cedarcode) styleЩ codeЪ╧cЩKЪЬ
╧eЬ7ЩBKЩ2KЩ+KЩ0KЩ Ъ╧k	Ш	KЪЬЯЬШKШKЪЬЯЬШKЪЯЬЯЬЯЬШKЪЬЯЬ	ШKЪЬЯЬШKЪЬЯЬЯЬШKЪЬЯЬ
ШKШ ЧЧЪ╧bЬЯЬЯЬЯШ)KШ KЪЭ2ЬЩ3KЪЬЯЬЭ2ШJKШ KЪЬ
ЯЬЭ	Ш*KЪЬЯЬЭШ3KШ KЪЬЯЬШKЪЬЯЬШKЪЬЯЬШKЪЬЯЬШKЪЬЯЬШKЪЬЯЬШKШ KЪЬ
ЯЬЯЬ"ЯЬ
ЩKЪЬ
ЯЬЯЬЯЬЯЬЯ	ЬЯЬШ9KЪЬЯЬЯЬЯЬЯШKЪЬШЧKЪЬЯЬЯЬЯЬШ5KЪЬ	ЯЬЯЬЯЬШ4KЪЬ
ЯЬШKЪЬЯЬЯЬЯЬШ+KЪЬЯЬ9ШIKЪЬЯЬЯЬШ%ЪЬЯЬЯЬШKЪЬШKЪЬШKЪЬШKЪЬ
ЯЬЯЬШKЪЬЯЬШЧKЩ KЪЭ-Щ-KЪЬЯЬШKЪЬЯЬЭ+Ш=KЪЬЯЬШKЪЬЯЬЭ8ШWKЪЬЯЬШKЪЭЬ+Щ.ЪЬЯЬЯЬЯ	ЬЭШ;KЪЬШKЪЬШKЪЬШKЪЬШKЪЬШKЪЬЭ4ШFKЪЬЭ)Ш9KШЧKЪЬ	ЯЬЯЬШ#Ъ	ЬЯЬЯЬЯ	ЬЯЬШ1KЪЬЭШ'KЪЬЯЬЯЬЭШ4KЪЬЯЬЯЭШ8KЪЬЭШ-KЪЬЯЬШKЪЬЯЬШKЪЬЯЬ
ЯЬЯЬЭШ>KЪЬШЧKШ KЪЭЬ#ЭЩ)KЪЬЯЬЯЬШ%ЪЬЯЬЯЬШKЪЬ Ш KЪЬШKЪЬ%Ш%KЪЬ'Ш'KЪЬ*Ш*KЪЬ%Ш%KЪЬЯЬШKЪЬ
ЯЬЯЬШKЪЬЯЬШЪЬШKЪЬЩЧЪЬЯЬШKЪЬ"Щ"ЧЪЬЯЬШKЪЬ4Щ4ЧKЪЬ ЯЬШ&ЪЬЯЬШKЪЬ3Щ3ЧЪЬ
ЯЬШKЪЬ!Щ!ЧKЪЬЯЬШKЪЬЯЬШЪЬЯЬШKЪЬ)Щ)ЧKЪЬЯЬЯЬ	Ш(KЪЬЯЬШ*ЪЬШKЪЬ1Щ1ЧЪЬШKЪЬ-Щ-ЧЪЬШKЪЬЩЧKЩЪЬЯЬЯЬШKЪЬ.Щ.ЧЪЬЯЬЯЬШ&KЪЬ5Щ5ЧЪЬ*Ш*KЪЬ6Щ6ЧKЪЬШЪЬШKЪЬ$Щ$ЧЪЬЯШKЪЬ5Щ5ЧKШЧKЪЭЬ	ЭЩKЪЬЯЬШKЪЬЯЬШKЪЬЯЬШЧKЪ╧nЬЯЬ*ЯЬЯЬШOKШ ЪбЬЯЬ&ЯЬЯЬШGKШ ЧЪб
ЬЯЬШ&KШ ЧЪбЬЯЬ*Ш;KШ ЧЪбЬЯЬЯЬШHKШ ЧЪб	ЬЯЬ%ЯЬЯЬ	ЯЬЯЬЯЬШfKШ ЧЪб	ЬЯЬ%ЯЬЯЬЯЬЯЬЯЬШnKШ ЧЪбЬЯЬЯЬШTKШ ЧЪбЬЯЬ#ЯЬШRKШ ЧЪбЬЯЬ(ЯЬШZKШ ЧЪЬ
ЯЬЯЬШKЪЬШKЪЬШKШKШKЪЬЯЬЯЬШKШ ЧЪб	ЬЯЬ*Ш9KШ ЧЪб
ЬЯЬ>ШNKШ ЧЪбЬЯЬ>ШLKШ ЧЪбЬЯЬ9ШGKШ ЧЪб
ЬЯЬШ&KШ ЧЪб
ЬЯЬ*Ш:KШ ЧЪб
ЬЯЬ*Ш:KШ ЧЪбЬЯЬ>ШLKШ ЧЪб
ЬЯЬ*Ш:KШ ЧЪбЬЯЬ>ШLKШ ЧЪбЬЯЬШKЪЬOЯЬЯЬШ\KШ ЧЪбЬЯЬ>ШOKШ ЧЪбЬЯЬ>ШMKШ ЧЪбЬЯЬ>ШJKШ ЧЪб	ЬЯЬ5ЯЬШJKШ ЧЪбЬЯЬ5ЯЬШIKШ ЧЪбЬЯЬ5ЯЬШGKШ ЧЪбЬЯЬ5ЯЬШIKШ ЧЪбЬЯЬШ$KШ ЧKЪб
ЬЯЬЯЬШEKШ ЪЬшШшKШ ЧKЪЯЬШKШ Ч ЕЧ    b  #   