DIRECTORY
Cursors,
Inline USING[BITNOT, BITOR],
Interminal USING [SetCursorOffset, SetCursorPattern];

CursorsImpl: CEDAR MONITOR
IMPORTS Inline, Interminal
EXPORTS Cursors
= BEGIN OPEN Cursors; 


globalInfo: PUBLIC CursorInfo _ [last, 0, 0, FALSE];
globalBits: CursorArray;

lastUsedCursor: CursorType _ LAST[PredefinedCursor];
cursors: ARRAY CursorType OF CursorHandle _ ALL[NIL];


InitializePredefinedCursors: PROC = {
DefineCursor: ENTRY PROC[info: CursorInfo, bits: CursorArray] = {
type: CursorType = info.type;
IF type NOT IN PredefinedCursor OR cursors[type]#NIL THEN ERROR;
cursors[type] _ NEW[CursorRec _ [info, bits]];
};

DefineCursor[info: [bullseye, -7,-7, FALSE],
bits: [
003700B, 007740B, 014060B, 030030B,
060014B, 140006B, 141606B, 141606B,
141606B, 140006B, 060014B, 030030B,
014060B, 007740B, 003700B, 000000B] ]; 
DefineCursor[info: [hourGlass, -7,-7, FALSE],
bits: [
177777B, 100001B, 040002B, 034034B,
017170B, 007560B, 003740B, 001700B,
001100B, 002440B, 04220B, 010610B,
021704B, 047762B, 177777B, 177777B] ];
DefineCursor[info: [menu, 0,-7, FALSE],
bits: [
000000B, 000000B, 000000B, 001000B,
003001B, 007003B, 036007B, 177776B,
177776B, 036007B, 007003B, 003001B,
001000B, 000000B, 000000B, 000000B] ];
DefineCursor[info: [scrollUpDown, -7,-7, FALSE],
bits: [
000400B, 001600B, 003700B, 007740B,
017760B, 001600B, 001600B, 001600B,
001600B, 001600B, 001600B, 017760B,
007740B, 003700B, 001600B, 000400B] ];
DefineCursor[info: [textPointer, 0,0, FALSE],
bits: [
100000B, 140000B, 160000B, 170000B,
174000B, 176000B, 177000B, 170000B,
154000B, 114000B, 006000B, 006000B,
003000B, 003000B, 001400B, 001400B] ];
DefineCursor[info: [activate, -7,-7, FALSE],
bits: [
177777B, 177777B, 140003B, 140003B,
140003B, 140003B, 140003B, 140003B,
140003B, 140003B, 140003B, 140003B,
140003B, 140003B, 177777B, 177777B] ];
DefineCursor[info: [blank, 0,0, FALSE],
bits: [
000000B, 000000B, 000000B, 000000B,
000000B, 000000B, 000000B, 000000B,
000000B, 000000B, 000000B, 000000B,
000000B, 000000B, 000000B, 000000B] ];
DefineCursor[info: [confirm, 0,0, FALSE],
bits: [
000000B, 000000B, 167227B, 105324B,
105326B, 105264B, 167224B, 000000B,
000000B, 073642B, 022266B, 023652B,
022442B, 072242B, 000000B, 000000B] ];
DefineCursor[info: [crossHairsCircle, -7,-7, FALSE],
bits: [
001700B, 007760B, 014630B, 030614B,
060606B, 040602B, 140603B, 177177B,
177177B, 140603B, 040602B, 060606B,
030614B, 014630B, 007760B, 001700B] ];
DefineCursor[info: [ftp, -7,-7, FALSE],
bits: [
000177B, 076077B, 040037B, 040017B,
070007B, 043703B, 040401B, 040400B,
000400B, 100436B, 140421B, 160421B,
170036B, 174020B, 176020B, 177020B] ];
DefineCursor[info: [typeKey, -7,-7, FALSE],
bits: [
002000B, 074000B, 140000B, 012767B,
012525B, 053566B, 111113B, 163100B,
000000B, 000000B, 154000B, 053520B,
062520B, 053360B, 155440B, 000140B] ];
DefineCursor[info: [move, -7,-7, FALSE],
bits: [
000000B, 000000B, 000000B, 014030B,
016070B, 017170B, 017770B, 015730B,
014630B, 014030B, 014030B, 014030B,
014030B, 000000B, 000000B, 000000B] ];
DefineCursor[info: [mouseBlue, -2,0, FALSE],
bits: [
037770B, 020010B, 025350B, 025350B,
025350B, 025350B, 025350B, 020010B,
020010B, 020010B, 020010B, 020010B,
020010B, 020010B, 020010B, 037770B] ];
DefineCursor[info: [mouseRed, -2,0, FALSE],
bits: [
037770B, 020010B, 027250B, 027250B,
027250B, 027250B, 027250B, 020010B,
020010B, 020010B, 020010B, 020010B,
020010B, 020010B, 020010B, 037770B] ];
DefineCursor[info: [mouseYellow, -2,0, FALSE],
bits: [
037770B, 020010B, 025650B, 025650B,
025650B, 025650B, 025650B, 020010B,
020010B, 020010B, 020010B, 020010B,
020010B, 020010B, 020010B, 037770B] ];
DefineCursor[info: [grow, 0,0, FALSE],
bits: [
000000B, 000000B, 000000B, 003740B,
007760B, 006060B, 014000B, 014370B,
014370B, 014030B, 006060B, 007760B,
003740B, 000000B, 000000B, 000000B] ];
DefineCursor[info: [pointDown, -7,-15, FALSE],
bits: [
001700B, 001700B, 001700B, 001700B,
001700B, 001700B, 001700B, 001700B,
001700B, 001700B, 037774B, 017770B,
007760B, 003740B, 001700B, 000600B] ];
DefineCursor[info: [pointLeft, 0,-7, FALSE],
bits: [
000000B, 000000B, 020000B, 060000B,
016000B, 036000B, 077777B, 177777B,
177777B, 077777B, 036000B, 016000B,
060000B, 020000B, 000000B, 000000B] ];
DefineCursor[info: [pointRight, -15,-7, FALSE],
bits: [
000000B, 000000B, 000040B, 000060B,
000070B, 000074B, 177776B, 177777B,
177777B, 177776B, 000074B, 000070B,
000060B, 000040B, 000000B, 000000B] ];
DefineCursor[info: [pointUp, -7,0, FALSE],
bits: [
000600B, 001700B, 003740B, 007760B,
017770B, 037774B, 001700B, 001700B,
001700B, 001700B, 001700B, 001700B,
001700B, 001700B, 001700B, 001700B] ];
DefineCursor[info: [questionMark, -7,-7, FALSE],
bits: [
017000B, 037600B, 060600B, 140300B,
140300B, 060300B, 000600B, 001400B,
003000B, 006000B, 006000B, 006000B,
000000B, 000000B, 006000B, 006000B] ];
DefineCursor[info: [retry, -7,-7, FALSE],
bits: [
036370B, 021200B, 021200B, 036347B,
024200B, 022200B, 021370B, 000000B,
000000B, 175721B, 021052B, 021044B,
021704B, 021204B, 021104B, 021044B] ];
DefineCursor[info: [scrollDown, -7,-7, FALSE],
bits: [
007760B, 007760B, 007760B, 007760B,
007760B, 007760B, 007760B, 007760B,
007760B, 077776B, 037774B, 017770B,
007760B, 003740B, 001700B, 000600B] ];
DefineCursor[info: [scrollLeft, -7,-7, FALSE],
bits: [
000000B, 001000B, 003000B, 007000B,
017777B, 037777B, 077777B, 177777B,
177777B, 077777B, 037777B, 017777B,
007000B, 003000B, 001000B, 000000B] ];
DefineCursor[info: [scrollLeftRight, -7,-7, FALSE],
bits: [
000000B, 000000B, 000000B, 004020B,
014030B, 034034B, 077776B, 177777B,
177777B, 077776B, 034034B, 014030B,
004020B, 000000B, 000000B, 000000B] ];
DefineCursor[info: [scrollUp, -7,-7, FALSE],
bits: [
000600B, 001700B, 003740B, 007760B,
017770B, 037774B, 077776B, 007760B,
007760B, 007760B, 007760B, 007760B,
007760B, 007760B, 007760B, 007760B] ];
DefineCursor[info: [scrollRight, -7,-7, FALSE],
bits: [
000000B, 000100B, 000140B, 000160B,
177770B, 177774B, 177776B, 177777B,
177777B, 177776B, 177774B, 177770B,
000160B, 000140B, 000100B, 000000B] ];
};

SetCursor: PUBLIC ENTRY PROC [type: CursorType] = {
globalInfo _ cursors[type].info;
TRUSTED{Interminal.SetCursorPattern[globalBits _ cursors[type].bits]};
TRUSTED{Interminal.SetCursorOffset[globalInfo.hotX, globalInfo.hotY]};
};

InvertCursor: PUBLIC ENTRY PROC = {
FOR n: CARDINAL IN [0..SIZE[CursorArray]) DO
globalBits[n] _ Inline.BITNOT[globalBits[n]];
ENDLOOP;
TRUSTED {Interminal.SetCursorPattern[globalBits]};
globalInfo.inverted _ ~ globalInfo.inverted;
};

NewCursor: PUBLIC ENTRY PROC [bits: CursorArray, hotX, hotY: INTEGER _ 0]
RETURNS [CursorType] = {
lastUsedCursor _ SUCC[lastUsedCursor];
cursors[lastUsedCursor] _ NEW[CursorRec _ [
[lastUsedCursor, hotX, hotY, FALSE],
bits
]];
RETURN[lastUsedCursor];
};

FetchCursor: PUBLIC ENTRY PROC[type: CursorType] RETURNS[CursorHandle] = {
RETURN[cursors[type]];
};

AddCursorCorner: PUBLIC ENTRY PROC [cornerSide: CornerSide] = {
i: CARDINAL[0..15];
SELECT cornerSide FROM
upperLeft =>
{
globalInfo.hotX _ globalInfo.hotY _ 0;
globalBits[0] _ 177777B;
globalBits[1] _ 177777B;
FOR i IN [2..16) DO
globalBits[i] _ Inline.BITOR[globalBits[i], 140000B];
ENDLOOP;
};
upperRight =>
{
globalInfo.hotX _ -15;
globalInfo.hotY _ 0;
globalBits[0] _ 177777B;
globalBits[1] _ 177777B;
FOR i IN [2..16) DO
globalBits[i] _ Inline.BITOR[globalBits[i], 000003B];
ENDLOOP;
};
lowerLeft =>
{
globalInfo.hotX _ 0;
globalInfo.hotY _ -15;
globalBits[14] _ 177777B;
globalBits[15] _ 177777B;
FOR i IN [0..14) DO
globalBits[i] _ Inline.BITOR[globalBits[i], 140000B];
ENDLOOP;
};
lowerRight =>
{
globalInfo.hotX _ globalInfo.hotY _ -15;
globalBits[14] _ 177777B;
globalBits[15] _ 177777B;
FOR i IN [0..14) DO
globalBits[i] _ Inline.BITOR[globalBits[i], 000003B];
ENDLOOP;
};
upperSide =>
{
globalBits[0] _ 177777B;
globalBits[1] _ 177777B;
};
lowerSide =>
{
globalBits[14] _ 177777B;
globalBits[15] _ 177777B;
};
leftSide =>
{
FOR i IN [0..16) DO
globalBits[i] _ Inline.BITOR[globalBits[i], 140000B];
ENDLOOP;
};
rightSide =>
{
FOR i IN [0..16) DO
globalBits[i] _ Inline.BITOR[globalBits[i], 000003B];
ENDLOOP;
};
ENDCASE;
TRUSTED {Interminal.SetCursorPattern[globalBits]};
TRUSTED {Interminal.SetCursorOffset[globalInfo.hotX, globalInfo.hotY]};
};

InitializePredefinedCursors[];

END.


ζCursorsImpl.mesa; written by S. McGregor
Last Edited by McGregor, July 21, 1983 2:18 pm
Last Edited by: Maxwell, January 3, 1983 1:55 pm
Last Edited by: Wyatt, October 31, 1983 11:18 am
global variables and types
procedures
Κ=–

"cedar" style˜Jš
Οc(™(Jš
.™.J™0J™0J˜š
Οk	˜	J˜Jšœžœ
žœžœ˜Jšœžœ%˜5J˜—Jšœ
ž
˜Jšžœ˜Jšžœ˜Jšœžœ
žœ
˜J˜Jš
™J˜Jšœžœžœ˜4J˜J˜Jšœžœ˜4Jš	œ	žœžœžœ
žœ˜5J˜Jš

™
J˜šΟnœžœ˜%šŸœžœ
žœ)˜AJ˜Jšžœžœ
žœžœžœ
žœ
žœ
˜@Jšœžœ˜.J˜—J˜šœ%žœ˜,J˜J˜#J˜#J˜#J˜'—šœ&žœ˜-J˜J˜#J˜#J˜"J˜&—šœ žœ˜'J˜J˜#J˜#J˜#J˜&—šœ)žœ˜0J˜J˜#J˜#J˜#J˜&—šœ&žœ˜-J˜J˜#J˜#J˜#J˜&—šœ%žœ˜,J˜J˜#J˜#J˜#J˜&—šœ žœ˜'J˜J˜#J˜#J˜#J˜&—šœ"žœ˜)J˜J˜#J˜#J˜#J˜&—šœ-žœ˜4J˜J˜#J˜#J˜#J˜&—šœ žœ˜'J˜J˜#J˜#J˜#J˜&—šœ$žœ˜+J˜J˜#J˜#J˜#J˜&—šœ!žœ˜(J˜J˜#J˜#J˜#J˜&—šœ%žœ˜,J˜J˜#J˜#J˜#J˜&—šœ$žœ˜+J˜J˜#J˜#J˜#J˜&—šœ'žœ˜.J˜J˜#J˜#J˜#J˜&—šœžœ˜&J˜J˜#J˜#J˜#J˜&—šœ'žœ˜.J˜J˜#J˜#J˜#J˜&—šœ%žœ˜,J˜J˜#J˜#J˜#J˜&—šœ(žœ˜/J˜J˜#J˜#J˜#J˜&—šœ#žœ˜*J˜J˜#J˜#J˜#J˜&—šœ)žœ˜0J˜J˜#J˜#J˜#J˜&—šœ"žœ˜)J˜J˜#J˜#J˜#J˜&—šœ'žœ˜.J˜J˜#J˜#J˜#J˜&—šœ'žœ˜.J˜J˜#J˜#J˜#J˜&—šœ,žœ˜3J˜J˜#J˜#J˜#J˜&—šœ%žœ˜,J˜J˜#J˜#J˜#J˜&—šœ(žœ˜/J˜J˜#J˜#J˜#J˜&—Jš
œ˜J˜—šŸ	œžœ
žœ
žœ˜3J˜ Jšžœ?˜FJšžœ?˜FJš
œ˜J˜—šŸœžœ
žœ
žœ˜#š	žœžœ
žœžœž˜,Jšœžœ˜-Jšžœ
˜—Jšžœ+˜2J˜,Jš
œ˜J˜—š
Ÿ	œžœ
žœ
žœ!žœ˜IJšžœ˜Jšœžœ˜&šœžœ˜+Jšœžœ˜$J˜J˜—Jšžœ˜Jš
œ˜J˜—š
Ÿœžœ
žœ
žœžœ˜JJšžœ˜Jš
œ˜J˜—šŸœžœ
žœ
žœ˜?Jšœžœ˜šžœž˜˜Jš
œ
˜
J˜&J˜J˜Jšžœžœ	ž˜Jšœžœ˜5Jšžœ
˜Jš
œ˜—˜
Jš
œ
˜
J˜J˜J˜J˜Jšžœžœ	ž˜Jšœžœ˜5Jšžœ
˜Jš
œ˜—˜Jš
œ
˜
J˜J˜J˜J˜Jšžœžœ	ž˜Jšœžœ˜5Jšžœ
˜Jš
œ˜—˜
Jš
œ
˜
J˜(J˜J˜Jšžœžœ	ž˜Jšœžœ˜5Jšžœ
˜Jš
œ˜—˜Jš
œ
˜
J˜J˜Jš
œ˜—˜Jš
œ
˜
J˜J˜Jš
œ˜—˜Jš
œ
˜
Jšžœžœ	ž˜Jšœžœ˜5Jšžœ
˜Jš
œ˜—˜Jš
œ
˜
Jšžœžœ	ž˜Jšœžœ˜5Jšžœ
˜Jš
œ˜Jšžœ
˜——Jšžœ+˜2Jšžœ@˜GJš
œ˜J˜—Jš
œ˜J˜Jšžœ
˜J˜J˜—…— N(q