CursorDefs.mesa
Copyright (C) 1982, 1984 Xerox Corporation. All rights reserved.
Author: John Maxwell
last modified: May 21, 1982 11:39 am
Last Edited by: Doug Wyatt, June 8, 1984 4:02:05 pm PDT
CursorDefs: CEDAR DEFINITIONS =
BEGIN
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 ];