summaryrefslogtreecommitdiff
path: root/apps/plugins/metronome.c
diff options
context:
space:
mode:
Diffstat (limited to 'apps/plugins/metronome.c')
-rw-r--r--apps/plugins/metronome.c2483
1 files changed, 1730 insertions, 753 deletions
diff --git a/apps/plugins/metronome.c b/apps/plugins/metronome.c
index c519608372..e8014b7f9d 100644
--- a/apps/plugins/metronome.c
+++ b/apps/plugins/metronome.c
@@ -7,7 +7,7 @@
7 * \/ \/ \/ \/ \/ 7 * \/ \/ \/ \/ \/
8 * $Id$ 8 * $Id$
9 * 9 *
10 * Copyright (C) 2004 Matthias Wientapper 10 * Copyright (C) 2004 Matthias Wientapper, 2014-2015 Thomas Orgis
11 * 11 *
12 * This program is free software; you can redistribute it and/or 12 * This program is free software; you can redistribute it and/or
13 * modify it under the terms of the GNU General Public License 13 * modify it under the terms of the GNU General Public License
@@ -17,600 +17,68 @@
17 * This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY 17 * This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
18 * KIND, either express or implied. 18 * KIND, either express or implied.
19 * 19 *
20 * TODO:
21 * - Think about generating the sounds on startup with SWCODEC.
20 ****************************************************************************/ 22 ****************************************************************************/
21#include "plugin.h" 23#include "plugin.h"
22#include "lib/pluginlib_actions.h" 24#include "lib/pluginlib_actions.h"
23#include "lib/pluginlib_exit.h" 25#include "lib/pluginlib_exit.h"
24 26#include "fixedpoint.h"
25 27
26 28/* About time resolution:
27#if CONFIG_CODEC != SWCODEC 29 1000 means 1 ms resolution. It should get better with higher values
28/* tick sound from a metronome */ 30 in theory, but in practice, too small timer intervals increase the
29static unsigned char sound[] = { 31 chance of being missed and make the metronome lag behind. Mean tempo
30255,251, 80,196, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 32 still works out with very small divider values (29 even) as long as
31 0, 73,110,102,111, 0, 0, 0, 15, 0, 0, 0, 4, 0, 0, 4, 19, 0, 64, 64, 33 the rounding error compensation is active, although beat intervals
32 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 34 become jerky. You compromise between long-term accuracy and steadyness
33 64, 64, 64,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128, 35 from one beat to the next.
34128,128,128,128,128,128,128,128,192,192,192,192,192,192,192,192,192,192,192,192, 36
35192,192,192,192,192,192,192,192,192,192,192,192,192,255,255,255,255,255,255,255, 37 A drift you have to accept comes just from the audio clock itself, or even
36255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255, 0, 0, 0, 38 from the difference between clocks in the device. The Sansa Clip+ has around
37 58, 76, 65, 77, 69, 51, 46, 57, 50, 32, 1,137, 0, 0, 0, 0, 0, 0, 0, 0, 39 0.04 % error in audio frequency using the "good" PLLB. I presume that the
38 2, 64, 36, 5,191, 65, 0, 0, 0, 0, 0, 4, 19,168,187,153, 93, 0, 0, 0, 40 difference between timing using PLLA and PLLB is at least that big. Something
39 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 41 up to 40 ms time difference over one minute when comparing to an external
40 0, 0, 0, 0, 0, 0, 0, 0,255,251, 80,196, 0, 0, 10, 81, 57, 65,184,120, 42 reference or just the metronome plugin with playback of a prepared PCM track
41128, 1, 95,159,239,191,144, 96, 0, 0,128, 0, 0, 0, 0, 0, 0, 48, 24, 12, 43 is to be expected.
42 0, 0, 15,175,185,222, 39, 7,126, 46, 50,191,243,197,255,247, 62, 92,111,252, 44
43115, 15, 27,140,153,159,247,242,124, 44, 92,164,177, 57,175,255,236, 79,164, 98, 45 Also, since playback on SWCODEC is not allowed to happen inside the timer
44 68,205, 69,160, 64, 15,251,127,128,168, 38, 92,138, 17, 67,196, 80,184,223,255, 46 callback, there is a delay introduced by the main loop scheduling. This
45255,161,117, 33, 55, 83,191,255,193,240, 33, 57,114, 17, 0, 2, 0, 0, 0, 10, 47 could be compensated for by delaying the audio depending on a counter
46191, 10, 8,196,209, 75, 55,236,177,115,238,223,203, 61,176, 89, 78,101,219,118, 48 incremented since the period elapsed in the callback, at the price of
47118, 65,154,126,187,239,241,127,247,245, 59, 18,219, 94,105,245,221,161,173, 91, 49 putting the display out of sync. On a Clip+, the schedule delay isn't
48191, 27,255,247, 18,124, 71,117,139,133,170,221,227,251,135,110,236,255,183,219, 50 biggest problem (drift for fine timer resolution is).
49100, 78,184,125,212,131, 65, 95,212,245,145, 67, 77, 10,153,250,132,195, 4,138, 51
50224, 0, 0, 0,158,107, 42, 65,227,185, 90,158, 86, 6,155, 77,255,251, 82,196, 52 All in all, 1 ms is too small, 2 ms seems to work fine ...
51 8, 0, 10,136,185,103, 4, 61, 48, 65,118,173, 44, 60,147, 10,152,107, 49, 74, 53 4 ms might still be cool, too.
52 18,208, 91, 23,178,196,220, 25, 64,233,230, 36,170, 0,210,219,131, 40,165, 22, 54*/
53 86,195, 23,145, 33, 16,138, 99,109,117,245, 71,162, 69, 42,220,164, 91, 72,165, 55#if defined(SIMULATOR)
54 26, 69,146,150,199,222, 73,102,148, 29, 19, 5, 65, 86, 6,150,120,180, 26, 88, 56/* Simulator really wants 1024. Not 1000, not 512, only 1024.
55 75, 18,191,255,250,171, 4, 8,132,140, 0, 0, 20,186,242,162, 66,100, 62, 86, 57 Otherwise it is strangely slow. */
56206, 86,255, 26,203,201,255,255,141,128,166,196,175,133, 9, 70,188,146,175,133, 58static const unsigned int timerfreq_div = 1024;
57 60, 17,217,229, 90, 27, 87, 93, 34, 76,113,185, 84,213, 56, 17,170, 83, 75,180,
58203,116,101, 93, 90, 99, 35,174,230, 42,125, 12,128, 79, 93, 81,234, 67, 66,137,
59105,157,157, 23, 71, 53, 40,250,204,105, 89,203,107,250, 63,174, 89,133, 81,140,
60 0, 52, 17, 16, 0, 0, 18,111, 20, 92, 32,213, 48,179, 50, 26,244,179, 27,230,
61154, 34,133,177, 88,255,251, 82,196, 13, 0, 10,125, 65, 85,244, 85, 0, 1,210,
62172,231, 7, 31, 32, 0, 37, 11, 68, 69, 13, 37, 48,210, 23, 69, 36,122,143,148,
63211,141, 44, 76,135, 72,148,195,135,174, 84,149,167, 30,198,183,255,213,111, 61,
64 27,155,191,177,207,246,163,255,230, 30,137,219,255,182,186,185,239, 52,148,171,
65 75, 63,167, 44, 0, 2, 81,190, 41,253,248,182,180, 23, 43,127,217,161, 41,191,
66 36,199, 40,153,108, 66,224,131,192,217, 12, 67,217, 6,218,240,108,112, 63, 33,
67 93, 12, 8, 43, 66, 42, 74, 12,215,135,100,172, 33, 65,172, 29, 98, 4, 83, 34,
68 40, 17,111,133,255, 18,145, 60, 59,136,145, 92,106,144, 34,185, 58, 76,154,254,
69146,144,115, 4, 84,180,142,178, 38, 79,253, 34,237,105, 31,106, 70, 73, 36,138,
70 73,164,181,127,253,182, 82,217, 26,245,117,163,255,219, 50,115,223,245, 92,198,
71165,173, 0, 15,249,132, 50, 19,157, 85,121,153,245, 51,255,251, 82,196, 6,131,
72 74, 96,134,156, 92, 19, 0, 8, 0, 0, 52,128, 0, 0, 0, 60,226, 73, 57, 26,
73249,253,122,211,128, 65, 86, 10, 1, 9,195,128, 36, 72,225,196,146,115, 73, 18,
74 75, 65, 77, 9, 5,200, 43, 16,163,129, 77, 9, 5,200,110, 39,127,255,255,255,
75255,255,255,255,252, 83, 66,142,140, 21,136, 46, 64,166,133, 28, 12, 21,136, 46,
76 64,166,133, 21, 6, 76, 65, 77, 69, 51, 46, 57, 50, 85, 85, 85, 85, 85, 85, 85,
77 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85,
78 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85,
79 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85,
80 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85,
81 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85,
82 85, 85, 85};
83#else 59#else
84static signed short sound[] = { 60static const unsigned int timerfreq_div = 500; /* 2 ms resolution */
85 1, -1, 1, -1, 0, 0, 0, 1, -1, 0, 0,
86 0, -1, 2, -2, 2, -1, 0, 0, 0, 0, 1,
87 -1, 0, -1, 1, 0, 0, 0, 1, -1, 1, -2,
88 1, -1, 1, 0, 0, 0, 0, 0, 0, 0, 0,
89 0, 0, -1, 2, -2, 2, -1, 0, 1, -1, 1,
90 -1, 0, 0, 0, 0, 1, -2, 2, -2, 1, 0,
91 1, -1, 0, 1, -1, 0, 1, -2, 2, -1, 0,
92 0, 0, -1, 1, 0, 0, 0, 0, 0, 0, 0,
93 0, -1, 1, -1, 2, -2, 2, -2, 2, -2, 1,
94 0, 0, 0, 1, -2, 2, -2, 1, 0, 0, 0,
95 0, 0, 0, -1, 1, 0, -1, 2, -2, 2, -1,
96 0, 0, 0, -1, 1, -1, 1, -1, 2, -2, 1,
97 0, -1, 2, -2, 2, -2, 1, 0, 0, 0, 0,
98 0, 0, 0, 0, 1, -1, 0, 0, -1, 1, 0,
99 0, 1, -1, 0, 0, 0, 0, 0, 0, 0, 0,
100 1, -2, 2, -1, 0, 0, 0, 0, 0, 1, -2,
101 1, 0, 0, 0, 0, 0, 1, -1, 0, 0, -1,
102 2, -2, 2, -2, 2, -1, 0, 0, -1, 1, -1,
103 1, -1, 1, -1, 1, -1, 1, 0, 0, -1, 2,
104 -2, 1, 0, 0, 0, 0, 0, 1, -1, 0, 0,
105 -1, 1, 0, 0, 0, 0, 0, 0, 1, -2, 2,
106 -2, 2, -1, 1, -1, 1, -2, 2, -2, 2, -2,
107 2, -2, 2, -2, 2, -1, 0, 0, 0, -1, 2,
108 -2, 2, -1, 1, -1, 1, -2, 2, -2, 1, 0,
109 1, -1, 1, -2, 1, -1, 1, 0, 0, 0, 0,
110 0, 0, 0, 0, -1, 1, 0, -1, 2, -1, 0,
111 0, -1, 1, 0, -1, 2, -2, 1, 0, 0, 0,
112 0, 0, 0, -1, 2, -1, 1, -1, 0, 0, 1,
113 -2, 2, -1, 1, -1, 0, 1, -1, 0, 0, 0,
114 0, 0, 0, -1, 1, 0, 0, 0, 0, -1, 2,
115 -2, 2, -1, 0, 1, -1, 0, 0, 0, 0, 0,
116 0, 0, 0, 1, -1, 1, -1, 0, 0, 0, 0,
117 0, 1, -1, 1, -1, 0, 1, -2, 2, -1, 0,
118 1, -2, 2, -2, 2, -2, 2, -1, 0, 1, -1,
119 0, 1, -1, 0, 0, 0, 0, 0, 0, 1, -2,
120 2, -2, 1, 0, -1, 2, -2, 1, 0, 0, 0,
121 0, -1, 1, 0, 0, 1, -1, 0, 0, 0, 0,
122 0, 0, 0, 1, -1, 0, 0, 0, 0, 0, 0,
123 0, 0, 0, 0, 0, 0, 0, 0, 0, -1, 1,
124 -1, 1, 0, 0, 0, 0, 0, 0, -1, 2, -1,
125 0, 0, 0, 0, 1, -1, 0, 0, 1, -2, 2,
126 -1, 0, 0, 0, 0, -1, 1, 0, 0, -1, 2,
127 -2, 1, 0, -1, 1, -1, 2, -2, 2, -2, 2,
128 -1, 0, 0, 0, 0, 0, 1, -1, 0, 0, 0,
129 0, 0, 0, 0, 0, 0, -1, 1, 0, 1, -2,
130 2, -1, 0, 1, -1, 0, 0, 0, 0, 0, 0,
131 -1, 2, -2, 2, -2, 2, -1, 0, 0, 0, -1,
132 1, 0, -1, 1, 0, 0, 0, 0, 0, 0, 1,
133 -1, 0, 0, -1, 1, 0, 0, 0, 0, 0, 0,
134 1, -2, 2, -2, 1, 0, 0, 0, 0, 0, 0,
135 0, 1, -1, 0, 1, -1, 1, -1, 0, -1, 2,
136 -1, 0, 0, 0, -1, 1, -1, 1, 0, 1, -1,
137 1, -2, 1, 0, 0, 1, -2, 2, -2, 2, -2,
138 2, -2, 2, -1, 0, 0, 0, 0, 0, -1, 2,
139 -2, 2, -1, 0, 0, 0, 1, -1, 0, 0, 0,
140 0, -1, 1, -1, 1, 0, 0, 0, 1, -2, 1,
141 0, -1, 2, -2, 1, -1, 0, 2, -2, 2, 0,
142 -1, 0, 0, 0, -1, 2, -2, 2, -2, 2, -2,
143 2, -1, 0, 1, -2, 2, -1, 0, 0, 0, 0,
144 1, -1, 0, 0, 0, 0, 0, 0, 0, 1, -2,
145 1, 0, 0, 0, 0, 0, 0, -1, 1, -1, 1,
146 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1,
147 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
148 0, 0, 0, 0, 0, 0, 0, -1, 1, 0, -1,
149 2, -2, 1, 0, 0, 0, 0, 0, -1, 2, -2,
150 2, -1, 0, 0, 0, 0, 0, 0, 0, 0, 0,
151 0, 0, 0, -1, 2, -1, 0, 0, -1, 1, 0,
152 0, 0, 0, 0, 1, -1, 0, 0, -1, 1, 0,
153 0, 0, 0, -1, 1, 0, -1, 2, -1, 0, 0,
154 0, 1, -2, 2, -1, 0, 0, 0, -1, 1, -1,
155 1, 0, 0, 0, 0, 0, 0, 1, -1, 1, -1,
156 0, 0, -1, 2, -2, 1, 0, 0, 0, 0, 0,
157 0, 0, 0, 0, 0, 0, -1, 1, -1, 1, 0,
158 -1, 2, -2, 1, 1, -1, 0, 0, -1, 1, 0,
159 0, 0, 1, -2, 2, -2, 1, 0, 1, -2, 2,
160 -1, 0, 0, 0, -1, 2, -1, 0, 0, 0, 0,
161 0, 0, 0, 0, -1, 2, -2, 2, -1, 0, 0,
162 0, -1, 1, 0, 0, 0, 0, 0, 0, 0, 0,
163 0, 0, 0, 0, -1, 2, -2, 2, -1, 0, 1,
164 -1, 0, 0, 0, 0, 0, 0, 0, 0, 1, -2,
165 2, -1, 0, 0, 0, -1, 2, -2, 2, -2, 1,
166 0, -1, 1, 0, -1, 1, 0, 0, 0, 0, 0,
167 -1, 1, -1, 2, -2, 2, -1, 1, -1, 0, 0,
168 0, 0, 1, -1, 0, 0, 0, 0, 1, -2, 2,
169 -2, 1, 1, -1, 1, -1, 1, -2, 2, -2, 1,
170 -1, 2, -2, 1, 0, 0, 0, 0, 0, -1, 2,
171 -2, 2, -1, -1, 1, -1, 1, -1, 2, -2, 2,
172 -1, 0, 0, 1, -2, 2, -2, 1, 0, 0, 0,
173 0, 1, -2, 1, -1, 1, -1, 1, 0, 0, 0,
174 0, 0, -1, 1, 0, 0, 0, -1, 1, 0, 0,
175 1, -2, 2, -2, 1, 0, 0, 0, 0, 0, 0,
176 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
177 0, 0, 0, 0, 1, -1, 1, -2, 1, 0, 0,
178 0, 0, 0, 0, -1, 1, 0, 0, 0, -1, 1,
179 0, 0, 0, 0, 0, 0, 1, -2, 2, -1, 0,
180 0, 0, 0, 0, 0, 1, -2, 2, -1, 1, -1,
181 0, 0, 0, 1, -1, 0, 0, -1, 2, -1, 0,
182 1, -1, 0, 0, 0, 0, 0, 0, 0, 0, 0,
183 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
184 0, 0, -1, 1, 0, 0, 0, 0, 0, 0, 1,
185 -1, 0, 0, 0, 0, 0, 0, -1, 2, -2, 2,
186 -1, 1, -1, 0, 0, -1, 2, -1, 1, -1, 1,
187 -2, 2, -2, 2, -2, 2, -1, 0, 0, 0, 0,
188 0, 0, 0, 0, 1, -1, 0, 0, 1, -2, 2,
189 -1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
190 -1, 1, 0, 0, 0, -1, 1, 0, 0, 0, 0,
191 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
192 0, 0, 0, 0, -1, 2, -2, 2, -1, 0, 1,
193 -2, 1, 0, 0, 1, -2, 2, -2, 2, -1, -1,
194 2, -2, 1, 0, 0, 0, 1, -2, 2, -1, 0,
195 0, 0, 0, 0, 0, 0, -1, 1, -1, 2, -1,
196 0, 0, 0, 0, 0, 0, 0, 0, 0, -1, 2,
197 -1, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1,
198 1, 0, 0, 1, -1, 1, -1, 0, 0, -1, 2,
199 -2, 2, -1, 0, 0, 0, 1, -1, 0, 0, 0,
200 0, 0, 0, 0, 0, 0, 0, 0, -1, 1, 0,
201 0, 0, 0, 0, 0, 0, 0, 1, -1, 0, 0,
202 0, -1, 2, -2, 1, 0, -1, 1, 0, 0, 1,
203 -1, 0, 0, -1, 2, -2, 1, 0, -1, 2, -1,
204 0, 0, 0, 0, 0, 0, 0, -1, 1, 0, 0,
205 1, -2, 2, -2, 1, 0, 0, 0, 0, -1, 1,
206 0, 0, 1, -1, 0, 0, 0, 0, 0, 0, 0,
207 -1, 1, 0, 0, 0, 1, -1, 0, 0, 0, 0,
208 1, -1, 0, 1, -1, 0, -1, 1, 0, -1, 2,
209 -2, 1, 0, 0, 0, -1, 2, -2, 1, 0, 0,
210 1, -2, 2, -1, 0, 1, -1, 0, 0, 0, -1,
211 1, -1, 1, 0, 0, 0, 0, 0, 0, 0, 0,
212 0, -1, 1, 0, -1, 2, -2, 1, 0, 0, 0,
213 0, 0, 0, 0, 0, 0, 0, 0, -1, 2, -2,
214 1, -1, 1, -1, 2, -2, 1, 0, -1, 2, -2,
215 2, -1, 0, 0, 0, -1, 1, 0, 0, 0, 1,
216 -2, 2, -2, 2, -2, 1, 0, 0, 0, 0, 1,
217 -1, 1, -1, 0, 0, 0, 0, 0, 0, 1, -1,
218 0, 0, 0, 0, 1, -1, 0, 0, 0, -1, 2,
219 -2, 2, -1, 0, 1, -2, 1, 0, 0, 0, 0,
220 0, 0, 0, 0, 0, 0, 0, 0, -1, 2, -2,
221 2, -2, 1, 0, 0, 0, 0, 0, 0, -1, 2,
222 -2, 2, -1, 0, 1, -1, 0, 0, 0, 0, 0,
223 0, 1, -1, 0, 1, -2, 1, 0, -1, 1, 0,
224 -1, 1, 0, 0, 0, 0, 1, -1, 0, 0, 0,
225 0, 0, -1, 2, -2, 2, -2, 2, -2, 1, 0,
226 0, 0, 0, 1, -2, 2, -2, 2, -1, 0, 1,
227 -2, 2, -2, 1, 0, 0, 0, 1, -1, 0, 0,
228 -1, 1, 0, 0, 0, 0, -1, 2, -2, 2, -1,
229 0, 0, 0, -1, 2, -1, 0, 1, -1, 0, 0,
230 0, 0, 1, -2, 2, -1, 0, 0, 0, 0, 0,
231 0, 0, 0, 0, 1, -1, 0, 0, 0, 0, 0,
232 0, 0, 0, 0, -1, 1, 0, 0, 0, 0, 0,
233 0, 1, -1, 0, 0, 0, 0, 0, 0, 0, 0,
234 0, 0, 0, -1, 1, 0, 0, -1, 1, -1, 2,
235 -2, 2, -2, 2, -1, 0, 0, -1, 1, -1, 1,
236 0, -1, 2, -2, 2, -1, 0, 0, 0, 0, 0,
237 0, 0, 1, -2, 2, -2, 1, 0, 0, 0, -1,
238 2, -2, 1, 0, 1, -1, 0, 0, 1, -1, 1,
239 -2, 1, 0, 0, 0, -1, 1, -1, 2, -2, 2,
240 -1, 0, 0, 0, 0, 0, 0, 0, 0, 1, -1,
241 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
242 1, -2, 2, -1, 0, 1, -2, 2, -1, 0, 0,
243 0, 0, 1, -1, 1, -1, 0, -1, 2, -2, 2,
244 -2, 2, -1, 0, 0, 0, 0, 0, 0, 0, 1,
245 -1, 0, 0, 0, -1, 2, -2, 1, 1, -2, 2,
246 -1, 0, 1, -2, 1, 0, 0, 0, 0, 1, -1,
247 0, 1, -1, 0, 0, -1, 2, -2, 2, -2, 2,
248 -2, 2, -2, 2, -2, 2, -2, 2, -1, 1, -1,
249 1, -1, 1, 0, -1, 1, -1, 1, 0, 0, -1,
250 0, 1, 0, 1, -2, 2, -2, 1, 1, -2, 1,
251 0, 0, 0, 0, 0, 0, 0, -1, 2, -1, 0,
252 0, -1, 1, 0, 0, 0, -1, 0, 1, 0, 1,
253 -2, 0, -1, 1, 0, 1, 0, -1, 0, 0, 1,
254 -1, 1, -2, 1, 1, -1, 1, -1, -1, 0, 1,
255 0, 1, -1, 0, -1, 0, 1, 1, -2, 1, -1,
256 1, 1, 0, -1, 0, 0, 1, 1, 1, -1, 0,
257 -1, 0, 1, -1, 1, -2, 2, 0, 0, 1, -2,
258 -1, 0, 0, 1, -1, 0, -1, 1, 0, 0, 0,
259 0, 0, 0, 0, -1, 1, -1, 1, 0, 2, 1,
260 -1, 0, 0, 0, 1, 1, 1, -1, 1, 1, 0,
261 1, -2, 1, -1, 2, 2, 0, -1, -1, -1, 0,
262 1, -1, 1, -1, 1, 1, 1, 1, -3, 0, 3,
263 0, 0, -4, -2, 4, 5, 4, -3, -1, 1, -3,
264 -2, -5, -6, -1, 5, 2, 1, -3, -2, -5, 1,
265 -4, -5, 3, 5, 0, 1, 2, 0, -5, -1, 3,
266 5, 2, 1, 1, 6, 5, 3, -1, 0, 2, 5,
267 10, 8, 4, 2, -5, -5, 3, 11, 8, -4, -8,
268 -2, 2, -1, -1, 5, -6, -12, -11, -5, -9, -5,
269 10, 6, 3, -4, -3, -9, -8, -18, -9, 5, 13,
270 7, 13, 29, 17, -1, -1, 15, 21, 15, -9, -29,
271 -15, 10, 10, -15, -31, -48, -49, -30, -7, -1, -8,
272 -6, 15, 39, 43, 24, 16, 27, 28, 9, -16, -6,
273 34, 60, 41, 15, 11, 26, 14, -28, -77, -83, -60,
274 -32, 1, 10, -11, -59, -83, -49, 27, 93, 82, 11,
275 -27, -8, 9, 1, 12, 22, 6, -22, -15, 4, 8,
276 -19, -23, 49, 143, 139, 39, -31, -56, -101, -145, -102,
277 -10, 20, -61, -196, -258, -136, 70, 172, 112, 43, 55,
278 75, 12, -69, -33, 89, 114, -26, -137, -14, 239, 335,
279 202, 68, 115, 231, 169, -131, -459, -540, -338, -72, 43,
280 20, -53, -174, -290, -195, 192, 593, 628, 322, 95, 159,
281 264, 163, -50, -202, -229, -114, 18, -31, -212, -264, -36,
282 432, 807, 619, -52, -483, -452, -414, -404, -98, 228, -3,
283 -760, -1444, -1414, -458, 624, 732, 35, -209, 476, 1113, 586,
284 -785, -1405, -480, 753, 881, 280, 81, 441, 753, 687, 711,
285 1440, 2140, 1110, -1470, -2963, -1770, 607, 1427, -399, -3146, -3899,
286 -2064, 28, 715, 874, 1442, 1606, 394, -1483, -2014, -354, 1531,
287 1156, -984, -2108, -821, 1635, 3003, 2087, 186, -155, 1569, 3328,
288 3463, 2110, 9, -2200, -3876, -4298, -2871, -266, 1039, -393, -2357,
289 -1809, 1079, 4019, 5685, 5742, 4435, 3098, 2963, 3181, 2018, -691,
290 -3919, -6922, -9001, -8935, -6374, -3215, -1862, -2089, -1508, 731, 3186,
291 4763, 5160, 3629, 706, -712, 739, 2391, 1570, -1015, -3502, -4979,
292 -4798, -2615, 420, 2178, 1457, -602, -1287, 741, 3741, 5018, 3687,
293 934, -757, 497, 3094, 3163, 113, -2188, -1194, 911, 998, -254,
294 484, 3643, 4907, 1023, -4718, -6191, -1911, 3621, 4508, -687, -6491,
295 -6309, -1015, 3007, 3184, 1911, 471, -1763, -4048, -4414, -2046, 1179,
296 1513, -1919, -4522, -2259, 2368, 4547, 3613, 2320, 2847, 5035, 6432,
297 4390, -835, -5857, -7419, -5497, -2768, -1012, -27, -294, -2444, -3889,
298 -1911, 942, 1212, 859, 2879, 5141, 4107, 108, -3768, -4853, -2787,
299 -162, 142, -1594, -2490, -498, 3349, 5670, 4368, 1089, -1548, -3118,
300 -3936, -3319, -1583, -547, -360, 985, 3125, 2273, -1728, -2291, 4071,
301 10390, 9283, 3620, 79, -90, 1293, 1968, -2030,-10963,-16320,-10631,
302 1236, 8206, 6740, 2418, 1132, 3007, 3504, -1371, -8877, -9321, 2657,
303 17866, 22245, 14739, 4801, -2737, -7071, -2808, 12289, 25609, 19526, -6479,
304-30563,-29780, -6434, 13879, 13263, 83, -8239, -7874, -6445, -8032, -9180,
305 -7691, -7914,-12368,-13982, -7090, -1018, -8154,-21862,-22142, -3867, 14327,
306 14436, 1712, -5853, -2462, 3311, 4605, 1731, -3832,-11191,-17673,-17400,
307 -4049, 17643, 27851, 14373, -7582,-15759, -9573, -1277, 5996, 13903, 17168,
308 11276, 1603, -4763, -7550, -7537, -2186, 6709, 10980, 6990, -1127, -9765,
309-16805,-19102,-18420,-18687,-13775, 3373, 21405, 23456, 12651, 3319, -1287,
310 -4637, -3954, 3883, 11849, 8344, -6853,-17292, -7204, 16901, 31089, 21726,
311 1084, -7875, 1459, 15092, 20527, 18496, 10594, -3296,-12835, -6081, 9842,
312 15942, 3977,-16959,-26888,-12200, 13260, 20645, 6239, -5950, -2526, 6054,
313 8073, 3123, -4656,-11949,-15611,-12153, -2236, 4314, -2887,-19936,-30928,
314-23846, -1429, 17759, 15264, -1868, -7505, 5991, 19737, 18946, 8185, -600,
315 44, 6127, 5321, -4750,-11829, -8743, -1330, 3689, 3252, -3513,-11859,
316-14753,-10198, 72, 10949, 13370, 5735, -564, 2639, 9903, 13145, 11045,
317 6754, 3123, -724, -6600,-10509, -8340, -6244,-12133,-21055,-20385, -5186,
318 15105, 23034, 11762, -3750, -5737, 2612, 6060, 33, -7014, -4975, 7697,
319 18684, 12606, -7934,-23083,-20429, -7355, 2345, 4875, 7094, 14569, 22636,
320 22509, 13749, 4800, 2246, 4805, 7497, 7404, 4042, -3207,-13334,-19292,
321-12274, 5051, 15820, 7212,-12051,-20991,-11633, 3886, 11417, 10491, 8967,
322 9849, 9995, 8305, 7497, 7731, 5549, -49, -6582,-12286,-16545,-19489,
323-22478,-23536,-16116, -123, 14039, 19014, 16964, 11024, 3746, 1174, 5696,
324 10510, 9283, 3833, -1113, -4247, -7485,-11448,-12665, -9329, -7052,-10656,
325-14627,-10081, 3317, 16454, 18316, 6990, -6264,-10409, -7182, -2463, 3812,
326 10794, 12717, 7460, 215, -2353, 676, 983, -9207,-21161,-17629, 361,
327 11731, 2863,-15895,-22726, -8619, 11663, 17157, 7331, -255, 4522, 15016,
328 20742, 18465, 12205, 6509, 836, -6050,-10016, -8310, -6482, -9596,-13628,
329-12443, -6667, -1745, -487, 633, 6363, 14319, 17428, 14246, 9598, 6752,
330 5527, 5289, 5673, 6272, 5900, 2123, -5034,-10908,-12352,-12153,-13371,
331-14974,-15335,-14089, -9874, -1589, 8285, 14571, 13761, 7383, 1668, 1519,
332 4509, 3987, -1719, -7872,-10985,-12263,-12864,-11713, -9423, -8944,-10937,
333-12477,-11078, -6884, -1052, 5798, 13303, 20195, 23473, 20387, 12863, 7217,
334 6080, 4059, -3737,-13190,-17239,-15342,-11071, -5970, -543, 4259, 7968,
335 8781, 4097, -3427, -7041, -5374, -2595, 70, 4218, 8042, 8534, 7403,
336 8758, 12712, 15141, 12739, 6198, -414, -2420, 331, 780, -7211,-18274,
337-21587,-15771, -7472, 733, 9880, 17443, 19723, 16661, 10520, 4467, 1343,
338 308, -1550, -3368, -1921, 1564, 1426, -5086,-13434,-16483,-12675, -6499,
339 -2040, -586, -2374, -5424, -5786, -2131, 3305, 7892, 9432, 7024, 3000,
340 410, -274, 396, 1514, 785, -2873, -7609,-11931,-15458,-16897,-15275,
341-10823, -3469, 5396, 11785, 13505, 11686, 7478, 2801, 1972, 6978, 13591,
342 14815, 7016, -6127,-15851,-17122,-13183, -9425, -7273, -5029, -1087, 3485,
343 5516, 4834, 5156, 7648, 9472, 9387, 8481, 7313, 6847, 7922, 8488,
344 6309, 2375, -1821, -6179, -9633,-10798,-10521,-10565,-11165,-11055, -8661,
345 -3781, 1960, 6819, 9680, 9920, 8944, 9396, 10975, 10715, 7182, 861,
346 -7005,-13267,-15283,-15034,-15703,-15867,-12193, -5329, 829, 3996, 5377,
347 7152, 9312, 10386, 10275, 10167, 10500, 10694, 9601, 6318, 2012, -1381,
348 -4917,-10834,-17053,-18962,-15907,-11261, -7518, -4754, -2399, -32, 2969,
349 6930, 10871, 13043, 13087, 12045, 10546, 9003, 8103, 6739, 2241, -5153,
350-11768,-15213,-15636,-13473, -9655, -6045, -3220, -430, 2055, 3835, 6558,
351 11429, 15904, 16225, 12337, 7477, 3631, -122, -4854, -9898,-13734,-15118,
352-13861,-11287, -8854, -6458, -3768, -1724, -385, 2105, 5993, 8742, 9121,
353 8765, 8415, 6764, 3536, 104, -2912, -5635, -7580, -8217, -7502, -5362,
354 -2617, -1366, -2262, -3363, -3163, -2137, -589, 1870, 4595, 6301, 6764,
355 6718, 6520, 5842, 4638, 3882, 4279, 4700, 3357, 183, -2935, -3952,
356 -2906, -2493, -4469, -6460, -5616, -2932, -231, 3057, 6959, 9364, 9069,
357 6831, 4078, 2556, 2602, 2068, -153, -1834, -1310, -248, -795, -2717,
358 -4126, -3995, -3695, -4963, -6850, -7066, -5258, -2772, -846, 139, 1073,
359 2821, 4490, 5430, 6971, 8941, 8259, 3626, -2713, -8358,-12049,-13228,
360-12856,-12123,-10333, -7012, -3862, -1844, 527, 4263, 8105, 10304, 10453,
361 9346, 7786, 5793, 3181, 40, -3553, -7164, -9520, -9740, -8339, -6135,
362 -3335, 16, 3345, 5455, 5356, 3793, 2943, 3715, 4965, 5638, 6024,
363 6657, 7270, 6829, 4385, 593, -2392, -3644, -4633, -6185, -6575, -4682,
364 -2249, -1081, -648, 222, 1873, 4273, 6609, 7328, 6269, 5017, 4332,
365 3500, 2200, 704, -1135, -3367, -5373, -6705, -7346, -7055, -5618, -3596,
366 -1716, 117, 2133, 3576, 3514, 2437, 1568, 1147, 588, -490, -1976,
367 -3125, -2983, -1979, -1775, -2637, -2993, -2327, -2013, -2843, -4077, -4841,
368 -4778, -3915, -2756, -1663, -78, 2401, 4777, 5910, 6074, 5858, 4886,
369 2889, 688, -970, -2010, -2413, -2357, -2511, -3033, -3218, -2983, -2783,
370 -2022, 315, 3490, 5687, 6228, 5642, 4405, 3006, 2065, 1656, 1592,
371 2141, 3191, 3485, 2147, -131, -2437, -4663, -6289, -6118, -3991, -1098,
372 1550, 3446, 4204, 4186, 4379, 4801, 4654, 3956, 3267, 2297, 512,
373 -1660, -3571, -5057, -5713, -5051, -3695, -2719, -2075, -1180, -306, 43,
374 201, 527, 896, 1415, 2085, 2103, 1018, -171, -613, -825, -1316,
375 -1701, -1787, -1766, -1462, -922, -997, -1987, -2857, -2699, -1736, -514,
376 484, 696, 221, 24, 316, 48, -973, -1304, -49, 1921, 3426,
377 4026, 3875, 3529, 3327, 2659, 1002, -723, -1568, -2055, -2862, -3247,
378 -2368, -873, 62, 184, 58, 315, 1196, 2204, 2563, 2494, 2945,
379 3730, 3479, 1991, 500, -527, -1710, -3069, -4146, -4921, -5126, -4168,
380 -2410, -881, 287, 1399, 2210, 2737, 3559, 4435, 4390, 3402, 2338,
381 1278, -271, -1954, -2896, -3007, -2752, -2482, -2724, -3874, -5145, -5390,
382 -4613, -3122, -402, 3217, 5859, 6536, 6136, 5381, 4239, 3021, 1905,
383 465, -1127, -2074, -2588, -3532, -4652, -5131, -4876, -4054, -2586, -848,
384 525, 1727, 3291, 4715, 5094, 4595, 3990, 3426, 2642, 1618, 196,
385 -1676, -3238, -3809, -3789, -3482, -2326, -697, -239, -1207, -1820, -939,
386 863, 2740, 4260, 5221, 5856, 6299, 5671, 3229, -23, -2465, -3892,
387 -4948, -5454, -5047, -4443, -4355, -4055, -2592, -469, 1194, 2038, 2285,
388 2563, 3653, 5162, 5484, 4235, 2697, 1473, 27, -1754, -3674, -5673,
389 -6983, -6577, -4808, -2747, -690, 1257, 2527, 3071, 3338, 3313, 2895,
390 2726, 3203, 3522, 2793, 1295, -325, -2074, -3850, -4855, -4744, -4000,
391 -2801, -1095, 473, 1418, 2150, 2712, 2651, 2407, 2619, 2775, 2513,
392 2523, 2737, 2113, 659, -598, -1376, -2019, -2413, -2377, -2143, -1792,
393 -1119, -403, -404, -963, -894, 215, 1579, 2770, 3868, 4081, 2660,
394 398, -1501, -2862, -3573, -3200, -2109, -1097, -276, 295, 45, -1024,
395 -1953, -2120, -1736, -971, 274, 1597, 2369, 2667, 2840, 2417, 947,
396 -823, -1912, -2224, -1940, -1203, -452, 127, 811, 1272, 788, -366,
397 -1342, -1806, -1746, -1161, -266, 928, 2469, 3661, 3707, 2956, 2179,
398 1379, 340, -690, -1418, -1852, -2028, -1928, -1591, -1202, -864, -267,
399 806, 1949, 2658, 2868, 2653, 2202, 1866, 1534, 768, -230, -1027,
400 -1800, -2455, -2301, -1394, -707, -605, -610, -403, -39, 282, 371,
401 423, 917, 1881, 2543, 1980, 235, -1335, -1767, -1786, -2298, -2787,
402 -2689, -2421, -2133, -1460, -694, -214, 424, 1435, 2307, 2819, 3041,
403 2652, 1573, 324, -754, -1729, -2520, -2956, -2933, -2321, -1260, -306,
404 165, 305, 416, 646, 985, 1362, 1745, 2076, 2245, 2234, 1930,
405 1150, -10, -1337, -2785, -3969, -4138, -3350, -2371, -1256, 303, 1810,
406 2722, 3265, 3605, 3559, 3246, 2772, 1942, 766, -553, -1923, -2939,
407 -3124, -2592, -1721, -657, 340, 1033, 1514, 1616, 1076, 417, 322,
408 591, 787, 929, 1058, 1046, 827, 255, -548, -1069, -1232, -1508,
409 -1928, -2066, -1828, -1384, -836, -313, 165, 570, 710, 593, 549,
410 566, 338, -42, -215, -86, 93, -71, -692, -1242, -1361, -1405,
411 -1612, -1705, -1546, -1012, 64, 1202, 1774, 2110, 2444, 2028, 747,
412 -280, -586, -712, -687, -214, 222, 21, -651, -1402, -2075, -2301,
413 -1607, -374, 420, 528, 623, 906, 895, 646, 748, 1155, 1401,
414 1471, 1569, 1443, 829, -102, -1009, -1730, -2195, -2295, -1957, -1121,
415 235, 1663, 2296, 1932, 1429, 1359, 1289, 1045, 1074, 1308, 1229,
416 771, 13, -1126, -2275, -2863, -2931, -2658, -1849, -660, 316, 931,
417 1418, 1586, 1154, 592, 633, 1166, 1428, 1169, 759, 275, -489,
418 -1425, -2208, -2714, -2705, -2029, -1090, -367, 236, 886, 1413, 1728,
419 1903, 1867, 1576, 1097, 393, -463, -1157, -1465, -1417, -1112, -615,
420 82, 923, 1390, 889, -291, -1250, -1686, -1756, -1338, -411, 577,
421 1291, 1751, 1854, 1480, 897, 393, -43, -439, -733, -924, -979,
422 -751, -354, -58, 122, 314, 418, 311, 171, 225, 428, 678,
423 1000, 1304, 1263, 748, 37, -586, -1042, -1237, -1070, -664, -243,
424 97, 262, 167, -128, -402, -445, -184, 202, 446, 534, 519,
425 323, -11, -258, -385, -468, -463, -350, -191, -36, -2, -163,
426 -207, 82, 406, 588, 861, 1087, 900, 461, 73, -396, -872,
427 -917, -514, -44, 332, 667, 771, 490, -59, -620, -1123, -1495,
428 -1448, -811, 63, 751, 1214, 1446, 1336, 1005, 611, 60, -531,
429 -828, -837, -740, -478, -139, -25, -63, 30, 245, 481, 790,
430 1033, 1002, 750, 462, 140, -197, -433, -516, -516, -578, -715,
431 -818, -821, -742, -548, -228, 77, 233, 247, 183, 100, 60,
432 91, 155, 208, 257, 275, 154, -136, -387, -429, -428, -486,
433 -396, -72, 259, 435, 450, 397, 400, 373, 153, -57, 23,
434 181, 231, 390, 496, 87, -627, -1036, -1047, -785, -216, 465,
435 823, 761, 501, 269, 197, 282, 395, 502, 597, 684, 687,
436 440, -91, -581, -803, -853, -677, -155, 367, 520, 472, 351,
437 -35, -523, -708, -585, -312, 103, 471, 530, 378, 226, 51,
438 -164, -377, -542, -582, -404, -134, 42, 91, 4, -205, -400,
439 -488, -528, -548, -453, -157, 305, 794, 1106, 1134, 866, 307,
440 -368, -839, -979, -916, -721, -436, -226, -164, -84, 26, 32,
441 27, 249, 614, 889, 1016, 1036, 931, 663, 248, -235, -632,
442 -864, -967, -997, -965, -800, -394, 150, 614, 919, 1096, 1049,
443 791, 514, 271, 19, -107, -93, -145, -295, -384, -365, -257,
444 -96, -26, -115, -232, -332, -437, -400, -167, 106, 387, 655,
445 726, 536, 231, -134, -519, -793, -961, -1068, -1019, -800, -555,
446 -275, 62, 333, 543, 777, 937, 940, 888, 784, 519, 133,
447 -278, -630, -849, -905, -836, -598, -266, -41, 129, 370, 501,
448 401, 294, 265, 159, 100, 253, 410, 336, 166, 11, -162,
449 -313, -295, -159, -70, -82, -123, -159, -195, -141, 128, 547,
450 900, 1123, 1218, 1047, 565, -14, -513, -944, -1193, -1088, -735,
451 -411, -189, -17, 62, 33, 33, 114, 218, 335, 449, 434,
452 244, -53, -414, -720, -786, -594, -314, -119, -107, -289, -515,
453 -670, -755, -661, -218, 419, 945, 1257, 1343, 1140, 688, 146,
454 -364, -747, -941, -997, -923, -669, -334, -74, 97, 267, 439,
455 594, 715, 741, 715, 739, 823, 817, 615, 225, -241, -642,
456 -911, -1033, -958, -683, -356, -53, 232, 432, 478, 491, 616,
457 782, 862, 863, 794, 586, 230, -181, -534, -750, -738, -528,
458 -311, -238, -262, -256, -227, -207, -107, 83, 179, 121, 79,
459 115, 135, 168, 205, 147, 48, 78, 104, -77, -367, -617,
460 -883, -1084, -1016, -718, -373, -15, 361, 660, 801, 781, 677,
461 554, 320, -73, -437, -617, -681, -645, -434, -130, 113, 293,
462 396, 325, 127, -74, -166, -76, 183, 416, 509, 518, 451,
463 293, 114, -37, -135, -139, -66, 9, 69, 133, 172, 213,
464 302, 407, 464, 465, 362, 169, -59, -340, -635, -779, -688,
465 -447, -84, 362, 661, 681, 514, 221, -144, -386, -357, -167,
466 107, 375, 463, 237, -179, -650, -1045, -1222, -1130, -842, -392,
467 138, 538, 675, 607, 418, 190, 41, -18, -35, -35, -32,
468 -96, -207, -325, -456, -537, -470, -334, -214, -45, 183, 298,
469 318, 354, 397, 377, 383, 478, 558, 567, 484, 302, 21,
470 -283, -518, -634, -630, -538, -323, -11, 257, 390, 440, 384,
471 210, 120, 251, 418, 464, 415, 286, 41, -216, -388, -514,
472 -519, -335, -65, 96, 139, 108, -19, -217, -360, -319, -84,
473 209, 472, 622, 599, 404, 185, 16, -167, -362, -491, -580,
474 -659, -617, -457, -316, -190, 29, 245, 336, 321, 250, 116,
475 2, -41, -39, 27, 143, 200, 119, -28, -153, -219, -211,
476 -152, -101, -31, 29, 24, -42, -109, -150, -121, -8, 81,
477 114, 185, 282, 308, 280, 243, 149, 11, -54, -87, -184,
478 -283, -303, -254, -123, 83, 232, 239, 165, 62, -49, -140,
479 -173, -148, -67, 24, 67, 84, 92, 54, -41, -121, -154,
480 -114, -23, 33, -42, -166, -268, -347, -412, -399, -276, -56,
481 203, 449, 635, 747, 724, 565, 367, 166, -64, -263, -360,
482 -406, -447, -446, -403, -362, -295, -156, -16, 98, 230, 381,
483 493, 512, 456, 390, 345, 296, 223, 156, 56, -121, -320,
484 -500, -665, -754, -680, -487, -234, 79, 378, 518, 528, 469,
485 319, 127, 35, 48, 65, 106, 170, 121, -91, -334, -506,
486 -625, -686, -636, -473, -258, -40, 168, 349, 443, 477, 509,
487 514, 432, 311, 186, -4, -269, -460, -541, -600, -629, -558,
488 -432, -326, -227, -105, 34, 209, 394, 534, 582, 577, 524,
489 403, 246, 118, 23, -71, -157, -166, -96, -30, -27, -54,
490 -75, -74, -38, -12, -25, -9, 103, 245, 354, 449, 504,
491 459, 321, 148, -52, -248, -357, -383, -369, -327, -281, -274,
492 -281, -215, -56, 146, 351, 547, 692, 699, 525, 253, 5,
493 -185, -301, -328, -280, -255, -260, -282, -372, -505, -535, -391,
494 -184, 26, 233, 392, 410, 313, 173, 39, -67, -108, -93,
495 -70, -85, -151, -261, -381, -475, -495, -443, -313, -91, 211,
496 503, 688, 732, 648, 464, 220, -12, -159, -211, -226, -273,
497 -324, -329, -267, -147, -8, 120, 253, 422, 558, 570, 491,
498 394, 269, 115, 6, -26, -46, -102, -183, -263, -295, -279,
499 -200, -55, 104, 181, 191, 229, 264, 234, 170, 120, 23,
500 -99, -169, -217, -323, -368, -285, -173, -113, -33, 59, 81,
501 15, -85, -169, -191, -127, 0, 127, 178, 111, -6, -94,
502 -130, -110, -20, 82, 87, 38, 1, -73, -175, -203, -108,
503 24, 142, 243, 255, 154, 20, -64, -99, -88, -26, 73,
504 178, 230, 191, 70, -70, -165, -187, -142, -52, 49, 163,
505 267, 320, 304, 230, 146, 70, 6, -38, -84, -144, -224,
506 -289, -349, -368, -291, -88, 163, 372, 491, 466, 307, 89,
507 -105, -254, -332, -311, -217, -111, -19, -4, -66, -132, -161,
508 -159, -125, -50, -13, -36, -42, 14, 105, 212, 311, 353,
509 331, 264, 120, -101, -320, -487, -564, -501, -331, -168, -22,
510 130, 249, 281, 288, 283, 239, 225, 267, 268, 198, 126,
511 28, -139, -302, -389, -442, -438, -302, -96, 102, 291, 438,
512 476, 423, 334, 223, 106, 14, -82, -191, -290, -397, -494,
513 -518, -425, -238, -23, 164, 270, 324, 355, 319, 215, 89,
514 -27, -147, -236, -288, -347, -395, -360, -243, -125, -43, 25,
515 75, 85, 82, 119, 160, 166, 148, 130, 82, 8, -29,
516 -63, -124, -173, -166, -121, -63, 16, 87, 163, 235, 250,
517 217, 191, 187, 142, 76, 12, -71, -137, -169, -189, -183,
518 -106, 8, 87, 134, 154, 99, 45, 84, 178, 241, 277,
519 270, 209, 125, 50, -62, -190, -254, -235, -179, -106, -18,
520 33, 46, 32, 9, -22, -35, -13, 22, 64, 78, 29,
521 -63, -133, -169, -189, -166, -121, -98, -67, -3, 15, 5,
522 44, 100, 108, 108, 114, 64, -46, -141, -245, -316, -233,
523 -59, 21, -10, -20, -6, -7, -6, 7, -3, -2, 9,
524 -2, -25, -17, -1, 1, -8, -1, -5, -11, -13, -10,
525 -14, -12, -3, 11, 6, 2, 1, -9, -13, 0, 11,
526 12, 16, 17, 9, -4, -9, -13, -11, 1, 7, 2,
527 13, 13, -3, 0, 10, 9, 3, 6, 4, -4, -9,
528 -7, -2, 6, 5, -14, -19, -9, -11, -10, -5, -16,
529 -22, -4, 17, 16, 1, -14, -17, -6, 6, 3, -2,
530 -5, -10, -11, -1, -2, -12, -12, -4, 9, 14, 15,
531 6, 9, 13, 7, -6, -5, 5, 3, -6, -10, -14,
532 -11, -4, 4, 3, -1, 3, -1, -12, -13, 2, 9,
533 -1, -7, -1, 1, 1, 12, 7, 2, -1, 3, 3,
534 7, 7, 3, -1, 4, 8, 3, 6, 6, 2, -3,
535 -2, -5, -6, 1, -2, -6, -9, -10, -7, -5, 3,
536 -4, -10, -7, 5, 7, 1, 0, 0, -8, -7, -5,
537 -1, 2, 4, 6, -1, -2, 5, 5, 0, -1, 0,
538 1, -8, -8, -12, -9, -4, -2, -3, -4, -1, 2,
539 3, 3, -3, -4, -5, 3, 6, -1, -5, -14, -13,
540 -12, -13, -11, 0, 9, 13, 10, 9, 7, 1, 1,
541 -2, 1, 3, 3, 2, 0, -2, 0, 0, 3, 1,
542 4, 2, 4, 0, 1, -1, -1, -1, 0, -2, -2,
543 -1, -2, 2, -1, 1, 0, 1, 2, 2, 1, 1,
544 1, 0, -1, -1, 0, -1, 1, -2, 2, 0, 1,
545 0, -1, -1, -1, 1, 0, 0, -1, -2, -2, -1,
546 -2, -1, 2, 1, 3, 0, 3, 0, -1, 1, -1,
547 1, 0, 1, 0, -1, 1, -2, 2, -1, 1, 0,
548 1, 0, 0, 0, 0, 0, -1, 1, -2, 1, -1,
549 1, 0, 0, 0, 0, 0, 0, 1, -1, 1, 0,
550 0, 0, -1, 0, 0, 0, 0, 0, 0, 0, -1,
551 0, 0, 1, 0, 0, 0, -1, 0, -1, 1, -1,
552 1, 0, -1, 2, -1, 1, -1, 1, -1, 0, 1,
553 -1, 0, 1, -1, 2, -2, 1, -1, 1, -1, 0,
554 1, -1, 1, 0, -1, 1, 0, -1, 1, -1, 0,
555 1, -1, 1, 0, -1, 1, -1, 0, 0, 1, -1,
556 1, -1, 1, 0, -1, 1, -1, 1, 0, -1, 1,
557 -1, 1, -1, 0, 1, -1, 1, -1, 1, -2, 2,
558 -1, 0, 1, -1, 0, 1, -1, 1, 0, 0, 0,
559 0, 0, 0, -1, 1, -1, 1, -1, 1, -1, 1,
560 -1, 1, -1, 0, 1, -2, 2, -1, 0, 0, 1,
561 -1, 1, 0, -1, 0, 0, 1, -2, 2, -1, 0,
562 1, -1, 0, 1, -1, 1, -1, 1, -1, 1, -1,
563 1, -1, 0, 1, -1, 1, 0, -1, 0, 0, 1,
564 -1, 0, 0, 1, -1, 0, 0, 0, 1, -1, 1,
565 -1, 0, 1, -1, 1, -1, 0, 0, 0, 1, -1,
566 1, -1, 1, -1, 1, 0, 0, 0, -1, 0, 1,
567 -1, 1, -1, 0, 0, 0, 0, 1, -1, 1, -1,
568 1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 1,
569 -1, 0, 1, -1, 1, 0, -1, 1, 0, -1, 1,
570 -1, 1, -1, 1, -1, 1, -1, 0, 1, -2, 2,
571 0, -1, 1, -1, 1, -1, 1, 0, -1, 1, -1,
572 0, 1, -2, 2, -1, 1, 0, 0, 0, -1, 1,
573 -1, 1, -1, 0, 0, 0, 1, -1, 1, 0, -1,
574 1, -1, 0, 1, -1, 1, -1, 1, -1, 0, 1,
575 -1, 1, -1, 0, 0, 1, -1, 1, -1, 0, 1,
576 -2, 2, -1, 0, 1, -2, 2, 0, 0, 0, -1,
577 1, -1, 0, 1, -1, 1, -1, 1, -1, 1, -1,
578 0, 1, -1, 1, -1, 0, 0, 1, -1, 1, -2,
579 2, -2, 3, -3, 3, -2, 0, 1, -1, 0, 0,
580 1, -1, 1, -1, 0, 1, -1, 0, 0, 0, 1,
581 -1, 0, 1, -1, 1, -1, 0, 0, 0, 1, -1,
582 0, 0, 0, 0, 1, -1, 1, -1, 0, 1, -1,
583 1, -1, 1, 0, -1, 1, 0, -1, 1, -1, 0,
584 1, -1, 1, -1, 1, 0, -1, 1, -1, 0, 1,
585 -1, 1, 0, 0, 0, -1, 1, -1, 0, 0, 0,
586 0, 1, -1, 1, 0, -1, 0, 1, -1, 0, 1,
587 -1, 1, -1, 1, -1, 0, 1, -2, 2, -1, 0,
588 0, 0, 1, -1, 1, -1, 1, -1, 1, -1, 1,
589 -1, 0, 1, -1, 1, -1, 1, 0, 0, -1, 1,
590 -1, 0, 0, 0, 0, 1, -1, 1, -1, 0, 1,
591 -1, 0, 1, -1, 1, -1, 1, -1, 0, 1, -1,
592 0, 1, -1, 1, 0, -1, 1, -1, 0, 1, -2,
593 2, -1, 0, 0, 0, 1, -1, 1, -1, 1, 0,
594 -1, 1, -1, 0, 1, -2, 2, -1, 0, 0, 0,
595 1, -1, 0, 0, 1, -1, 1, 0, -1, 0, 1,
596 -2, 2, -1, 1, 0, -1, 0, 1, -2, 3, -2,
597 1, -1, 1, -2, 2, -2, 2, -1, 1, -1, 1,
598 -1, 1, -1, 1, -1, 1, -1, 1, -1, 1, -1,
599 0, 0, 1, -1, 1, -2, 2, -1, 1, -1, 1,
600 -1, 0, 1, -2, 2, -1, 1, -1, 0, 0, 0,
601 0, 1, -1, 1, -1, 1, -2, 2, -1, 1, 0,
602 -1, 1, -1, 1, -1, 0, 0, 0, 0, 0, 0,
603 1, -1, 1, -1, 1, -1, 0, 0, 0, 1, 0,
604 -1, 1, 0, -1, 1, -2, 2, -2, 2, -1, 0,
605 0, 0, 1, -1, 1, -1, 1, -1, 1, -1, 1,
606 0, 0, -1, 1, -1, 1, -1, 1, -1, 0, 0,
607 0, 0, 1, -1, 1, 0, -1, 0, 0, 0, 1,
608 -1, 1, -1, 0, 1, -1, 0
609};
610#endif 61#endif
62/* actual (not quarter) beats per minute above which display blinking
63 is deactivated (since it is not needed anymore and because of performance
64 issues) */
65static const unsigned int blinklimit = 135;
66
67enum metronome_errors
68{
69 MERR_NOTHING = 0
70, MERR_MISSING
71, MERR_OOM
72, MERR_TEMPO
73, MERR_METER
74, MERR_VOLUME
75, MERR_PATTERN
76};
77
78#define PART_MAX 10 /* maximum count of programmed parts */
611 79
612#if (CONFIG_KEYPAD == IRIVER_H100_PAD) || (CONFIG_KEYPAD == IRIVER_H300_PAD) \ 80#if (CONFIG_KEYPAD == IRIVER_H100_PAD) || (CONFIG_KEYPAD == IRIVER_H300_PAD) \
613 || (CONFIG_KEYPAD == SANSA_E200_PAD) || (CONFIG_KEYPAD == SAMSUNG_YH820_PAD) \ 81 || (CONFIG_KEYPAD == SANSA_E200_PAD) || (CONFIG_KEYPAD == SAMSUNG_YH820_PAD) \
614 || (CONFIG_KEYPAD == SAMSUNG_YH920_PAD) 82 || (CONFIG_KEYPAD == SAMSUNG_YH920_PAD)
615#define MET_SYNC 83#define MET_SYNC
616#endif 84#endif
@@ -636,20 +104,13 @@ static signed short sound[] = {
636#define METRONOME_PAUSE PLA_CANCEL 104#define METRONOME_PAUSE PLA_CANCEL
637#define METRONOME_PLAY PLA_SELECT_REPEAT 105#define METRONOME_PLAY PLA_SELECT_REPEAT
638 106
639#if defined(MET_SYNC) 107#define METRONOME_START PLA_SELECT
640enum {
641 METRONOME_SYNC = LAST_PLUGINLIB_ACTION+1,
642};
643#endif /* IRIVER_H100_PAD||IRIVER_H300_PAD */
644
645
646#define METRONOME_MSG_START "start: hold select"
647#define METRONOME_MSG_STOP "stop : cancel"
648 108
649#ifdef MET_SYNC 109#ifdef MET_SYNC
110enum{ METRONOME_SYNC = LAST_PLUGINLIB_ACTION+1 };
650static const struct button_mapping iriver_syncaction[] = 111static const struct button_mapping iriver_syncaction[] =
651{ 112{
652 {METRONOME_SYNC, BUTTON_REC, BUTTON_NONE }, 113 { METRONOME_SYNC, BUTTON_REC, BUTTON_NONE },
653 LAST_ITEM_IN_LIST__NEXTLIST(CONTEXT_PLUGIN) 114 LAST_ITEM_IN_LIST__NEXTLIST(CONTEXT_PLUGIN)
654}; 115};
655#endif /* IRIVER_H100_PAD||IRIVER_H300_PAD */ 116#endif /* IRIVER_H100_PAD||IRIVER_H300_PAD */
@@ -663,24 +124,836 @@ const struct button_mapping *plugin_contexts[] =
663}; 124};
664#define PLA_ARRAY_COUNT sizeof(plugin_contexts)/sizeof(plugin_contexts[0]) 125#define PLA_ARRAY_COUNT sizeof(plugin_contexts)/sizeof(plugin_contexts[0])
665 126
666static int bpm = 120; 127#if CONFIG_CODEC != SWCODEC
667static int period = 0; 128#ifndef SIMULATOR
668static int minitick = 0; 129/* MP3 tick sounds */
130static unsigned char tick_sound[] =
131{
132 255,251,112,196, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
133, 0, 73,110,102,111, 0, 0, 0, 15, 0, 0, 0, 3, 0, 0, 4,229, 0, 85, 85
134, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85
135, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85,170,170,170,170,170,170,170,170,170
136,170,170,170,170,170,170,170,170,170,170,170,170,170,170,170,170,170,170,170,170
137,170,170,170,170,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
138,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255, 0, 0, 0
139, 57, 76, 65, 77, 69, 51, 46, 57, 57,114, 1,205, 0, 0, 0, 0, 46,102, 0, 0
140, 20, 96, 36, 3, 64, 66, 0, 0, 96, 0, 0, 4,229,101,175,184,232, 0, 0, 0
141, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
142, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
143, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
144, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
145, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
146, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
147, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,255,251,112,196, 0, 0, 13
148, 92,189,103, 52,194,128, 2,165,176,176,247, 51, 16, 2, 0, 0, 24, 32, 0, 12
149,204,204,204,204,207,215,221,121,229, 74,224,152, 1,128, 24, 19, 17,207,217,246
150,252,132,212,226,225,192, 16, 0, 0, 0, 0, 32,163,100,111,255, 66, 7, 0, 48
151, 12, 14, 31, 59,255,255,234,112,248,112, 56, 40,223,193, 0, 64, 16, 4, 1, 51
152,229, 29,234, 4,193,240,124, 31, 62, 15,135,255, 7,193, 0, 64, 16, 12, 9, 1
153, 15,168, 16, 1,131,224,254,254,146,224,254, 8, 28, 88,127,255,148, 4, 32,128
154, 32,196,182,166,245,242,214,222,214, 73, 45,110, 52,137, 81, 39,107,255, 44, 76
155,148,140, 8,250, 66,148,195, 43, 3, 41, 15, 18,163, 80, 5, 20,248,174,140,138
156,115, 1,146, 50, 49, 32, 44,201,152,157, 53, 32, 33,157, 8, 34, 85,135, 88,105
157,186,131,252, 48,143,168,162, 44,209,142, 16, 88,221, 10,214, 94, 51, 52, 46,148
158,133, 36, 38,129,165, 36,164,139, 64,211, 11,115,101, 49, 5,136, 33,157, 18,241
159,137, 50, 53,194,213,173, 78,241,108, 1, 24,172,129,146,141,136, 24,119, 73, 51
160, 85,162,138,146, 51, 20,101,163,242,129, 56,212, 84,233, 44, 94, 11, 97,117, 74
161, 73, 37,162, 58, 20,146, 95,203, 31,246, 50, 55,111,214,223,205,213,230, 31,232
162,122,143,183, 14, 39, 91, 57, 15,251,186, 21,185,149, 48, 1,100, 64,200, 16,121
163,155, 72,110, 24,130, 98,255,251,114,196, 7,128, 17,169,247, 95,221,152,128, 10
164, 80, 62,233,185,150,170,113,174,203,251, 59, 12,190,170, 98, 4,156,122,140, 97
165,155, 60, 39, 8,145,195,116, 22,164, 82,118,116, 42,116,157, 68, 88, 70, 64, 93
166, 17, 35, 39,163,118,118, 77, 75, 82,187,215, 89,140, 46,100,112,151, 75, 73,169
167,107,181,157,170,251, 45,140, 75, 34,122, 28,228,146,111,255,235,210, 81,124,114
168,199, 52,180,138,174,207,255,235, 82,210, 64,123, 34,197,101, 47,255,254,234, 91
169, 14, 74, 68,234,219,255,254,206,131,143,162,120,234,210,191,255,245, 93, 18,200
170,225, 42, 29,171,255,254,165,164,196, 24,137, 32,223, 90, 93, 96, 64,217, 78, 35
171, 32, 53,185,107,237, 43,113, 98, 80,107,161, 3,206, 60,192, 10, 78,226,219,199
172,158,146,158, 47, 59, 90,253,154,221,198,138,147,100,150,206,233, 32, 39,192, 73
173, 23, 76,150,201, 41,209,186,217, 37,250,233, 38,198, 34, 24, 18, 33,130, 38,158
174, 73, 54, 69,146, 91, 36,182, 75,235, 64,216,196,138, 9,201, 69,174,138,157,244
175,154,150,208,246, 57, 72, 71, 2,148, 23, 76,115, 83,255,210,218,161, 56, 3, 68
176, 81, 49,190,139,253,125, 81,205, 25, 13,202,146,156,173,255,250,234,194, 8, 69
177, 13,142,255,255,209, 88,136, 73, 6,145,235, 26,142,191,255, 85,100,154,104,178
178,131,213, 0, 34, 0, 17,132, 0, 7,227, 82,135, 11,113, 70,110,105, 94,118, 22
179,255,251,112,196, 9, 0, 17, 61,249, 41,128,101,163, 73,217,178,153, 88,147, 21
180, 48,158,206,220,162,156,221, 7,209, 69, 20,117,163, 69,146, 68,145, 26,131,150
181, 0, 4,132, 41, 8,214,202,209, 69, 30,191,116, 76,156,240, 41,194,118, 23,147
182, 67,173, 87,255,233, 29, 64,216, 73,129, 10, 28,227,197,217, 43,255,254,203, 40
183,140, 48,129, 5,201, 21, 58, 95,255,232,180,168, 70,136,131,201,146,255,254,182
184,169,206, 5,216,101, 36,146,217,109,255,250,169, 38, 96, 35, 69, 51,167,157,191
185,255, 82,158,152,225, 46, 14, 99,235,100,159,255,253, 22, 29,162, 98, 84,108,210
186,202,128, 74, 16, 23,220, 23, 96,152, 17, 5,129,242, 49,137, 75, 60, 81, 16, 80
187, 34,106, 74, 91,255,222, 53, 18, 64,160, 70, 1,195, 5,139,230, 84,118,254,236
188, 44, 29, 1,130,196,195,130,236,237,255,253,156, 84, 60, 17, 10, 10, 19, 35,179
189,255,254,206,198, 14,132,130,194,196, 14, 67,179,255,254,198, 40,144,136, 80, 80
190, 76, 64,228, 57, 29,191,251, 57, 76, 34, 18, 8,132, 66,132,200,114, 59, 63,255
191,220,166, 17, 18, 18, 26, 32,112,201,159,240,144,184,169, 23,127,197,133, 69, 85
192, 76, 65, 77, 69, 51, 46, 57, 57, 46, 53, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85
193, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85
194, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85
195};
196static unsigned char tock_sound[] =
197{
198 255,251,112,196, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
199, 0, 73,110,102,111, 0, 0, 0, 15, 0, 0, 0, 3, 0, 0, 4,229, 0, 85, 85
200, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85
201, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85,170,170,170,170,170,170,170,170,170
202,170,170,170,170,170,170,170,170,170,170,170,170,170,170,170,170,170,170,170,170
203,170,170,170,170,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
204,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255, 0, 0, 0
205, 57, 76, 65, 77, 69, 51, 46, 57, 57,114, 1,205, 0, 0, 0, 0, 46,100, 0, 0
206, 20, 96, 36, 3, 64, 66, 0, 0, 96, 0, 0, 4,229,187,155,119, 17, 0, 0, 0
207, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
208, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
209, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
210, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
211, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
212, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
213, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,255,251,112,196, 0, 0, 13
214,105, 19,104,212,146,128, 10,164, 41,175,119, 51, 32, 0, 2, 32, 41, 84, 9,130
215, 96,152,109,228, 0, 16, 0, 6, 9,209,163,111,127,154, 48, 0, 0, 0, 0,129
216,194, 19,212,226, 97,240,248,187,255, 65, 0,248,124, 92,255,144,130, 1,192,225
217, 9,249,206,115,138, 16,158,132, 57,206,115,191,242, 16,132,111,212,231, 14, 7
218, 8, 70,243,156,231, 57,206,121,207,200, 66, 16, 92,231,255,134, 0, 0, 0,127
219,244, 60, 60, 51,255,192, 3,195,207,252, 0, 0, 0, 29, 39,244, 60, 48, 3,255
220,195,219,177,171,179,181, 8,157,251,239,155,104,162, 80, 5,194, 16,165,199, 42
221,104,133, 19,109, 88, 96, 61,104,242,117,118, 94,135, 29, 53, 72, 67, 85, 11, 54
222, 59, 64,154,155,128,195, 23,148, 98, 43,186, 43,139, 64,218, 82, 68,160,197,168
223,125, 10, 50, 41, 16,240, 30, 6,228, 52,117, 0, 51,130,146,122,152,109,162,201
224, 45,154, 30, 11, 66, 30, 76, 73,145,224, 52,149, 17, 55,138,112,105, 51, 36,147
225, 22,130, 89, 20,138, 36,114,212,145, 3,199,107,101,213, 25, 21,222,196,209,162
226, 40,168,168,165,162,100,142,163,220,186,250, 72,106, 54, 75, 48,243, 79,153, 54
227,163, 93,179,171,204,144,232,190,115, 19,208, 90,172,244, 40, 98,126, 35,161,234
228,122,143,221, 39,250,159, 61, 35,111,250,213,216, 6,252, 9,138, 17, 64, 1, 13
229, 56, 80, 58,104,184, 37,255,251,114,196, 7,128, 17,250, 1, 97,189,152, 0, 10
230, 44,192, 41,253,151,169,185,237, 56, 3,131,220, 24,180,204,165,221,129,107,210
231,192, 50,130, 26, 22, 26,180, 77, 81, 85,221,146, 33,197,224,198,197,228,146, 89
232,162,210, 69,100,233, 13, 25,145, 61, 19,206,151,232,172,212, 58,162,149, 53, 70
233,234,234, 81,176,186, 28, 39,145,253, 87, 33,130,150, 43, 36,187,245,169,141,200
234, 41,178,191,230, 68,233,170,255,230, 37,227,101,183,237, 49, 56,109,255,115,134
235,232,223,247,156, 62,191,250, 43, 42,169,127,245, 26,160,255,234,151,157,191,215
236, 46,164,223,235, 98,137,118,223,238,112,189,111,247, 56, 94,106, 16, 1, 77, 8
237, 25, 4,204, 0, 0,134, 96, 41,151,170, 74,147,135, 11,136, 28,220, 96,102,179
238, 16,145, 89,202, 11,197,114, 72, 0,241, 77, 88,211, 70,174,171, 10, 11, 84,163
239, 5, 53,191,241,191,106,245,209,114, 21,240,208, 75,172,190,150,103,205,178,252
240, 78, 36,166,139,132,106,231, 86,253,130, 80,178,201,254,193, 68, 20,207,254,206
241, 49, 19, 78,127,253,159,255, 33, 37, 37, 95,238,112,188, 89, 37, 79,238,165, 5
242,163,151,249,168,130,215,255,169,223,249,231, 15,149,191,161,227,209,235, 63,232
243,166, 10,198,183,232,150, 34,119,255,213, 17,255,231, 17, 44, 8, 2, 96, 1,101
244,184,243,226,216, 18, 60,216,132,105,150,250,101,165, 64,237,172,186, 35,114,126
245,255,251,112,196, 12,128,144,142, 3, 44,140,180,241, 1,207, 47,217, 72,244, 10
246, 48, 29, 88, 20, 21,128, 36,231,157,173,100,202, 35,136,119,133,228,209, 55,186
247,218,198,197,208,217, 11,233,178,254,186,137,128, 8,110, 71,253,212,136,138, 45
248,118,253,216, 34, 7, 74, 99,255, 60, 22,144,101,111,209, 72,136,196,175,254, 58
249, 15, 76, 71,249,184,138, 45, 30,127,234,199, 21, 35,191,245, 17, 75, 63,252,120
250,108, 58,223,209,199, 74,141, 91,254,131, 98, 70,255,212, 69, 42, 71,254,172, 54
251,127,252,116,107,255,168,212,194, 64, 61,126, 46,224,170, 52, 71,208,229, 19,209
252,148, 64,203,225,206,126, 29,230, 1,134,123,159,138,246, 67,199, 93,127,253, 50
253,148, 81, 37, 13, 40,145, 8, 37, 12, 6, 4, 49, 67,204,186,186,255,255,213,149
254,149,137, 16,132,162, 8,128, 90, 58, 93, 95,255,121,138, 96,161,131, 3, 33,200
255,118,127,255,238, 83, 5, 10, 8,228, 58, 47,255,252,197, 48, 96,104,116, 84, 84
256, 69,255,251, 24, 40, 80, 74, 69, 69, 64, 96,193, 7,141, 1, 89,203, 5,113, 81
257, 70,255,245,139, 85, 76, 65, 77, 69, 51, 46, 57, 57, 46, 53, 85, 85, 85, 85, 85
258, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85
259, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85
260, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, 85
261};
262#endif /* SIMULATOR */
263#else
264/* raw PCM */
265static signed short tick_sound[] =
266{
267 32767,32764,32767,32767,32763,32767,32762,32767,32765,32767,32767
268,32766,32767,32766,32767,32767,32765,32767,32764,32767,32764,32767
269,32763,-32764,-32768,-32766,-32768,-32768,-32767,-32767,-32767,-32765,-32768
270,-32764,-32768,-32768,-32766,-32768,-32764,-32768,-32766,-32767,-32768,-32767
271,-32766,32763,32767,32763,32767,32767,32766,32767,32766,32767,32765
272,32767,32763,32767,32766,32767,32766,32767,32763,32767,32765,32767
273,32767,-32768,-32765,-32768,-32767,-32765,-32767,-32765,-32768,-32764,-32768
274,-32766,-32768,-32768,-32766,-32767,-32768,-32764,-32768,-32764,-32768,-32768
275,-32766,32716,32668,32620,32564,32520,32467,32418,32370,32316,32272
276,32214,32176,32114,32074,32020,31972,31922,31873,31823,31775,31726
277,31676,-31627,-31579,-31530,-31479,-31433,-31383,-31333,-31287,-31236,-31188
278,-31141,-31090,-31042,-30998,-30943,-30899,-30849,-30800,-30757,-30702,-30659
279,-30609,30561,30515,30463,30422,30365,30326,30273,30229,30177,30135
280,30084,30035,29995,29936,29903,29844,29802,29755,29706,29661,29614
281,29565,-29519,-29472,-29426,-29381,-29331,-29288,-29239,-29191,-29149,-29099
282,-29055,-29007,-28962,-28914,-28871,-28821,-28779,-28730,-28685,-28638,-28596
283,-28544,28496,28463,28404,28371,28314,28278,28225,28185,28136,28093
284,28048,28001,27956,27912,27865,27824,27773,27736,27682,27646,27593
285,27555,-27509,-27462,-27418,-27375,-27328,-27286,-27239,-27200,-27145,-27116
286,-27055,-27026,-26972,-26930,-26891,-26838,-26805,-26750,-26716,-26663,-26630
287,-26575,26534,26495,26448,26408,26360,26324,26272,26235,26188,26149
288,26101,26061,26016,25976,25930,25888,25847,25800,25763,25714,25676
289,25632,-25589,-25547,-25505,-25461,-25419,-25376,-25337,-25291,-25251,-25209
290,-25162,-25129,-25078,-25043,-24995,-24960,-24910,-24876,-24830,-24787,-24751
291,-24703,24663,24622,24583,24539,24499,24456,24418,24374,24334,24292
292,24252,24209,24173,24124,24092,24042,24011,23960,23930,23879,23845
293,23803,-23762,-23722,-23680,-23644,-23597,-23562,-23518,-23482,-23437,-23402
294,-23357,-23320,-23281,-23236,-23203,-23158,-23119,-23082,-23040,-23000,-22962
295,-22922,22885,22837,22809,22759,22728,22685,22644,22608,22567,22528
296,22491,22449,22412,22372,22334,22295,22254,22221,22173,22146,22096
297,22066,-22026,-21984,-21947,-21911,-21867,-21836,-21790,-21757,-21719,-21677
298,-21644,-21601,-21567,-21526,-21489,-21454,-21411,-21378,-21337,-21301,-21263
299,-21226,21189,21151,21111,21077,21036,21002,20964,20926,20889,20852
300,20814,20779,20741,20703,20666,20632,20590,20562,20512,20490,20440
301,20416,-20380,-20331,-20303,-20261,-20230,-20188,-20158,-20114,-20085,-20045
302,-20009,-19975,-19935,-19904,-19864,-19829,-19797,-19753,-19726,-19685,-19650
303,-19616,19580,19544,19508,19471,19441,19397,19373,19325,19301,19256
304,19229,19189,19155,19122,19081,19055,19013,18980,18947,18908,18879
305,18840,-18807,-18771,-18739,-18701,-18669,-18634,-18600,-18564,-18531,-18497
306,-18461,-18430,-18392,-18360,-18326,-18291,-18258,-18223,-18191,-18154,-18123
307,-18088,18055,18019,17989,17953,17919,17887,17853,17817,17791,17746
308,17726,17680,17656,17619,17585,17555,17519,17488,17453,17423,17385
309,17359,17320,-17287,-17261,-17220,-17196,-17156,-17128,-17093,-17062,-17029
310,-16996,-16966,-16929,-16901,-16868,-16834,-16804,-16769,-16741,-16705,-16675
311,-16644,-16609,16579,16545,16519,16479,16455,16419,16388,16359,16321
312,16300,16256,16235,16198,16166,16141,16102,16076,16043,16011,15981
313,15950,15920,-15891,-15852,-15832,-15789,-15768,-15732,-15703,-15672,-15642
314,-15609,-15582,-15548,-15521,-15487,-15459,-15426,-15401,-15364,-15339,-15305
315,-15275,-15250,15219,15184,15159,15122,15101,15061,15041,15002,14981
316,14944,14919,14886,14858,14829,14797,14772,14736,14715,14675,14657
317,14617,14598,-14567,-14533,-14506,-14475,-14447,-14419,-14389,-14358,-14334
318,-14299,-14277,-14241,-14218,-14186,-14158,-14131,-14100,-14072,-14046,-14012
319,-13991,-13955,13927,13904,13873,13844,13819,13787,13761,13732,13706
320,13674,13651,13619,13590,13570,13530,13516,13475,13457,13423,13401
321,13368,13345,-13317,-13287,-13260,-13234,-13204,-13178,-13152,-13122,-13098
322,-13068,-13043,-13013,-12990,-12958,-12937,-12902,-12884,-12849,-12829,-12798
323,-12771,-12746,12718,12693,12663,12641,12611,12586,12559,12531,12510
324,12475,12459,12421,12408,12367,12357,12315,12301,12268,12244,12218
325,12194,12164,-12140,-12113,-12093,-12056,-12043,-12008,-11987,-11961,-11931
326,-11911,-11884,-11855,-11836,-11804,-11782,-11757,-11729,-11708,-11679,-11655
327,-11631,-11601,11574,11560,11525,11508,11479,11454,11431,11403,11382
328,11356,11329,11307,11279,11260,11229,11211,11179,11161,11133,11110
329,11085,11061,-11038,-11010,-10991,-10960,-10944,-10913,-10893,-10866,-10845
330,-10818,-10796,-10772,-10747,-10725,-10699,-10676,-10653,-10629,-10605,-10580
331,-10561,-10531,10507,10491,10461,10442,10416,10394,10369,10350,10319
332,10305,10276,10252,10236,10202,10190,10160,10138,10117,10093,10070
333,10050,10020,-9997,-9984,-9953,-9935,-9912,-9885,-9871,-9840,-9823
334,-9799,-9773,-9756,-9730,-9710,-9687,-9664,-9642,-9620,-9598,-9576
335,-9554,-9532,9510,9488,9466,9444,9419,9405,9374,9361,9331
336,9314,9293,9268,9250,9225,9206,9184,9160,9143,9118,9098
337,9077,9053,-9029,-9018,-8988,-8973,-8948,-8928,-8906,-8888,-8862
338,-8848,-8819,-8805,-8780,-8760,-8740,-8720,-8695,-8681,-8653,-8638
339,-8615,-8594,8573,8556,8531,8515,8492,8472,8451,8433,8409
340,8393,8368,8354,8326,8315,8284,8277,8243,8236,8206,8192
341,8170,8151,-8133,-8107,-8095,-8068,-8054,-8030,-8014,-7991,-7975
342,-7953,-7933,-7916,-7894,-7876,-7857,-7836,-7818,-7799,-7778,-7761
343,-7740,-7720,7700,7684,7665,7645,7626,7610,7582,7577,7545
344,7534,7513,7493,7477,7455,7438,7419,7402,7379,7368,7341
345,7328,7307,-7289,-7272,-7250,-7237,-7216,-7196,-7183,-7157,-7146
346,-7123,-7108,-7091,-7065,-7058,-7030,-7020,-6998,-6979,-6965,-6944
347,-6927,-6911,6895,6870,6859,6836,6824,6800,6790,6763,6755
348,6730,6717,6699,6679,6667,6642,6632,6610,6596,6574,6564
349,6539,6529,6507,-6492,-6474,-6457,-6442,-6422,-6406,-6392,-6371
350,-6358,-6338,-6322,-6306,-6291,-6269,-6259,-6237,-6223,-6206,-6190
351,-6172,-6157,-6139,6123,6108,6088,6077,6057,6043,6025,6010
352,5992,5978,5962,5944,5928,5914,5897,5879,5869,5844,5837
353,5816,5799,5789,-5773,-5750,-5742,-5720,-5710,-5687,-5680,-5656
354,-5648,-5627,-5613,-5600,-5581,-5568,-5552,-5534,-5525,-5501,-5496
355,-5470,-5464,-5443,5430,5413,5402,5383,5370,5353,5343,5320
356,5314,5292,5280,5267,5248,5237,5219,5208,5190,5176,5162
357,5148,5131,5121,-5107,-5086,-5077,-5058,-5047,-5030,-5017,-5002
358,-4990,-4971,-4963,-4941,-4935,-4915,-4902,-4892,-4869,-4867,-4841
359,-4836,-4816,-4806,4792,4774,4767,4744,4740,4716,4712,4692
360,4680,4668,4649,4642,4624,4612,4599,4584,4570,4560,4541
361,4535,4513,4508,-4496,-4472,-4467,-4450,-4437,-4427,-4407,-4401
362,-4384,-4372,-4358,-4346,-4331,-4322,-4305,-4294,-4281,-4266,-4257
363,-4240,-4231,-4216,4204,4190,4180,4162,4156,4137,4131,4111
364,4104,4091,4075,4068,4048,4043,4026,4016,4002,3990,3980
365,3962,3957,3938,-3926,-3919,-3904,-3892,-3882,-3866,-3858,-3843
366,-3833,-3820,-3810,-3792,-3789,-3769,-3762,-3751,-3732,-3730,-3710
367,-3704,-3689,-3678,3666,3656,3640,3637,3615,3613,3594,3586
368,3576,3560,3555,3537,3529,3518,3504,3497,3481,3473,3462
369,3447,3441,3425,-3414,-3406,-3394,-3383,-3372,-3359,-3353,-3336
370,-3330,-3316,-3306,-3295,-3287,-3270,-3266,-3251,-3241,-3233,-3218
371,-3210,-3197,-3192,3182,3160,3165,3139,3140,3121,3116,3104
372,3093,3083,3075,3057,3058,3038,3033,3021,3009,3003,2990
373,2981,2969,2960,-2947,-2943,-2928,-2921,-2910,-2898,-2891,-2881
374,-2868,-2863,-2846,-2846,-2826,-2824,-2810,-2800,-2795,-2779,-2774
375,-2763,-2751,-2746,2735,2724,2715,2705,2697,2682,2682,2662
376,2663,2645,2641,2629,2620,2612,2602,2592,2585,2572,2566
377,2557,2544,2540,-2530,-2520,-2508,-2503,-2492,-2482,-2477,-2463
378,-2457,-2447,-2439,-2430,-2419,-2416,-2398,-2399,-2382,-2380,-2365
379,-2364,-2346,-2345,2335,2324,2316,2308,2301,2290,2281,2275
380,2263,2262,2241,2250,2220,2232,2211,2208,2199,2189,2180
381,2177,2161,2163,-2154,-2137,-2138,-2119,-2122,-2102,-2107,-2087
382,-2088,-2073,-2073,-2055,-2057,-2040,-2040,-2027,-2022,-2013,-2005
383,-1997,-1991,-1981,1973,1967,1959,1953,1940,1941,1922,1928
384,1908,1911,1892,1896,1879,1882,1862,1866,1850,1847,1840
385,1829,1827,1815,-1809,-1802,-1797,-1785,-1784,-1770,-1768,-1757
386,-1755,-1742,-1740,-1729,-1724,-1716,-1711,-1701,-1697,-1688,-1682
387,-1676,-1665,-1663,1654,1649,1638,1637,1624,1622,1611,1611
388,1594,1599,1582,1582,1573,1566,1560,1554,1547,1538,1538
389,1523,1524,1512,1509,-1502,-1493,-1491,-1480,-1478,-1469,-1462
390,-1458,-1450,-1444,-1441,-1427,-1431,-1414,-1418,-1405,-1400,-1397
391,-1385,-1388,-1371,-1376,1370,1354,1355,1345,1341,1334,1329
392,1323,1316,1311,1305,1299,1294,1287,1282,1276,1270,1266
393,1255,1258,1244,1244,-1239,-1226,-1231,-1212,-1220,-1205,-1202
394,-1199,-1190,-1186,-1182,-1173,-1171,-1163,-1158,-1156,-1145,-1145
395,-1136,-1131,-1128,-1121,1116,1111,1106,1100,1094,1092,1082
396,1084,1068,1075,1061,1061,1053,1047,1047,1037,1036,1025
397,1027,1016,1017,1007,-1005,-996,-998,-986,-986,-980,-973
398,-973,-962,-962,-956,-949,-949,-939,-938,-931,-929,-920
399,-921,-911,-911,-903,899,896,891,885,880,881,869
400,873,858,863,853,851,847,840,840,829,833,819
401,826,811,815,804,-801,-800,-794,-788,-791,-778,-780
402,-774,-766,-771,-755,-764,-747,-754,-742,-743,-736,-734
403,-728,-727,-718,-720,715,708,708,699,703,687,697
404,681,687,675,679,665,675,657,665,653,654,648
405,646,642,637,634,-629,-629,-621,-623,-614,-615,-607
406,-607,-602,-599,-594,-594,-586,-588,-577,-583,-571,-574
407,-567,-564,-562,-559,557,548,552,541,546,532,542
408,527,531,524,522,521,515,513,509,507,504,500
409,497,495,490,489,-485,-482,-479,-476,-474,-468,-470
410,-462,-462,-458,-455,-454,-449,-447,-443,-442,-437,-437
411,-432,-429,-429,-422,420,419,417,412,411,409,404
412,403,400,397,394,393,388,388,382,384,375,381
413,371,372,369,364,-360,-365,-355,-360,-351,-354,-347
414,-347,-345,-340,-341,-336,-335,-331,-333,-323,-329,-322
415,-319,-321,-314,-316,314,308,308,303,304,300,298
416,297,292,294,288,288,285,281,285,275,279,276
417,270,272,269,264,-260,-267,-257,-261,-256,-254,-254
418,-249,-250,-247,-244,-245,-238,-242,-235,-237,-233,-232
419,-229,-229,-225,-225,222,222,218,218,214,215,211
420,212,206,210,201,206,202,199,199,197,192,197
421,191,188,192,183,-185,-179,-189,-174,-183,-177,-174
422,-178,-169,-174,-168,-169,-167,-165,-165,-161,-162,-158
423,-160,-155,-155,-155,154,149,151,148,147,146,143
424,145,138,144,136,139,136,134,136,129,135,125
425,134,123,130,120,-119,-126,-118,-123,-116,-122,-111
426,-120,-113,-111,-115,-108,-111,-109,-108,-104,-107,-103
427,-106,-99,-104,-94,93,100,95,98,93,97,88
428,96,85,96,84,91,85,84,89,81,84,82
429,79,84,75,82,75,-76,-75,-76,-73,-74,-71
430,-73,-70,-68,-72,-65,-70,-65,-65,-67,-61,-66
431,-62,-60,-62,-61,-57,54,64,52,61,52,57
432,54,54,53,53,50,53,48,53,45,53,43
433,51,45,45,47,42,-41,-45,-43,-40,-44,-39
434,-42,-40,-38,-38,-40,-36,-39,-34,-39,-32,-37
435,-33,-34,-34,-34,-29,28,35,28,32,29,30
436,27,31,27,28,27,26,27,24,30,20,28
437,21,27,20,27,18,-19,-23,-21,-22,-19,-23
438,-16,-24,-15,-23,-15,-21,-16,-17,-20,-14,-19
439,-14,-18,-13,-19,-11,11,18,10,19,8,17
440,13,10,18,5,18,7,16,8,12,11,10
441,10,12,6,14,5,-4,-14,-5,-10,-10,-5
442,-11,-6,-8,-8,-6,-9,-5,-7,-8,-2,-12
443,-1,-8,-6,-4,-7,6,5,4,7,2,6
444,4,3,8,1,4,4,4,3,5,1,5
445,3,1,5,2,3,-1,-5,-2,0,-5,1
446,-6,2,-6,3,-6,1,-5,2,-6,5,-8
447,4,-6,3,-5,3,-2,2,1,0,1,4
448,-5,6,-3,1,3,-2,3,-3,5,-5,5
449,-1,0,0,2,-3,4,-3,0,1,-1,-1
450,2,-2,1,-1,0,1,-1,0,0,0,1
451,-1,1,-2,2,-1,1,0,-3,5,-5,4
452,-1,-2,2,-1,1,0,-1,1,-1,2,-3
453,3,-3
454};
455static signed short tock_sound[] =
456{
457 32767,32761,32767,32762,32767,32763,32767,32765,32767,32767,32766
458,32767,32764,32767,32765,32767,32763,32767,32761,32767,32765,32767
459,32766,32767,32766,32767,32767,32764,32767,32763,32767,32767,32766
460,32767,32766,32767,32767,32765,32767,32763,32767,32761,32767,32764
461,32767,-32766,-32768,-32765,-32767,-32768,-32762,-32768,-32762,-32768,-32768
462,-32765,-32768,-32765,-32768,-32766,-32766,-32766,-32766,-32768,-32766,-32768
463,-32766,-32768,-32767,-32768,-32766,-32768,-32767,-32767,-32768,-32763,-32768
464,-32765,-32768,-32768,-32765,-32768,-32767,-32768,-32768,-32767,-32766,-32768
465,-32767,32720,32666,32619,32567,32516,32471,32414,32373,32314,32270
466,32220,32167,32123,32068,32023,31970,31924,31872,31824,31775,31725
467,31678,31625,31581,31527,31482,31431,31383,31334,31286,31238,31185
468,31144,31087,31046,30993,30947,30898,30848,30804,30750,30709,30653
469,30614,-30566,-30509,-30470,-30415,-30371,-30322,-30276,-30226,-30181,-30131
470,-30085,-30039,-29988,-29945,-29894,-29849,-29800,-29756,-29707,-29658,-29617
471,-29562,-29522,-29473,-29425,-29380,-29334,-29283,-29242,-29193,-29145,-29103
472,-29051,-29011,-28959,-28917,-28866,-28827,-28773,-28735,-28682,-28641,-28591
473,-28550,28503,28457,28407,28369,28316,28275,28229,28182,28137,28094
474,28044,28006,27952,27915,27864,27823,27775,27734,27682,27645,27597
475,27550,27513,27455,27426,27368,27333,27284,27240,27197,27152,27105
476,27069,27012,26982,26926,26891,26841,26799,26756,26712,26666,26628
477,26574,-26528,-26502,-26443,-26410,-26362,-26318,-26277,-26233,-26189,-26147
478,-26103,-26059,-26019,-25973,-25931,-25888,-25846,-25801,-25763,-25714,-25675
479,-25633,-25587,-25549,-25502,-25463,-25419,-25378,-25333,-25294,-25249,-25208
480,-25167,-25123,-25084,-25037,-25000,-24954,-24917,-24871,-24832,-24788,-24748
481,-24706,24665,24622,24582,24539,24501,24454,24420,24371,24336,24292
482,24251,24212,24167,24131,24084,24052,24001,23969,23921,23886,23842
483,23804,23760,23724,23678,23644,23598,23561,23521,23478,23440,23401
484,23356,23324,23275,23243,23197,23161,23118,23082,23039,23003,22959
485,22922,-22882,-22844,-22801,-22763,-22729,-22679,-22653,-22601,-22569,-22529
486,-22488,-22453,-22409,-22374,-22331,-22297,-22254,-22220,-22176,-22141,-22100
487,-22064,-22024,-21985,-21947,-21910,-21869,-21833,-21794,-21754,-21721,-21675
488,-21645,-21601,-21566,-21529,-21486,-21455,-21410,-21380,-21335,-21304,-21258
489,-21232,21195,21144,21118,21072,21038,21003,20960,20932,20882,20858
490,20810,20781,20740,20703,20668,20628,20595,20557,20518,20483,20447
491,20409,20374,20336,20299,20265,20225,20194,20150,20123,20079,20047
492,20008,19975,19937,19902,19866,19827,19797,19755,19725,19682,19654
493,19614,-19581,-19540,-19512,-19471,-19437,-19405,-19362,-19335,-19292,-19264
494,-19223,-19194,-19151,-19124,-19082,-19053,-19014,-18980,-18946,-18911,-18876
495,-18842,-18804,-18775,-18735,-18704,-18668,-18634,-18598,-18568,-18527,-18500
496,-18460,-18428,-18394,-18360,-18324,-18295,-18254,-18225,-18190,-18154,-18124
497,-18087,18054,18021,17987,17953,17921,17884,17855,17818,17786,17754
498,17718,17685,17654,17619,17586,17554,17519,17488,17454,17421,17387
499,17358,17319,17295,17251,17230,17186,17164,17123,17096,17061,17028
500,16996,16967,16929,16902,16865,16837,16801,16774,16736,16708,16675
501,16641,16612,-16578,-16549,-16513,-16486,-16449,-16423,-16385,-16361,-16321
502,-16297,-16260,-16233,-16198,-16169,-16137,-16102,-16080,-16038,-16017,-15976
503,-15954,-15914,-15892,-15855,-15826,-15796,-15762,-15735,-15702,-15673,-15638
504,-15617,-15572,-15556,-15515,-15489,-15461,-15424,-15400,-15365,-15338,-15304
505,-15281,-15241,15212,15189,15155,15125,15098,15064,15038,15005,14977
506,14947,14918,14886,14859,14827,14799,14771,14738,14711,14681,14651
507,14623,14592,14565,14532,14508,14474,14449,14416,14391,14357,14334
508,14301,14273,14246,14214,14188,14159,14128,14104,14069,14046,14016
509,13986,13958,-13928,-13905,-13869,-13849,-13816,-13789,-13758,-13736,-13702
510,-13678,-13649,-13616,-13598,-13561,-13539,-13508,-13480,-13455,-13424,-13399
511,-13371,-13341,-13318,-13284,-13263,-13232,-13205,-13179,-13150,-13124,-13096
512,-13069,-13041,-13017,-12984,-12965,-12930,-12908,-12881,-12849,-12831,-12793
513,-12779,-12739,12714,12694,12666,12636,12616,12583,12561,12531,12509
514,12476,12459,12421,12406,12373,12347,12325,12294,12271,12244,12218
515,12194,12164,12142,12112,12091,12062,12038,12009,11989,11956,11939
516,11903,11888,11855,11834,11806,11782,11755,11732,11705,11679,11658
517,11628,11605,-11579,-11557,-11527,-11505,-11480,-11455,-11429,-11406,-11380
518,-11355,-11331,-11305,-11283,-11256,-11231,-11210,-11178,-11166,-11126,-11117
519,-11080,-11063,-11037,-11010,-10992,-10961,-10940,-10916,-10890,-10871,-10838
520,-10825,-10791,-10774,-10747,-10724,-10699,-10679,-10648,-10634,-10600,-10586
521,-10554,-10537,10513,10485,10466,10438,10420,10391,10370,10349,10321
522,10305,10273,10257,10228,10211,10183,10164,10138,10115,10096,10066
523,10053,10019,10007,9975,9960,9930,9916,9883,9871,9839,9823
524,9801,9771,9759,9726,9714,9684,9666,9640,9623,9596,9577
525,9553,9532,-9510,-9487,-9467,-9443,-9422,-9401,-9377,-9358,-9334
526,-9313,-9292,-9270,-9248,-9227,-9205,-9182,-9165,-9138,-9121,-9098
527,-9075,-9057,-9032,-9015,-8989,-8973,-8947,-8929,-8907,-8885,-8867
528,-8842,-8824,-8802,-8780,-8763,-8737,-8720,-8699,-8676,-8657,-8637
529,-8614,-8597,8576,8554,8532,8513,8494,8470,8454,8429,8413
530,8390,8371,8351,8328,8314,8286,8274,8247,8233,8207,8192
531,8170,8149,8134,8108,8092,8070,8053,8031,8014,7991,7974
532,7953,7935,7912,7899,7872,7861,7832,7820,7798,7779,7761
533,7739,7724,-7706,-7679,-7669,-7641,-7628,-7607,-7588,-7570,-7551
534,-7530,-7515,-7491,-7478,-7456,-7438,-7419,-7401,-7379,-7369,-7338
535,-7335,-7300,-7295,-7267,-7255,-7233,-7218,-7196,-7181,-7159,-7145
536,-7124,-7107,-7090,-7068,-7055,-7033,-7018,-6999,-6979,-6966,-6942
537,-6929,-6909,6891,6875,6855,6840,6820,6803,6787,6768,6750
538,6733,6717,6695,6687,6657,6650,6629,6608,6599,6573,6562
539,6543,6525,6508,6494,6470,6462,6437,6426,6405,6391,6371
540,6358,6338,6323,6305,6289,6273,6254,6241,6221,6206,6191
541,6170,6160,6136,-6121,-6108,-6090,-6075,-6057,-6044,-6023,-6013
542,-5988,-5983,-5955,-5950,-5926,-5914,-5897,-5879,-5867,-5846,-5837
543,-5813,-5806,-5780,-5774,-5751,-5741,-5720,-5710,-5687,-5680,-5656
544,-5648,-5626,-5616,-5596,-5584,-5566,-5552,-5538,-5519,-5507,-5490
545,-5475,-5463,-5440,5425,5419,5396,5385,5373,5350,5342,5324
546,5308,5297,5278,5266,5250,5236,5218,5209,5190,5176,5162
547,5148,5131,5120,5103,5088,5075,5061,5043,5035,5013,5005
548,4988,4973,4960,4946,4931,4916,4905,4885,4879,4856,4850
549,4829,4823,4799,-4785,-4783,-4758,-4749,-4738,-4718,-4710,-4693
550,-4679,-4669,-4649,-4643,-4621,-4616,-4596,-4585,-4572,-4555,-4548
551,-4527,-4521,-4501,-4492,-4477,-4464,-4451,-4437,-4425,-4410,-4399
552,-4384,-4372,-4359,-4345,-4332,-4320,-4307,-4292,-4283,-4265,-4256
553,-4243,-4227,-4217,4201,4196,4171,4173,4145,4147,4123,4117
554,4103,4087,4079,4065,4051,4042,4026,4014,4005,3988,3981
555,3962,3956,3939,3931,3917,3903,3892,3882,3866,3860,3841
556,3831,3824,3804,3800,3782,3772,3761,3749,3737,3726,3712
557,3702,3690,3679,-3667,-3656,-3640,-3637,-3614,-3614,-3594,-3587
558,-3573,-3564,-3549,-3542,-3528,-3517,-3506,-3494,-3482,-3475,-3458
559,-3452,-3437,-3427,-3417,-3406,-3392,-3384,-3372,-3359,-3354,-3335
560,-3330,-3316,-3306,-3297,-3283,-3276,-3259,-3256,-3239,-3232,-3220
561,-3210,-3196,-3192,3182,3161,3161,3143,3137,3124,3114,3103
562,3096,3080,3075,3060,3054,3040,3034,3018,3013,2999,2992
563,2980,2971,2958,2953,2937,2933,2918,2910,2901,2889,2881
564,2869,2862,2849,2842,2828,2824,2810,2801,2793,2780,2774
565,2762,2755,2740,-2730,-2729,-2711,-2706,-2697,-2683,-2681,-2665
566,-2658,-2650,-2636,-2633,-2618,-2614,-2599,-2593,-2585,-2571,-2568
567,-2556,-2542,-2544,-2521,-2526,-2507,-2502,-2492,-2483,-2474,-2467
568,-2455,-2447,-2440,-2428,-2422,-2412,-2402,-2396,-2385,-2376,-2369
569,-2359,-2351,-2344,2336,2323,2319,2303,2306,2282,2290,2269
570,2268,2254,2251,2238,2234,2221,2217,2203,2203,2187,2184
571,2171,2168,2155,2150,2141,2132,2125,2116,2109,2099,2094
572,2083,2078,2066,2062,2052,2045,2037,2027,2023,2011,2009
573,1994,1992,1980,-1973,-1967,-1959,-1950,-1945,-1937,-1926,-1923
574,-1911,-1907,-1899,-1889,-1885,-1873,-1871,-1860,-1853,-1847,-1838
575,-1832,-1824,-1816,-1811,-1801,-1795,-1789,-1778,-1776,-1765,-1759
576,-1753,-1742,-1742,-1726,-1728,-1714,-1710,-1703,-1696,-1688,-1682
577,-1676,-1664,-1667,1661,1641,1645,1632,1625,1625,1607,1612
578,1596,1596,1585,1581,1570,1571,1556,1556,1546,1539,1536
579,1525,1523,1512,1511,1497,1499,1487,1481,1480,1465,1466
580,1455,1450,1447,1436,1434,1423,1420,1414,1407,1401,1395
581,1388,1382,1379,1369,-1364,-1359,-1352,-1348,-1338,-1336,-1328
582,-1322,-1318,-1310,-1305,-1300,-1291,-1290,-1280,-1277,-1269,-1267
583,-1256,-1255,-1246,-1242,-1238,-1228,-1225,-1221,-1212,-1209,-1203
584,-1195,-1193,-1186,-1180,-1175,-1170,-1163,-1161,-1150,-1150,-1142
585,-1137,-1133,-1126,-1119,1113,1112,1105,1100,1096,1089,1084
586,1080,1075,1068,1067,1054,1059,1045,1045,1041,1031,1031
587,1022,1018,1016,1007,1006,997,996,987,986,979,975
588,970,966,959,957,949,948,940,939,928,932,920
589,918,915,907,906,-900,-896,-890,-885,-883,-877,-871
590,-870,-862,-860,-856,-848,-848,-841,-837,-834,-827,-827
591,-817,-817,-811,-808,-803,-798,-794,-791,-786,-783,-777
592,-774,-769,-765,-763,-756,-754,-748,-746,-741,-737,-732
593,-731,-722,-727,-710,707,714,704,700,702,690,693
594,684,685,676,677,671,665,668,656,657,653,649
595,644,645,632,640,626,631,620,623,614,615,607
596,608,601,598,598,588,592,582,584,576,577,568
597,571,564,561,558,-554,-553,-546,-546,-541,-540,-532
598,-537,-522,-531,-519,-521,-515,-513,-510,-505,-507,-495
599,-503,-489,-495,-486,-486,-481,-480,-476,-472,-472,-465
600,-467,-458,-461,-453,-455,-450,-444,-446,-439,-441,-433
601,-435,-428,-428,-425,424,416,417,413,411,407,407
602,401,400,397,396,389,394,381,388,379,381,375
603,376,368,371,365,365,360,360,356,353,353,347
604,347,346,340,339,339,331,337,326,330,323,325
605,319,321,312,318,-316,-305,-310,-303,-303,-302,-296
606,-298,-292,-293,-289,-288,-285,-283,-281,-279,-278,-274
607,-273,-269,-271,-265,-265,-264,-257,-262,-255,-254,-255
608,-248,-250,-247,-243,-247,-236,-244,-232,-240,-231,-232
609,-232,-223,-232,-220,219,224,217,218,216,212,212
610,212,207,208,204,202,204,200,197,197,195,193
611,194,187,191,186,184,187,177,186,175,180,175
612,173,175,169,172,168,165,167,162,166,157,162
613,156,158,156,152,-152,-151,-149,-149,-146,-147,-142
614,-145,-140,-141,-138,-137,-139,-131,-138,-128,-135,-126
615,-132,-124,-129,-123,-125,-121,-123,-116,-123,-116,-117
616,-115,-113,-114,-112,-112,-107,-110,-108,-104,-109,-100
617,-105,-103,-99,-101,99,99,94,98,93,96,89
618,96,87,91,88,89,86,88,81,86,83,82
619,82,78,83,73,83,73,77,76,72,74,73
620,69,73,70,67,71,63,71,62,69,59,68
621,58,66,58,63,57,-58,-58,-57,-56,-56,-55
622,-56,-51,-57,-47,-56,-48,-53,-49,-48,-50,-45
623,-50,-45,-46,-46,-43,-45,-43,-43,-41,-43,-39
624,-43,-37,-42,-35,-42,-34,-39,-36,-36,-35,-35
625,-34,-34,-34,-31,-35,35,28,34,27,35,23
626,35,23,32,26,27,28,24,28,23,27,24
627,24,25,21,25,22,22,23,19,23,20,20
628,22,16,23,15,23,13,23,12,23,13,18
629,16,15,16,16,14,-14,-14,-16,-11,-18,-9
630,-17,-8,-17,-10,-14,-10,-11,-13,-10,-12,-9
631,-10,-11,-9,-11,-8,-9,-10,-6,-13,-4,-12
632,-4,-12,-2,-14,-1,-12,-3,-8,-6,-7,-6
633,-6,-5,-6,-5,-6,6,3,8,2,7,2
634,7,2,6,1,6,4,1,9,-5,12,-5
635,10,-1,5,0,5,1,5,0,3,3,1
636,3,2,1,3,0,5,-2,4,0,2,3
637,-1,4,-3,6,-3,2,-2,-2,0,-1,-2
638,1,-1,-2,1,-2,0,0,-2,2,-3,2
639,-4,4,-5,5,-5,2,0,-1,0,1,-4
640,5,-5,4,-3,2,-1,-1,1,-2,2,-2
641,2,-2,2,-1,0,1,-1,0,1,-2,3
642,-3,2,-1,0,1,-1,0,0,1,-1,1
643,-2,3
644};
645#endif
646
647/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
648 Utilities from pdbox plugin (Copyright (C) 2009 Wincent Balin) --- am I
649 supposed to supply these functions with the plugin? Should I use a library?
650* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
651
652/* Implementation of strtod() and atof(),
653 taken from SanOS (http://www.jbox.dk/sanos/). */
654static int rb_errno = 0;
655
656static double rb_strtod(const char *str, char **endptr)
657{
658 double number;
659 int exponent;
660 int negative;
661 char *p = (char *) str;
662 double p10;
663 int n;
664 int num_digits;
665 int num_decimals;
666
667 /* Reset Rockbox errno -- W.B. */
668#ifdef ROCKBOX
669 rb_errno = 0;
670#endif
671
672 // Skip leading whitespace
673 while (isspace(*p)) p++;
674
675 // Handle optional sign
676 negative = 0;
677 switch (*p)
678 {
679 case '-': negative = 1; // Fall through to increment position
680 case '+': p++;
681 }
682
683 number = 0.;
684 exponent = 0;
685 num_digits = 0;
686 num_decimals = 0;
687
688 // Process string of digits
689 while (isdigit(*p))
690 {
691 number = number * 10. + (*p - '0');
692 p++;
693 num_digits++;
694 }
695
696 // Process decimal part
697 if (*p == '.')
698 {
699 p++;
700
701 while (isdigit(*p))
702 {
703 number = number * 10. + (*p - '0');
704 p++;
705 num_digits++;
706 num_decimals++;
707 }
708
709 exponent -= num_decimals;
710 }
711
712 if (num_digits == 0)
713 {
714#ifdef ROCKBOX
715 rb_errno = 1;
716#else
717 errno = ERANGE;
718#endif
719 return 0.0;
720 }
721
722 // Correct for sign
723 if (negative) number = -number;
724
725 // Process an exponent string
726 if (*p == 'e' || *p == 'E')
727 {
728 // Handle optional sign
729 negative = 0;
730 switch(*++p)
731 {
732 case '-': negative = 1; // Fall through to increment pos
733 case '+': p++;
734 }
735
736 // Process string of digits
737 n = 0;
738 while (isdigit(*p))
739 {
740 n = n * 10 + (*p - '0');
741 p++;
742 }
743
744 if (negative)
745 exponent -= n;
746 else
747 exponent += n;
748 }
749
750#ifndef ROCKBOX
751 if (exponent < DBL_MIN_EXP || exponent > DBL_MAX_EXP)
752 {
753 errno = ERANGE;
754 return HUGE_VAL;
755 }
756#endif
757
758 // Scale the result
759 p10 = 10.;
760 n = exponent;
761 if (n < 0) n = -n;
762 while (n)
763 {
764 if (n & 1)
765 {
766 if (exponent < 0)
767 number /= p10;
768 else
769 number *= p10;
770 }
771 n >>= 1;
772 p10 *= p10;
773 }
774
775#ifndef ROCKBOX
776 if (number == HUGE_VAL) errno = ERANGE;
777#endif
778 if (endptr) *endptr = p;
779
780 return number;
781}
782
783static double rb_atof(const char *str)
784{
785 return rb_strtod(str, NULL);
786}
787
788/* * * * * * * * * * * * * * * * * * * * * * *
789 Actual metronome stuff
790* * * * * * * * * * * * * * * * * * * * * * */
791
792static int fd = -1; /* file descriptor, global for cleanup(). */
793
794/* Round fixed-point number to integer. */
795static int fp_rint(long fp_num)
796{
797 fp_num += fp_num > 0 ? +((long)1<<15) : -((long)1<<15);
798 return (int)(fp_num / ((long)1<<16));
799}
800/* float to fixed-point */
801static long fp_frac(float fl_num)
802{
803 return (long)(fl_num*((long)1<<16));
804}
805
806/* simple dynamic memory management
807 - only allocate blocks serially
808 - deallocation of most recent blocks by resetting the free region pointer
809 - everything aligned to 4 bytes (wasting some bytes, but playing safe)
810*/
811static void *mem_begin = NULL; /* beginning of managed region. */
812static void *mem_end = NULL; /* just after end of managed region */
813static void *mem_free_region = NULL; /* pointer to unused free space */
814static void *mem_checkpointer = NULL; /* position to reset to */
815
816/* Initialize memory management. */
817static void mem_init(void)
818{
819 size_t bufsize;
820 /* Can I trust that pointer to be aligned? Better be safe. */
821 mem_begin = ALIGN_UP(rb->plugin_get_buffer(&bufsize), 4);
822 mem_end = mem_begin + bufsize - 3;
823 mem_free_region = mem_begin;
824 mem_checkpointer = mem_begin;
825}
826
827/* Remember and reset free region, for temporary mem usage. */
828static void mem_checkpoint(void){ mem_checkpointer = mem_free_region; }
829static void mem_reset (void){ mem_free_region = mem_checkpointer; }
830static void *mem_allocate(size_t bytes)
831{
832 void *handout = mem_free_region;
833 /* Always handing out multiples of alignment size. */
834 if(bytes % 4) bytes += 4 - bytes % 4;
835 if(mem_free_region + bytes >= mem_end)
836 {
837 rb->splash(2*HZ, "Out Of Memory");
838 return NULL;
839 }
840 mem_free_region += bytes;
841 return handout;
842}
843
844struct part;
845struct part /* One part of a track, with one tempo (range), meter, etc. */
846{
847 struct part *prev, *next; /* linked list links*/
848 unsigned int id; /* index (in order, please) */
849 char *label;
850 unsigned int bars; /* Duration of part in bars. */
851 unsigned int beats_per_bar; /* 3 in 3/4 */
852 unsigned int base_beat; /* 4 in 3/4 to adjust bpm value */
853 unsigned int bpm; /* base tempo (1/4 notes per minute) */
854 unsigned int bpm2; /* end tempo */
855 unsigned int *beat_bpm; /* either NULL or (bars*beats_per_bar) values */
856 long accel; /* fixed-point acceleration in 1/min (really) */
857 int volume; /* volume offset in integer dB */
858 /* Store pattern characters verbatim for max. 64 beats (no string
859 termination). One could save storage here by encoding things in bits,
860 or by allocating dynamically to begin with. */
861 char *pattern;
862};
863
864static struct part *part_list = NULL; /* linked list of parts */
865static struct part *part = NULL; /* current part */
866static unsigned int parts = 0; /* total number of parts */
867static unsigned int bad_parts = 0; /* Count parts with parsing errors. */
868
869/* Initialize a part that is not yet placed into the list. */
870static void part_init(struct part *ps)
871{
872 ps->prev = NULL;
873 ps->next = NULL;
874 ps->id = 0;
875 ps->label = NULL;
876 ps->bars = 0;
877 ps->beats_per_bar = 4;
878 ps->base_beat = 4;
879 ps->bpm = 120;
880 ps->bpm2 = 120;
881 ps->beat_bpm = NULL;
882 ps->accel = 0;
883 ps->volume = 0;
884 ps->pattern = NULL;
885}
886
887/* Add to the list. */
888static void part_add(struct part *ps)
889{
890 if(part)
891 {
892 part->next = ps;
893 ps->prev = part;
894 part = ps;
895 }
896 else part = part_list = ps;
897
898 ps->id = parts++;
899}
900
901/* Stay away from zero. */
902static unsigned int positive(long long value)
903{
904 return value > 0 ? value : 1;
905}
906
907/* Yay! Global state variables! */
908static bool track_mode = false; /* switch for programmed tracks metronome */
909static int loop = 0; /* Needed? */
910static unsigned int beat = 0;
911static unsigned int bar = 0; /* How big shall this become? */
912/* The currently (approximate) active bpm value, set from calc_period(). */
913static unsigned int bpm = 1;
914
915/* Should be unsigned? */
916static unsigned int period = 0; /* beat interval in timer ticks */
917static long period_diff = 0; /* fixed-point error of last period computation */
918static unsigned int minitick = 0; /* elapsed ticks */
919static bool beating = false; /* A beat is/was playing and count needs to increase. */
920static int display_state = 0; /* Current display state code. */
921static bool display_trigger = false; /* Draw display on next occasion */
669 922
670static bool sound_active = false; 923static bool sound_active = false;
671static bool sound_paused = true; 924static bool sound_paused = true;
672 925
673static char buffer[30]; 926/* global static buffer for messages in any situation */
927static char buffer[64];
928/* For line parsing, more is needed, allocated on demand.
929 As my memory management doesn't allow to free it, keeping it local
930 ist not smart. */
931static char* linebuf = NULL;
932size_t linebuf_size = 0;
674 933
934
935/* global state for tempo tapping */
675static bool reset_tap = false; 936static bool reset_tap = false;
676static int tap_count = 0; 937static int tap_count = 0;
677static int tap_time = 0; 938static int tap_time = 0;
678static int tap_timeout = 0; 939static int tap_timeout = 0;
679 940
680int bpm_step_counter = 0; 941static int bpm_step_counter = 0;
942
943static bool sound_trigger = false;
681 944
682#if CONFIG_CODEC != SWCODEC 945#if CONFIG_CODEC != SWCODEC
683 946
947#ifdef SIMULATOR
948
949/* No audio in HWCODEC simulator build. */
950#define MET_IS_PLAYING 0
951#define MET_PLAY_STOP do {} while(0)
952static void play_tick(void){ printf("tick\n"); }
953static void play_tock(void){ printf("tock\n"); }
954
955#else
956
684#define MET_IS_PLAYING rb->mp3_is_playing() 957#define MET_IS_PLAYING rb->mp3_is_playing()
685#define MET_PLAY_STOP rb->mp3_play_stop() 958#define MET_PLAY_STOP rb->mp3_play_stop()
686 959
@@ -692,98 +965,390 @@ static void callback(const void** start, size_t* size)
692 rb->led(0); 965 rb->led(0);
693} 966}
694 967
968/* Wondering: Should one prevent playing again while sound_active == true? */
969
970static void play_tick(void)
971{
972 sound_active = true;
973 rb->led(1);
974 rb->mp3_play_data(tick_sound, sizeof(tick_sound), callback);
975 rb->mp3_play_pause(true); /* kickoff audio */
976}
977
695static void play_tock(void) 978static void play_tock(void)
696{ 979{
697 sound_active = true; 980 sound_active = true;
698 rb->led(1); 981 rb->led(1);
699 rb->mp3_play_data(sound, sizeof(sound), callback); 982 rb->mp3_play_data(tock_sound, sizeof(tock_sound), callback);
700 rb->mp3_play_pause(true); /* kickoff audio */ 983 rb->mp3_play_pause(true); /* kickoff audio */
701} 984}
702 985
986#endif /* SIMULATOR */
987
703#else /* CONFIG_CODEC == SWCODEC */ 988#else /* CONFIG_CODEC == SWCODEC */
704 989
705#define MET_IS_PLAYING rb->pcm_is_playing() 990#define MET_IS_PLAYING rb->pcm_is_playing()
706#define MET_PLAY_STOP rb->audio_stop() 991#define MET_PLAY_STOP rb->audio_stop()
707 992
993/* Really necessary? Cannot just play mono?
994 Also: This is wasted memory! */
995static short tick_buf[sizeof(tick_sound)*2];
996static short tock_buf[sizeof(tock_sound)*2];
708 997
709bool need_to_play = false; 998/* Convert the mono samples to interleaved stereo */
710 999static void prepare_buffers(void)
711short sndbuf[sizeof(sound)*2];
712
713/* Convert the mono "tock" sample to interleaved stereo */
714static void prepare_tock(void)
715{ 1000{
716 int i; 1001 size_t i;
717 for(i = 0;i < (int)sizeof(sound)/2;i++) { 1002 for(i = 0;i < sizeof(tick_sound)/sizeof(short);i++)
718 sndbuf[i*2] = sound[i]; 1003 tick_buf[i*2] = tick_buf[i*2+1] = tick_sound[i];
719 sndbuf[i*2+1] = sound[i]; 1004 for(i = 0;i < sizeof(tock_sound)/sizeof(short);i++)
720 } 1005 tock_buf[i*2] = tock_buf[i*2+1] = tock_sound[i];
721} 1006}
722 1007
723static void play_tock(void) 1008static void play_tick(void)
724{ 1009{
725 rb->pcm_play_data(NULL, NULL, sndbuf, sizeof(sndbuf)); 1010 rb->pcm_play_data(NULL, NULL, tick_buf, sizeof(tick_buf));
726} 1011}
727 1012
728#endif /* CONFIG_CODEC != SWCODEC */ 1013static void play_tock(void)
729
730static void calc_period(void)
731{ 1014{
732 period = 61440/bpm-1; /* (60*1024)/bpm; */ 1015 rb->pcm_play_data(NULL, NULL, tock_buf, sizeof(tock_buf));
733} 1016}
734 1017
1018#endif /* CONFIG_CODEC != SWCODEC */
735 1019
736static void metronome_draw(struct screen* display) 1020/* State: 0: blank/title, 1: tick, 2: tock 3: silent klick */
1021/* TODO: Could use more smart placement, using
1022 lcd_getstringsize() and such. */
1023static void metronome_draw(struct screen* display, int state)
737{ 1024{
1025 struct part *ps;
1026#ifndef HAVE_LCD_BITMAP
1027 char beat1 = ' ';
1028 char beat2 = ' ';
1029#else
1030 int textlen = display->lcdwidth / display->getcharwidth();
1031#endif
1032 ps = part;
738 display->clear_display(); 1033 display->clear_display();
739 1034#ifdef HAVE_LCD_BITMAP
740#ifdef HAVE_LCD_BITMAP
741 display->setfont(FONT_SYSFIXED); 1035 display->setfont(FONT_SYSFIXED);
742 display->puts(0, 0, "Metronome"); 1036#endif
743 if(display->screen_type==SCREEN_MAIN) 1037 switch(state)
744 { 1038 {
745 display->puts(0, 5, "Select to TAP"); 1039#ifdef HAVE_LCD_BITMAP
746 display->puts(0, 6, "Rec to SYNC"); 1040 case 0:
1041 if(sound_paused)
1042 {
1043 if(track_mode) display->puts(0, 0, "Metronome Track");
1044 else display->puts(0, 0, "Metronome");
1045
1046 display->hline(0, display->lcdwidth, 12);
1047 }
1048 break;
1049 /* Draw odd/even ticks/tocks differently to be able to go without
1050 display clearing in between for fast beats. */
1051 case 1:
1052 if((beat+1) % 2 == 0)
1053 display->fillrect( display->lcdwidth/2, 0
1054 , display->lcdwidth, 12 );
1055 else
1056 display->fillrect( 0, 0
1057 , display->lcdwidth/2-1, 12 );
1058 break;
1059 case 2:
1060 if((beat+1) % 2 == 0)
1061 display->fillrect( display->lcdwidth/2, display->lcdheight-13
1062 , display->lcdwidth, 12 );
1063 else
1064 display->fillrect( 0, display->lcdheight-13
1065 , display->lcdwidth/2-1, 12 );
1066 break;
1067 case 3:
1068 display->puts((textlen-3)/2,0, "o.O");
1069 break;
1070#else /* Much simpler on 2-line text display, but same thing. */
1071 case 1:
1072 if((beat+1) % 2 == 0)
1073 beat1 = '/';
1074 else
1075 beat1 = '\\';
1076 break;
1077 case 2:
1078 if((beat+1) % 2 == 0)
1079 beat2 = '/';
1080 else
1081 beat2 = '\\';
1082 break;
1083 case 3:
1084 beat1 = '.';
1085 break;
1086#endif
747 } 1087 }
748#ifdef HAVE_REMOTE_LCD 1088
749 else 1089 if(track_mode)
750 { 1090 {
751 display->puts(0, 5, "Rec to TAP"); 1091
752 display->puts(0, 6, "Mode to SYNC"); 1092#ifdef HAVE_LCD_BITMAP
1093 /* One line in several. */
1094 rb->snprintf( buffer, sizeof(buffer), "%u/%u@%u V%d"
1095 , ps->beats_per_bar, ps->base_beat
1096 , bpm, rb->global_settings->volume );
1097 display->puts(0,4, buffer);
1098#else
1099 /* Just two short lines with integrated beat indicator. */
1100 rb->snprintf( buffer, sizeof(buffer), "%c %u/%u@%u"
1101 , beat1
1102 , ps->beats_per_bar, ps->base_beat
1103 , bpm );
1104 display->puts(0,0, buffer);
1105 /* Simulator prints format %+02d ... real Rockbox doesn't. */
1106 rb->snprintf( buffer, sizeof(buffer), "%c V%d"
1107 , beat2
1108 , rb->global_settings->volume );
1109 display->puts(0,1, buffer);
1110#endif /* HAVE_LCD_BITMAP */
1111
1112#ifdef HAVE_LCD_BITMAP
1113 /* Would it hurt to draw a 3rd line to 2-line display?
1114 I guess there are 3-line displays out there. */
1115 if(ps->label && rb->strlen(ps->label))
1116 {
1117 rb->snprintf(buffer, sizeof(buffer), "\"%s\"", ps->label);
1118 display->puts((textlen-rb->strlen(buffer))/2, 2, buffer);
1119 }
1120
1121 /* Wildly guessing here with puts(). */
1122 if(ps->bars)
1123 rb->snprintf( buffer, sizeof(buffer), "P%u/%u: B%u/%u+%u"
1124 , part->id+1, parts, bar+1, ps->bars, beat+1 );
1125 else
1126 rb->snprintf( buffer, sizeof(buffer), "P%u/%u: B%u/_+%u"
1127 , part->id+1, parts, bar+1, beat+1 );
1128 display->puts(0, 5, buffer);
1129#endif /* HAVE_LCD_BITMAP */
1130
753 } 1131 }
1132 else /* track mode */
1133 {
1134
1135#ifdef HAVE_LCD_BITMAP
1136 if(display->screen_type==SCREEN_MAIN)
1137 {
1138#ifdef MET_SYNC
1139 display->puts(0, 5, "Select=TAP Rec=SYNC");
1140#else
1141 display->puts(0, 5, "Select=TAP");
1142#endif
1143 }
1144#ifdef HAVE_REMOTE_LCD
1145 else
1146 {
1147#ifdef MET_SYNC
1148 display->puts(0, 5, "Rec=TAP Mode=SYNC");
1149#else
1150 display->puts(0, 5, "Rec=TAP");
1151#endif
1152 }
754#endif 1153#endif
755#endif /* HAVE_LCD_BITMAP */ 1154#endif /* HAVE_LCD_BITMAP */
756 1155
757 rb->snprintf(buffer, sizeof(buffer), "BPM: %d ",bpm);
758#ifdef HAVE_LCD_BITMAP 1156#ifdef HAVE_LCD_BITMAP
759 display->puts(0,3, buffer); 1157 rb->snprintf( buffer, sizeof(buffer), "BPM: %d Vol: %d"
1158 , bpm, rb->global_settings->volume );
1159 display->puts(0,3, buffer);
760#else 1160#else
761 display->puts(0,0, buffer); 1161 rb->snprintf( buffer, sizeof(buffer), "%c BPM: %d "
1162 , beat1, bpm );
1163 display->puts(0,0, buffer);
1164 rb->snprintf( buffer, sizeof(buffer), "%c Vol: %d"
1165 , beat2, rb->global_settings->volume );
1166 display->puts(0,1, buffer);
762#endif /* HAVE_LCD_BITMAP */ 1167#endif /* HAVE_LCD_BITMAP */
763 1168
764 rb->snprintf(buffer, sizeof(buffer), "Vol: %d",
765 rb->global_settings->volume);
766#ifdef HAVE_LCD_BITMAP 1169#ifdef HAVE_LCD_BITMAP
767 display->puts(10, 3, buffer); 1170 display->hline(0, 111, 12);
768#else 1171 if(sound_paused) display->puts(0,2,"start: hold select");
769 display->puts(0,1, buffer); 1172 else display->puts(0,2,"stop : cancel");
770#endif /* HAVE_LCD_BITMAP */ 1173#endif /* HAVE_LCD_BITMAP */
771 1174
1175 } /* !track_mode */
1176
772#ifdef HAVE_LCD_BITMAP 1177#ifdef HAVE_LCD_BITMAP
773 display->hline(0, 111, 12);
774 if(sound_paused)
775 display->puts(0,2,METRONOME_MSG_START);
776 else
777 display->puts(0,2,METRONOME_MSG_STOP);
778 display->setfont(FONT_UI); 1178 display->setfont(FONT_UI);
779#endif /* HAVE_LCD_BITMAP */ 1179#endif /* HAVE_LCD_BITMAP */
780 display->update(); 1180 display->update();
781} 1181}
782 1182
1183/* Trigger drawing of display at the next occasion using given state. */
1184static void trigger_display(int state)
1185{
1186 display_state = state;
1187 display_trigger = true;
1188}
1189
1190/* Actually draw display. */
783static void draw_display(void) 1191static void draw_display(void)
784{ 1192{
785 FOR_NB_SCREENS(i) 1193 FOR_NB_SCREENS(i)
786 metronome_draw(rb->screens[i]); 1194 metronome_draw(rb->screens[i], display_state);
1195}
1196
1197/* Modify actual volume by given offset without changing the configured one.
1198 This is for parts with associated volume. */
1199static void tweak_volume(int offset)
1200{
1201 int vol = rb->global_settings->volume + offset;
1202 int minvol = rb->sound_min(SOUND_VOLUME);
1203 int maxvol = rb->sound_max(SOUND_VOLUME);
1204
1205 if (vol > maxvol) vol = maxvol;
1206 else if(vol < minvol) vol = minvol;
1207
1208 rb->sound_set(SOUND_VOLUME, vol);
1209}
1210
1211/* tempo at a certain point in beat space in an accelerated part */
1212static long accel_tempo(struct part *ps, long offset)
1213{
1214 long fp_bpm = (long)ps->bpm<<16;
1215 long fp_bpm2 = (long)ps->bpm2<<16;
1216 long v = fp_bpm + fp_mul(ps->accel, offset, 16);
1217 /* Offset could be negative, actually, so ensure tempo stays within both
1218 bounds */
1219 if(ps->accel > 0)
1220 {
1221 if(v < fp_bpm) v = fp_bpm;
1222 if(v > fp_bpm2) v = fp_bpm2;
1223 }
1224 else /* deceleration */
1225 {
1226 if(v > fp_bpm) v = fp_bpm;
1227 if(v < fp_bpm2) v = fp_bpm2;
1228 }
1229 return v;
1230}
1231
1232/* Calculate number of ticks to wait till next beat. */
1233static void calc_period(void)
1234{
1235 struct part *ps = part;
1236 long deltat;
1237 long beatlen; /* in quarter notes */
1238 long period_fp;
1239
1240 beatlen = fp_div(4<<16, ps->base_beat<<16, 16);
1241 /* Hack: Put the factor 60 in before computing deltat, to preserve
1242 some accuracty. */
1243 if(ps->beat_bpm)
1244 {
1245 bpm = ps->beat_bpm[bar*ps->beats_per_bar+beat];
1246 deltat = fp_div(fp_mul(60<<16,beatlen,16), bpm<<16, 16);
1247 } else
1248 if(ps->accel == 0.f)
1249 { /* Fixed tempo. */
1250 bpm = ps->bpm;
1251 /* Minutes per base beat, from quarters per minute. */
1252 deltat = fp_div(fp_mul(60<<16,beatlen,16), bpm<<16, 16);
1253 }
1254 else
1255 { /* Acceleration, varying period with each beat. */
1256 long v0, v1;
1257 long offset = (bar*ps->beats_per_bar + beat) << 16;
1258 /* Always computed from start of part for seeking and accuracy. */
1259 v0 = accel_tempo(ps, fp_mul(beatlen, offset, 16));
1260 offset += 1<<16;
1261 v1 = accel_tempo(ps, fp_mul(beatlen, offset, 16));
1262 /* Playing safe with too small tempo changes, avoiding the acceleration
1263 math that might divide by very small deltat. */
1264 if(labs(v1-v0) > 1<<8)
1265 {
1266 /* deltat = 1.f / ps->accel * rb_log(v1/v0) */
1267 deltat = fp_mul( fp_div(60<<16, ps->accel, 16)
1268 , fp16_log(fp_div(v1, v0, 16))
1269 , 16 );
1270 bpm = fp_rint(fp_div(fp_mul(60<<16, beatlen, 16), deltat, 16));
1271 }
1272 else
1273 { /* Arbitrarily choosing v1. */
1274 bpm = fp_rint(v1);
1275 deltat = fp_div(fp_mul(60<<16,beatlen,16), v1, 16);
1276 }
1277 }
1278 /* The treatment of the rounding error when converting to integer
1279 period using period_diff helps a lot to keep track lengths close to
1280 "correct" even with timerfreq_div as low as 77. Actually, I have _less_
1281 drift than with timerfreq_div of 1000! */
1282 period_fp = fp_mul(timerfreq_div<<16, deltat, 16) + period_diff;
1283 period = positive(fp_rint( period_fp ));
1284 period_diff = period_fp - (long)(period<<16);
1285}
1286
1287/* Last beat finished, to prepare for the next one. */
1288static void advance_beat(void)
1289{
1290 if(++beat == part->beats_per_bar)
1291 {
1292 beat = 0;
1293 /* Bar counter always incremented for acceleration, but only checked
1294 against a limit if there is one. */
1295 ++bar;
1296 if(part->bars && bar == part->bars)
1297 {
1298 bar = 0;
1299 if(part->next) part = part->next;
1300 else
1301 {
1302 part = part_list;
1303 if(!loop) sound_paused = true;
1304 }
1305 tweak_volume(part->volume);
1306 }
1307 }
1308 /* Always recompute period, as acceleration changes it for each beat. */
1309 calc_period();
1310}
1311
1312/* Decide what to play, update display, play it.
1313 Beat counting happens here, too. */
1314static void play_ticktock(void)
1315{
1316 if(beating) advance_beat();
1317
1318 /* Hack: Clear trigger to avoid race condition. */
1319 display_trigger = 0;
1320 if(sound_paused)
1321 {
1322 beating = false;
1323 display_state = 0;
1324 draw_display();
1325 }
1326 else
1327 {
1328 char pat = 'x';
1329 if(part->pattern) pat = part->pattern[beat];
1330
1331 beating = true;
1332 /* Blinking and specific sound for tick, tock and silent beat.
1333 Drawing display first for slow machines (YH820), to avoid
1334 interrupting audio for regular playback. */
1335 switch(pat)
1336 {
1337 case 'X':
1338 display_state = 1;
1339 draw_display();
1340 play_tick();
1341 break;
1342 case 'x':
1343 display_state = 2;
1344 draw_display();
1345 play_tock();
1346 break;
1347 default:
1348 display_state = 3;
1349 draw_display();
1350 }
1351 }
787} 1352}
788 1353
789/* helper function to change the volume by a certain amount, +/- 1354/* helper function to change the volume by a certain amount, +/-
@@ -792,112 +1357,448 @@ static void change_volume(int delta)
792{ 1357{
793 int minvol = rb->sound_min(SOUND_VOLUME); 1358 int minvol = rb->sound_min(SOUND_VOLUME);
794 int maxvol = rb->sound_max(SOUND_VOLUME); 1359 int maxvol = rb->sound_max(SOUND_VOLUME);
795 int vol = rb->global_settings->volume + delta; 1360 int vol = rb->global_settings->volume + delta;
796 1361
797 if (vol > maxvol) vol = maxvol; 1362 if (vol > maxvol) vol = maxvol;
798 else if (vol < minvol) vol = minvol; 1363 else if(vol < minvol) vol = minvol;
799 if (vol != rb->global_settings->volume) { 1364 if(vol != rb->global_settings->volume)
800 rb->sound_set(SOUND_VOLUME, vol); 1365 {
801 rb->global_settings->volume = vol; 1366 rb->global_settings->volume = vol;
802 draw_display(); 1367 tweak_volume(part->volume);
1368 trigger_display(display_state);
803 } 1369 }
804} 1370}
805 1371
806/*function to accelerate bpm change*/ 1372/*function to accelerate bpm change*/
807static void change_bpm(int direction) 1373static void change_bpm(int direction)
808{ 1374{
809 if((bpm_step_counter < 20) 1375 if( (bpm_step_counter < 20)
810 || (bpm > 389) 1376 || (bpm > 389)
811 || (bpm < 10)) 1377 || (bpm < 10) )
812 bpm = bpm + direction; 1378 bpm = bpm + direction;
813 else if (bpm_step_counter < 60) 1379 else if(bpm_step_counter < 60)
814 bpm = bpm + direction * 2; 1380 bpm = bpm + direction * 2;
815 else 1381 else
816 bpm = bpm + direction * 9; 1382 bpm = bpm + direction * 9;
1383
1384 if(bpm > 400) bpm = 400;
1385 if(bpm < 1) bpm = 1;
817 1386
818 if (bpm > 400) bpm = 400; 1387 part->bpm = bpm;
819 if (bpm < 1) bpm = 1;
820 calc_period(); 1388 calc_period();
821 draw_display(); 1389 trigger_display(display_state);
822 bpm_step_counter++; 1390 bpm_step_counter++;
823} 1391}
824 1392
1393/* I presume the timer ensures that not more than one instance
1394 of the callback is running at a given time. */
825static void timer_callback(void) 1395static void timer_callback(void)
826{ 1396{
827 if(minitick >= period){ 1397 ++minitick;
1398
1399 /* Clear blinker if tempo is slow enough. */
1400 if( (bpm*part->base_beat)/4 <= blinklimit &&
1401 !sound_paused && minitick == period/2 )
1402 trigger_display(0);
1403
1404 if(minitick >= period)
1405 {
828 minitick = 0; 1406 minitick = 0;
829 if(!sound_active && !sound_paused && !tap_count) { 1407 if(!sound_active && !sound_paused && !tap_count)
830#if CONFIG_CODEC == SWCODEC 1408 {
831 /* On SWCODEC we can't call play_tock() directly from an ISR. */ 1409 sound_trigger = true;
832 need_to_play = true;
833#else
834 play_tock();
835#endif
836 rb->reset_poweroff_timer(); 1410 rb->reset_poweroff_timer();
837 } 1411 }
838 } 1412 }
839 else {
840 minitick++;
841 }
842 1413
843 if (tap_count) { 1414 if(tap_count)
1415 {
844 tap_time++; 1416 tap_time++;
845 if (tap_count > 1 && tap_time > tap_timeout) 1417 if(tap_count > 1 && tap_time > tap_timeout)
846 tap_count = 0; 1418 tap_count = 0;
847 } 1419 }
848} 1420}
849 1421
850static void cleanup(void) 1422/* Stopping playback means incrementing the beat. Normally, it would be
1423 incremented after the passing of the current note duration, naturally
1424 while starting the next one. */
1425static void metronome_pause(void)
851{ 1426{
1427 if(beating)
1428 {
1429 /* Finish the current beat. */
1430 advance_beat();
1431 beating = false;
1432 }
1433 sound_paused = true;
1434 trigger_display(0);
852 rb->timer_unregister(); 1435 rb->timer_unregister();
1436}
1437
1438static void metronome_unpause(void)
1439{
1440 sound_paused = false;
1441 minitick = period; /* Start playing immediately (or after a millisecond). */
1442 /* Conserve power: Only start timer when actually playing. */
1443 rb->timer_register( 1, NULL, TIMER_FREQ/timerfreq_div
1444 , timer_callback IF_COP(, CPU) );
1445}
1446
1447static void cleanup(void)
1448{
1449 if(fd >= 0) rb->close(fd);
1450
1451 metronome_pause();
853 MET_PLAY_STOP; /* stop audio ISR */ 1452 MET_PLAY_STOP; /* stop audio ISR */
1453 tweak_volume(0);
854 rb->led(0); 1454 rb->led(0);
855#if CONFIG_CODEC == SWCODEC 1455#if CONFIG_CODEC == SWCODEC
856 rb->pcm_set_frequency(HW_SAMPR_DEFAULT); 1456 rb->pcm_set_frequency(HW_SAMPR_DEFAULT);
857#endif 1457#endif
858} 1458}
859 1459
860static void tap(void) 1460/*
1461 Parse part definitions from tempomap file (see header for format).
1462 Not bothering with encoding issues here.
1463*/
1464
1465/* parse meter spec into part structure if given token matches */
1466static bool parse_meter(char *token, struct part *ps)
861{ 1467{
862 if (tap_count == 0 || tap_time < tap_count) { 1468 char *toktok;
863 tap_time = 0; 1469 /* Careful not to misinterpret accelerated tempo specification:
864 } 1470 120-150/4 -> tempo
865 else { 1471 3/4 -> meter */
866 if (tap_time > 0) { 1472 if( !rb->strchr(token, '-') && (toktok = rb->strchr(token, '/')) )
867 bpm = 61440/(tap_time/tap_count); 1473 {
1474 /* Number before and after the '/'. */
1475 int num[2];
1476 num[0] = rb->atoi(token);
1477 num[1] = rb->atoi(++toktok);
1478 /* Only accept positive numbers. */
1479 if(num[0] > 0 && num[1] > 0)
1480 {
1481 ps->beats_per_bar = (unsigned int) num[0];
1482 ps->base_beat = (unsigned int) num[1];
1483 return true;
1484 }
1485 }
1486 return false;
1487}
1488
1489/* Parse tempo, successful when getting a positive integer out of the token. */
1490static bool parse_tempo(char *token, struct part *ps)
1491{
1492 char *toktok;
1493 /* tempo[-tempo2/accel] ... first number always main tempo */
1494 int num = rb->atoi(token);
1495 /* Only positive numbers. This avoids the pattern string and general
1496 strangeness, unless -150 should mean "from previous tempo to 150". */
1497 if(num < 1) return false;
1498
1499 ps->bpm = (unsigned int) num;
1500 ps->bpm2 = ps->bpm;
1501 ps->accel = 0;
1502 /* This parser is not fool-proof. It parses valid data, but could
1503 do funny things if you provide tempo/tempo2-accel, for example.
1504 My credo is that the application doesn't crash, but if you give rubbish,
1505 you'll get rubbish. */
1506 if( (toktok = rb->strchr(token, '-')) )
1507 {
1508 char *subtok = toktok+1;
1509 float faccel = 0.;
1510 ps->bpm2 = positive(rb->atoi(subtok));
1511 /* Parse or compute accel in bpm/bar. */
1512 if( (toktok = rb->strchr(subtok, '/')) )
1513 { /* bars/bpm */
1514 float c = rb_atof(++toktok);
1515 if( (c > 0.f ? c : -c) > 0.0001f)
1516 faccel = 1./c;
1517 }
1518 else if( (toktok = rb->strchr(subtok, '*')) )
1519 { /* bpm/bar */
1520 faccel = rb_atof(++toktok);
1521 }
1522 else if(ps->bars > 0)
1523 { /* Compute from tempo difference and bar count. */
1524 faccel = ((float)ps->bpm2 - (float)ps->bpm)/ps->bars;
1525 }
1526 /* Correct sign for all cases, starting with positive value. */
1527 if(faccel < 0) faccel = -faccel;
1528 /* Negative only when end tempo is smaller. */
1529 if(ps->bpm2 < ps->bpm) faccel = -faccel;
1530 /* Convert (quarterbeats-per-minute per bar) -> 1/min, which could be
1531 seen as beats-per-minute/beat */
1532 faccel *= 1.f / (4.f/ps->base_beat * ps->beats_per_bar); /* 1/min */
1533 ps->accel = fp_frac(faccel);
1534 } else
1535 /* The other fancy variant: One tempo per beat. */
1536 if( (toktok = rb->strchr(token, ',')) )
1537 {
1538 size_t i;
1539 char *subtok = token;
1540 /* It is a bug when the parser called this before. Alloc once. */
1541 if( ps->beat_bpm || !(ps->beat_bpm =
1542 mem_allocate(sizeof(unsigned int)*ps->beats_per_bar*ps->bars)) )
1543 return false;
1544 for(i=0; i<ps->beats_per_bar*ps->bars; ++i)
1545 {
1546 int num;
1547 if(!subtok) return false;
1548 if(subtok != token) ++subtok;
1549
1550 num = rb->atoi(subtok);
1551 if(num < 1) return false;
868 1552
869 if (bpm > 400) 1553 ps->beat_bpm[i] = (unsigned int) num;
870 bpm = 400; 1554 subtok = rb->strchr(subtok, ',');
871 } 1555 }
1556 }
1557 return true;
1558}
872 1559
873 calc_period(); 1560/* The metronome pattern.
874 draw_display(); 1561 Ensure that the correct meter is present before calling this! */
1562static bool parse_pattern(char *token, struct part *ps)
1563{
1564 size_t pi;
1565 size_t pats = rb->strlen(token);
1566
1567 /* First check if the pattern is valid, error out if not. */
1568 if(pats != ps->beats_per_bar)
1569 return false;
1570 for(pi=0; pi<pats; ++pi)
1571 switch(token[pi])
1572 {
1573 case 'X':
1574 case 'x':
1575 case '.':
1576 break;
1577 default: return false;
1578 }
1579
1580 if(!(ps->pattern || (ps->pattern = mem_allocate(pats))))
1581 return false;
1582 /* Now store it. */
1583 memcpy(ps->pattern, token, pats);
1584 return true;
1585}
1586
1587static bool parse_volume(char *token, struct part *ps)
1588{
1589 float factor = rb_atof(token);
1590 ps->volume = fp_rint(fp_decibels(fp_frac(factor > 0.f ? factor : 0.f), 16));
1591 return true;
1592}
1593
1594/* Check condition, set error code and bail out if violated. */
1595#define CHECK(a, c) if(!(a)){ errcode = c; goto parse_part_revert; }
1596
1597static void parse_part(char *line, unsigned int num)
1598{
1599 char *saveptr;
1600 char *toktok;
1601 char *token[5];
1602 struct part *ps;
1603 size_t tokens = 0;
1604 unsigned int errcode = MERR_NOTHING;
1605
1606 while (isspace(*line)) line++;
1607 /* Skip comments and empty lines quickly. */
1608 if(line[0] == '#' || line[0] == 0) return;
1609
1610 mem_checkpoint();
1611 CHECK(ps = mem_allocate(sizeof(struct part)), MERR_OOM);
1612 part_init(ps);
1613
1614 /* Check for and store label. */
1615 if( (toktok = rb->strchr(line, ':')) )
1616 {
1617 size_t len = toktok-line;
1618 CHECK(ps->label = mem_allocate(len+1), MERR_OOM);
1619 rb->memcpy(ps->label, line, len);
1620 ps->label[len] = 0;
1621 line = toktok+1;
1622 }
1623
1624 CHECK(token[0] = rb->strtok_r(line, " \t", &saveptr), MERR_MISSING);
1625 tokens = 1;
1626 /* After the optional label, there can be up to 5 tokens of interest.
1627 Collect them in advance to make the parser code more sane. */
1628 while( tokens < 5
1629 && (token[tokens] = rb->strtok_r(NULL, " \t", &saveptr)) )
1630 {
1631 if(token[tokens][0] == '#')
1632 break;
1633 ++tokens;
1634 }
1635
1636 CHECK(tokens >= 2, MERR_MISSING);
875 1637
1638 /* Now try to be smart about guessing which token can be what value.
1639 Remember: Always parse meter before pattern or tempo! */
1640 ps->bars = (unsigned int) rb->atoi(token[0]);
1641 if(tokens == 2) /* <bars> <tempo> */
1642 {
1643 CHECK(parse_tempo(token[1], ps), MERR_TEMPO);
1644 } else
1645 if(tokens == 3)
1646 {
1647 /* <bars> <meter> <tempo> */
1648 if(parse_meter(token[1], ps))
1649 {
1650 CHECK(parse_tempo(token[2], ps), MERR_TEMPO);
1651 } else
1652 /* <bars> <tempo> <pattern> */
1653 if(parse_pattern(token[2], ps))
1654 {
1655 CHECK(parse_tempo(token[1], ps), MERR_TEMPO);
1656 } else
1657 /* <bars> <tempo> <volume> */
1658 {
1659 CHECK(parse_tempo(token[1], ps), MERR_TEMPO);
1660 CHECK(parse_volume(token[2], ps), MERR_VOLUME);
1661 }
1662 } else
1663 if(tokens == 4)
1664 {
1665 /* <bars> <meter> <tempo> <pattern> */
1666 if(parse_meter(token[1], ps) && parse_pattern(token[3], ps))
1667 {
1668 CHECK(parse_tempo(token[2], ps), MERR_TEMPO);
1669 } else
1670 /* <bars> <tempo> <pattern> <volume> */
1671 if(parse_pattern(token[2], ps))
1672 {
1673 CHECK(parse_tempo(token[1], ps), MERR_TEMPO);
1674 CHECK(parse_volume(token[3], ps), MERR_VOLUME);
1675 } else
1676 /* <bars> <meter> <tempo> <volume> */
1677 {
1678 CHECK(parse_meter(token[1], ps), MERR_METER);
1679 CHECK(parse_tempo(token[2], ps), MERR_TEMPO);
1680 CHECK(parse_volume(token[3], ps), MERR_VOLUME);
1681 }
1682 } else
1683 if(tokens == 5) /* the complete set */
1684 {
1685 /* <bars> <meter> <tempo> <pattern> <volume> */
1686 CHECK(parse_meter(token[1], ps), MERR_METER);
1687 CHECK(parse_tempo(token[2], ps), MERR_TEMPO);
1688 CHECK(parse_pattern(token[3], ps), MERR_PATTERN);
1689 CHECK(parse_volume(token[4], ps), MERR_VOLUME);
1690 }
1691
1692 if(!ps->pattern)
1693 {
1694 /* For parsed parts default to emphasize every first beat. */
1695 CHECK(ps->pattern = mem_allocate(ps->beats_per_bar), MERR_OOM);
1696 memset(ps->pattern, 'x', ps->beats_per_bar);
1697 ps->pattern[0] = 'X';
1698 }
1699
1700 part_add(ps);
1701 return; /* all good */
1702
1703 /* Remove part after some error. */
1704parse_part_revert:
1705 rb->snprintf(buffer, sizeof(buffer), "ERR %u @line %u", errcode, num);
1706 rb->splash(2*HZ, buffer);
1707 ++bad_parts;
1708 mem_reset();
1709}
1710
1711#undef CHECK
1712
1713static void step_back(void)
1714{
1715 beating = false;
1716 beat = 0;
1717 if(bar)
1718 {
1719 /* Endless parts only know position 0 to step to. */
1720 if(part->bars) --bar;
1721 else bar = 0;
1722 }
1723 else if(part->prev)
1724 {
1725 part = part->prev;
1726 /* This will jump to bar 0 for endless parts. */
1727 bar = positive(part->bars)-1;
1728 tweak_volume(part->volume);
1729 }
1730 /* Always calculate period for acceleration. */
1731 calc_period();
1732 minitick = period;
1733}
1734
1735static void step_forw(void)
1736{
1737 beating = false;
1738 /* Stepping forward in endless part always goes to the next one, if any. */
1739 if(part->bars == 0 || bar+1 == part->bars)
1740 {
1741 if(part->next)
1742 { /* Advanced one part. */
1743 part = part->next;
1744 bar = 0;
1745 beat = 0;
1746 tweak_volume(part->volume);
1747 }
1748 }
1749 else ++bar;
1750 /* Always calculate period for acceleration. */
1751 calc_period();
1752 minitick = period;
1753}
1754
1755static void tap(void)
1756{
1757 struct part *ps = part;
1758
1759 /* Each tap resets the position. */
1760 beat = 0;
1761 bar = 0;
1762
1763 if(tap_count == 0 || tap_time < tap_count)
1764 tap_time = 0;
1765 else
1766 {
1767 if(tap_time > 0)
1768 {
1769 /* Could use fixed point math and rounding, even. */
1770 ps->bpm = 60*timerfreq_div*tap_count/tap_time;
1771
1772 if(ps->bpm > 400) ps->bpm = 400;
1773 }
876 tap_timeout = (tap_count+2)*tap_time/tap_count; 1774 tap_timeout = (tap_count+2)*tap_time/tap_count;
877 } 1775 }
878 1776
879 tap_count++; 1777 tap_count++;
880 minitick = 0; /* sync tock to tapping */ 1778 minitick = 0; /* sync tock to tapping */
881 play_tock();
882
883 reset_tap = false; 1779 reset_tap = false;
1780 play_ticktock();
884} 1781}
885 1782
886enum plugin_status plugin_start(const void* parameter) 1783enum plugin_status plugin_start(const void* file)
887{ 1784{
888 int button; 1785 int button;
889 static int last_button = BUTTON_NONE; 1786 static int last_button = BUTTON_NONE;
1787 bool common_action;
890 1788
891 (void)parameter;
892 atexit(cleanup); 1789 atexit(cleanup);
893 1790
894 if (MET_IS_PLAYING) 1791 mem_init();
895 MET_PLAY_STOP; /* stop audio IS */
896 1792
897#if CONFIG_CODEC != SWCODEC 1793 if(MET_IS_PLAYING) MET_PLAY_STOP; /* stop audio IS */
898 rb->bitswap(sound, sizeof(sound)); 1794
1795#if (CONFIG_CODEC != SWCODEC)
1796#ifndef SIMULATOR
1797 rb->bitswap(tick_sound, sizeof(tick_sound));
1798 rb->bitswap(tock_sound, sizeof(tock_sound));
1799#endif
899#else 1800#else
900 prepare_tock(); 1801 prepare_buffers();
901#if INPUT_SRC_CAPS != 0 1802#if INPUT_SRC_CAPS != 0
902 /* Select playback */ 1803 /* Select playback */
903 rb->audio_set_input_source(AUDIO_SRC_PLAYBACK, SRCF_PLAYBACK); 1804 rb->audio_set_input_source(AUDIO_SRC_PLAYBACK, SRCF_PLAYBACK);
@@ -906,92 +1807,168 @@ enum plugin_status plugin_start(const void* parameter)
906 rb->pcm_set_frequency(SAMPR_44); 1807 rb->pcm_set_frequency(SAMPR_44);
907#endif /* CONFIG_CODEC != SWCODEC */ 1808#endif /* CONFIG_CODEC != SWCODEC */
908 1809
909 calc_period(); 1810 if(file)
910 rb->timer_register(1, NULL, TIMER_FREQ/1024, timer_callback IF_COP(, CPU)); 1811 {
1812 parts = 0;
1813 bad_parts = 0;
1814 fd = rb->open(file, O_RDONLY);
1815 if(fd >= 0)
1816 {
1817 unsigned int linenum = 0;
1818 /* Crazyness, allocating line buffer depending on free memory. */
1819 linebuf_size = mem_end - mem_free_region > 32*1024
1820 ? 1024
1821 : ( mem_end - mem_free_region > 16*1024
1822 ? 256
1823 : 128 );
1824 if(!(linebuf = mem_allocate(linebuf_size))) return PLUGIN_ERROR;
1825 /* I'm assuming that read_line always terminates. */
1826 while(rb->read_line(fd, linebuf, linebuf_size) > 0)
1827 {
1828 parse_part(linebuf, ++linenum);
1829 }
1830 }
1831 rb->close(fd);
1832 if(bad_parts)
1833 {
1834 rb->snprintf(buffer, sizeof(buffer), "%u bad parts", bad_parts);
1835 rb->splash(2*HZ, buffer);
1836 }
1837 if(!parts)
1838 {
1839 rb->splash(2*HZ, "Got no parts. Bye!");
1840 return PLUGIN_OK;
1841 }
1842 }
911 1843
1844 /* If no parts given, start in simple metronome mode. */
1845 if(!parts)
1846 { /* Just checking the early bailout here. */
1847 struct part *ps = mem_allocate(sizeof(struct part));
1848 if(!ps) return PLUGIN_ERROR;
1849 part_init(ps);
1850 part_add(ps);
1851 track_mode = false;
1852 }
1853 else track_mode = true;
1854
1855 part = part_list;
1856 tweak_volume(part->volume);
1857 calc_period();
912 draw_display(); 1858 draw_display();
913 1859
914 /* main loop */ 1860 /* main loop */
915 while (true){ 1861 while(true)
1862 {
916 reset_tap = true; 1863 reset_tap = true;
917#if CONFIG_CODEC == SWCODEC 1864 button = pluginlib_getaction( TIMEOUT_NOBLOCK, plugin_contexts
918 button = pluginlib_getaction(TIMEOUT_NOBLOCK,plugin_contexts,PLA_ARRAY_COUNT); 1865 , PLA_ARRAY_COUNT );
919 if (need_to_play) 1866 if(sound_trigger)
920 { 1867 {
921 need_to_play = false; 1868 sound_trigger = false;
922 play_tock(); 1869 play_ticktock(); /* Draws display before playback. */
1870 }
1871
1872 common_action = false;
1873 if(track_mode)
1874 {
1875 switch(button)
1876 {
1877 case METRONOME_START:
1878 if(sound_paused) metronome_unpause();
1879 else metronome_pause();
1880 break;
1881 case METRONOME_PAUSE:
1882 if(!sound_paused) metronome_pause();
1883 break;
1884 case METRONOME_LEFT:
1885 case METRONOME_LEFT_REP:
1886 step_back();
1887 trigger_display(0);
1888 break;
1889 case METRONOME_RIGHT:
1890 case METRONOME_RIGHT_REP:
1891 step_forw();
1892 trigger_display(0);
1893 break;
1894 default:
1895 common_action = true;
1896 }
1897 }
1898 else
1899 {
1900 switch(button)
1901 {
1902 case METRONOME_PAUSE:
1903 if(!sound_paused) metronome_pause();
1904 break;
1905 case METRONOME_PLAY:
1906 if(sound_paused) metronome_unpause();
1907 break;
1908 case METRONOME_TAP:
1909 if(last_button != METRONOME_PLAY)
1910 {
1911 if(sound_paused) metronome_unpause();
1912 tap();
1913 }
1914 break;
1915 case METRONOME_LEFT:
1916 bpm_step_counter = 0;
1917 case METRONOME_LEFT_REP:
1918 change_bpm(-1);
1919 break;
1920 case METRONOME_RIGHT:
1921 bpm_step_counter = 0;
1922 case METRONOME_RIGHT_REP:
1923 change_bpm(1);
1924 break;
1925#ifdef MET_SYNC
1926 case METRONOME_SYNC:
1927 minitick = period;
1928 break;
1929#endif
1930 default:
1931 common_action = true;
1932 }
923 } 1933 }
924#else
925 button = pluginlib_getaction(TIMEOUT_BLOCK,
926 plugin_contexts,PLA_ARRAY_COUNT);
927#endif /* SWCODEC */
928 switch (button) {
929 1934
1935 if(common_action)
1936 switch(button)
1937 {
930 case METRONOME_QUIT: 1938 case METRONOME_QUIT:
931 /* get out of here */ 1939 /* get out of here */
932 return PLUGIN_OK; 1940 return PLUGIN_OK;
933
934 case METRONOME_PAUSE:
935 if(!sound_paused)
936 {
937 sound_paused = true;
938 draw_display();
939 }
940 break;
941 case METRONOME_PLAY:
942 if(sound_paused)
943 {
944 sound_paused = false;
945 calc_period();
946 draw_display();
947 }
948 break;
949 case METRONOME_TAP:
950 if (last_button != METRONOME_PLAY)
951 tap();
952 break;
953 case METRONOME_VOL_UP: 1941 case METRONOME_VOL_UP:
954 case METRONOME_VOL_UP_REP: 1942 case METRONOME_VOL_UP_REP:
955 change_volume(1); 1943 change_volume(1);
956 calc_period(); 1944 trigger_display(0);
957 break; 1945 break;
958
959 case METRONOME_VOL_DOWN: 1946 case METRONOME_VOL_DOWN:
960 case METRONOME_VOL_DOWN_REP: 1947 case METRONOME_VOL_DOWN_REP:
961 change_volume(-1); 1948 change_volume(-1);
962 calc_period(); 1949 trigger_display(0);
963 break; 1950 break;
964
965 case METRONOME_LEFT:
966 bpm_step_counter = 0;
967 case METRONOME_LEFT_REP:
968 change_bpm(-1);
969 break;
970
971 case METRONOME_RIGHT:
972 bpm_step_counter = 0;
973 case METRONOME_RIGHT_REP:
974 change_bpm(1);
975 break;
976
977#ifdef MET_SYNC
978 case METRONOME_SYNC:
979 minitick = period;
980 break;
981#endif
982
983 default: 1951 default:
984 exit_on_usb(button); 1952 exit_on_usb(button);
985 reset_tap = false; 1953 reset_tap = false;
986 break; 1954 break;
987
988 } 1955 }
989 if (button) 1956
1957 if(button)
990 last_button = button; 1958 last_button = button;
991 if (reset_tap) { 1959 if(reset_tap)
992 tap_count = 0; 1960 tap_count = 0;
1961 /* If there was some action, display drawing is still needed.
1962 This _might_ disturb audio on slow machines, but
1963 then, you could just stop pressing buttons, then;-) */
1964 if(display_trigger)
1965 {
1966 display_trigger = false;
1967 draw_display();
993 } 1968 }
1969
1970 /* This determines the accuracy of the metronome with SWCODEC ... the
1971 scheduler decides when we are allowed to play. */
994 rb->yield(); 1972 rb->yield();
995 } 1973 }
996} 1974}
997
generated by cgit v1.2.3 (git 2.39.1) at 2024-09-19 22:50:36 +0000