For MAX32630FTHR microcontroller: Plays piano notes in Nokia composer format text file placed in the SD card
Dependencies: USBMSD_BD SDFileSystem max32630fthr USBDevice
main.cpp@4:24086b80928e, 2019-07-19 (annotated)
- Committer:
- Lugs
- Date:
- Fri Jul 19 04:47:38 2019 +0000
- Revision:
- 4:24086b80928e
- Parent:
- 3:fcf745cd4f6d
- Child:
- 5:8ba2f1e291b9
wait_ms is 1ms to wait for the bytes to arrive. Manages to get all of fur elise in the song. LACKING: rest.
Who changed what in which revision?
User | Revision | Line number | New contents of line |
---|---|---|---|
Lugs | 0:ad5ce0aff429 | 1 | #include "mbed.h" |
Lugs | 0:ad5ce0aff429 | 2 | #include "max32630fthr.h" |
Lugs | 0:ad5ce0aff429 | 3 | #include "USBSerial.h" |
Lugs | 0:ad5ce0aff429 | 4 | #include "stdio.h" |
Lugs | 0:ad5ce0aff429 | 5 | #include "SDFileSystem.h" |
Lugs | 4:24086b80928e | 6 | #include "ctype.h" |
Lugs | 3:fcf745cd4f6d | 7 | |
Lugs | 0:ad5ce0aff429 | 8 | #define BUFFER_SIZE 128 |
Lugs | 0:ad5ce0aff429 | 9 | #define HALF_BUFFER 64 |
Lugs | 0:ad5ce0aff429 | 10 | |
Lugs | 0:ad5ce0aff429 | 11 | DigitalOut rLED(LED1); |
Lugs | 0:ad5ce0aff429 | 12 | DigitalOut gLED(LED2); |
Lugs | 0:ad5ce0aff429 | 13 | DigitalOut bLED(LED3); |
Lugs | 0:ad5ce0aff429 | 14 | |
Lugs | 0:ad5ce0aff429 | 15 | DigitalIn Button(P2_3); |
Lugs | 0:ad5ce0aff429 | 16 | |
Lugs | 0:ad5ce0aff429 | 17 | MAX32630FTHR pegasus(MAX32630FTHR::VIO_3V3); |
Lugs | 0:ad5ce0aff429 | 18 | PwmOut PWM(P5_6); |
Lugs | 0:ad5ce0aff429 | 19 | AnalogIn POT(AIN_0); |
Lugs | 0:ad5ce0aff429 | 20 | volatile int bufferPOS = 0; |
Lugs | 0:ad5ce0aff429 | 21 | |
Lugs | 0:ad5ce0aff429 | 22 | Serial daplink(P2_1,P2_0); |
Lugs | 0:ad5ce0aff429 | 23 | USBSerial microUSB; |
Lugs | 0:ad5ce0aff429 | 24 | |
Lugs | 0:ad5ce0aff429 | 25 | float audioDataBuffer[BUFFER_SIZE]; |
Lugs | 0:ad5ce0aff429 | 26 | |
Lugs | 4:24086b80928e | 27 | struct WavFile { |
Lugs | 0:ad5ce0aff429 | 28 | long int size; |
Lugs | 0:ad5ce0aff429 | 29 | int channels; |
Lugs | 0:ad5ce0aff429 | 30 | int sampleRate; |
Lugs | 0:ad5ce0aff429 | 31 | int bitsPerSample; |
Lugs | 0:ad5ce0aff429 | 32 | }; |
Lugs | 0:ad5ce0aff429 | 33 | |
Lugs | 0:ad5ce0aff429 | 34 | float potval,reading; |
Lugs | 0:ad5ce0aff429 | 35 | |
Lugs | 0:ad5ce0aff429 | 36 | void placeNewSample(void) |
Lugs | 0:ad5ce0aff429 | 37 | { |
Lugs | 2:93da96b41127 | 38 | PWM.write(audioDataBuffer[bufferPOS++]); //multiply by POT value for volume. |
Lugs | 0:ad5ce0aff429 | 39 | bufferPOS = (bufferPOS+1) & 0x07F; |
Lugs | 0:ad5ce0aff429 | 40 | } |
Lugs | 0:ad5ce0aff429 | 41 | |
Lugs | 0:ad5ce0aff429 | 42 | int main() |
Lugs | 4:24086b80928e | 43 | { |
Lugs | 0:ad5ce0aff429 | 44 | WavFile Track; |
Lugs | 0:ad5ce0aff429 | 45 | Ticker SampleTime; |
Lugs | 4:24086b80928e | 46 | |
Lugs | 3:fcf745cd4f6d | 47 | daplink.printf("\f---DAPLINK SERIAL PORT---\r\n\r\nMINI PIANO PLAYER ver 1 \r\n\r\n\r\n"); |
Lugs | 0:ad5ce0aff429 | 48 | microUSB.printf("micro USB serial port\r\n"); |
Lugs | 0:ad5ce0aff429 | 49 | rLED = LED_ON; |
Lugs | 0:ad5ce0aff429 | 50 | wait_ms(500); |
Lugs | 0:ad5ce0aff429 | 51 | rLED = LED_OFF; |
Lugs | 0:ad5ce0aff429 | 52 | gLED = LED_ON; |
Lugs | 0:ad5ce0aff429 | 53 | wait_ms(500); |
Lugs | 0:ad5ce0aff429 | 54 | bLED = LED_ON; |
Lugs | 0:ad5ce0aff429 | 55 | gLED = LED_OFF; |
Lugs | 4:24086b80928e | 56 | |
Lugs | 3:fcf745cd4f6d | 57 | typedef enum { |
Lugs | 3:fcf745cd4f6d | 58 | C2,Cs2,D2,Ds2,E2,F2,Fs2,G2,Gs2,A2,As2,B2, //C2:0 |
Lugs | 3:fcf745cd4f6d | 59 | C3,Cs3,D3,Ds3,E3,F3,Fs3,G3,Gs3,A3,As3,B3, //C3:12 |
Lugs | 3:fcf745cd4f6d | 60 | C4,Cs4,D4,Ds4,E4,F4,Fs4,G4,Gs4,A4,As4,B4, //C4:24 |
Lugs | 3:fcf745cd4f6d | 61 | C5,Cs5,D5,Ds5,E5,F5,Fs5,G5,Gs5,A5,As5,B5, //C5:36 |
Lugs | 3:fcf745cd4f6d | 62 | C6,Cs6,D6,Ds6,E6,F6,Fs6,G6,Gs6, //C6:48 |
Lugs | 3:fcf745cd4f6d | 63 | rest, |
Lugs | 3:fcf745cd4f6d | 64 | END |
Lugs | 4:24086b80928e | 65 | } pitchname; |
Lugs | 4:24086b80928e | 66 | |
Lugs | 3:fcf745cd4f6d | 67 | typedef struct { |
Lugs | 4:24086b80928e | 68 | int length; |
Lugs | 3:fcf745cd4f6d | 69 | pitchname pitch; |
Lugs | 3:fcf745cd4f6d | 70 | } note; |
Lugs | 4:24086b80928e | 71 | |
Lugs | 4:24086b80928e | 72 | //input iterator vars |
Lugs | 4:24086b80928e | 73 | int i; |
Lugs | 4:24086b80928e | 74 | char c; |
Lugs | 3:fcf745cd4f6d | 75 | |
Lugs | 4:24086b80928e | 76 | //input holder arrays |
Lugs | 4:24086b80928e | 77 | char buffer[256]; |
Lugs | 4:24086b80928e | 78 | char inputtype[30]; |
Lugs | 4:24086b80928e | 79 | typedef enum { |
Lugs | 4:24086b80928e | 80 | nokiacomposer, |
Lugs | 4:24086b80928e | 81 | normal |
Lugs | 4:24086b80928e | 82 | } inputtypes; |
Lugs | 4:24086b80928e | 83 | inputtypes current_inputtype; |
Lugs | 4:24086b80928e | 84 | |
Lugs | 4:24086b80928e | 85 | //parse input type |
Lugs | 4:24086b80928e | 86 | int g; |
Lugs | 4:24086b80928e | 87 | tryagain: |
Lugs | 4:24086b80928e | 88 | printf("Please specify the input type.\r\nAvailable types:\r\nnokiacomposer\r\nnormal\r\n\r\n>"); |
Lugs | 4:24086b80928e | 89 | for(i=0; i<30; i++) { |
Lugs | 4:24086b80928e | 90 | c=daplink.getc(); |
Lugs | 4:24086b80928e | 91 | if(c == '\r') |
Lugs | 4:24086b80928e | 92 | { |
Lugs | 4:24086b80928e | 93 | g=i+2; |
Lugs | 4:24086b80928e | 94 | inputtype[i] = '\0'; |
Lugs | 4:24086b80928e | 95 | break; |
Lugs | 4:24086b80928e | 96 | } |
Lugs | 4:24086b80928e | 97 | daplink.putc(c); |
Lugs | 4:24086b80928e | 98 | inputtype[i]=c; |
Lugs | 4:24086b80928e | 99 | } |
Lugs | 4:24086b80928e | 100 | printf("\r\n"); |
Lugs | 4:24086b80928e | 101 | for(i=0;i<=g;i++) |
Lugs | 4:24086b80928e | 102 | { |
Lugs | 4:24086b80928e | 103 | printf("%i\t",inputtype[i]); |
Lugs | 4:24086b80928e | 104 | } |
Lugs | 4:24086b80928e | 105 | printf("\r\nSTRING LITERAL:\r\n"); |
Lugs | 4:24086b80928e | 106 | char test[] = "nokiacomposer"; |
Lugs | 4:24086b80928e | 107 | for(i=0;i<=g;i++) |
Lugs | 4:24086b80928e | 108 | { |
Lugs | 4:24086b80928e | 109 | printf("%i\t",test[i]); |
Lugs | 4:24086b80928e | 110 | } |
Lugs | 4:24086b80928e | 111 | |
Lugs | 4:24086b80928e | 112 | if(!strcmp(inputtype,"nokiacomposer")) { |
Lugs | 4:24086b80928e | 113 | printf("\r\nType chosen: nokiacomposer\r\n"); |
Lugs | 4:24086b80928e | 114 | current_inputtype = nokiacomposer; |
Lugs | 4:24086b80928e | 115 | } else if(!strcmp(inputtype,"normal")) { |
Lugs | 4:24086b80928e | 116 | printf("\r\nType chosen: normal\r\n"); |
Lugs | 4:24086b80928e | 117 | current_inputtype = normal; |
Lugs | 4:24086b80928e | 118 | } else { |
Lugs | 4:24086b80928e | 119 | c=NULL; |
Lugs | 4:24086b80928e | 120 | printf("Invalid input type. Try again."); |
Lugs | 4:24086b80928e | 121 | goto tryagain; //prints message below input area |
Lugs | 4:24086b80928e | 122 | } |
Lugs | 4:24086b80928e | 123 | |
Lugs | 3:fcf745cd4f6d | 124 | //open file |
Lugs | 4:24086b80928e | 125 | toolarge: |
Lugs | 4:24086b80928e | 126 | printf("Please copy the text file of the song then right click on the PuTTY screen.\r\n"); |
Lugs | 4:24086b80928e | 127 | for(i=0; 1; i++) { //do the loop at least once |
Lugs | 4:24086b80928e | 128 | c=daplink.getc(); |
Lugs | 4:24086b80928e | 129 | daplink.putc(c); |
Lugs | 4:24086b80928e | 130 | buffer[i]=c; |
Lugs | 4:24086b80928e | 131 | if(i>=256) { |
Lugs | 4:24086b80928e | 132 | printf("Note data is greater than 2kB! Impossible. Try again.\033[A"); |
Lugs | 4:24086b80928e | 133 | goto toolarge; |
Lugs | 4:24086b80928e | 134 | } |
Lugs | 4:24086b80928e | 135 | wait_ms(1); //wait for the next byte to arrive. every byte takes 1.04ms at 9600 baud. |
Lugs | 4:24086b80928e | 136 | if(!daplink.readable()) |
Lugs | 4:24086b80928e | 137 | { |
Lugs | 4:24086b80928e | 138 | printf("That'sallll\r\n"); |
Lugs | 4:24086b80928e | 139 | break; |
Lugs | 4:24086b80928e | 140 | } |
Lugs | 4:24086b80928e | 141 | } |
Lugs | 4:24086b80928e | 142 | buffer[i] = ' '; //set EOF marker. |
Lugs | 4:24086b80928e | 143 | buffer[i++] = '\0'; |
Lugs | 4:24086b80928e | 144 | |
Lugs | 4:24086b80928e | 145 | //kunwari open na yung file |
Lugs | 4:24086b80928e | 146 | printf("\r\nFile recieved. Parsing...\r\n"); |
Lugs | 3:fcf745cd4f6d | 147 | //parse file into song in heap(remove sharps, put into enums.) |
Lugs | 3:fcf745cd4f6d | 148 | |
Lugs | 4:24086b80928e | 149 | //useful benchmarks to find which characters are valid. |
Lugs | 4:24086b80928e | 150 | int candidate_number; |
Lugs | 4:24086b80928e | 151 | char *songpos=buffer+1; //song position |
Lugs | 4:24086b80928e | 152 | note song[256]; |
Lugs | 4:24086b80928e | 153 | int pn_det; |
Lugs | 4:24086b80928e | 154 | |
Lugs | 4:24086b80928e | 155 | if(current_inputtype == nokiacomposer) { |
Lugs | 4:24086b80928e | 156 | //for every [note] slot in [song] |
Lugs | 4:24086b80928e | 157 | for(i=0; i<2048; i++) { |
Lugs | 4:24086b80928e | 158 | //take the first base 10 integer you see. |
Lugs | 4:24086b80928e | 159 | //this initializes songpos ALWAYS. lol. |
Lugs | 4:24086b80928e | 160 | candidate_number = strtol(songpos-1,&songpos,10); |
Lugs | 4:24086b80928e | 161 | printf("Character:%i\r\n",candidate_number); |
Lugs | 4:24086b80928e | 162 | //if it's 1,2,4,8,16 or 32, VALID. |
Lugs | 4:24086b80928e | 163 | if((candidate_number==1)||candidate_number==2||candidate_number==4||candidate_number==8||candidate_number==16||candidate_number==32) { |
Lugs | 4:24086b80928e | 164 | song[i].length = candidate_number; |
Lugs | 4:24086b80928e | 165 | printf("Entered candidate [%i] into song[%i].length\r\n",candidate_number,i); |
Lugs | 4:24086b80928e | 166 | } else { |
Lugs | 4:24086b80928e | 167 | printf("Found invalid NOTE LENGTH value [%c] at position %li. Skipping until next whitespace...\r\n",*songpos,songpos-buffer); |
Lugs | 4:24086b80928e | 168 | //skip to after next whitespace |
Lugs | 4:24086b80928e | 169 | do { |
Lugs | 4:24086b80928e | 170 | songpos++; |
Lugs | 4:24086b80928e | 171 | } while(!isspace(*(songpos))); |
Lugs | 4:24086b80928e | 172 | do { |
Lugs | 4:24086b80928e | 173 | songpos++; |
Lugs | 4:24086b80928e | 174 | } while(!isalnum(*(songpos))); |
Lugs | 4:24086b80928e | 175 | //then do next iteration of LENGTH,PITCH,OCTAVE parse |
Lugs | 4:24086b80928e | 176 | i--; |
Lugs | 4:24086b80928e | 177 | continue; |
Lugs | 4:24086b80928e | 178 | } |
Lugs | 4:24086b80928e | 179 | //parse next character |
Lugs | 4:24086b80928e | 180 | printf("Character:%c\r\n",*songpos); |
Lugs | 4:24086b80928e | 181 | pn_det=0; |
Lugs | 4:24086b80928e | 182 | //watch out for sharps |
Lugs | 4:24086b80928e | 183 | if(!(*songpos=='#'||'a'<=*songpos<='z')) { |
Lugs | 4:24086b80928e | 184 | printf("Found invalid PITCH NAME value [%c] at position %li. Skipping word...\r\n",*songpos,songpos-buffer); |
Lugs | 4:24086b80928e | 185 | //skip to after next whitespace |
Lugs | 4:24086b80928e | 186 | do { |
Lugs | 4:24086b80928e | 187 | songpos++; |
Lugs | 4:24086b80928e | 188 | } while(!isspace(*(songpos))); |
Lugs | 4:24086b80928e | 189 | do { |
Lugs | 4:24086b80928e | 190 | songpos++; |
Lugs | 4:24086b80928e | 191 | } while(!isalnum(*(songpos))); |
Lugs | 4:24086b80928e | 192 | //then do next iteration of LENGTH,PITCH,OCTAVE parse |
Lugs | 4:24086b80928e | 193 | i--; |
Lugs | 4:24086b80928e | 194 | continue; |
Lugs | 4:24086b80928e | 195 | } |
Lugs | 4:24086b80928e | 196 | if(*songpos=='#') { |
Lugs | 4:24086b80928e | 197 | pn_det+=1; |
Lugs | 4:24086b80928e | 198 | songpos++; |
Lugs | 4:24086b80928e | 199 | printf("Sharp found.\r\n"); |
Lugs | 4:24086b80928e | 200 | } |
Lugs | 4:24086b80928e | 201 | switch(*songpos) { |
Lugs | 4:24086b80928e | 202 | case 'c': |
Lugs | 4:24086b80928e | 203 | pn_det+=0; |
Lugs | 4:24086b80928e | 204 | break; |
Lugs | 4:24086b80928e | 205 | case 'd': |
Lugs | 4:24086b80928e | 206 | pn_det+=2; |
Lugs | 4:24086b80928e | 207 | break; |
Lugs | 4:24086b80928e | 208 | case 'e': |
Lugs | 4:24086b80928e | 209 | pn_det+=4; |
Lugs | 4:24086b80928e | 210 | break; |
Lugs | 4:24086b80928e | 211 | case 'f': |
Lugs | 4:24086b80928e | 212 | pn_det+=5; |
Lugs | 4:24086b80928e | 213 | break; |
Lugs | 4:24086b80928e | 214 | case 'g': |
Lugs | 4:24086b80928e | 215 | pn_det+=7; |
Lugs | 4:24086b80928e | 216 | break; |
Lugs | 4:24086b80928e | 217 | case 'a': |
Lugs | 4:24086b80928e | 218 | pn_det+=9; |
Lugs | 4:24086b80928e | 219 | break; |
Lugs | 4:24086b80928e | 220 | case 'b': |
Lugs | 4:24086b80928e | 221 | pn_det+=11; |
Lugs | 4:24086b80928e | 222 | break; |
Lugs | 4:24086b80928e | 223 | } |
Lugs | 4:24086b80928e | 224 | //check for invalid character at current position |
Lugs | 4:24086b80928e | 225 | //means that character was valid. move on. |
Lugs | 4:24086b80928e | 226 | songpos++; |
Lugs | 4:24086b80928e | 227 | printf("%c\n",*songpos); |
Lugs | 4:24086b80928e | 228 | if('0'<=*songpos<='9') { |
Lugs | 4:24086b80928e | 229 | int num = strtol(songpos,&songpos,10); |
Lugs | 4:24086b80928e | 230 | num+=3;//shift up thrice. board can't handle things this low. |
Lugs | 4:24086b80928e | 231 | printf("octave parsed: %i \t-> adder:%i\r\n",num,((num-2)*12)); |
Lugs | 4:24086b80928e | 232 | pn_det=pn_det+((num-2)*12); |
Lugs | 4:24086b80928e | 233 | } else { |
Lugs | 4:24086b80928e | 234 | printf("Found invalid OCTAVE value [%c] at position %li. Skipping word...\r\n",*songpos,songpos-buffer); |
Lugs | 4:24086b80928e | 235 | //skip to after next whitespace |
Lugs | 4:24086b80928e | 236 | while(!isspace(*(songpos))) { |
Lugs | 4:24086b80928e | 237 | songpos++; |
Lugs | 4:24086b80928e | 238 | } |
Lugs | 4:24086b80928e | 239 | while(!isalnum(*(songpos))) { |
Lugs | 4:24086b80928e | 240 | songpos++; |
Lugs | 4:24086b80928e | 241 | } |
Lugs | 4:24086b80928e | 242 | //then do next iteration of LENGTH,PITCH,OCTAVE parse |
Lugs | 4:24086b80928e | 243 | i--; |
Lugs | 4:24086b80928e | 244 | continue; |
Lugs | 4:24086b80928e | 245 | } |
Lugs | 4:24086b80928e | 246 | song[i].pitch = (pitchname)pn_det; |
Lugs | 4:24086b80928e | 247 | printf("Entered pitch [%i] into song[%i].pitch\r\n",song[i].pitch,i); |
Lugs | 4:24086b80928e | 248 | printf("Final: {%i,%i} at i=%i\r\n",song[i].length,song[i].pitch,i); |
Lugs | 4:24086b80928e | 249 | printf("-------------------\r\n"); |
Lugs | 4:24086b80928e | 250 | //make sure you're after the next whitespace |
Lugs | 4:24086b80928e | 251 | while(!isspace(*(songpos))) { |
Lugs | 4:24086b80928e | 252 | songpos++; |
Lugs | 4:24086b80928e | 253 | } |
Lugs | 4:24086b80928e | 254 | while(isspace(*(songpos))) { |
Lugs | 4:24086b80928e | 255 | songpos++; |
Lugs | 4:24086b80928e | 256 | }; |
Lugs | 4:24086b80928e | 257 | if(*songpos == '\0'){ |
Lugs | 4:24086b80928e | 258 | printf("NULL found. Escaping...\r\n"); |
Lugs | 4:24086b80928e | 259 | goto esc; |
Lugs | 4:24086b80928e | 260 | } |
Lugs | 4:24086b80928e | 261 | } |
Lugs | 4:24086b80928e | 262 | } else if(current_inputtype == normal) { |
Lugs | 4:24086b80928e | 263 | //add normaltype parser here. |
Lugs | 4:24086b80928e | 264 | } |
Lugs | 4:24086b80928e | 265 | |
Lugs | 4:24086b80928e | 266 | //add end term |
Lugs | 4:24086b80928e | 267 | |
Lugs | 4:24086b80928e | 268 | //parsing is done |
Lugs | 4:24086b80928e | 269 | esc: |
Lugs | 4:24086b80928e | 270 | |
Lugs | 4:24086b80928e | 271 | printf("at end: i = %i\r\n",i); |
Lugs | 4:24086b80928e | 272 | i++; |
Lugs | 4:24086b80928e | 273 | song[i].length = 1; |
Lugs | 4:24086b80928e | 274 | song[i].pitch = END; |
Lugs | 4:24086b80928e | 275 | |
Lugs | 4:24086b80928e | 276 | printf("Parsing done.\r\n"); |
Lugs | 4:24086b80928e | 277 | |
Lugs | 4:24086b80928e | 278 | //ENDOFPARSER |
Lugs | 4:24086b80928e | 279 | |
Lugs | 4:24086b80928e | 280 | int k; |
Lugs | 4:24086b80928e | 281 | for(k=0; song[k].pitch != END; k++) { |
Lugs | 4:24086b80928e | 282 | printf("{%i,%i},",song[k].length,song[k].pitch); |
Lugs | 4:24086b80928e | 283 | } |
Lugs | 4:24086b80928e | 284 | printf("{%i,%i},",song[k].length,song[k].pitch); |
Lugs | 4:24086b80928e | 285 | printf("\r\nPrinting done.\r\n"); |
Lugs | 4:24086b80928e | 286 | |
Lugs | 0:ad5ce0aff429 | 287 | printf("Generating sine...\r\n"); |
Lugs | 4:24086b80928e | 288 | for(i=0; i<128; i++) { |
Lugs | 0:ad5ce0aff429 | 289 | audioDataBuffer[i] =((1.0 + sin((double(i)/16.0*6.28318530717959)))/2.0); //formula copied from mbed example |
Lugs | 0:ad5ce0aff429 | 290 | } |
Lugs | 4:24086b80928e | 291 | |
Lugs | 4:24086b80928e | 292 | /* HERE'S WHERE THE MUSIC STARTS */ |
Lugs | 4:24086b80928e | 293 | /* LITERALLY. */ |
Lugs | 4:24086b80928e | 294 | |
Lugs | 4:24086b80928e | 295 | //FORMAT: { NUM_BEATS, PITCH } |
Lugs | 4:24086b80928e | 296 | char bpminp[5]; |
Lugs | 4:24086b80928e | 297 | int PlayingFreq; |
Lugs | 4:24086b80928e | 298 | |
Lugs | 4:24086b80928e | 299 | |
Lugs | 4:24086b80928e | 300 | printf("Please enter desired BPM:\r\n"); |
Lugs | 4:24086b80928e | 301 | |
Lugs | 4:24086b80928e | 302 | for(i=0; i<5 && c!='\r'; i++) { |
Lugs | 4:24086b80928e | 303 | c = daplink.getc(); |
Lugs | 4:24086b80928e | 304 | daplink.putc(c); |
Lugs | 4:24086b80928e | 305 | bpminp[i] = c; |
Lugs | 4:24086b80928e | 306 | } |
Lugs | 0:ad5ce0aff429 | 307 | |
Lugs | 4:24086b80928e | 308 | printf("BPM Recieved.\r\n"); |
Lugs | 0:ad5ce0aff429 | 309 | |
Lugs | 4:24086b80928e | 310 | c=NULL; //reset C for next time. |
Lugs | 4:24086b80928e | 311 | int BPM = strtol(bpminp,NULL,0); |
Lugs | 4:24086b80928e | 312 | float SPB = 60*4/(float)BPM; |
Lugs | 3:fcf745cd4f6d | 313 | |
Lugs | 4:24086b80928e | 314 | printf("BPM: %i",BPM); |
Lugs | 0:ad5ce0aff429 | 315 | |
Lugs | 4:24086b80928e | 316 | restart: |
Lugs | 4:24086b80928e | 317 | |
Lugs | 4:24086b80928e | 318 | /* |
Lugs | 4:24086b80928e | 319 | HARVEST MOON SONG IN NORMAL FORMAT |
Lugs | 4:24086b80928e | 320 | |
Lugs | 3:fcf745cd4f6d | 321 | note song[] = { |
Lugs | 3:fcf745cd4f6d | 322 | //batch 1 |
Lugs | 3:fcf745cd4f6d | 323 | {4,(pitchname)38},{4,E5},{4,Fs5},{4,D5},{4,Fs5},{4,G5},{4,A5},{4,Fs5},{4,D5}, |
Lugs | 3:fcf745cd4f6d | 324 | {4,A5},{4,B5},{4,A5},{4,G5},{4,B5},{4,A5}, |
Lugs | 3:fcf745cd4f6d | 325 | {4,rest}, |
Lugs | 3:fcf745cd4f6d | 326 | //batch 2 |
Lugs | 3:fcf745cd4f6d | 327 | {4,D5},{4,E5},{4,Fs5},{4,D5},{4,Fs5},{4,G5},{4,A5},{4,Fs5},{4,D5}, |
Lugs | 3:fcf745cd4f6d | 328 | {4,A5},{4,G5},{4,D5},{4,Fs5},{4,D5},{4,E5}, |
Lugs | 3:fcf745cd4f6d | 329 | {4,rest}, |
Lugs | 3:fcf745cd4f6d | 330 | //batch 1 |
Lugs | 3:fcf745cd4f6d | 331 | {4,D5},{4,E5},{4,Fs5},{4,D5},{4,Fs5},{4,G5},{4,A5},{4,Fs5},{4,D5}, |
Lugs | 3:fcf745cd4f6d | 332 | {4,A5},{4,B5},{4,A5},{4,G5},{4,B5},{4,A5}, |
Lugs | 3:fcf745cd4f6d | 333 | {4,rest}, |
Lugs | 3:fcf745cd4f6d | 334 | //batch 3 |
Lugs | 3:fcf745cd4f6d | 335 | {2,G5},{4,G5},{4,E5},{4,Fs5},{4,E5},{4,D5},{4,Cs5},{4,D5}, |
Lugs | 3:fcf745cd4f6d | 336 | //END |
Lugs | 3:fcf745cd4f6d | 337 | {1,END} |
Lugs | 3:fcf745cd4f6d | 338 | }; |
Lugs | 4:24086b80928e | 339 | */ |
Lugs | 4:24086b80928e | 340 | |
Lugs | 4:24086b80928e | 341 | for(i = 0; 1; i++) { |
Lugs | 4:24086b80928e | 342 | switch(song[i].pitch) { |
Lugs | 3:fcf745cd4f6d | 343 | case rest: |
Lugs | 3:fcf745cd4f6d | 344 | wait(song[i].length*SPB); |
Lugs | 3:fcf745cd4f6d | 345 | continue; |
Lugs | 3:fcf745cd4f6d | 346 | case D2: |
Lugs | 3:fcf745cd4f6d | 347 | PlayingFreq = 73; |
Lugs | 3:fcf745cd4f6d | 348 | break; |
Lugs | 3:fcf745cd4f6d | 349 | case Ds2: |
Lugs | 3:fcf745cd4f6d | 350 | PlayingFreq = 78; |
Lugs | 3:fcf745cd4f6d | 351 | break; |
Lugs | 3:fcf745cd4f6d | 352 | case E2: |
Lugs | 3:fcf745cd4f6d | 353 | PlayingFreq = 82; |
Lugs | 3:fcf745cd4f6d | 354 | break; |
Lugs | 3:fcf745cd4f6d | 355 | case F2: |
Lugs | 3:fcf745cd4f6d | 356 | PlayingFreq = 87; |
Lugs | 3:fcf745cd4f6d | 357 | break; |
Lugs | 3:fcf745cd4f6d | 358 | case Fs2: |
Lugs | 3:fcf745cd4f6d | 359 | PlayingFreq = 92; |
Lugs | 3:fcf745cd4f6d | 360 | break; |
Lugs | 3:fcf745cd4f6d | 361 | case G2: |
Lugs | 2:93da96b41127 | 362 | PlayingFreq = 98; |
Lugs | 2:93da96b41127 | 363 | break; |
Lugs | 3:fcf745cd4f6d | 364 | case Gs2: |
Lugs | 3:fcf745cd4f6d | 365 | PlayingFreq = 104; |
Lugs | 2:93da96b41127 | 366 | break; |
Lugs | 3:fcf745cd4f6d | 367 | case A2: |
Lugs | 2:93da96b41127 | 368 | PlayingFreq = 110; |
Lugs | 2:93da96b41127 | 369 | break; |
Lugs | 3:fcf745cd4f6d | 370 | case As2: |
Lugs | 2:93da96b41127 | 371 | PlayingFreq = 117; |
Lugs | 2:93da96b41127 | 372 | break; |
Lugs | 3:fcf745cd4f6d | 373 | case B2: |
Lugs | 2:93da96b41127 | 374 | PlayingFreq = 123; |
Lugs | 2:93da96b41127 | 375 | break; |
Lugs | 3:fcf745cd4f6d | 376 | case C3: |
Lugs | 2:93da96b41127 | 377 | PlayingFreq = 131; |
Lugs | 2:93da96b41127 | 378 | break; |
Lugs | 3:fcf745cd4f6d | 379 | case Cs3: |
Lugs | 2:93da96b41127 | 380 | PlayingFreq = 139; |
Lugs | 2:93da96b41127 | 381 | break; |
Lugs | 3:fcf745cd4f6d | 382 | case D3: |
Lugs | 2:93da96b41127 | 383 | PlayingFreq = 147; |
Lugs | 2:93da96b41127 | 384 | break; |
Lugs | 3:fcf745cd4f6d | 385 | case Ds3: |
Lugs | 2:93da96b41127 | 386 | PlayingFreq = 156; |
Lugs | 2:93da96b41127 | 387 | break; |
Lugs | 3:fcf745cd4f6d | 388 | case E3: |
Lugs | 2:93da96b41127 | 389 | PlayingFreq = 165; |
Lugs | 2:93da96b41127 | 390 | break; |
Lugs | 3:fcf745cd4f6d | 391 | case F3: |
Lugs | 2:93da96b41127 | 392 | PlayingFreq = 175; |
Lugs | 2:93da96b41127 | 393 | break; |
Lugs | 3:fcf745cd4f6d | 394 | case Fs3: |
Lugs | 2:93da96b41127 | 395 | PlayingFreq = 185; |
Lugs | 2:93da96b41127 | 396 | break; |
Lugs | 3:fcf745cd4f6d | 397 | case G3: |
Lugs | 2:93da96b41127 | 398 | PlayingFreq = 196; |
Lugs | 2:93da96b41127 | 399 | break; |
Lugs | 3:fcf745cd4f6d | 400 | case Gs3: |
Lugs | 2:93da96b41127 | 401 | PlayingFreq = 208; |
Lugs | 2:93da96b41127 | 402 | break; |
Lugs | 3:fcf745cd4f6d | 403 | case A3: |
Lugs | 2:93da96b41127 | 404 | PlayingFreq = 220; |
Lugs | 2:93da96b41127 | 405 | break; |
Lugs | 3:fcf745cd4f6d | 406 | case As3: |
Lugs | 2:93da96b41127 | 407 | PlayingFreq = 233; |
Lugs | 2:93da96b41127 | 408 | break; |
Lugs | 3:fcf745cd4f6d | 409 | case B3: |
Lugs | 2:93da96b41127 | 410 | PlayingFreq = 247; |
Lugs | 2:93da96b41127 | 411 | break; |
Lugs | 3:fcf745cd4f6d | 412 | case C4: |
Lugs | 2:93da96b41127 | 413 | PlayingFreq = 262; |
Lugs | 2:93da96b41127 | 414 | break; |
Lugs | 3:fcf745cd4f6d | 415 | case Cs4: |
Lugs | 2:93da96b41127 | 416 | PlayingFreq = 277; |
Lugs | 2:93da96b41127 | 417 | break; |
Lugs | 3:fcf745cd4f6d | 418 | case D4: |
Lugs | 2:93da96b41127 | 419 | PlayingFreq = 294; |
Lugs | 2:93da96b41127 | 420 | break; |
Lugs | 3:fcf745cd4f6d | 421 | case Ds4: |
Lugs | 2:93da96b41127 | 422 | PlayingFreq = 311; |
Lugs | 2:93da96b41127 | 423 | break; |
Lugs | 3:fcf745cd4f6d | 424 | case E4: |
Lugs | 2:93da96b41127 | 425 | PlayingFreq = 330; |
Lugs | 2:93da96b41127 | 426 | break; |
Lugs | 3:fcf745cd4f6d | 427 | case F4: |
Lugs | 2:93da96b41127 | 428 | PlayingFreq = 349; |
Lugs | 2:93da96b41127 | 429 | break; |
Lugs | 3:fcf745cd4f6d | 430 | case Fs4: |
Lugs | 2:93da96b41127 | 431 | PlayingFreq = 370; |
Lugs | 2:93da96b41127 | 432 | break; |
Lugs | 3:fcf745cd4f6d | 433 | case G4: |
Lugs | 2:93da96b41127 | 434 | PlayingFreq = 392; |
Lugs | 2:93da96b41127 | 435 | break; |
Lugs | 3:fcf745cd4f6d | 436 | case Gs4: |
Lugs | 2:93da96b41127 | 437 | PlayingFreq = 415; |
Lugs | 2:93da96b41127 | 438 | break; |
Lugs | 3:fcf745cd4f6d | 439 | case A4: |
Lugs | 2:93da96b41127 | 440 | PlayingFreq = 440; |
Lugs | 2:93da96b41127 | 441 | break; |
Lugs | 3:fcf745cd4f6d | 442 | case As4: |
Lugs | 2:93da96b41127 | 443 | PlayingFreq = 466; |
Lugs | 2:93da96b41127 | 444 | break; |
Lugs | 3:fcf745cd4f6d | 445 | case B4: |
Lugs | 2:93da96b41127 | 446 | PlayingFreq = 494; |
Lugs | 2:93da96b41127 | 447 | break; |
Lugs | 3:fcf745cd4f6d | 448 | case C5: |
Lugs | 2:93da96b41127 | 449 | PlayingFreq = 523; |
Lugs | 2:93da96b41127 | 450 | break; |
Lugs | 3:fcf745cd4f6d | 451 | case Cs5: |
Lugs | 2:93da96b41127 | 452 | PlayingFreq = 554; |
Lugs | 2:93da96b41127 | 453 | break; |
Lugs | 3:fcf745cd4f6d | 454 | case D5: |
Lugs | 2:93da96b41127 | 455 | PlayingFreq = 587; |
Lugs | 2:93da96b41127 | 456 | break; |
Lugs | 3:fcf745cd4f6d | 457 | case Ds5: |
Lugs | 2:93da96b41127 | 458 | PlayingFreq = 622; |
Lugs | 2:93da96b41127 | 459 | break; |
Lugs | 3:fcf745cd4f6d | 460 | case E5: |
Lugs | 2:93da96b41127 | 461 | PlayingFreq = 659; |
Lugs | 2:93da96b41127 | 462 | break; |
Lugs | 3:fcf745cd4f6d | 463 | case F5: |
Lugs | 2:93da96b41127 | 464 | PlayingFreq = 698; |
Lugs | 2:93da96b41127 | 465 | break; |
Lugs | 3:fcf745cd4f6d | 466 | case Fs5: |
Lugs | 2:93da96b41127 | 467 | PlayingFreq = 740; |
Lugs | 2:93da96b41127 | 468 | break; |
Lugs | 3:fcf745cd4f6d | 469 | case G5: |
Lugs | 2:93da96b41127 | 470 | PlayingFreq = 784; |
Lugs | 2:93da96b41127 | 471 | break; |
Lugs | 3:fcf745cd4f6d | 472 | case Gs5: |
Lugs | 2:93da96b41127 | 473 | PlayingFreq = 831; |
Lugs | 2:93da96b41127 | 474 | break; |
Lugs | 3:fcf745cd4f6d | 475 | case A5: |
Lugs | 2:93da96b41127 | 476 | PlayingFreq = 880; |
Lugs | 2:93da96b41127 | 477 | break; |
Lugs | 3:fcf745cd4f6d | 478 | case As5: |
Lugs | 2:93da96b41127 | 479 | PlayingFreq = 932; |
Lugs | 2:93da96b41127 | 480 | break; |
Lugs | 3:fcf745cd4f6d | 481 | case B5: |
Lugs | 2:93da96b41127 | 482 | PlayingFreq = 988; |
Lugs | 2:93da96b41127 | 483 | break; |
Lugs | 3:fcf745cd4f6d | 484 | case C6: |
Lugs | 2:93da96b41127 | 485 | PlayingFreq = 1047; |
Lugs | 2:93da96b41127 | 486 | break; |
Lugs | 3:fcf745cd4f6d | 487 | case Cs6: |
Lugs | 2:93da96b41127 | 488 | PlayingFreq = 1109; |
Lugs | 2:93da96b41127 | 489 | break; |
Lugs | 3:fcf745cd4f6d | 490 | case D6: |
Lugs | 2:93da96b41127 | 491 | PlayingFreq = 1175; |
Lugs | 2:93da96b41127 | 492 | break; |
Lugs | 3:fcf745cd4f6d | 493 | case Ds6: |
Lugs | 2:93da96b41127 | 494 | PlayingFreq = 1245; |
Lugs | 2:93da96b41127 | 495 | break; |
Lugs | 3:fcf745cd4f6d | 496 | case E6: |
Lugs | 2:93da96b41127 | 497 | PlayingFreq = 1319; |
Lugs | 2:93da96b41127 | 498 | break; |
Lugs | 3:fcf745cd4f6d | 499 | case F6: |
Lugs | 2:93da96b41127 | 500 | PlayingFreq = 1397; |
Lugs | 2:93da96b41127 | 501 | break; |
Lugs | 3:fcf745cd4f6d | 502 | case Fs6: |
Lugs | 2:93da96b41127 | 503 | PlayingFreq = 1480; |
Lugs | 2:93da96b41127 | 504 | break; |
Lugs | 3:fcf745cd4f6d | 505 | case G6: |
Lugs | 2:93da96b41127 | 506 | PlayingFreq = 1568; |
Lugs | 2:93da96b41127 | 507 | break; |
Lugs | 3:fcf745cd4f6d | 508 | case Gs6: |
Lugs | 2:93da96b41127 | 509 | PlayingFreq = 1661; |
Lugs | 2:93da96b41127 | 510 | break; |
Lugs | 3:fcf745cd4f6d | 511 | case END: |
Lugs | 3:fcf745cd4f6d | 512 | i = 0; |
Lugs | 4:24086b80928e | 513 | printf("SONG END. PRESS BUTTON TO RESTART."); |
Lugs | 4:24086b80928e | 514 | while(Button) |
Lugs | 4:24086b80928e | 515 | { |
Lugs | 4:24086b80928e | 516 | printf("\033[A\033[A\033[A\033[A"); |
Lugs | 4:24086b80928e | 517 | } |
Lugs | 3:fcf745cd4f6d | 518 | goto restart; |
Lugs | 2:93da96b41127 | 519 | } |
Lugs | 4:24086b80928e | 520 | |
Lugs | 3:fcf745cd4f6d | 521 | Track.sampleRate = PlayingFreq * 16; //TONE FREQ = SAMPLE RATE / SAMPLES PER CYCLE |
Lugs | 3:fcf745cd4f6d | 522 | PWM.period_us(1); //1MHz |
Lugs | 3:fcf745cd4f6d | 523 | float ticker_period = (float) 1/(Track.sampleRate); |
Lugs | 3:fcf745cd4f6d | 524 | printf("\r\nTicker Period: %f\tTicker Freq: %f\r\nTarget Freq: %i \r\n\r\n",ticker_period, 1/ticker_period, PlayingFreq); |
Lugs | 2:93da96b41127 | 525 | |
Lugs | 3:fcf745cd4f6d | 526 | SampleTime.attach(&placeNewSample,ticker_period); |
Lugs | 4:24086b80928e | 527 | wait( (1/(float)song[i].length) *SPB); |
Lugs | 3:fcf745cd4f6d | 528 | SampleTime.detach(); |
Lugs | 1:78ca0566c062 | 529 | |
Lugs | 4:24086b80928e | 530 | |
Lugs | 4:24086b80928e | 531 | |
Lugs | 2:93da96b41127 | 532 | printf("\033[A\033[A\033[A\033[A"); |
Lugs | 0:ad5ce0aff429 | 533 | } |
Lugs | 3:fcf745cd4f6d | 534 | } |
Lugs | 0:ad5ce0aff429 | 535 |