wn/tetris
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Tonleiter is running

Browse Source
This commit is contained in:
Wolfgang Hottgenroth
2024-03-26 16:47:42 +01:00
parent 152f171c66
commit 5e2f120432
7 changed files with 88 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

68
sound-driver/melody.c
View File

@ -0,0 +1,68 @@
#include "psg.h"
#include "sequencer.h"
/*
const t_note notes[] = {
{ .octave = e_O_2, .note = e_G, .length = },
{ .octave = e_O_2, .note = e_D, .length = },
{ .octave = e_O_2, .note = e_Dis, .length = },
{ .octave = e_O_2, .note = e_F, .length = },
{ .octave = e_O_2, .note = e_Dis, .length = },
{ .octave = e_O_2, .note = e_D, .length = },
{ .octave = e_O_2, .note = e_C, .length = },
{ .octave = e_O_2, .note = e_C, .length = },
{ .octave = e_O_2, .note = e_Dis, .length = },
{ .octave = e_O_2, .note = e_G, .length = },
{ .octave = e_O_2, .note = e_F, .length = },
{ .octave = e_O_2, .note = e_Dis, .length = },
{ .octave = e_O_2, .note = e_D, .length = },
{ .octave = e_O_2, .note = e_D, .length = },
{ .octave = e_O_2, .note = e_Dis, .length = },
{ .octave = e_O_2, .note = e_F, .length = },
{ .octave = e_O_2, .note = e_G, .length = },
{ .octave = e_O_2, .note = e_Dis, .length = },
{ .octave = e_O_2, .note = e_C, .length = },
{ .octave = e_O_2, .note = e_C, .length = },
};
*/
const t_tone ladder[16] = {
{ .octave = e_O_2, .note = e_C, .length = e_L_1_4 },
{ .octave = e_O_2, .note = e_D, .length = e_L_1_4 },
{ .octave = e_O_2, .note = e_E, .length = e_L_1_4 },
{ .octave = e_O_2, .note = e_F, .length = e_L_1_4 },
{ .octave = e_O_2, .note = e_G, .length = e_L_1_4 },
{ .octave = e_O_2, .note = e_A, .length = e_L_1_4 },
{ .octave = e_O_2, .note = e_H, .length = e_L_1_4 },
{ .octave = e_O_3, .note = e_C, .length = e_L_1_4 },
{ .octave = e_O_2, .note = e_H, .length = e_L_1_4 },
{ .octave = e_O_2, .note = e_A, .length = e_L_1_4 },
{ .octave = e_O_2, .note = e_G, .length = e_L_1_4 },
{ .octave = e_O_2, .note = e_F, .length = e_L_1_4 },
{ .octave = e_O_2, .note = e_E, .length = e_L_1_4 },
{ .octave = e_O_2, .note = e_D, .length = e_L_1_4 },
{ .octave = e_O_2, .note = e_H, .length = e_L_EndMark },
};
t_melody melodyLadder = {
.idx = 0,
.lengthCnt = 0,
.tones = ladder
};
void melodyInit() {
psgWrite(07, 0b11111110);
psgWrite(010, 03);
sequencerPlayMelody(&melodyLadder);
}