[Cyan]<PreISLCedar>Mockingbird>CursorDefs.mesa!1

CursorDefs.mesa

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, 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 ];

doubleMeasure: Cursor =

[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 ];

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,

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 ];

greyNote: Cursor = textCursor;

wholeRest: Cursor =

[177400B, 177400B, 177400B, 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 ];