OSC-CV Converter
Dependencies: Bonjour OSCReceiver TextLCD mbed mbed-rpc BurstSPI DebouncedInterrupt FastIO MIDI OSC OSCtoCV ClockControl
OSC to CV Converter
http://gtbts.tumblr.com/post/125663817741/osc-to-cv-converter-ver2-mbed-osctocv
main.cpp@27:65e873bf8307, 2016-02-16 (annotated)
- Committer:
- casiotone401
- Date:
- Tue Feb 16 11:31:57 2016 +0000
- Revision:
- 27:65e873bf8307
- Parent:
- 26:8673d5254f7d
- Child:
- 29:8b61b87b9676
bug fix & minor change
Who changed what in which revision?
User | Revision | Line number | New contents of line |
---|---|---|---|
casiotone401 | 0:a4d93cd4c30d | 1 | //------------------------------------------------------------- |
casiotone401 | 20:a44f4a024902 | 2 | // TI DAC8568 OSCtoCV Converter |
casiotone401 | 0:a4d93cd4c30d | 3 | // |
casiotone401 | 0:a4d93cd4c30d | 4 | // DAC8568 16bit Octal DAC http://www.ti.com/product/dac8568 |
casiotone401 | 0:a4d93cd4c30d | 5 | // |
casiotone401 | 0:a4d93cd4c30d | 6 | // referred to |
casiotone401 | 0:a4d93cd4c30d | 7 | // xshige's OSCReceiver |
casiotone401 | 0:a4d93cd4c30d | 8 | // http://mbed.org/users/xshige/programs/OSCReceiver/ |
casiotone401 | 0:a4d93cd4c30d | 9 | // radiojunkbox's OSC-CV_Example |
casiotone401 | 0:a4d93cd4c30d | 10 | // http://mbed.org/users/radiojunkbox/code/KAMUI_OSC-CV_Example/ |
casiotone401 | 0:a4d93cd4c30d | 11 | // Robin Price's Homebrew midi-cv box |
casiotone401 | 0:a4d93cd4c30d | 12 | // http://crx091081gb.net/?p=69 |
casiotone401 | 0:a4d93cd4c30d | 13 | // Masahiro Hattori's TextLCD Module Functions |
casiotone401 | 0:a4d93cd4c30d | 14 | // http://www.eleclabo.com/denshi/device/lcd1602/gcram.html |
casiotone401 | 0:a4d93cd4c30d | 15 | // Dirk-Willem van Gulik's BonjourLib |
casiotone401 | 0:a4d93cd4c30d | 16 | // http://mbed.org/users/dirkx/code/BonjourLib/file/bb6472f455e8/services/mDNS |
casiotone401 | 0:a4d93cd4c30d | 17 | // |
casiotone401 | 0:a4d93cd4c30d | 18 | // Released under the MIT License: http://mbed.org/license/mit |
casiotone401 | 0:a4d93cd4c30d | 19 | //------------------------------------------------------------- |
casiotone401 | 0:a4d93cd4c30d | 20 | |
casiotone401 | 0:a4d93cd4c30d | 21 | #pragma O3 |
casiotone401 | 0:a4d93cd4c30d | 22 | #pragma Otime |
casiotone401 | 0:a4d93cd4c30d | 23 | |
casiotone401 | 0:a4d93cd4c30d | 24 | #include "mbed.h" |
casiotone401 | 15:3e4bc47d6a39 | 25 | #include "FastIO.h" |
casiotone401 | 20:a44f4a024902 | 26 | //#include "FastAnalogIn.h" |
casiotone401 | 15:3e4bc47d6a39 | 27 | #include "DebouncedInterrupt.h" |
casiotone401 | 0:a4d93cd4c30d | 28 | #include "TextLCD.h" //edit "writeCommand" "writeData" protected -> public |
casiotone401 | 0:a4d93cd4c30d | 29 | #include "EthernetNetIf.h" |
casiotone401 | 0:a4d93cd4c30d | 30 | #include "HTTPServer.h" |
casiotone401 | 0:a4d93cd4c30d | 31 | #include "mDNSResponder.h" // mDNS response to announce oneselve |
casiotone401 | 0:a4d93cd4c30d | 32 | #include "UDPSocket.h" |
casiotone401 | 0:a4d93cd4c30d | 33 | #include "OSCReceiver.h" |
casiotone401 | 15:3e4bc47d6a39 | 34 | #include "mbedOSC.h" |
casiotone401 | 15:3e4bc47d6a39 | 35 | #include "MIDI.h" |
casiotone401 | 24:99045b0f7c4a | 36 | #include "ClockControl.h" // https://developer.mbed.org/users/JST2011/code/ClockControl/ |
casiotone401 | 20:a44f4a024902 | 37 | #include "OSCtoCV.h" |
casiotone401 | 20:a44f4a024902 | 38 | #include "OSCtoCV_Sequencer.h" |
casiotone401 | 20:a44f4a024902 | 39 | #include "OSCtoCV_GateSequencer.h" |
casiotone401 | 20:a44f4a024902 | 40 | #include "OSCtoCV_Euclidean.h" |
casiotone401 | 21:2273c3676f1b | 41 | #include "OSCtoCV_Random.h" |
casiotone401 | 21:2273c3676f1b | 42 | #include "OSCtoCV_LFO.h" |
casiotone401 | 20:a44f4a024902 | 43 | |
casiotone401 | 24:99045b0f7c4a | 44 | |
casiotone401 | 0:a4d93cd4c30d | 45 | #include <stdlib.h> |
casiotone401 | 0:a4d93cd4c30d | 46 | #include <ctype.h> |
casiotone401 | 1:fd4f70088311 | 47 | #include <math.h> |
casiotone401 | 0:a4d93cd4c30d | 48 | |
casiotone401 | 0:a4d93cd4c30d | 49 | //------------------------------------------------------------- |
casiotone401 | 20:a44f4a024902 | 50 | // Macros |
casiotone401 | 0:a4d93cd4c30d | 51 | |
casiotone401 | 26:8673d5254f7d | 52 | #define MODE_CLB 0 // Calibration (for VCO Tuning) |
casiotone401 | 15:3e4bc47d6a39 | 53 | #define MODE_OSC 1 // Mode OSCtoCV |
casiotone401 | 15:3e4bc47d6a39 | 54 | #define MODE_SEQ 2 // Mode Shift Sequencer |
casiotone401 | 15:3e4bc47d6a39 | 55 | #define MODE_185 3 // Mode M185 Sequencer |
casiotone401 | 24:99045b0f7c4a | 56 | #define MODE_437 4 // Mode 437 Sequencer |
casiotone401 | 24:99045b0f7c4a | 57 | #define MODE_EUC 5 // Mode Euclidean Sequencer |
casiotone401 | 24:99045b0f7c4a | 58 | #define MODE_RND 6 // Mode xshift Random Generator |
casiotone401 | 24:99045b0f7c4a | 59 | #define MODE_LFO 7 // Mode Stepped LFO |
casiotone401 | 15:3e4bc47d6a39 | 60 | |
casiotone401 | 24:99045b0f7c4a | 61 | #define MODE_TOTAL 8 // Modes |
casiotone401 | 0:a4d93cd4c30d | 62 | |
casiotone401 | 0:a4d93cd4c30d | 63 | //------------------------------------------------------------- |
casiotone401 | 0:a4d93cd4c30d | 64 | // Functions |
casiotone401 | 0:a4d93cd4c30d | 65 | |
casiotone401 | 15:3e4bc47d6a39 | 66 | void InitOSCCV(void); |
casiotone401 | 4:b9f5ae574447 | 67 | inline void NetPoll(void); |
casiotone401 | 20:a44f4a024902 | 68 | void CalibrationCV(void); |
casiotone401 | 15:3e4bc47d6a39 | 69 | inline void SetCV(void); |
casiotone401 | 15:3e4bc47d6a39 | 70 | inline int CheckBPM(void); |
casiotone401 | 20:a44f4a024902 | 71 | void CheckModeSW(void); |
casiotone401 | 15:3e4bc47d6a39 | 72 | inline void LCD(); |
casiotone401 | 0:a4d93cd4c30d | 73 | void WriteCustomChar(unsigned char, unsigned char*); |
casiotone401 | 0:a4d93cd4c30d | 74 | int SetupEthNetIf(void); |
casiotone401 | 4:b9f5ae574447 | 75 | inline void onUDPSocketEvent(UDPSocketEvent); |
casiotone401 | 20:a44f4a024902 | 76 | |
casiotone401 | 0:a4d93cd4c30d | 77 | |
casiotone401 | 0:a4d93cd4c30d | 78 | //------------------------------------------------------------- |
casiotone401 | 20:a44f4a024902 | 79 | // Global Variables |
casiotone401 | 0:a4d93cd4c30d | 80 | |
casiotone401 | 0:a4d93cd4c30d | 81 | // CV Meter Custom Character |
casiotone401 | 0:a4d93cd4c30d | 82 | unsigned char str1[8] = {0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x1F}; |
casiotone401 | 0:a4d93cd4c30d | 83 | unsigned char str2[8] = {0x00,0x00,0x00,0x00,0x00,0x00,0x1F,0x1F}; |
casiotone401 | 0:a4d93cd4c30d | 84 | unsigned char str3[8] = {0x00,0x00,0x00,0x00,0x00,0x1F,0x1F,0x1F}; |
casiotone401 | 0:a4d93cd4c30d | 85 | unsigned char str4[8] = {0x00,0x00,0x00,0x00,0x1F,0x1F,0x1F,0x1F}; |
casiotone401 | 0:a4d93cd4c30d | 86 | unsigned char str5[8] = {0x00,0x00,0x00,0x1F,0x1F,0x1F,0x1F,0x1F}; |
casiotone401 | 0:a4d93cd4c30d | 87 | unsigned char str6[8] = {0x00,0x00,0x1F,0x1F,0x1F,0x1F,0x1F,0x1F}; |
casiotone401 | 0:a4d93cd4c30d | 88 | unsigned char str7[8] = {0x00,0x1F,0x1F,0x1F,0x1F,0x1F,0x1F,0x1F}; |
casiotone401 | 0:a4d93cd4c30d | 89 | unsigned char str8[8] = {0x1F,0x1F,0x1F,0x1F,0x1F,0x1F,0x1F,0x1F}; |
casiotone401 | 0:a4d93cd4c30d | 90 | |
casiotone401 | 20:a44f4a024902 | 91 | // OSCtoCV Converter Mode |
casiotone401 | 20:a44f4a024902 | 92 | int gMode; |
casiotone401 | 15:3e4bc47d6a39 | 93 | |
casiotone401 | 20:a44f4a024902 | 94 | // UDP Socket |
casiotone401 | 20:a44f4a024902 | 95 | UDPSocket gUdp; |
casiotone401 | 15:3e4bc47d6a39 | 96 | |
casiotone401 | 0:a4d93cd4c30d | 97 | //------------------------------------------------------------- |
casiotone401 | 0:a4d93cd4c30d | 98 | // main |
casiotone401 | 0:a4d93cd4c30d | 99 | |
casiotone401 | 0:a4d93cd4c30d | 100 | int main() |
casiotone401 | 0:a4d93cd4c30d | 101 | { |
casiotone401 | 7:a04f8378662e | 102 | float pot, _pot; |
casiotone401 | 27:65e873bf8307 | 103 | float duration, _duration = 0.6; |
casiotone401 | 15:3e4bc47d6a39 | 104 | int bpm; |
casiotone401 | 20:a44f4a024902 | 105 | |
casiotone401 | 24:99045b0f7c4a | 106 | InitOSCCV(); |
casiotone401 | 15:3e4bc47d6a39 | 107 | |
casiotone401 | 15:3e4bc47d6a39 | 108 | gCtrl[3] = _pot = pot = gMode = 0; |
casiotone401 | 24:99045b0f7c4a | 109 | |
casiotone401 | 24:99045b0f7c4a | 110 | |
casiotone401 | 24:99045b0f7c4a | 111 | // Init LCD |
casiotone401 | 15:3e4bc47d6a39 | 112 | LCD(); |
casiotone401 | 24:99045b0f7c4a | 113 | |
casiotone401 | 15:3e4bc47d6a39 | 114 | gLCD.locate( 0, 1 ); |
casiotone401 | 15:3e4bc47d6a39 | 115 | gLCD.printf("12345678 G>>%3.2f", gGlide); |
casiotone401 | 24:99045b0f7c4a | 116 | |
casiotone401 | 15:3e4bc47d6a39 | 117 | // Main loop |
casiotone401 | 15:3e4bc47d6a39 | 118 | while (1) |
casiotone401 | 24:99045b0f7c4a | 119 | { |
casiotone401 | 24:99045b0f7c4a | 120 | LCD(); // Check Text LCD Mode Status |
casiotone401 | 15:3e4bc47d6a39 | 121 | |
casiotone401 | 15:3e4bc47d6a39 | 122 | pot = gAIN.read(); // Update glide value |
casiotone401 | 15:3e4bc47d6a39 | 123 | |
casiotone401 | 15:3e4bc47d6a39 | 124 | if (!pot) // when glide pot value == 0 |
casiotone401 | 24:99045b0f7c4a | 125 | { // use gCtrl[3] value (MODE_OSC) |
casiotone401 | 15:3e4bc47d6a39 | 126 | if (abs(gCtrl[3] - _pot) > 0.01f) |
casiotone401 | 15:3e4bc47d6a39 | 127 | { |
casiotone401 | 15:3e4bc47d6a39 | 128 | _pot = gGlide = gCtrl[3]; |
casiotone401 | 15:3e4bc47d6a39 | 129 | |
casiotone401 | 15:3e4bc47d6a39 | 130 | gLCD.locate( 9, 1 ); |
casiotone401 | 15:3e4bc47d6a39 | 131 | gLCD.printf("G>>%3.2f", gGlide); |
casiotone401 | 15:3e4bc47d6a39 | 132 | } |
casiotone401 | 15:3e4bc47d6a39 | 133 | |
casiotone401 | 15:3e4bc47d6a39 | 134 | } else if (abs(pot - _pot) > 0.01f) { |
casiotone401 | 15:3e4bc47d6a39 | 135 | |
casiotone401 | 15:3e4bc47d6a39 | 136 | _pot = gGlide = gAIN.read(); |
casiotone401 | 15:3e4bc47d6a39 | 137 | |
casiotone401 | 15:3e4bc47d6a39 | 138 | gLCD.locate( 9, 1 ); |
casiotone401 | 15:3e4bc47d6a39 | 139 | gLCD.printf("G>>%3.2f", gGlide); |
casiotone401 | 15:3e4bc47d6a39 | 140 | } |
casiotone401 | 15:3e4bc47d6a39 | 141 | |
casiotone401 | 17:55e5136790a6 | 142 | bpm = CheckBPM(); // check current BPM |
casiotone401 | 17:55e5136790a6 | 143 | |
casiotone401 | 27:65e873bf8307 | 144 | duration = gCtrl[6]; |
casiotone401 | 27:65e873bf8307 | 145 | |
casiotone401 | 27:65e873bf8307 | 146 | if (_duration != duration) // check current gate duration |
casiotone401 | 27:65e873bf8307 | 147 | { |
casiotone401 | 27:65e873bf8307 | 148 | sendMes.setTopAddress("/ctrl7"); |
casiotone401 | 27:65e873bf8307 | 149 | sendMes.setArgs("f", gCtrl[6]); |
casiotone401 | 27:65e873bf8307 | 150 | |
casiotone401 | 27:65e873bf8307 | 151 | osc.sendOsc(&sendMes); |
casiotone401 | 27:65e873bf8307 | 152 | |
casiotone401 | 27:65e873bf8307 | 153 | _duration = duration; |
casiotone401 | 27:65e873bf8307 | 154 | } |
casiotone401 | 27:65e873bf8307 | 155 | |
casiotone401 | 15:3e4bc47d6a39 | 156 | switch (gMode) |
casiotone401 | 15:3e4bc47d6a39 | 157 | { |
casiotone401 | 15:3e4bc47d6a39 | 158 | case MODE_OSC: // OSCtoCV mode |
casiotone401 | 15:3e4bc47d6a39 | 159 | |
casiotone401 | 15:3e4bc47d6a39 | 160 | SetCV(); |
casiotone401 | 15:3e4bc47d6a39 | 161 | break; |
casiotone401 | 15:3e4bc47d6a39 | 162 | |
casiotone401 | 15:3e4bc47d6a39 | 163 | case MODE_SEQ: // Shift Sequencer mode |
casiotone401 | 15:3e4bc47d6a39 | 164 | |
casiotone401 | 15:3e4bc47d6a39 | 165 | GateSeq(bpm, N8TH, GATE2, 3, NON_INVERT, GATESOUT_ON, SYNC_OFF); |
casiotone401 | 15:3e4bc47d6a39 | 166 | |
casiotone401 | 15:3e4bc47d6a39 | 167 | if (gCtrlSW[3]) |
casiotone401 | 24:99045b0f7c4a | 168 | { // euclid sequencer auto offset |
casiotone401 | 27:65e873bf8307 | 169 | ShiftCVSeq(EuclideanSeq(GateSeq(bpm, N16TH, SUBGATE, (duration * 12), NON_INVERT, GATESOUT_OFF, SYNC_ON), gCtrlSW[0], GATESOUT_OFF, true), gCtrlSW[0], CV_CHANNEL8); |
casiotone401 | 24:99045b0f7c4a | 170 | |
casiotone401 | 24:99045b0f7c4a | 171 | } else { |
casiotone401 | 25:6b29d7e631cb | 172 | |
casiotone401 | 27:65e873bf8307 | 173 | ShiftCVSeq(BeatsSeq(GateSeq(bpm, N16TH, SUBGATE, (duration * 8), NON_INVERT, GATESOUT_OFF, SYNC_ON), gCtrlSW[0], GATESOUT_OFF), gCtrlSW[0], CV_CHANNEL8); |
casiotone401 | 15:3e4bc47d6a39 | 174 | } |
casiotone401 | 15:3e4bc47d6a39 | 175 | break; |
casiotone401 | 15:3e4bc47d6a39 | 176 | |
casiotone401 | 15:3e4bc47d6a39 | 177 | case MODE_185: // M185 Sequencer mode |
casiotone401 | 15:3e4bc47d6a39 | 178 | |
casiotone401 | 25:6b29d7e631cb | 179 | |
casiotone401 | 24:99045b0f7c4a | 180 | GateSeq(bpm, N8TH, GATE2, 3, NON_INVERT, GATESOUT_ON, SYNC_OFF); |
casiotone401 | 24:99045b0f7c4a | 181 | |
casiotone401 | 24:99045b0f7c4a | 182 | if (gCtrlSW[3]) |
casiotone401 | 24:99045b0f7c4a | 183 | { // euclid sequencer auto offset |
casiotone401 | 27:65e873bf8307 | 184 | M185Seq(EuclideanSeq(GateSeq(bpm, N16TH, SUBGATE, (duration * 12), NON_INVERT, GATESOUT_OFF, SYNC_ON), gCtrlSW[0], GATESOUT_OFF, true), gCtrlSW[0], CV_CHANNEL8); |
casiotone401 | 25:6b29d7e631cb | 185 | |
casiotone401 | 24:99045b0f7c4a | 186 | } else { |
casiotone401 | 25:6b29d7e631cb | 187 | |
casiotone401 | 27:65e873bf8307 | 188 | M185Seq(BeatsSeq(GateSeq(bpm, N16TH, SUBGATE, (duration * 8), NON_INVERT, GATESOUT_OFF, SYNC_ON), gCtrlSW[0], GATESOUT_OFF), gCtrlSW[0], CV_CHANNEL8); |
casiotone401 | 24:99045b0f7c4a | 189 | } |
casiotone401 | 24:99045b0f7c4a | 190 | break; |
casiotone401 | 24:99045b0f7c4a | 191 | |
casiotone401 | 24:99045b0f7c4a | 192 | case MODE_437: // F437 sequencer |
casiotone401 | 25:6b29d7e631cb | 193 | |
casiotone401 | 15:3e4bc47d6a39 | 194 | GateSeq(bpm, N8TH, GATE2, 3, NON_INVERT, GATESOUT_ON, SYNC_OFF); |
casiotone401 | 15:3e4bc47d6a39 | 195 | |
casiotone401 | 15:3e4bc47d6a39 | 196 | if (gCtrlSW[3]) |
casiotone401 | 24:99045b0f7c4a | 197 | { // euclid sequencer auto offset |
casiotone401 | 27:65e873bf8307 | 198 | PolyCVSeq(EuclideanSeq(GateSeq(bpm, N16TH, SUBGATE, (duration * 12), NON_INVERT, GATESOUT_OFF, SYNC_ON), gCtrlSW[0], GATESOUT_OFF, true), gCtrlSW[0]); |
casiotone401 | 25:6b29d7e631cb | 199 | |
casiotone401 | 24:99045b0f7c4a | 200 | } else { |
casiotone401 | 25:6b29d7e631cb | 201 | |
casiotone401 | 27:65e873bf8307 | 202 | PolyCVSeq(BeatsSeq(GateSeq(bpm, N16TH, SUBGATE, (duration * 8), NON_INVERT, GATESOUT_OFF, SYNC_ON), gCtrlSW[0], GATESOUT_OFF), gCtrlSW[0]); |
casiotone401 | 15:3e4bc47d6a39 | 203 | } |
casiotone401 | 15:3e4bc47d6a39 | 204 | break; |
casiotone401 | 24:99045b0f7c4a | 205 | |
casiotone401 | 15:3e4bc47d6a39 | 206 | case MODE_EUC: // Euclidean Sequencer mode |
casiotone401 | 15:3e4bc47d6a39 | 207 | |
casiotone401 | 27:65e873bf8307 | 208 | ShiftCVSeq(GateSeq(bpm, N1ST, SUBGATE, (duration * 5), NON_INVERT, GATESOUT_OFF, SYNC_OFF), gCtrlSW[0], CV_CHANNEL8); |
casiotone401 | 24:99045b0f7c4a | 209 | EuclideanSeq(GateSeq(bpm, N16TH, GATE1, 3, NON_INVERT, GATESOUT_OFF, SYNC_OFF), gCtrlSW[0], GATESOUT_ON, false); |
casiotone401 | 15:3e4bc47d6a39 | 210 | break; |
casiotone401 | 24:99045b0f7c4a | 211 | |
casiotone401 | 21:2273c3676f1b | 212 | case MODE_RND: // Random CV Generator mode |
casiotone401 | 24:99045b0f7c4a | 213 | |
casiotone401 | 27:65e873bf8307 | 214 | RandomCVGenerator(GateSeq(bpm, N32TH, GATE1, (duration * 5), NON_INVERT, GATESOUT_OFF, SYNC_ON)); |
casiotone401 | 21:2273c3676f1b | 215 | break; |
casiotone401 | 21:2273c3676f1b | 216 | |
casiotone401 | 21:2273c3676f1b | 217 | case MODE_LFO: // Stepped LFO mode |
casiotone401 | 24:99045b0f7c4a | 218 | |
casiotone401 | 27:65e873bf8307 | 219 | SteppedLFO(CV_CHANNEL1, false); // LFO out ch1 ~ ch8 |
casiotone401 | 21:2273c3676f1b | 220 | break; |
casiotone401 | 24:99045b0f7c4a | 221 | |
casiotone401 | 15:3e4bc47d6a39 | 222 | default: // CV Calibration mode |
casiotone401 | 15:3e4bc47d6a39 | 223 | |
casiotone401 | 15:3e4bc47d6a39 | 224 | CalibrationCV(); |
casiotone401 | 15:3e4bc47d6a39 | 225 | break; |
casiotone401 | 15:3e4bc47d6a39 | 226 | } |
casiotone401 | 15:3e4bc47d6a39 | 227 | |
casiotone401 | 15:3e4bc47d6a39 | 228 | } |
casiotone401 | 15:3e4bc47d6a39 | 229 | } |
casiotone401 | 15:3e4bc47d6a39 | 230 | |
casiotone401 | 15:3e4bc47d6a39 | 231 | //------------------------------------------------------------- |
casiotone401 | 20:a44f4a024902 | 232 | // Ethernet Polling |
casiotone401 | 20:a44f4a024902 | 233 | |
casiotone401 | 20:a44f4a024902 | 234 | inline void NetPoll() |
casiotone401 | 20:a44f4a024902 | 235 | { |
casiotone401 | 20:a44f4a024902 | 236 | Net::poll(); |
casiotone401 | 20:a44f4a024902 | 237 | } |
casiotone401 | 20:a44f4a024902 | 238 | |
casiotone401 | 20:a44f4a024902 | 239 | //------------------------------------------------------------- |
casiotone401 | 15:3e4bc47d6a39 | 240 | // Initialize OSCtoCV |
casiotone401 | 15:3e4bc47d6a39 | 241 | |
casiotone401 | 15:3e4bc47d6a39 | 242 | void InitOSCCV() |
casiotone401 | 15:3e4bc47d6a39 | 243 | { |
casiotone401 | 15:3e4bc47d6a39 | 244 | int i; |
casiotone401 | 20:a44f4a024902 | 245 | |
casiotone401 | 24:99045b0f7c4a | 246 | // Set System Frequency 120Mhz |
casiotone401 | 24:99045b0f7c4a | 247 | setSystemFrequency(0x3, 0x1, 15, 1); |
casiotone401 | 20:a44f4a024902 | 248 | wait(0.5); |
casiotone401 | 20:a44f4a024902 | 249 | |
casiotone401 | 20:a44f4a024902 | 250 | // Setup Ethernet |
casiotone401 | 20:a44f4a024902 | 251 | SetupEthNetIf(); |
casiotone401 | 20:a44f4a024902 | 252 | |
casiotone401 | 20:a44f4a024902 | 253 | // Announce mdnsResponder (Bonjour) |
casiotone401 | 20:a44f4a024902 | 254 | HTTPServer svr; |
casiotone401 | 20:a44f4a024902 | 255 | mDNSResponder mdns; |
casiotone401 | 20:a44f4a024902 | 256 | |
casiotone401 | 20:a44f4a024902 | 257 | svr.addHandler<SimpleHandler>("/"); |
casiotone401 | 20:a44f4a024902 | 258 | svr.bind(INPUT_PORT); |
casiotone401 | 20:a44f4a024902 | 259 | IpAddr ip = gEth.getIp(); |
casiotone401 | 20:a44f4a024902 | 260 | mdns.announce(ip, "OSCtoCV", "_osc._udp", INPUT_PORT, "mbed(OSCtoCV)", (char *[]) {"path=/",NULL}); |
casiotone401 | 20:a44f4a024902 | 261 | |
casiotone401 | 15:3e4bc47d6a39 | 262 | // Write custom char LCD CGRAM |
casiotone401 | 15:3e4bc47d6a39 | 263 | WriteCustomChar(0x00, str1); |
casiotone401 | 15:3e4bc47d6a39 | 264 | WriteCustomChar(0x01, str2); |
casiotone401 | 15:3e4bc47d6a39 | 265 | WriteCustomChar(0x02, str3); |
casiotone401 | 15:3e4bc47d6a39 | 266 | WriteCustomChar(0x03, str4); |
casiotone401 | 15:3e4bc47d6a39 | 267 | WriteCustomChar(0x04, str5); |
casiotone401 | 15:3e4bc47d6a39 | 268 | WriteCustomChar(0x05, str6); |
casiotone401 | 15:3e4bc47d6a39 | 269 | WriteCustomChar(0x06, str7); |
casiotone401 | 15:3e4bc47d6a39 | 270 | WriteCustomChar(0x07, str8); |
casiotone401 | 15:3e4bc47d6a39 | 271 | |
casiotone401 | 15:3e4bc47d6a39 | 272 | // Init SPI |
casiotone401 | 15:3e4bc47d6a39 | 273 | gLDAC = _ENABLE; |
casiotone401 | 27:65e873bf8307 | 274 | gSPI.format(8, 1); // Data word length 8bit, Mode=1 |
casiotone401 | 15:3e4bc47d6a39 | 275 | gSPI.frequency(SPI_RATE); |
casiotone401 | 15:3e4bc47d6a39 | 276 | |
casiotone401 | 15:3e4bc47d6a39 | 277 | UpdateCV(CLR, 0, 0); // Ignore CLR Pin |
casiotone401 | 20:a44f4a024902 | 278 | |
casiotone401 | 15:3e4bc47d6a39 | 279 | // Init BPM |
casiotone401 | 15:3e4bc47d6a39 | 280 | gCtrl[0] = 0.398f; |
casiotone401 | 15:3e4bc47d6a39 | 281 | |
casiotone401 | 26:8673d5254f7d | 282 | // Init Sequencer Data |
casiotone401 | 15:3e4bc47d6a39 | 283 | for (i = 0; i < 16; ++i) |
casiotone401 | 15:3e4bc47d6a39 | 284 | { |
casiotone401 | 24:99045b0f7c4a | 285 | gSeq_cv[i] = (calibMap1[69] * SCALING_N); |
casiotone401 | 24:99045b0f7c4a | 286 | } |
casiotone401 | 24:99045b0f7c4a | 287 | |
casiotone401 | 24:99045b0f7c4a | 288 | for (i = 0; i < 8; ++i) |
casiotone401 | 24:99045b0f7c4a | 289 | { |
casiotone401 | 24:99045b0f7c4a | 290 | g185_cv[i] = (calibMap1[69] * SCALING_N); |
casiotone401 | 24:99045b0f7c4a | 291 | gBeatsLevel[i] = gBeatsDecay[i] = 1; |
casiotone401 | 15:3e4bc47d6a39 | 292 | } |
casiotone401 | 15:3e4bc47d6a39 | 293 | |
casiotone401 | 24:99045b0f7c4a | 294 | // Init Sequencer Reset Count |
casiotone401 | 24:99045b0f7c4a | 295 | gCtrl[4] = gCtrl[5] = gCtrl[7] = 1; |
casiotone401 | 24:99045b0f7c4a | 296 | |
casiotone401 | 24:99045b0f7c4a | 297 | // Init Sequencer Gate Length |
casiotone401 | 24:99045b0f7c4a | 298 | gCtrl[6] = 0.6; |
casiotone401 | 24:99045b0f7c4a | 299 | |
casiotone401 | 24:99045b0f7c4a | 300 | // Init Euclidean Sequencer |
casiotone401 | 24:99045b0f7c4a | 301 | InitEuclideanSeq(); |
casiotone401 | 24:99045b0f7c4a | 302 | |
casiotone401 | 24:99045b0f7c4a | 303 | // Init Glide value |
casiotone401 | 24:99045b0f7c4a | 304 | gGlide = gAIN.read(); |
casiotone401 | 4:b9f5ae574447 | 305 | |
casiotone401 | 15:3e4bc47d6a39 | 306 | // Set OSC message for sending |
casiotone401 | 15:3e4bc47d6a39 | 307 | sendMes.setIp(touchOSCAddress); |
casiotone401 | 15:3e4bc47d6a39 | 308 | sendMes.setPort(touchOSCPort); |
casiotone401 | 3:ca15241dd6b4 | 309 | |
casiotone401 | 27:65e873bf8307 | 310 | gSW.attach(&CheckModeSW,IRQ_RISE, 20); // InterruptIn rising edge(ModeSW) |
casiotone401 | 17:55e5136790a6 | 311 | wait(0.5); |
casiotone401 | 15:3e4bc47d6a39 | 312 | |
casiotone401 | 17:55e5136790a6 | 313 | gPoller.attach_us(&NetPoll, POLLING_INTERVAL); // Ticker Polling |
casiotone401 | 27:65e873bf8307 | 314 | wait(0.2); |
casiotone401 | 0:a4d93cd4c30d | 315 | } |
casiotone401 | 0:a4d93cd4c30d | 316 | |
casiotone401 | 0:a4d93cd4c30d | 317 | //------------------------------------------------------------- |
casiotone401 | 15:3e4bc47d6a39 | 318 | // Calibration Mode |
casiotone401 | 15:3e4bc47d6a39 | 319 | |
casiotone401 | 20:a44f4a024902 | 320 | void CalibrationCV() |
casiotone401 | 14:977f3c5a4b4e | 321 | { |
casiotone401 | 14:977f3c5a4b4e | 322 | static int ch; |
casiotone401 | 14:977f3c5a4b4e | 323 | unsigned int cv; |
casiotone401 | 14:977f3c5a4b4e | 324 | |
casiotone401 | 15:3e4bc47d6a39 | 325 | switch (gMode) |
casiotone401 | 14:977f3c5a4b4e | 326 | { |
casiotone401 | 24:99045b0f7c4a | 327 | case MODE_CLB: |
casiotone401 | 14:977f3c5a4b4e | 328 | |
casiotone401 | 15:3e4bc47d6a39 | 329 | cv = (unsigned int)(calibMap1[69] * SCALING_N); // A880.0Hz |
casiotone401 | 14:977f3c5a4b4e | 330 | |
casiotone401 | 15:3e4bc47d6a39 | 331 | gSUBGATE = gGATES[0] = gGATES[1] = gGATES[2] = gGATES[3] = true; |
casiotone401 | 14:977f3c5a4b4e | 332 | |
casiotone401 | 14:977f3c5a4b4e | 333 | UpdateCV(WRITE_UPDATE_N, ch, &cv); |
casiotone401 | 15:3e4bc47d6a39 | 334 | |
casiotone401 | 14:977f3c5a4b4e | 335 | break; |
casiotone401 | 14:977f3c5a4b4e | 336 | } |
casiotone401 | 14:977f3c5a4b4e | 337 | |
casiotone401 | 27:65e873bf8307 | 338 | UpdateCVMeter(ch, &cv); |
casiotone401 | 27:65e873bf8307 | 339 | |
casiotone401 | 27:65e873bf8307 | 340 | ++ch; |
casiotone401 | 27:65e873bf8307 | 341 | ch &= 0x07; |
casiotone401 | 14:977f3c5a4b4e | 342 | } |
casiotone401 | 14:977f3c5a4b4e | 343 | |
casiotone401 | 14:977f3c5a4b4e | 344 | //------------------------------------------------------------- |
casiotone401 | 14:977f3c5a4b4e | 345 | // Calculate CV |
casiotone401 | 14:977f3c5a4b4e | 346 | |
casiotone401 | 15:3e4bc47d6a39 | 347 | inline void SetCV() |
casiotone401 | 14:977f3c5a4b4e | 348 | { |
casiotone401 | 27:65e873bf8307 | 349 | static int ch, mcount; |
casiotone401 | 14:977f3c5a4b4e | 350 | static float glidecv[8]; |
casiotone401 | 14:977f3c5a4b4e | 351 | unsigned int cv; |
casiotone401 | 14:977f3c5a4b4e | 352 | static float qcv; |
casiotone401 | 14:977f3c5a4b4e | 353 | |
casiotone401 | 27:65e873bf8307 | 354 | switch (CheckQuantizeMode()) |
casiotone401 | 14:977f3c5a4b4e | 355 | { |
casiotone401 | 14:977f3c5a4b4e | 356 | case Lin: |
casiotone401 | 14:977f3c5a4b4e | 357 | |
casiotone401 | 14:977f3c5a4b4e | 358 | glidecv[ch] = glidecv[ch] * gGlide + gOSC_cv[ch] * (1.0f - gGlide); |
casiotone401 | 14:977f3c5a4b4e | 359 | break; |
casiotone401 | 14:977f3c5a4b4e | 360 | |
casiotone401 | 14:977f3c5a4b4e | 361 | case Chr: |
casiotone401 | 15:3e4bc47d6a39 | 362 | |
casiotone401 | 15:3e4bc47d6a39 | 363 | qcv = calibMap1[(unsigned int)MapFloat(gOSC_cv[ch], 0, SCALING_N, 0, (QUAN_RES1 - 1))]; |
casiotone401 | 14:977f3c5a4b4e | 364 | |
casiotone401 | 14:977f3c5a4b4e | 365 | glidecv[ch] = glidecv[ch] * gGlide + (qcv * SCALING_N) * (1.0f - gGlide); |
casiotone401 | 15:3e4bc47d6a39 | 366 | |
casiotone401 | 14:977f3c5a4b4e | 367 | break; |
casiotone401 | 14:977f3c5a4b4e | 368 | |
casiotone401 | 15:3e4bc47d6a39 | 369 | case Maj: |
casiotone401 | 15:3e4bc47d6a39 | 370 | |
casiotone401 | 15:3e4bc47d6a39 | 371 | qcv = calibMap2[(unsigned int)MapFloat(gOSC_cv[ch], 0, SCALING_N, 0, (QUAN_RES2 - 1))]; |
casiotone401 | 15:3e4bc47d6a39 | 372 | |
casiotone401 | 14:977f3c5a4b4e | 373 | glidecv[ch] = glidecv[ch] * gGlide + (qcv * SCALING_N) * (1.0f - gGlide); |
casiotone401 | 15:3e4bc47d6a39 | 374 | |
casiotone401 | 14:977f3c5a4b4e | 375 | break; |
casiotone401 | 15:3e4bc47d6a39 | 376 | |
casiotone401 | 15:3e4bc47d6a39 | 377 | case M7: |
casiotone401 | 14:977f3c5a4b4e | 378 | |
casiotone401 | 15:3e4bc47d6a39 | 379 | qcv = calibMap3[(unsigned int)MapFloat(gOSC_cv[ch], 0, SCALING_N, 0, (QUAN_RES3 - 1))]; |
casiotone401 | 14:977f3c5a4b4e | 380 | |
casiotone401 | 14:977f3c5a4b4e | 381 | glidecv[ch] = glidecv[ch] * gGlide + (qcv * SCALING_N) * (1.0f - gGlide); |
casiotone401 | 15:3e4bc47d6a39 | 382 | |
casiotone401 | 15:3e4bc47d6a39 | 383 | break; |
casiotone401 | 15:3e4bc47d6a39 | 384 | |
casiotone401 | 15:3e4bc47d6a39 | 385 | case Min7: |
casiotone401 | 15:3e4bc47d6a39 | 386 | |
casiotone401 | 15:3e4bc47d6a39 | 387 | qcv = calibMap4[(unsigned int)MapFloat(gOSC_cv[ch], 0, SCALING_N, 0, (QUAN_RES4 - 1))]; |
casiotone401 | 15:3e4bc47d6a39 | 388 | |
casiotone401 | 15:3e4bc47d6a39 | 389 | glidecv[ch] = glidecv[ch] * gGlide + (qcv * SCALING_N) * (1.0f - gGlide); |
casiotone401 | 15:3e4bc47d6a39 | 390 | |
casiotone401 | 15:3e4bc47d6a39 | 391 | break; |
casiotone401 | 15:3e4bc47d6a39 | 392 | |
casiotone401 | 15:3e4bc47d6a39 | 393 | case Dor: |
casiotone401 | 15:3e4bc47d6a39 | 394 | |
casiotone401 | 15:3e4bc47d6a39 | 395 | qcv = calibMap5[(unsigned int)MapFloat(gOSC_cv[ch], 0, SCALING_N, 0, (QUAN_RES5 - 1))]; |
casiotone401 | 15:3e4bc47d6a39 | 396 | |
casiotone401 | 15:3e4bc47d6a39 | 397 | glidecv[ch] = glidecv[ch] * gGlide + (qcv * SCALING_N) * (1.0f - gGlide); |
casiotone401 | 15:3e4bc47d6a39 | 398 | |
casiotone401 | 15:3e4bc47d6a39 | 399 | break; |
casiotone401 | 15:3e4bc47d6a39 | 400 | |
casiotone401 | 15:3e4bc47d6a39 | 401 | case Min: |
casiotone401 | 15:3e4bc47d6a39 | 402 | |
casiotone401 | 15:3e4bc47d6a39 | 403 | qcv = calibMap6[(unsigned int)MapFloat(gOSC_cv[ch], 0, SCALING_N, 0, (QUAN_RES6 - 1))]; |
casiotone401 | 15:3e4bc47d6a39 | 404 | |
casiotone401 | 15:3e4bc47d6a39 | 405 | glidecv[ch] = glidecv[ch] * gGlide + (qcv * SCALING_N) * (1.0f - gGlide); |
casiotone401 | 15:3e4bc47d6a39 | 406 | |
casiotone401 | 15:3e4bc47d6a39 | 407 | break; |
casiotone401 | 15:3e4bc47d6a39 | 408 | |
casiotone401 | 15:3e4bc47d6a39 | 409 | case S5th: |
casiotone401 | 15:3e4bc47d6a39 | 410 | |
casiotone401 | 15:3e4bc47d6a39 | 411 | qcv = calibMap7[(unsigned int)MapFloat(gOSC_cv[ch], 0, SCALING_N, 0, (QUAN_RES7 - 1))]; |
casiotone401 | 15:3e4bc47d6a39 | 412 | |
casiotone401 | 15:3e4bc47d6a39 | 413 | glidecv[ch] = glidecv[ch] * gGlide + (qcv * SCALING_N) * (1.0f - gGlide); |
casiotone401 | 15:3e4bc47d6a39 | 414 | |
casiotone401 | 15:3e4bc47d6a39 | 415 | break; |
casiotone401 | 15:3e4bc47d6a39 | 416 | |
casiotone401 | 15:3e4bc47d6a39 | 417 | case Wht: |
casiotone401 | 15:3e4bc47d6a39 | 418 | |
casiotone401 | 15:3e4bc47d6a39 | 419 | qcv = calibMap8[(unsigned int)MapFloat(gOSC_cv[ch], 0, SCALING_N, 0, (QUAN_RES8 - 1))]; |
casiotone401 | 15:3e4bc47d6a39 | 420 | |
casiotone401 | 15:3e4bc47d6a39 | 421 | glidecv[ch] = glidecv[ch] * gGlide + (qcv * SCALING_N) * (1.0f - gGlide); |
casiotone401 | 17:55e5136790a6 | 422 | |
casiotone401 | 14:977f3c5a4b4e | 423 | break; |
casiotone401 | 14:977f3c5a4b4e | 424 | } |
casiotone401 | 17:55e5136790a6 | 425 | |
casiotone401 | 17:55e5136790a6 | 426 | cv = (unsigned int)glidecv[ch]; |
casiotone401 | 17:55e5136790a6 | 427 | |
casiotone401 | 17:55e5136790a6 | 428 | UpdateCV(WRITE_UPDATE_N, ch, &cv); |
casiotone401 | 14:977f3c5a4b4e | 429 | |
casiotone401 | 17:55e5136790a6 | 430 | if (mcount == 0x1F) |
casiotone401 | 17:55e5136790a6 | 431 | { |
casiotone401 | 17:55e5136790a6 | 432 | UpdateCVMeter(ch, &cv); |
casiotone401 | 17:55e5136790a6 | 433 | } |
casiotone401 | 17:55e5136790a6 | 434 | |
casiotone401 | 17:55e5136790a6 | 435 | ++ch; |
casiotone401 | 17:55e5136790a6 | 436 | |
casiotone401 | 17:55e5136790a6 | 437 | if (ch &= 0x07) |
casiotone401 | 17:55e5136790a6 | 438 | { |
casiotone401 | 17:55e5136790a6 | 439 | ++mcount; |
casiotone401 | 17:55e5136790a6 | 440 | mcount &= 0x3F; |
casiotone401 | 17:55e5136790a6 | 441 | } |
casiotone401 | 14:977f3c5a4b4e | 442 | } |
casiotone401 | 14:977f3c5a4b4e | 443 | |
casiotone401 | 15:3e4bc47d6a39 | 444 | |
casiotone401 | 5:e305509d53f3 | 445 | //------------------------------------------------------------- |
casiotone401 | 15:3e4bc47d6a39 | 446 | // Check BPM |
casiotone401 | 15:3e4bc47d6a39 | 447 | |
casiotone401 | 15:3e4bc47d6a39 | 448 | inline int CheckBPM() |
casiotone401 | 15:3e4bc47d6a39 | 449 | { |
casiotone401 | 15:3e4bc47d6a39 | 450 | static int _bpm = -1; |
casiotone401 | 15:3e4bc47d6a39 | 451 | int bpm; |
casiotone401 | 14:977f3c5a4b4e | 452 | |
casiotone401 | 15:3e4bc47d6a39 | 453 | if (gCtrlSW[0]) |
casiotone401 | 14:977f3c5a4b4e | 454 | { |
casiotone401 | 15:3e4bc47d6a39 | 455 | bpm = 0; |
casiotone401 | 15:3e4bc47d6a39 | 456 | |
casiotone401 | 15:3e4bc47d6a39 | 457 | return bpm; |
casiotone401 | 0:a4d93cd4c30d | 458 | } |
casiotone401 | 3:ca15241dd6b4 | 459 | |
casiotone401 | 20:a44f4a024902 | 460 | if (gCtrl[0]) { |
casiotone401 | 15:3e4bc47d6a39 | 461 | |
casiotone401 | 15:3e4bc47d6a39 | 462 | bpm = (gCtrl[0] * 240 + 5); |
casiotone401 | 15:3e4bc47d6a39 | 463 | |
casiotone401 | 15:3e4bc47d6a39 | 464 | if (abs(bpm - _bpm) > 1) |
casiotone401 | 15:3e4bc47d6a39 | 465 | { |
casiotone401 | 15:3e4bc47d6a39 | 466 | _bpm = bpm; |
casiotone401 | 15:3e4bc47d6a39 | 467 | |
casiotone401 | 15:3e4bc47d6a39 | 468 | sendMes.setTopAddress("/bpm"); |
casiotone401 | 15:3e4bc47d6a39 | 469 | sendMes.setArgs("i", bpm); |
casiotone401 | 15:3e4bc47d6a39 | 470 | osc.sendOsc(&sendMes); |
casiotone401 | 27:65e873bf8307 | 471 | |
casiotone401 | 27:65e873bf8307 | 472 | osc.sendOsc(&sendMes); |
casiotone401 | 27:65e873bf8307 | 473 | |
casiotone401 | 27:65e873bf8307 | 474 | sendMes.setTopAddress("/ctrl1"); |
casiotone401 | 27:65e873bf8307 | 475 | sendMes.setArgs("f", gCtrl[0]); |
casiotone401 | 27:65e873bf8307 | 476 | |
casiotone401 | 27:65e873bf8307 | 477 | osc.sendOsc(&sendMes); |
casiotone401 | 15:3e4bc47d6a39 | 478 | } |
casiotone401 | 15:3e4bc47d6a39 | 479 | } |
casiotone401 | 15:3e4bc47d6a39 | 480 | |
casiotone401 | 15:3e4bc47d6a39 | 481 | return bpm; |
casiotone401 | 15:3e4bc47d6a39 | 482 | } |
casiotone401 | 15:3e4bc47d6a39 | 483 | |
casiotone401 | 15:3e4bc47d6a39 | 484 | //------------------------------------------------------------- |
casiotone401 | 15:3e4bc47d6a39 | 485 | // Check Mode SW |
casiotone401 | 15:3e4bc47d6a39 | 486 | |
casiotone401 | 20:a44f4a024902 | 487 | void CheckModeSW() |
casiotone401 | 15:3e4bc47d6a39 | 488 | { |
casiotone401 | 15:3e4bc47d6a39 | 489 | if (gMode < MODE_TOTAL - 1) |
casiotone401 | 15:3e4bc47d6a39 | 490 | { |
casiotone401 | 15:3e4bc47d6a39 | 491 | ++gMode; |
casiotone401 | 15:3e4bc47d6a39 | 492 | |
casiotone401 | 15:3e4bc47d6a39 | 493 | } else { |
casiotone401 | 15:3e4bc47d6a39 | 494 | |
casiotone401 | 15:3e4bc47d6a39 | 495 | gMode = 0; |
casiotone401 | 15:3e4bc47d6a39 | 496 | } |
casiotone401 | 15:3e4bc47d6a39 | 497 | |
casiotone401 | 15:3e4bc47d6a39 | 498 | gCLOCKOUT = gGATES[0] = gGATES[1] = gGATES[2] = gGATES[3] = false; |
casiotone401 | 21:2273c3676f1b | 499 | gSubModeCount1 = gSubModeCount2 = 0; |
casiotone401 | 15:3e4bc47d6a39 | 500 | |
casiotone401 | 24:99045b0f7c4a | 501 | if (gMode != MODE_CLB || gMode != MODE_OSC) |
casiotone401 | 15:3e4bc47d6a39 | 502 | { |
casiotone401 | 15:3e4bc47d6a39 | 503 | gTimer.start(); // Sequencer Timer Start |
casiotone401 | 15:3e4bc47d6a39 | 504 | midi.begin(1); |
casiotone401 | 5:e305509d53f3 | 505 | |
casiotone401 | 15:3e4bc47d6a39 | 506 | } else { |
casiotone401 | 15:3e4bc47d6a39 | 507 | |
casiotone401 | 15:3e4bc47d6a39 | 508 | gTimer.stop(); // Sequencer Timer Stop |
casiotone401 | 5:e305509d53f3 | 509 | } |
casiotone401 | 5:e305509d53f3 | 510 | |
casiotone401 | 4:b9f5ae574447 | 511 | } |
casiotone401 | 4:b9f5ae574447 | 512 | |
casiotone401 | 4:b9f5ae574447 | 513 | //------------------------------------------------------------- |
casiotone401 | 15:3e4bc47d6a39 | 514 | // Print LCD Mode Status |
casiotone401 | 15:3e4bc47d6a39 | 515 | |
casiotone401 | 15:3e4bc47d6a39 | 516 | inline void LCD() |
casiotone401 | 15:3e4bc47d6a39 | 517 | { |
casiotone401 | 15:3e4bc47d6a39 | 518 | static int _mode = -1; |
casiotone401 | 15:3e4bc47d6a39 | 519 | static int _qmode = -1; |
casiotone401 | 15:3e4bc47d6a39 | 520 | static int qmode; |
casiotone401 | 15:3e4bc47d6a39 | 521 | |
casiotone401 | 15:3e4bc47d6a39 | 522 | if (_mode != gMode) |
casiotone401 | 15:3e4bc47d6a39 | 523 | { |
casiotone401 | 15:3e4bc47d6a39 | 524 | sendMes.setTopAddress("/mode"); |
casiotone401 | 15:3e4bc47d6a39 | 525 | |
casiotone401 | 15:3e4bc47d6a39 | 526 | switch (gMode) |
casiotone401 | 15:3e4bc47d6a39 | 527 | { |
casiotone401 | 24:99045b0f7c4a | 528 | case MODE_CLB: |
casiotone401 | 15:3e4bc47d6a39 | 529 | gLCD.locate( 9, 0 ); |
casiotone401 | 15:3e4bc47d6a39 | 530 | gLCD.printf("CLB|880"); |
casiotone401 | 15:3e4bc47d6a39 | 531 | |
casiotone401 | 21:2273c3676f1b | 532 | gLCD.locate( 0, 1 ); |
casiotone401 | 21:2273c3676f1b | 533 | gLCD.printf("12345678 G>>%3.2f", gGlide); |
casiotone401 | 21:2273c3676f1b | 534 | |
casiotone401 | 15:3e4bc47d6a39 | 535 | sendMes.setArgs("s", "Calibration"); |
casiotone401 | 15:3e4bc47d6a39 | 536 | osc.sendOsc(&sendMes); |
casiotone401 | 15:3e4bc47d6a39 | 537 | |
casiotone401 | 15:3e4bc47d6a39 | 538 | sendMes.setTopAddress("/scale"); |
casiotone401 | 15:3e4bc47d6a39 | 539 | sendMes.setArgs("s", "880Hz"); |
casiotone401 | 15:3e4bc47d6a39 | 540 | |
casiotone401 | 15:3e4bc47d6a39 | 541 | _qmode = -1; |
casiotone401 | 15:3e4bc47d6a39 | 542 | |
casiotone401 | 15:3e4bc47d6a39 | 543 | break; |
casiotone401 | 15:3e4bc47d6a39 | 544 | |
casiotone401 | 15:3e4bc47d6a39 | 545 | case MODE_OSC: |
casiotone401 | 15:3e4bc47d6a39 | 546 | gLCD.locate( 9, 0 ); |
casiotone401 | 15:3e4bc47d6a39 | 547 | gLCD.printf("OSC|"); |
casiotone401 | 15:3e4bc47d6a39 | 548 | |
casiotone401 | 15:3e4bc47d6a39 | 549 | sendMes.setArgs("s", "OSCtoCV"); |
casiotone401 | 15:3e4bc47d6a39 | 550 | |
casiotone401 | 15:3e4bc47d6a39 | 551 | break; |
casiotone401 | 15:3e4bc47d6a39 | 552 | |
casiotone401 | 15:3e4bc47d6a39 | 553 | case MODE_SEQ: |
casiotone401 | 15:3e4bc47d6a39 | 554 | gLCD.locate( 9, 0 ); |
casiotone401 | 15:3e4bc47d6a39 | 555 | gLCD.printf("ASR|"); |
casiotone401 | 15:3e4bc47d6a39 | 556 | |
casiotone401 | 15:3e4bc47d6a39 | 557 | sendMes.setArgs("s", "ASR SEQ"); |
casiotone401 | 15:3e4bc47d6a39 | 558 | |
casiotone401 | 15:3e4bc47d6a39 | 559 | break; |
casiotone401 | 15:3e4bc47d6a39 | 560 | |
casiotone401 | 15:3e4bc47d6a39 | 561 | case MODE_185: |
casiotone401 | 15:3e4bc47d6a39 | 562 | gLCD.locate( 9, 0 ); |
casiotone401 | 15:3e4bc47d6a39 | 563 | gLCD.printf("185|"); |
casiotone401 | 15:3e4bc47d6a39 | 564 | |
casiotone401 | 15:3e4bc47d6a39 | 565 | sendMes.setArgs("s", "M185 SEQ"); |
casiotone401 | 15:3e4bc47d6a39 | 566 | |
casiotone401 | 15:3e4bc47d6a39 | 567 | break; |
casiotone401 | 24:99045b0f7c4a | 568 | |
casiotone401 | 24:99045b0f7c4a | 569 | case MODE_437: |
casiotone401 | 24:99045b0f7c4a | 570 | gLCD.locate( 9, 0 ); |
casiotone401 | 24:99045b0f7c4a | 571 | gLCD.printf("437|"); |
casiotone401 | 24:99045b0f7c4a | 572 | |
casiotone401 | 24:99045b0f7c4a | 573 | sendMes.setArgs("s", "F437 SEQ"); |
casiotone401 | 24:99045b0f7c4a | 574 | |
casiotone401 | 24:99045b0f7c4a | 575 | break; |
casiotone401 | 15:3e4bc47d6a39 | 576 | |
casiotone401 | 15:3e4bc47d6a39 | 577 | case MODE_EUC: |
casiotone401 | 15:3e4bc47d6a39 | 578 | gLCD.locate( 9, 0 ); |
casiotone401 | 15:3e4bc47d6a39 | 579 | gLCD.printf("EUC|"); |
casiotone401 | 15:3e4bc47d6a39 | 580 | |
casiotone401 | 15:3e4bc47d6a39 | 581 | sendMes.setArgs("s", "Euclidean SEQ"); |
casiotone401 | 15:3e4bc47d6a39 | 582 | |
casiotone401 | 15:3e4bc47d6a39 | 583 | break; |
casiotone401 | 24:99045b0f7c4a | 584 | |
casiotone401 | 24:99045b0f7c4a | 585 | case MODE_RND: |
casiotone401 | 24:99045b0f7c4a | 586 | gLCD.locate( 9, 0 ); |
casiotone401 | 24:99045b0f7c4a | 587 | gLCD.printf("RND|"); |
casiotone401 | 24:99045b0f7c4a | 588 | |
casiotone401 | 24:99045b0f7c4a | 589 | sendMes.setArgs("s", "Xorshift Random"); |
casiotone401 | 24:99045b0f7c4a | 590 | |
casiotone401 | 24:99045b0f7c4a | 591 | break; |
casiotone401 | 15:3e4bc47d6a39 | 592 | |
casiotone401 | 24:99045b0f7c4a | 593 | case MODE_LFO: |
casiotone401 | 24:99045b0f7c4a | 594 | gLCD.locate( 9, 0 ); |
casiotone401 | 24:99045b0f7c4a | 595 | gLCD.printf("LFO|"); |
casiotone401 | 24:99045b0f7c4a | 596 | |
casiotone401 | 24:99045b0f7c4a | 597 | sendMes.setArgs("s", "Stepped LFO"); |
casiotone401 | 24:99045b0f7c4a | 598 | |
casiotone401 | 24:99045b0f7c4a | 599 | break; |
casiotone401 | 24:99045b0f7c4a | 600 | |
casiotone401 | 15:3e4bc47d6a39 | 601 | default: |
casiotone401 | 15:3e4bc47d6a39 | 602 | break; |
casiotone401 | 15:3e4bc47d6a39 | 603 | } |
casiotone401 | 15:3e4bc47d6a39 | 604 | |
casiotone401 | 15:3e4bc47d6a39 | 605 | osc.sendOsc(&sendMes); |
casiotone401 | 15:3e4bc47d6a39 | 606 | _mode = gMode; |
casiotone401 | 15:3e4bc47d6a39 | 607 | } |
casiotone401 | 15:3e4bc47d6a39 | 608 | |
casiotone401 | 27:65e873bf8307 | 609 | qmode = (gCtrl[1] * (SCALE_TOTAL - 1)); |
casiotone401 | 15:3e4bc47d6a39 | 610 | |
casiotone401 | 17:55e5136790a6 | 611 | if (_qmode != qmode) |
casiotone401 | 15:3e4bc47d6a39 | 612 | { |
casiotone401 | 15:3e4bc47d6a39 | 613 | sendMes.setTopAddress("/scale"); |
casiotone401 | 15:3e4bc47d6a39 | 614 | |
casiotone401 | 15:3e4bc47d6a39 | 615 | switch (qmode) |
casiotone401 | 15:3e4bc47d6a39 | 616 | { |
casiotone401 | 15:3e4bc47d6a39 | 617 | case Lin: |
casiotone401 | 15:3e4bc47d6a39 | 618 | gLCD.locate( 13, 0 ); |
casiotone401 | 15:3e4bc47d6a39 | 619 | gLCD.printf("lin"); |
casiotone401 | 15:3e4bc47d6a39 | 620 | |
casiotone401 | 15:3e4bc47d6a39 | 621 | sendMes.setArgs("s", "Linear"); |
casiotone401 | 15:3e4bc47d6a39 | 622 | |
casiotone401 | 15:3e4bc47d6a39 | 623 | break; |
casiotone401 | 15:3e4bc47d6a39 | 624 | |
casiotone401 | 15:3e4bc47d6a39 | 625 | case Chr: |
casiotone401 | 15:3e4bc47d6a39 | 626 | gLCD.locate( 13, 0 ); |
casiotone401 | 15:3e4bc47d6a39 | 627 | gLCD.printf("chr"); |
casiotone401 | 15:3e4bc47d6a39 | 628 | |
casiotone401 | 15:3e4bc47d6a39 | 629 | sendMes.setArgs("s", "Chromatic"); |
casiotone401 | 15:3e4bc47d6a39 | 630 | |
casiotone401 | 15:3e4bc47d6a39 | 631 | break; |
casiotone401 | 15:3e4bc47d6a39 | 632 | |
casiotone401 | 15:3e4bc47d6a39 | 633 | case Maj: |
casiotone401 | 15:3e4bc47d6a39 | 634 | gLCD.locate( 13, 0 ); |
casiotone401 | 15:3e4bc47d6a39 | 635 | gLCD.printf("maj"); |
casiotone401 | 15:3e4bc47d6a39 | 636 | |
casiotone401 | 15:3e4bc47d6a39 | 637 | sendMes.setArgs("s", "Major"); |
casiotone401 | 15:3e4bc47d6a39 | 638 | |
casiotone401 | 15:3e4bc47d6a39 | 639 | break; |
casiotone401 | 15:3e4bc47d6a39 | 640 | |
casiotone401 | 15:3e4bc47d6a39 | 641 | case M7: |
casiotone401 | 15:3e4bc47d6a39 | 642 | gLCD.locate( 13, 0 ); |
casiotone401 | 15:3e4bc47d6a39 | 643 | gLCD.printf("ma7"); |
casiotone401 | 15:3e4bc47d6a39 | 644 | |
casiotone401 | 15:3e4bc47d6a39 | 645 | sendMes.setArgs("s", "Major7"); |
casiotone401 | 15:3e4bc47d6a39 | 646 | |
casiotone401 | 15:3e4bc47d6a39 | 647 | break; |
casiotone401 | 15:3e4bc47d6a39 | 648 | |
casiotone401 | 15:3e4bc47d6a39 | 649 | case Min7: |
casiotone401 | 15:3e4bc47d6a39 | 650 | gLCD.locate( 13, 0 ); |
casiotone401 | 15:3e4bc47d6a39 | 651 | gLCD.printf("mi7"); |
casiotone401 | 15:3e4bc47d6a39 | 652 | |
casiotone401 | 15:3e4bc47d6a39 | 653 | sendMes.setArgs("s", "Minor7"); |
casiotone401 | 15:3e4bc47d6a39 | 654 | |
casiotone401 | 15:3e4bc47d6a39 | 655 | break; |
casiotone401 | 15:3e4bc47d6a39 | 656 | |
casiotone401 | 15:3e4bc47d6a39 | 657 | case Dor: |
casiotone401 | 15:3e4bc47d6a39 | 658 | gLCD.locate( 13, 0 ); |
casiotone401 | 15:3e4bc47d6a39 | 659 | gLCD.printf("dor"); |
casiotone401 | 15:3e4bc47d6a39 | 660 | |
casiotone401 | 15:3e4bc47d6a39 | 661 | sendMes.setArgs("s", "Dorian"); |
casiotone401 | 15:3e4bc47d6a39 | 662 | |
casiotone401 | 15:3e4bc47d6a39 | 663 | break; |
casiotone401 | 15:3e4bc47d6a39 | 664 | |
casiotone401 | 15:3e4bc47d6a39 | 665 | case Min: |
casiotone401 | 15:3e4bc47d6a39 | 666 | gLCD.locate( 13, 0 ); |
casiotone401 | 15:3e4bc47d6a39 | 667 | gLCD.printf("min"); |
casiotone401 | 15:3e4bc47d6a39 | 668 | |
casiotone401 | 15:3e4bc47d6a39 | 669 | sendMes.setTopAddress("/scale"); |
casiotone401 | 15:3e4bc47d6a39 | 670 | sendMes.setArgs("s", "Minor"); |
casiotone401 | 15:3e4bc47d6a39 | 671 | |
casiotone401 | 15:3e4bc47d6a39 | 672 | break; |
casiotone401 | 15:3e4bc47d6a39 | 673 | |
casiotone401 | 15:3e4bc47d6a39 | 674 | case S5th: |
casiotone401 | 15:3e4bc47d6a39 | 675 | gLCD.locate( 13, 0 ); |
casiotone401 | 15:3e4bc47d6a39 | 676 | gLCD.printf("5th"); |
casiotone401 | 15:3e4bc47d6a39 | 677 | |
casiotone401 | 15:3e4bc47d6a39 | 678 | sendMes.setArgs("s", "5th"); |
casiotone401 | 15:3e4bc47d6a39 | 679 | |
casiotone401 | 15:3e4bc47d6a39 | 680 | break; |
casiotone401 | 15:3e4bc47d6a39 | 681 | |
casiotone401 | 15:3e4bc47d6a39 | 682 | case Wht: |
casiotone401 | 15:3e4bc47d6a39 | 683 | gLCD.locate( 13, 0 ); |
casiotone401 | 15:3e4bc47d6a39 | 684 | gLCD.printf("wht"); |
casiotone401 | 15:3e4bc47d6a39 | 685 | |
casiotone401 | 15:3e4bc47d6a39 | 686 | sendMes.setArgs("s", "Whole Tone"); |
casiotone401 | 15:3e4bc47d6a39 | 687 | break; |
casiotone401 | 15:3e4bc47d6a39 | 688 | |
casiotone401 | 15:3e4bc47d6a39 | 689 | default: |
casiotone401 | 15:3e4bc47d6a39 | 690 | break; |
casiotone401 | 15:3e4bc47d6a39 | 691 | } |
casiotone401 | 15:3e4bc47d6a39 | 692 | |
casiotone401 | 15:3e4bc47d6a39 | 693 | osc.sendOsc(&sendMes); |
casiotone401 | 15:3e4bc47d6a39 | 694 | _qmode = qmode; |
casiotone401 | 15:3e4bc47d6a39 | 695 | } |
casiotone401 | 15:3e4bc47d6a39 | 696 | |
casiotone401 | 4:b9f5ae574447 | 697 | } |
casiotone401 | 4:b9f5ae574447 | 698 | |
casiotone401 | 15:3e4bc47d6a39 | 699 | |
casiotone401 | 0:a4d93cd4c30d | 700 | //------------------------------------------------------------- |
casiotone401 | 15:3e4bc47d6a39 | 701 | // Write command Custom Char LCD CGRAM for CV Meter) |
casiotone401 | 0:a4d93cd4c30d | 702 | |
casiotone401 | 0:a4d93cd4c30d | 703 | void WriteCustomChar(unsigned char addr, unsigned char *c) |
casiotone401 | 0:a4d93cd4c30d | 704 | { |
casiotone401 | 0:a4d93cd4c30d | 705 | char cnt = 0; |
casiotone401 | 0:a4d93cd4c30d | 706 | addr = ((addr << 3) | 0x40); |
casiotone401 | 0:a4d93cd4c30d | 707 | |
casiotone401 | 15:3e4bc47d6a39 | 708 | while (cnt < 0x08) |
casiotone401 | 0:a4d93cd4c30d | 709 | { |
casiotone401 | 0:a4d93cd4c30d | 710 | gLCD.writeCommand(addr | cnt); |
casiotone401 | 0:a4d93cd4c30d | 711 | gLCD.writeData(*c); |
casiotone401 | 4:b9f5ae574447 | 712 | |
casiotone401 | 15:3e4bc47d6a39 | 713 | ++cnt; |
casiotone401 | 15:3e4bc47d6a39 | 714 | ++c; |
casiotone401 | 0:a4d93cd4c30d | 715 | } |
casiotone401 | 0:a4d93cd4c30d | 716 | } |
casiotone401 | 0:a4d93cd4c30d | 717 | |
casiotone401 | 0:a4d93cd4c30d | 718 | //------------------------------------------------------------- |
casiotone401 | 0:a4d93cd4c30d | 719 | // Setup Ethernet port |
casiotone401 | 0:a4d93cd4c30d | 720 | |
casiotone401 | 0:a4d93cd4c30d | 721 | int SetupEthNetIf() |
casiotone401 | 0:a4d93cd4c30d | 722 | { |
casiotone401 | 0:a4d93cd4c30d | 723 | gLCD.locate( 0, 1 ); |
casiotone401 | 0:a4d93cd4c30d | 724 | gLCD.printf("Setting up... "); |
casiotone401 | 0:a4d93cd4c30d | 725 | // printf("Setting up...\r\n"); |
casiotone401 | 0:a4d93cd4c30d | 726 | EthernetErr ethErr = gEth.setup(); |
casiotone401 | 0:a4d93cd4c30d | 727 | |
casiotone401 | 15:3e4bc47d6a39 | 728 | if (ethErr) |
casiotone401 | 0:a4d93cd4c30d | 729 | { |
casiotone401 | 0:a4d93cd4c30d | 730 | gLCD.locate( 0, 1 ); |
casiotone401 | 0:a4d93cd4c30d | 731 | gLCD.printf("Error in setup."); |
casiotone401 | 0:a4d93cd4c30d | 732 | // printf("Error %d in setup.\r\n", ethErr); |
casiotone401 | 0:a4d93cd4c30d | 733 | return -1; |
casiotone401 | 0:a4d93cd4c30d | 734 | } |
casiotone401 | 0:a4d93cd4c30d | 735 | // printf("Setup OK\r\n"); |
casiotone401 | 0:a4d93cd4c30d | 736 | |
casiotone401 | 0:a4d93cd4c30d | 737 | // printf("IP address %d.%d.%d.%d\r\n", gEth.getIp()[0], gEth.getIp()[1], gEth.getIp()[2], gEth.getIp()[3]); |
casiotone401 | 0:a4d93cd4c30d | 738 | Host broadcast(IpAddr(gEth.getIp()[0], gEth.getIp()[1], gEth.getIp()[2], 255), INPUT_PORT, NULL); |
casiotone401 | 0:a4d93cd4c30d | 739 | gUdp.setOnEvent(&onUDPSocketEvent); |
casiotone401 | 0:a4d93cd4c30d | 740 | gUdp.bind(broadcast); |
casiotone401 | 4:b9f5ae574447 | 741 | |
casiotone401 | 0:a4d93cd4c30d | 742 | gLCD.locate( 0, 1 ); |
casiotone401 | 0:a4d93cd4c30d | 743 | gLCD.printf("%03d.%03d.%03d.%03d", gEth.getIp()[0], gEth.getIp()[1], gEth.getIp()[2], gEth.getIp()[3]); |
casiotone401 | 15:3e4bc47d6a39 | 744 | |
casiotone401 | 4:b9f5ae574447 | 745 | wait(1.0); |
casiotone401 | 0:a4d93cd4c30d | 746 | |
casiotone401 | 0:a4d93cd4c30d | 747 | return 0; |
casiotone401 | 0:a4d93cd4c30d | 748 | } |
casiotone401 | 0:a4d93cd4c30d | 749 | |
casiotone401 | 14:977f3c5a4b4e | 750 | |
casiotone401 | 14:977f3c5a4b4e | 751 | //------------------------------------------------------------- |
casiotone401 | 15:3e4bc47d6a39 | 752 | // Handller receive OSC UDP Packet |
casiotone401 | 0:a4d93cd4c30d | 753 | |
casiotone401 | 4:b9f5ae574447 | 754 | inline void onUDPSocketEvent(UDPSocketEvent e) |
casiotone401 | 0:a4d93cd4c30d | 755 | { |
casiotone401 | 15:3e4bc47d6a39 | 756 | static union OSCarg msg[10]; |
casiotone401 | 24:99045b0f7c4a | 757 | static char buf[1024] = {0}; |
casiotone401 | 15:3e4bc47d6a39 | 758 | static int recvlen; |
casiotone401 | 24:99045b0f7c4a | 759 | static int num, numrow, len, offset; |
casiotone401 | 14:977f3c5a4b4e | 760 | int messagepos = 0; |
casiotone401 | 14:977f3c5a4b4e | 761 | bool bundleflag = false; |
casiotone401 | 10:ccfeb687c3f2 | 762 | |
casiotone401 | 10:ccfeb687c3f2 | 763 | Host host; |
casiotone401 | 10:ccfeb687c3f2 | 764 | |
casiotone401 | 15:3e4bc47d6a39 | 765 | switch (e) |
casiotone401 | 0:a4d93cd4c30d | 766 | { |
casiotone401 | 4:b9f5ae574447 | 767 | case UDPSOCKET_READABLE: // The only event for now |
casiotone401 | 15:3e4bc47d6a39 | 768 | |
casiotone401 | 27:65e873bf8307 | 769 | recvlen = gUdp.recvfrom(buf, 1024, &host); // packet length |
casiotone401 | 27:65e873bf8307 | 770 | |
casiotone401 | 27:65e873bf8307 | 771 | if (recvlen <= 0) break; |
casiotone401 | 27:65e873bf8307 | 772 | |
casiotone401 | 27:65e873bf8307 | 773 | if (!bundleflag && buf[0] == '#') // #bundle |
casiotone401 | 27:65e873bf8307 | 774 | { |
casiotone401 | 27:65e873bf8307 | 775 | messagepos += 16; // skip #bundle & timetag |
casiotone401 | 27:65e873bf8307 | 776 | recvlen -= 16; |
casiotone401 | 27:65e873bf8307 | 777 | |
casiotone401 | 27:65e873bf8307 | 778 | bundleflag = true; |
casiotone401 | 27:65e873bf8307 | 779 | } |
casiotone401 | 27:65e873bf8307 | 780 | |
casiotone401 | 27:65e873bf8307 | 781 | do { |
casiotone401 | 27:65e873bf8307 | 782 | |
casiotone401 | 15:3e4bc47d6a39 | 783 | if (bundleflag) |
casiotone401 | 10:ccfeb687c3f2 | 784 | { |
casiotone401 | 10:ccfeb687c3f2 | 785 | messagepos += 4; |
casiotone401 | 10:ccfeb687c3f2 | 786 | recvlen -= 4; |
casiotone401 | 27:65e873bf8307 | 787 | |
casiotone401 | 15:3e4bc47d6a39 | 788 | if (recvlen <= 8) |
casiotone401 | 10:ccfeb687c3f2 | 789 | { |
casiotone401 | 10:ccfeb687c3f2 | 790 | bundleflag = false; |
casiotone401 | 10:ccfeb687c3f2 | 791 | break; |
casiotone401 | 10:ccfeb687c3f2 | 792 | } |
casiotone401 | 10:ccfeb687c3f2 | 793 | } |
casiotone401 | 27:65e873bf8307 | 794 | |
casiotone401 | 15:3e4bc47d6a39 | 795 | if (getOSCmsg(buf + messagepos, msg) == -1) continue; |
casiotone401 | 27:65e873bf8307 | 796 | |
casiotone401 | 15:3e4bc47d6a39 | 797 | len = strlength(msg[0].address); |
casiotone401 | 27:65e873bf8307 | 798 | |
casiotone401 | 15:3e4bc47d6a39 | 799 | if (isdigit(msg[0].address[len-1])) |
casiotone401 | 10:ccfeb687c3f2 | 800 | { |
casiotone401 | 10:ccfeb687c3f2 | 801 | num = msg[0].address[len-1] - '0' - 1; |
casiotone401 | 27:65e873bf8307 | 802 | |
casiotone401 | 15:3e4bc47d6a39 | 803 | offset = 1; |
casiotone401 | 27:65e873bf8307 | 804 | |
casiotone401 | 15:3e4bc47d6a39 | 805 | if (isdigit(msg[0].address[len-2])) |
casiotone401 | 15:3e4bc47d6a39 | 806 | { |
casiotone401 | 15:3e4bc47d6a39 | 807 | offset = 2; |
casiotone401 | 15:3e4bc47d6a39 | 808 | num += 10; |
casiotone401 | 15:3e4bc47d6a39 | 809 | } |
casiotone401 | 27:65e873bf8307 | 810 | |
casiotone401 | 10:ccfeb687c3f2 | 811 | } else { |
casiotone401 | 27:65e873bf8307 | 812 | |
casiotone401 | 10:ccfeb687c3f2 | 813 | num = -1; |
casiotone401 | 10:ccfeb687c3f2 | 814 | } |
casiotone401 | 27:65e873bf8307 | 815 | |
casiotone401 | 27:65e873bf8307 | 816 | // address pattern SYNC & GATE (Type Tag int, float) |
casiotone401 | 17:55e5136790a6 | 817 | if (!strncmp(msg[0].address + (len - offset) - 4, "sync", 4)) |
casiotone401 | 10:ccfeb687c3f2 | 818 | { |
casiotone401 | 15:3e4bc47d6a39 | 819 | if (msg[2].i != 0) gCLOCKOUT = true; |
casiotone401 | 15:3e4bc47d6a39 | 820 | else gCLOCKOUT = false; |
casiotone401 | 10:ccfeb687c3f2 | 821 | continue; |
casiotone401 | 10:ccfeb687c3f2 | 822 | |
casiotone401 | 17:55e5136790a6 | 823 | } else if (!strncmp(msg[0].address + (len - offset) - 4, "gate", 4) && (num != -1)) { |
casiotone401 | 15:3e4bc47d6a39 | 824 | if (num > 3) continue; |
casiotone401 | 15:3e4bc47d6a39 | 825 | if (msg[2].i != 0) gGATES[num] = true; |
casiotone401 | 15:3e4bc47d6a39 | 826 | else gGATES[num] = false; |
casiotone401 | 10:ccfeb687c3f2 | 827 | continue; |
casiotone401 | 27:65e873bf8307 | 828 | // (touchOSC Control push, toggle) |
casiotone401 | 17:55e5136790a6 | 829 | } else if (!strncmp(msg[0].address + (len - offset) - 5, "fader", 5) && (num != -1)) { |
casiotone401 | 15:3e4bc47d6a39 | 830 | if (num > 7) continue; |
casiotone401 | 15:3e4bc47d6a39 | 831 | gOSC_cv[num] = msg[2].f * (SCALING_N); |
casiotone401 | 10:ccfeb687c3f2 | 832 | continue; |
casiotone401 | 15:3e4bc47d6a39 | 833 | |
casiotone401 | 17:55e5136790a6 | 834 | } else if (!strncmp(msg[0].address + (len - offset) - 9, "multixy1/", 9) && (num != -1)) { |
casiotone401 | 15:3e4bc47d6a39 | 835 | if (num > 7) continue; |
casiotone401 | 15:3e4bc47d6a39 | 836 | if (msg[1].typeTag[1] == 'f') gOSC_cv[num] = msg[2].f * (SCALING_N); |
casiotone401 | 15:3e4bc47d6a39 | 837 | if (msg[1].typeTag[1] == 'f') gOSC_cv[++num] = msg[3].f * (SCALING_N); |
casiotone401 | 10:ccfeb687c3f2 | 838 | continue; |
casiotone401 | 27:65e873bf8307 | 839 | |
casiotone401 | 24:99045b0f7c4a | 840 | } else if (!strncmp(msg[0].address + (len - offset) - 12, "multifader1/", 12) && (num != -1)) { |
casiotone401 | 15:3e4bc47d6a39 | 841 | if (num > 7) continue; |
casiotone401 | 15:3e4bc47d6a39 | 842 | if (msg[1].typeTag[1] == 'f') gOSC_cv[num] = msg[2].f * (SCALING_N); |
casiotone401 | 10:ccfeb687c3f2 | 843 | continue; |
casiotone401 | 27:65e873bf8307 | 844 | |
casiotone401 | 24:99045b0f7c4a | 845 | } else if (!strncmp(msg[0].address + (len - offset) - 5, "m185/", 5) && (num != -1)) { |
casiotone401 | 24:99045b0f7c4a | 846 | if (num > 7) continue; |
casiotone401 | 24:99045b0f7c4a | 847 | if (msg[1].typeTag[1] == 'f') g185_cv[num] = msg[2].f * (SCALING_N); |
casiotone401 | 24:99045b0f7c4a | 848 | continue; |
casiotone401 | 27:65e873bf8307 | 849 | |
casiotone401 | 17:55e5136790a6 | 850 | } else if (!strncmp(msg[0].address + (len - offset) -10, "sequencer/", 10) && (num != -1)) { |
casiotone401 | 15:3e4bc47d6a39 | 851 | if (num > 15) continue; |
casiotone401 | 15:3e4bc47d6a39 | 852 | gSeq_cv[num] = msg[2].f * (SCALING_N); |
casiotone401 | 10:ccfeb687c3f2 | 853 | continue; |
casiotone401 | 27:65e873bf8307 | 854 | |
casiotone401 | 17:55e5136790a6 | 855 | } else if (!strncmp(msg[0].address + (len - offset) - 6, "ctrlsw", 6) && (num != -1)) { |
casiotone401 | 15:3e4bc47d6a39 | 856 | if (num > 7) continue; |
casiotone401 | 15:3e4bc47d6a39 | 857 | if (msg[2].i != 0) gCtrlSW[num] = true; |
casiotone401 | 14:977f3c5a4b4e | 858 | else gCtrlSW[num] = false; |
casiotone401 | 10:ccfeb687c3f2 | 859 | continue; |
casiotone401 | 27:65e873bf8307 | 860 | |
casiotone401 | 17:55e5136790a6 | 861 | } else if (!strncmp(msg[0].address + (len - offset) - 4, "ctrl", 4) && (num != -1)) { |
casiotone401 | 15:3e4bc47d6a39 | 862 | if (num > 7) continue; |
casiotone401 | 15:3e4bc47d6a39 | 863 | gCtrl[num] = msg[2].f; |
casiotone401 | 15:3e4bc47d6a39 | 864 | continue; |
casiotone401 | 27:65e873bf8307 | 865 | |
casiotone401 | 17:55e5136790a6 | 866 | } else if (!strncmp(msg[0].address + (len - offset) - 9, "pulsecnt/", 9) && (num != -1)) { |
casiotone401 | 15:3e4bc47d6a39 | 867 | if (num > 7) continue; |
casiotone401 | 15:3e4bc47d6a39 | 868 | gPulseCount[num] = msg[2].f; |
casiotone401 | 15:3e4bc47d6a39 | 869 | continue; |
casiotone401 | 27:65e873bf8307 | 870 | |
casiotone401 | 17:55e5136790a6 | 871 | } else if (!strncmp(msg[0].address + (len - offset) - 9, "gatemode/", 9) && (num != -1)) { |
casiotone401 | 15:3e4bc47d6a39 | 872 | if (num > 15) continue; |
casiotone401 | 15:3e4bc47d6a39 | 873 | gGateMode[num] = msg[2].f; |
casiotone401 | 15:3e4bc47d6a39 | 874 | continue; |
casiotone401 | 27:65e873bf8307 | 875 | |
casiotone401 | 24:99045b0f7c4a | 876 | } else if (!strncmp(msg[0].address + (len - offset) - 9, "g185mode/", 9) && (num != -1)) { |
casiotone401 | 24:99045b0f7c4a | 877 | if (num > 7) continue; |
casiotone401 | 24:99045b0f7c4a | 878 | gGateMode185[num] = msg[2].f; |
casiotone401 | 24:99045b0f7c4a | 879 | continue; |
casiotone401 | 27:65e873bf8307 | 880 | |
casiotone401 | 17:55e5136790a6 | 881 | } else if (!strncmp(msg[0].address + (len - offset) - 6, "slide/", 6) && (num != -1)) { |
casiotone401 | 15:3e4bc47d6a39 | 882 | if (num > 15) continue; |
casiotone401 | 15:3e4bc47d6a39 | 883 | gSlide[num] = msg[2].f; |
casiotone401 | 15:3e4bc47d6a39 | 884 | continue; |
casiotone401 | 27:65e873bf8307 | 885 | |
casiotone401 | 24:99045b0f7c4a | 886 | } else if (!strncmp(msg[0].address + (len - offset) - 9, "slide185/", 9) && (num != -1)) { |
casiotone401 | 24:99045b0f7c4a | 887 | if (num > 7) continue; |
casiotone401 | 24:99045b0f7c4a | 888 | gSlide185[num] = msg[2].f; |
casiotone401 | 24:99045b0f7c4a | 889 | continue; |
casiotone401 | 27:65e873bf8307 | 890 | |
casiotone401 | 24:99045b0f7c4a | 891 | } else if (!strncmp(msg[0].address + (len - offset - 2) - 7, "accent/", 7) && (num != -1)) { |
casiotone401 | 27:65e873bf8307 | 892 | |
casiotone401 | 24:99045b0f7c4a | 893 | if (isdigit(msg[0].address[len - 3])) |
casiotone401 | 17:55e5136790a6 | 894 | { |
casiotone401 | 24:99045b0f7c4a | 895 | num = msg[0].address[len - 3] - '0' - 1; |
casiotone401 | 17:55e5136790a6 | 896 | } |
casiotone401 | 27:65e873bf8307 | 897 | |
casiotone401 | 17:55e5136790a6 | 898 | gAccent[num] = msg[2].i; |
casiotone401 | 17:55e5136790a6 | 899 | continue; |
casiotone401 | 27:65e873bf8307 | 900 | |
casiotone401 | 24:99045b0f7c4a | 901 | } else if (!strncmp(msg[0].address + (len - offset - 3) - 7, "accent/", 7) && (num != -1)) { |
casiotone401 | 27:65e873bf8307 | 902 | |
casiotone401 | 24:99045b0f7c4a | 903 | if (isdigit(msg[0].address[len - 3])) |
casiotone401 | 17:55e5136790a6 | 904 | { |
casiotone401 | 24:99045b0f7c4a | 905 | num = msg[0].address[len - 3] - '0' - 1; |
casiotone401 | 27:65e873bf8307 | 906 | |
casiotone401 | 24:99045b0f7c4a | 907 | if (isdigit(msg[0].address[len - 4])) |
casiotone401 | 17:55e5136790a6 | 908 | { |
casiotone401 | 17:55e5136790a6 | 909 | num += 10; |
casiotone401 | 17:55e5136790a6 | 910 | } |
casiotone401 | 17:55e5136790a6 | 911 | } |
casiotone401 | 27:65e873bf8307 | 912 | |
casiotone401 | 17:55e5136790a6 | 913 | gAccent[num] = msg[2].i; |
casiotone401 | 17:55e5136790a6 | 914 | continue; |
casiotone401 | 27:65e873bf8307 | 915 | |
casiotone401 | 24:99045b0f7c4a | 916 | } else if (!strncmp(msg[0].address + (len - offset - 3) - 6, "185acc/", 6) && (num != -1)) { |
casiotone401 | 27:65e873bf8307 | 917 | |
casiotone401 | 24:99045b0f7c4a | 918 | if (isdigit(msg[0].address[len-3])) |
casiotone401 | 24:99045b0f7c4a | 919 | { |
casiotone401 | 24:99045b0f7c4a | 920 | num = msg[0].address[len-3] - '0' - 1; |
casiotone401 | 27:65e873bf8307 | 921 | |
casiotone401 | 24:99045b0f7c4a | 922 | if (isdigit(msg[0].address[len - 4])) |
casiotone401 | 24:99045b0f7c4a | 923 | { |
casiotone401 | 24:99045b0f7c4a | 924 | num += 10; |
casiotone401 | 24:99045b0f7c4a | 925 | } |
casiotone401 | 24:99045b0f7c4a | 926 | } |
casiotone401 | 27:65e873bf8307 | 927 | |
casiotone401 | 24:99045b0f7c4a | 928 | gAccent185[num] = msg[2].i; |
casiotone401 | 24:99045b0f7c4a | 929 | continue; |
casiotone401 | 27:65e873bf8307 | 930 | |
casiotone401 | 24:99045b0f7c4a | 931 | } else if (!strncmp(msg[0].address + (len - offset - 2) - 3, "bm/", 3) && (num != -1)) { |
casiotone401 | 27:65e873bf8307 | 932 | |
casiotone401 | 24:99045b0f7c4a | 933 | if (isdigit(msg[0].address[len - 3])) |
casiotone401 | 24:99045b0f7c4a | 934 | { |
casiotone401 | 24:99045b0f7c4a | 935 | num = msg[0].address[len - 3] - '0' - 1; |
casiotone401 | 27:65e873bf8307 | 936 | |
casiotone401 | 24:99045b0f7c4a | 937 | if (isdigit(msg[0].address[len - 4])) |
casiotone401 | 24:99045b0f7c4a | 938 | { |
casiotone401 | 24:99045b0f7c4a | 939 | num += 10; |
casiotone401 | 24:99045b0f7c4a | 940 | } |
casiotone401 | 24:99045b0f7c4a | 941 | } |
casiotone401 | 27:65e873bf8307 | 942 | |
casiotone401 | 24:99045b0f7c4a | 943 | if (isdigit(msg[0].address[len - 1])) |
casiotone401 | 24:99045b0f7c4a | 944 | { |
casiotone401 | 24:99045b0f7c4a | 945 | numrow = msg[0].address[len - 1] - '0' - 1; |
casiotone401 | 24:99045b0f7c4a | 946 | } |
casiotone401 | 27:65e873bf8307 | 947 | |
casiotone401 | 24:99045b0f7c4a | 948 | gBeatsMatrix[numrow][num] = msg[2].i; |
casiotone401 | 24:99045b0f7c4a | 949 | continue; |
casiotone401 | 27:65e873bf8307 | 950 | |
casiotone401 | 24:99045b0f7c4a | 951 | } else if (!strncmp(msg[0].address + (len - offset - 3) - 3, "bm/", 3) && (num != -1)) { |
casiotone401 | 27:65e873bf8307 | 952 | |
casiotone401 | 24:99045b0f7c4a | 953 | if (isdigit(msg[0].address[len - 3])) |
casiotone401 | 24:99045b0f7c4a | 954 | { |
casiotone401 | 24:99045b0f7c4a | 955 | num = msg[0].address[len - 3] - '0' - 1; |
casiotone401 | 27:65e873bf8307 | 956 | |
casiotone401 | 24:99045b0f7c4a | 957 | if (isdigit(msg[0].address[len - 4])) |
casiotone401 | 24:99045b0f7c4a | 958 | { |
casiotone401 | 24:99045b0f7c4a | 959 | num += 10; |
casiotone401 | 24:99045b0f7c4a | 960 | } |
casiotone401 | 24:99045b0f7c4a | 961 | } |
casiotone401 | 27:65e873bf8307 | 962 | |
casiotone401 | 24:99045b0f7c4a | 963 | if (isdigit(msg[0].address[len - 1])) |
casiotone401 | 24:99045b0f7c4a | 964 | { |
casiotone401 | 24:99045b0f7c4a | 965 | numrow = msg[0].address[len - 1] - '0' - 1; |
casiotone401 | 24:99045b0f7c4a | 966 | } |
casiotone401 | 27:65e873bf8307 | 967 | |
casiotone401 | 24:99045b0f7c4a | 968 | gBeatsMatrix[numrow][num] = msg[2].i; |
casiotone401 | 24:99045b0f7c4a | 969 | continue; |
casiotone401 | 27:65e873bf8307 | 970 | |
casiotone401 | 24:99045b0f7c4a | 971 | } else if (!strncmp(msg[0].address + (len - offset) - 4, "bpc/", 4) && (num != -1)) { |
casiotone401 | 24:99045b0f7c4a | 972 | if (num > 15) continue; |
casiotone401 | 24:99045b0f7c4a | 973 | gPulseCountBeats[num] = msg[2].f; |
casiotone401 | 24:99045b0f7c4a | 974 | continue; |
casiotone401 | 27:65e873bf8307 | 975 | |
casiotone401 | 24:99045b0f7c4a | 976 | } else if (!strncmp(msg[0].address + (len - offset) - 4, "blv/", 4) && (num != -1)) { |
casiotone401 | 24:99045b0f7c4a | 977 | if (num > 7) continue; |
casiotone401 | 24:99045b0f7c4a | 978 | gBeatsLevel[num] = msg[2].f; |
casiotone401 | 24:99045b0f7c4a | 979 | continue; |
casiotone401 | 27:65e873bf8307 | 980 | |
casiotone401 | 24:99045b0f7c4a | 981 | } else if (!strncmp(msg[0].address + (len - offset) - 4, "bdc/", 4) && (num != -1)) { |
casiotone401 | 24:99045b0f7c4a | 982 | if (num > 7) continue; |
casiotone401 | 24:99045b0f7c4a | 983 | gBeatsDecay[num] = msg[2].f; |
casiotone401 | 24:99045b0f7c4a | 984 | continue; |
casiotone401 | 27:65e873bf8307 | 985 | |
casiotone401 | 24:99045b0f7c4a | 986 | } else if (!strncmp(msg[0].address + (len - offset) - 4, "euca", 4) && (num != -1)) { |
casiotone401 | 15:3e4bc47d6a39 | 987 | if (num > 5) continue; |
casiotone401 | 15:3e4bc47d6a39 | 988 | gEucA[num] = msg[2].f; |
casiotone401 | 15:3e4bc47d6a39 | 989 | continue; |
casiotone401 | 27:65e873bf8307 | 990 | |
casiotone401 | 17:55e5136790a6 | 991 | } else if (!strncmp(msg[0].address + (len - offset) - 4, "eucb", 4) && (num != -1)) { |
casiotone401 | 15:3e4bc47d6a39 | 992 | if (num > 5) continue; |
casiotone401 | 15:3e4bc47d6a39 | 993 | gEucB[num] = msg[2].f; |
casiotone401 | 15:3e4bc47d6a39 | 994 | continue; |
casiotone401 | 27:65e873bf8307 | 995 | |
casiotone401 | 27:65e873bf8307 | 996 | } else if (MODE_RND || MODE_LFO) { |
casiotone401 | 20:a44f4a024902 | 997 | |
casiotone401 | 27:65e873bf8307 | 998 | if (!strncmp(msg[0].address + (len - offset) - 3, "acv", 3) && (num != -1)) { |
casiotone401 | 27:65e873bf8307 | 999 | if (num > 3) continue; |
casiotone401 | 27:65e873bf8307 | 1000 | gArdCV[num] = msg[2].i; |
casiotone401 | 27:65e873bf8307 | 1001 | continue; |
casiotone401 | 27:65e873bf8307 | 1002 | |
casiotone401 | 27:65e873bf8307 | 1003 | } else if (!strncmp(msg[0].address + (len - offset) - 3, "pot", 3) && (num != -1)) { |
casiotone401 | 27:65e873bf8307 | 1004 | if (num > 1) continue; |
casiotone401 | 27:65e873bf8307 | 1005 | gArdPot[num] = msg[2].f; |
casiotone401 | 27:65e873bf8307 | 1006 | continue; |
casiotone401 | 27:65e873bf8307 | 1007 | |
casiotone401 | 27:65e873bf8307 | 1008 | } else if (!strncmp(msg[0].address + (len - offset) - 2, "sw", 2) && (num != -1)) { |
casiotone401 | 27:65e873bf8307 | 1009 | if (num > 1) continue; |
casiotone401 | 27:65e873bf8307 | 1010 | if (msg[2].i != 0) gArdSW[num] = true; |
casiotone401 | 27:65e873bf8307 | 1011 | else gArdSW[num] = false; |
casiotone401 | 27:65e873bf8307 | 1012 | continue; |
casiotone401 | 27:65e873bf8307 | 1013 | |
casiotone401 | 27:65e873bf8307 | 1014 | } |
casiotone401 | 20:a44f4a024902 | 1015 | |
casiotone401 | 15:3e4bc47d6a39 | 1016 | } else { |
casiotone401 | 27:65e873bf8307 | 1017 | |
casiotone401 | 10:ccfeb687c3f2 | 1018 | continue; |
casiotone401 | 10:ccfeb687c3f2 | 1019 | } |
casiotone401 | 27:65e873bf8307 | 1020 | |
casiotone401 | 15:3e4bc47d6a39 | 1021 | } while (bundleflag); |
casiotone401 | 15:3e4bc47d6a39 | 1022 | } |
casiotone401 | 15:3e4bc47d6a39 | 1023 | } |