--Author: John Maxwell
--last modified: February 2, 1981 3:28 PM

CursorDefs: DEFINITIONS =

BEGIN
cursor: POINTER TO Cursor = LOOPHOLE[431B];
Cursor:TYPE = ARRAY [0..15] OF CARDINAL;

windowCursor:Cursor =
[000000B, 077777B, 052525B, 065253B,
052525B, 065253B, 052525B, 065253B,
052525B, 065253B, 052525B, 065253B,
052525B, 065253B, 052525B, 077777B ];
moveWindowCursor:Cursor =
[000000B, 077777B, 040001B, 040001B,
040201B, 040701B, 041241B, 040201B,
077777B, 040201B, 041241B, 040701B,
040201B, 040001B, 040001B, 077777B ];
subWindowCursor:Cursor =
[000000B, 077777B, 040001B, 040001B,
040001B, 040001B, 040001B, 040001B,
077777B, 040001B, 040001B, 040001B,
040001B, 040001B, 040001B, 077777B ];
newWindowCursor:Cursor =
[000000B, 077777B, 052525B, 065253B,
052525B, 065253B, 052525B, 065253B,
077777B, 040001B, 040001B, 040001B,
040001B, 040001B, 040001B, 077777B ];

textCursor:Cursor =
[100000B, 140000B, 160000B, 170000B,
174000B, 177000B, 176000B, 170000B,
154000B, 114000B, 006000B, 006000B,
003000B, 003000B, 001400B, 001400B ];

scrollUpCursor:Cursor =
[001000B, 003400B, 007600B, 017700B,
037740B, 077760B, 177770B, 037740B,
037740B, 037740B, 037740B, 037740B,
037740B, 037740B, 037740B, 037740B ];
scrollDownCursor:Cursor =
[037740B, 037740B, 037740B, 037740B,
037740B, 037740B, 037740B, 037740B,
037740B, 177770B, 077760B, 037740B,
017700B, 007600B, 003400B, 001000B ];
scrollUpDownCursor:Cursor =
[001000B, 003400B, 007600B, 017700B,
037740B, 003400B, 003400B, 003400B,
003400B, 003400B, 003400B, 037740B,
017700B, 007600B, 003400B, 001000B ];

leftArrowCursor:Cursor =
[000000B, 000000B, 000000B, 003600B,
007400B, 017000B, 036000B, 077777B,
177776B, 077777B, 036000B, 017000B,
007400B, 003600B, 000000B, 000000B ];
rightArrowCursor:Cursor =
[000000B, 000000B, 000000B, 000740B,
000360B, 000170B, 000074B, 177776B,
077777B, 177776B, 000074B, 000170B,
000360B, 000740B, 000000B, 000000B ];

bullseyeCursor:Cursor =
[001700B, 007760B, 014630B, 030614B,
060606B, 040602B, 140603B, 177177B,
177177B, 140603B, 040602B, 060606B,
030614B, 014630B, 007760B, 001700B ];

scrollLeftCursor:Cursor =
[001000B, 003000B, 007777B, 017777B,
037777B, 077777B, 177777B, 077777B,
037777B, 017777B, 007777B, 003000B,
001000B, 000000B, 000000B, 000000B ];
scrollRightCursor:Cursor =
[000100B, 000140B, 177760B, 177770B,
177774B, 177776B, 177777B, 177776B,
177774B, 177770B, 177760B, 000140B,
000100B, 000000B, 000000B, 000000B ];
scrollLeftRightCursor:Cursor =
[000000B, 000000B, 004020B, 014030B,
034034B, 077776B, 177777B, 077776B,
034034B, 014030B, 004020B, 000000B,
000000B, 000000B, 000000B, 000000B ];

--****************************************************************************
--menu cursors (for insertions)
--****************************************************************************
quarter:Cursor =
[000000B, 034000B, 076000B, 176000B,
174000B, 170000B, 100000B, 100000B,
100000B, 100000B, 100000B, 100000B,
100000B, 100000B, 100000B, 100000B ];

rest:Cursor =
[000000B, 000000B, 100000B, 040000B,
060000B, 160000B, 160000B, 160000B,
040000B, 040000B, 160000B, 160000B,
110000B, 100000B, 040000B, 000000B ];

measure:Cursor =
[100000B, 100000B, 100000B, 100000B,
100000B, 100000B, 100000B, 100000B,
100000B, 100000B, 100000B, 100000B,
100000B, 100000B, 100000B, 100000B ];

doubleMeasure:Cursor =
[120000B, 120000B, 120000B, 120000B,
120000B, 120000B, 120000B, 120000B,
120000B, 120000B, 120000B, 120000B,
120000B, 120000B, 120000B, 120000B ];

repeat1:Cursor =
[150000B, 150000B, 150000B, 150000B,
150000B, 150000B, 152000B, 150000B,
150000B, 152000B, 150000B, 150000B,
150000B, 150000B, 150000B, 150000B ];

repeat2:Cursor =
[026000B, 026000B, 026000B, 026000B,
026000B, 026000B, 126000B, 026000B,
026000B, 126000B, 026000B, 026000B,
026000B, 026000B, 026000B, 026000B ];

endMeasure:Cursor =
[130000B, 130000B, 130000B, 130000B,
130000B, 130000B, 130000B, 130000B,
130000B, 130000B, 130000B, 130000B,
130000B, 130000B, 130000B, 130000B ];

trebleClef:Cursor =
[006000B, 006000B, 005000B, 005000B,
006000B, 006000B, 016000B, 014000B,
034000B, 024000B, 064000B, 057000B,
055000B, 045000B, 025000B, 016000B ];

bassClef:Cursor =
[000000B, 000000B, 036000B, 043040B,
171560B, 171440B, 171400B, 061440B,
001560B, 003040B, 003000B, 006000B,
014000B, 060000B, 000000B, 000000B ];

octava:Cursor =
[000000B, 000000B, 000000B, 000000B,
000000B, 000000B, 000000B, 000000B,
060000B, 113300B, 110000B, 060000B,
110000B, 110000B, 110000B, 060000B ];

doubleFlat:Cursor =
[104000B, 104000B, 104000B, 104000B,
104000B, 104000B, 125000B, 156400B,
114400B, 125000B, 125000B, 146000B,
104000B, 000000B, 000000B, 000000B ];

flat:Cursor =
[100000B, 100000B, 100000B, 100000B,
100000B, 100000B, 120000B, 150000B,
110000B, 120000B, 120000B, 140000B,
100000B, 000000B, 000000B, 000000B ];

natural:Cursor =
[100000B, 100000B, 100000B, 100000B,
100000B, 130000B, 170000B, 150000B,
110000B, 130000B, 170000B, 150000B,
010000B, 010000B, 010000B, 010000B ];

inKey:Cursor =
[000000B, 000000B, 000000B, 000000B,
000000B, 000000B, 060000B, 170000B,
170000B, 060000B, 000000B, 000000B,
000000B, 000000B, 000000B, 000000B ];

sharp:Cursor =
[000000B, 010000B, 050000B, 050000B,
054000B, 070000B, 150000B, 054000B,
070000B, 150000B, 050000B, 050000B,
040000B, 000000B, 000000B, 000000B ];

doubleSharp:Cursor =
[000000B, 000000B, 000000B, 000000B,
000000B, 154000B, 154000B, 020000B,
154000B, 154000B, 000000B, 000000B,
000000B, 000000B, 000000B, 000000B ];

trill:Cursor =
[000000B, 000000B, 000000B, 004000B,
004000B, 077300B, 115500B, 171000B,
033000B, 032000B, 022000B, 000000B,
000000B, 000000B, 000000B, 000000B ];

mordent1:Cursor =
[000000B, 000000B, 000000B, 000000B,
000000B, 010100B, 034340B, 076764B,
107070B, 002020B, 000000B, 000000B,
000000B, 000000B, 000000B, 000000B ];

mordent2:Cursor =
[000000B, 000000B, 000000B, 000000B,
001000B, 011100B, 035340B, 077764B,
107070B, 003020B, 001000B, 001000B,
000000B, 000000B, 000000B, 000000B ];

END.

dottedCursor:Cursor =
[000000B, 000000B, 000000B, 000000B,
000000B, 000000B, 000000B, 000000B,
000000B, 000000B, 000000B, 000000B,
000030B, 000174B, 000174B, 000030B ];

whole:Cursor =
[036000B, 061000B, 141000B, 103000B,
106000B, 074000B, 000000B, 000000B,
000000B, 000000B, 000000B, 000000B,
000000B, 000000B, 000000B, 000000B ];

half:Cursor =
[036000B, 061000B, 141000B, 103000B,
106000B, 174000B, 100000B, 100000B,
100000B, 100000B, 100000B, 100000B,
100000B, 100000B, 100000B, 100000B ];

quarter:Cursor =
[036000B, 077000B, 177000B, 177000B,
176000B, 174000B, 100000B, 100000B,
100000B, 100000B, 100000B, 100000B,
100000B, 100000B, 100000B, 100000B ];

eighth:Cursor =
[036000B, 077000B, 177000B, 177000B,
176000B, 174000B, 100000B, 100000B,
100000B, 100000B, 100000B, 100000B,
100000B, 100000B, 176000B, 176000B ];

sixteenth:Cursor =
[036000B, 077000B, 177000B, 177000B,
176000B, 174000B, 100000B, 100000B,
100000B, 100000B, 100000B, 176000B,
176000B, 100000B, 176000B, 176000B ];


thirtySecond:Cursor =
[036000B, 077000B, 177000B, 177000B,
176000B, 174000B, 100000B, 100000B,
176000B, 176000B, 100000B, 176000B,
176000B, 100000B, 176000B, 176000B ];

measure:Cursor =
[100000B, 100000B, 100000B, 100000B,
100000B, 100000B, 100000B, 100000B,
100000B, 100000B, 100000B, 100000B,
100000B, 100000B, 100000B, 100000B ];

greyNote:Cursor = textCursor;

wholeRest:Cursor =
[177400B, 177400B, 177400B, 000000B,
000000B, 000000B, 000000B, 000000B,
000000B, 000000B, 000000B, 000000B,
000000B, 000000B, 000000B, 000000B ];

halfRest:Cursor =
[000000B, 000000B, 000000B, 000000B,
000000B, 177400B, 177400B, 177400B,
000000B, 000000B, 000000B, 000000B,
000000B, 000000B, 000000B, 000000B ];

quarterRest:Cursor =
[000000B, 020000B, 030000B, 070000B,
070000B, 070000B, 020000B, 020000B,
070000B, 070000B, 044000B, 020000B,
000000B, 000000B, 000000B, 000000B ];

eighthRest:Cursor =
[066000B, 164000B, 174000B, 010000B,
030000B, 020000B, 020000B, 020000B,
000000B, 000000B, 000000B, 000000B,
000000B, 000000B, 000000B, 000000B ];

sixteenthRest:Cursor =
[033000B, 072000B, 076000B, 004000B,
066000B, 164000B, 174000B, 010000B,
030000B, 020000B, 020000B, 020000B,
000000B, 000000B, 000000B, 000000B ];

thirtySecondRest:Cursor =
[015400B, 035000B, 037000B, 002000B,
033000B, 072000B, 076000B, 004000B,
066000B, 164000B, 174000B, 010000B,
030000B, 020000B, 020000B, 020000B ];