290 lines
6.1 KiB
C
290 lines
6.1 KiB
C
/*! @file melody.c
|
|
|
|
@brief store Never Gonna Give You Up
|
|
@author Lukas Fürderer
|
|
@version V1.0
|
|
@date 15.11.2020
|
|
|
|
This file contains the main app function and init.
|
|
*/
|
|
|
|
#include "melody.h"
|
|
|
|
// freq: wave duration as multiple of 40ns
|
|
// duration: total duration as multiple of 40ns
|
|
#define TONE(freq, duration) ((((uint32_t)freq & 0xffff) << 16) | (((uint32_t)duration / (uint32_t)freq) & 0xffff))
|
|
|
|
// duration: pause duration as multiple of 40ns
|
|
#define PAUSE(duration) (0x30000 | ((duration >> 10) & 0xffff))
|
|
|
|
const uint32_t TACT = 2120 * 1000 * 25; // 2.12 seconds for one tact
|
|
|
|
const uint32_t GIS2 = 30098;
|
|
const uint32_t F = 35793;
|
|
const uint32_t DIS = 40177;
|
|
const uint32_t CIS = 45097;
|
|
const uint32_t C = 47778;
|
|
const uint32_t B = 53629;
|
|
const uint32_t GIS = 60197;
|
|
|
|
const uint32_t CALL = 0x10000;
|
|
const uint32_t RETURN = 0x20000;
|
|
|
|
const uint32_t refrain[];
|
|
const uint32_t quadrupel[];
|
|
const uint32_t strophe1[];
|
|
const uint32_t strophe2[];
|
|
const uint32_t main_melody[];
|
|
const uint32_t *cpu32EntryPoint = main_melody;
|
|
|
|
const uint32_t CALL_REFRAIN = CALL + 0;
|
|
const uint32_t CALL_QUADRUPEL = CALL + 1;
|
|
const uint32_t CALL_STROPHE1 = CALL + 2;
|
|
const uint32_t CALL_STROPHE2 = CALL + 3;
|
|
const uint32_t GOTO_MAIN_MELODY = 4;
|
|
|
|
const uint32_t *jumplabels[] = {
|
|
refrain,
|
|
quadrupel,
|
|
strophe1,
|
|
strophe2,
|
|
main_melody,
|
|
};
|
|
const uint32_t **cppu32JumpLabels = jumplabels;
|
|
|
|
const uint32_t quadrupel[] = {
|
|
TONE(GIS, TACT / 16),
|
|
TONE(B, TACT / 16),
|
|
TONE(CIS, TACT / 16),
|
|
TONE(B, TACT / 16),
|
|
RETURN,
|
|
};
|
|
|
|
const uint32_t refrain[] = {
|
|
CALL_QUADRUPEL,
|
|
|
|
TONE(F, TACT * 3 / 16),
|
|
TONE(F, TACT * 3 / 16),
|
|
TONE(DIS, TACT * 3 / 8),
|
|
CALL_QUADRUPEL,
|
|
|
|
TONE(DIS, TACT * 3 / 16),
|
|
TONE(DIS, TACT * 3 / 16),
|
|
TONE(CIS, TACT * 3 / 16),
|
|
TONE(C, TACT / 16),
|
|
TONE(B, TACT / 8),
|
|
CALL_QUADRUPEL,
|
|
|
|
TONE(CIS, TACT / 4),
|
|
TONE(DIS, TACT / 8),
|
|
TONE(C, TACT * 3 / 16),
|
|
TONE(B, TACT / 16),
|
|
TONE(GIS, TACT / 4),
|
|
TONE(GIS, TACT / 8),
|
|
|
|
TONE(DIS, TACT / 4),
|
|
TONE(CIS, TACT / 2),
|
|
CALL_QUADRUPEL,
|
|
|
|
TONE(F, TACT * 3 / 16),
|
|
TONE(F, TACT * 3 / 16),
|
|
TONE(DIS, TACT * 3 / 8),
|
|
CALL_QUADRUPEL,
|
|
|
|
TONE(GIS2,TACT / 4),
|
|
TONE(C, TACT / 8),
|
|
TONE(CIS, TACT * 3 / 16),
|
|
TONE(C, TACT / 16),
|
|
TONE(B, TACT / 8),
|
|
CALL_QUADRUPEL,
|
|
|
|
TONE(CIS, TACT / 4),
|
|
TONE(DIS, TACT / 8),
|
|
TONE(C, TACT * 3 / 16),
|
|
TONE(B, TACT / 16),
|
|
TONE(GIS, TACT / 4),
|
|
TONE(GIS, TACT / 8),
|
|
|
|
TONE(DIS, TACT / 4),
|
|
TONE(CIS, TACT / 2),
|
|
|
|
RETURN,
|
|
};
|
|
|
|
const uint32_t strophe1[] = {
|
|
PAUSE(TACT / 4),
|
|
TONE(B, TACT / 8),
|
|
TONE(C, TACT / 8),
|
|
TONE(CIS, TACT / 8),
|
|
TONE(CIS, TACT / 8),
|
|
TONE(DIS, TACT / 8),
|
|
|
|
TONE(C, TACT * 3 / 16), // 1/8 tact before, 1/16 tact after
|
|
|
|
TONE(B, TACT / 16),
|
|
TONE(GIS, TACT * 7 / 8),
|
|
|
|
PAUSE(TACT / 8),
|
|
TONE(B, TACT / 8),
|
|
TONE(B, TACT / 8),
|
|
TONE(C, TACT / 8),
|
|
TONE(CIS, TACT / 8),
|
|
TONE(B, TACT / 8),
|
|
PAUSE(TACT / 8),
|
|
TONE(GIS, TACT / 8),
|
|
|
|
TONE(GIS2,TACT / 4),
|
|
TONE(GIS2,TACT / 8),
|
|
TONE(DIS, TACT * 5 / 8),
|
|
|
|
PAUSE(TACT / 8),
|
|
TONE(B, TACT / 8),
|
|
TONE(B, TACT / 8),
|
|
TONE(C, TACT / 8),
|
|
TONE(CIS, TACT / 8),
|
|
TONE(B, TACT / 8),
|
|
TONE(CIS, TACT / 8),
|
|
TONE(DIS, TACT / 8),
|
|
|
|
PAUSE(TACT / 8),
|
|
TONE(C, TACT / 8),
|
|
TONE(B, TACT / 8),
|
|
TONE(C, TACT / 16),
|
|
TONE(B, TACT / 16),
|
|
TONE(GIS, TACT / 2),
|
|
|
|
PAUSE(TACT / 8),
|
|
TONE(B, TACT / 8),
|
|
TONE(B, TACT / 8),
|
|
TONE(C, TACT / 8),
|
|
TONE(CIS, TACT / 8),
|
|
TONE(B, TACT / 8),
|
|
TONE(GIS, TACT / 4),
|
|
|
|
TONE(DIS, TACT / 8),
|
|
TONE(DIS, TACT / 8),
|
|
TONE(DIS, TACT / 8),
|
|
TONE(F, TACT / 8),
|
|
TONE(DIS, TACT / 2),
|
|
|
|
TONE(CIS, TACT * 5 / 8),
|
|
TONE(DIS, TACT / 8),
|
|
TONE(F, TACT / 8),
|
|
TONE(CIS, TACT / 8),
|
|
|
|
TONE(DIS, TACT / 8),
|
|
TONE(DIS, TACT / 8),
|
|
TONE(DIS, TACT / 8),
|
|
TONE(F, TACT / 8),
|
|
TONE(DIS, TACT / 4),
|
|
TONE(GIS, TACT / 4),
|
|
|
|
PAUSE(TACT / 4),
|
|
TONE(B, TACT / 8),
|
|
TONE(C, TACT / 8),
|
|
TONE(CIS, TACT / 8),
|
|
TONE(B, TACT / 8),
|
|
PAUSE(TACT / 8),
|
|
TONE(DIS, TACT / 8),
|
|
|
|
TONE(F, TACT / 8),
|
|
TONE(DIS, TACT * 3 / 8),
|
|
|
|
RETURN,
|
|
};
|
|
|
|
const uint32_t strophe2[] = {
|
|
PAUSE(TACT / 8),
|
|
TONE(CIS, TACT / 8),
|
|
TONE(CIS, TACT / 8),
|
|
TONE(B, TACT / 8),
|
|
TONE(CIS, TACT / 8),
|
|
TONE(DIS, TACT * 3 / 8),
|
|
|
|
PAUSE(TACT / 8),
|
|
TONE(C, TACT / 8),
|
|
TONE(B, TACT / 8),
|
|
TONE(B, TACT / 8),
|
|
TONE(GIS, TACT / 2),
|
|
|
|
PAUSE(TACT / 8),
|
|
TONE(B, TACT / 8),
|
|
TONE(B, TACT / 8),
|
|
TONE(C, TACT / 8),
|
|
TONE(CIS, TACT / 8),
|
|
TONE(B, TACT / 8),
|
|
TONE(GIS, TACT / 4),
|
|
|
|
PAUSE(TACT / 8),
|
|
TONE(GIS2,TACT / 8),
|
|
TONE(GIS2,TACT / 8),
|
|
TONE(DIS, TACT / 4),
|
|
TONE(F, TACT / 8),
|
|
TONE(DIS, TACT / 8),
|
|
TONE(CIS, TACT / 8),
|
|
|
|
PAUSE(TACT / 8),
|
|
TONE(CIS, TACT / 8),
|
|
TONE(CIS, TACT / 8),
|
|
TONE(B, TACT / 8),
|
|
TONE(CIS, TACT / 8),
|
|
TONE(B, TACT / 8),
|
|
TONE(CIS, TACT / 8),
|
|
TONE(DIS, TACT / 8),
|
|
|
|
PAUSE(TACT / 8),
|
|
TONE(C, TACT / 8),
|
|
TONE(B, TACT / 8),
|
|
TONE(B, TACT / 8),
|
|
TONE(GIS, TACT / 2),
|
|
|
|
PAUSE(TACT / 8),
|
|
TONE(B, TACT / 8),
|
|
TONE(B, TACT / 8),
|
|
TONE(C, TACT / 8),
|
|
TONE(CIS, TACT / 8),
|
|
TONE(B, TACT / 8),
|
|
TONE(GIS, TACT / 4),
|
|
|
|
PAUSE(TACT / 4),
|
|
TONE(DIS, TACT / 8),
|
|
TONE(F, TACT / 8),
|
|
TONE(F, TACT / 4),
|
|
TONE(DIS, TACT / 4),
|
|
|
|
TONE(CIS, TACT * 5 / 8),
|
|
TONE(DIS, TACT / 8),
|
|
TONE(F, TACT / 8),
|
|
|
|
TONE(DIS, TACT / 4), // 1/8 tact before, 1/8 tact after
|
|
|
|
TONE(DIS, TACT / 8),
|
|
TONE(DIS, TACT / 8),
|
|
TONE(F, TACT / 8),
|
|
TONE(DIS, TACT / 4),
|
|
TONE(GIS, TACT / 4),
|
|
|
|
PAUSE(TACT / 4),
|
|
TONE(GIS, TACT / 8),
|
|
TONE(B, TACT / 8),
|
|
TONE(C, TACT / 8),
|
|
TONE(CIS, TACT / 8),
|
|
TONE(B, TACT / 8),
|
|
PAUSE(TACT / 8),
|
|
|
|
TONE(DIS, TACT / 8),
|
|
TONE(F, TACT / 8),
|
|
TONE(DIS, TACT / 4),
|
|
|
|
RETURN,
|
|
};
|
|
|
|
const uint32_t main_melody[] = {
|
|
CALL_STROPHE1,
|
|
CALL_REFRAIN,
|
|
CALL_STROPHE2,
|
|
CALL_REFRAIN,
|
|
CALL_REFRAIN,
|
|
GOTO_MAIN_MELODY,
|
|
};
|