1 | /*
|
---|
2 | =============================================================================
|
---|
3 | pix2mid.c -- convert cursor position to MIDI note number and score time
|
---|
4 | Version 9 -- 1988-10-27 -- D.N. Lynx Crowe
|
---|
5 | =============================================================================
|
---|
6 | */
|
---|
7 |
|
---|
8 | #include "ram.h"
|
---|
9 |
|
---|
10 | #define PCENTER 256 /* pixel offset of 0 time line */
|
---|
11 |
|
---|
12 | int16_t mpixtab[52][4] = { /* pixel to MIDI note for the white keys */
|
---|
13 |
|
---|
14 | /* [0] = center pixel, [1] = MIDI note, [2] = sharp tag, [3] = flat tag */
|
---|
15 |
|
---|
16 | { 1, 108, 0, 0}, /* 8C 00 -- 0 */
|
---|
17 |
|
---|
18 |
|
---|
19 | { 5, 107, 0, 1}, /* 7B 00 -- 1 */
|
---|
20 | { 9, 105, 1, 1}, /* 7A 00 -- 2 */
|
---|
21 | { 13, 103, 1, 1}, /* 7G 00 -- 3 */
|
---|
22 | { 17, 101, 1, 0}, /* 7F 00 -- 4 */
|
---|
23 |
|
---|
24 | { 21, 100, 0, 1}, /* 7E 00 -- 5 */
|
---|
25 | { 25, 98, 1, 1}, /* 7D 00 -- 6 */
|
---|
26 | { 29, 96, 1, 0}, /* 7C 00 -- 7 */
|
---|
27 |
|
---|
28 |
|
---|
29 | { 33, 95, 0, 1}, /* 6B 00 -- 8 */
|
---|
30 | { 37, 93, 1, 1}, /* 6A 00 -- 9 */
|
---|
31 | { 41, 91, 1, 1}, /* 6G 00 -- 10 */
|
---|
32 | { 45, 89, 1, 0}, /* 6F 00 -- 11 */
|
---|
33 |
|
---|
34 | { 49, 88, 0, 1}, /* 6E 00 -- 12 */
|
---|
35 | { 53, 86, 1, 1}, /* 6D 00 -- 13 */
|
---|
36 | { 57, 84, 1, 0}, /* 6C 00 -- 14 */
|
---|
37 |
|
---|
38 |
|
---|
39 | { 61, 83, 0, 1}, /* 5B 00 -- 15 */
|
---|
40 | { 65, 81, 1, 1}, /* 5A 00 -- 16 */
|
---|
41 | { 69, 79, 1, 1}, /* 5G 00 -- 17 */
|
---|
42 | { 73, 77, 1, 0}, /* 5F 00 -- 18 */
|
---|
43 |
|
---|
44 | { 77, 76, 0, 1}, /* 5E 00 -- 19 */
|
---|
45 | { 81, 74, 1, 1}, /* 5D 00 -- 20 */
|
---|
46 | { 85, 72, 1, 0}, /* 5C 00 -- 21 */
|
---|
47 |
|
---|
48 | { 89, 71, 0, 1}, /* 4B 00 -- 22 */
|
---|
49 | { 93, 69, 1, 1}, /* 4A 00 -- 23 */
|
---|
50 | { 97, 67, 1, 1}, /* 4G 00 -- 24 */
|
---|
51 | {101, 65, 1, 0}, /* 4F 00 -- 25 */
|
---|
52 |
|
---|
53 | {105, 64, 0, 1}, /* 4E 00 -- 26 */
|
---|
54 | {109, 62, 1, 1}, /* 4D 00 -- 27 */
|
---|
55 | {113, 60, 1, 0}, /* 4C 00 -- 28 -- Middle C */
|
---|
56 |
|
---|
57 | {117, 59, 0, 1}, /* 3B 00 -- 29 */
|
---|
58 | {121, 57, 1, 1}, /* 3A 00 -- 30 */
|
---|
59 | {125, 55, 1, 1}, /* 3G 00 -- 31 */
|
---|
60 | {129, 53, 1, 0}, /* 3F 00 -- 32 */
|
---|
61 |
|
---|
62 | {133, 52, 0, 1}, /* 3E 00 -- 33 */
|
---|
63 | {137, 50, 1, 1}, /* 3D 00 -- 34 */
|
---|
64 | {141, 48, 1, 0}, /* 3C 00 -- 35 */
|
---|
65 |
|
---|
66 |
|
---|
67 | {145, 47, 0, 1}, /* 2B 00 -- 36 */
|
---|
68 | {149, 45, 1, 1}, /* 2A 00 -- 37 */
|
---|
69 | {153, 43, 1, 1}, /* 2G 00 -- 38 */
|
---|
70 | {157, 41, 1, 0}, /* 2F 00 -- 39 */
|
---|
71 |
|
---|
72 | {161, 40, 0, 1}, /* 2E 00 -- 40 */
|
---|
73 | {165, 38, 1, 1}, /* 2D 00 -- 41 */
|
---|
74 | {169, 36, 1, 0}, /* 2C 00 -- 42 */
|
---|
75 |
|
---|
76 |
|
---|
77 | {173, 35, 0, 1}, /* 1B 00 -- 43 */
|
---|
78 | {177, 33, 1, 1}, /* 1A 00 -- 44 */
|
---|
79 | {181, 31, 1, 1}, /* 1G 00 -- 45 */
|
---|
80 | {185, 29, 1, 0}, /* 1F 00 -- 46 */
|
---|
81 |
|
---|
82 | {189, 28, 0, 1}, /* 1E 00 -- 47 */
|
---|
83 | {193, 26, 1, 1}, /* 1D 00 -- 48 */
|
---|
84 | {197, 24, 1, 0}, /* 1C 00 -- 49 */
|
---|
85 |
|
---|
86 |
|
---|
87 | {201, 23, 0, 1}, /* 0B 00 -- 50 */
|
---|
88 | {205, 21, 1, 0} /* 0A 00 -- 51 */
|
---|
89 | };
|
---|
90 |
|
---|
91 | /*
|
---|
92 | =============================================================================
|
---|
93 | pix2mid() -- convert (px, py) to MIDI note and score time
|
---|
94 | =============================================================================
|
---|
95 | */
|
---|
96 |
|
---|
97 | int16_t pix2mid(void)
|
---|
98 | {
|
---|
99 | register int16_t i, cy, mpc;
|
---|
100 | register int32_t ct;
|
---|
101 |
|
---|
102 | cnote = -1;
|
---|
103 | ctime = -1L;
|
---|
104 | cflag = -1;
|
---|
105 | mpc = ac_code EQ N_SHARP ? 2 : 3;
|
---|
106 |
|
---|
107 | ct = t_cur + ((int32_t)cxval - (int32_t)PCENTER);
|
---|
108 |
|
---|
109 | if (ct < 0L)
|
---|
110 | return(FAILURE);
|
---|
111 |
|
---|
112 | ctime = ct;
|
---|
113 | cy = cyval - 14;
|
---|
114 |
|
---|
115 | for (i = 0; i < 52; i++) {
|
---|
116 |
|
---|
117 | if ((cy GE mpixtab[i][0]) AND
|
---|
118 | (cy LE mpixtab[i][0] + 2)) {
|
---|
119 |
|
---|
120 | cnote = mpixtab[i][1];
|
---|
121 | cflag = mpixtab[i][mpc];
|
---|
122 | break;
|
---|
123 | }
|
---|
124 | }
|
---|
125 |
|
---|
126 | return((cnote EQ -1L) ? FAILURE : SUCCESS);
|
---|
127 | }
|
---|
128 |
|
---|