noiseplug/win/main.cpp

227 lines
5.5 KiB
C++
Raw Permalink Normal View History

2012-08-12 23:24:58 +02:00
/*
This work is licensed under the Creative Commons Attribution-ShareAlike 3.0 Unported License.
To view a copy of this license, visit http://creativecommons.org/licenses/by-sa/3.0/
or send a letter to Creative Commons, 444 Castro Street, Suite 900, Mountain View, California, 94041, USA.
*/
2012-07-31 21:43:34 +02:00
#include <stdio.h>
2012-08-04 16:30:27 +02:00
#include <stdint.h>
2012-07-31 21:43:34 +02:00
#include <stdlib.h>
#include <malloc.h>
#include <Windows.h>
#include <MMSystem.h>
2012-08-04 22:49:40 +02:00
#include "binary.h"
2012-07-31 21:43:34 +02:00
2012-08-08 22:15:46 +02:00
static inline uint8_t THREEQUARTERS(uint8_t x)
{
return (x >> 2) + (x >> 1);
}
2012-08-11 10:39:35 +02:00
const uint16_t notes[] = {
-1, 134, 159, 179, 201, 213, 239, 268, 301, 319, 358, 401, 425, 451, 477, 536, 601, 637, 715
2012-08-10 22:33:47 +02:00
};
2012-08-11 10:39:35 +02:00
#define arpnotes (notes + 5)
2012-08-10 22:33:47 +02:00
const uint16_t arpeggio[][2] = {
{ 0x24, 0x6A },
{ 0x46, 0x9C },
{ 0x13, 0x59 },
{ 0x02, 0x47 },
{ 0x24, 0x59 },
{ 0x24, 0x58 },
{ 0x57, 0xAD },
{ 0x35, 0x9B }
2012-07-31 22:50:25 +02:00
};
#define ARPSIZE 76
2012-08-10 22:01:45 +02:00
#if 0
2012-08-10 21:38:19 +02:00
uint8_t arpseq1[4][8] = {
{ 0, 0, 1, 2, 0, 0, 6, 2, },
{ 0, 0, 1, 2, 0, 0, 1, 7, },
{ 0, 0, 1, 2, 0, 0, 1, 2, },
{ 3, 3, 2, 2, 0, 0, 4, 5, },
};
2012-08-10 22:01:45 +02:00
#else
2012-08-10 22:33:47 +02:00
const uint8_t arpseq1[4][4] = {
2012-08-10 22:01:45 +02:00
{ 0x00, 0x12, 0x00, 0x62 },
{ 0x00, 0x12, 0x00, 0x17 },
{ 0x00, 0x12, 0x00, 0x12 },
{ 0x33, 0x22, 0x00, 0x45 },
};
#endif
2012-08-10 22:33:47 +02:00
const int arpseq2[] = { 0, 1, 0, 1, 0, 1, 0, 2, 3, 3 };
2012-08-11 13:40:58 +02:00
//const uint32_t arptiming = B32(00001100,00110000,11111011,00001100);
const uint8_t arptiming[4] = { 0x0C, 0x30, 0xFB, 0x0C };
2012-07-31 22:50:25 +02:00
2012-08-10 22:33:47 +02:00
const int bassbeat[8] = { 0, 0, 1, 0, 0, 1, 0, 1 };
2012-08-11 00:18:27 +02:00
const int bassline[] = {
2012-08-11 10:39:35 +02:00
7, 7, 9, 6, 7, 7, 10, 6, 7, 7, 9, 4, 5, 5, 2, 4,
5, 5, 6, 6, 7, 7, 3, 3, 5, 5, 6, 6
2012-08-10 23:18:29 +02:00
};
const uint8_t leadtimes[] = {
2012-08-11 00:08:51 +02:00
1, 2, 3, 4, 5, 6, 28, 14
2012-08-10 23:18:29 +02:00
};
2012-08-11 00:08:51 +02:00
const uint8_t leaddata[] = {
0x67, 0x24, 0x20, 0x27, 0x20, 0x28, 0x89, 0x0, 0x28, 0x20, 0x27, 0x20, 0x28, 0x89, 0x0, 0x28,
0x20, 0x27, 0x20, 0x28, 0x86, 0x0, 0x44, 0x0, 0x63, 0x24, 0x62, 0xA1, 0xE0, 0xE0, 0xE0, 0xE0,
2012-08-11 10:39:35 +02:00
0x20, 0x29, 0x20, 0x2A, 0x8B, 0x0, 0x4E, 0x0, 0x6F, 0x30, 0x71, 0xAF, 0xE0, 0xE0, 0xE0, 0xE0,
0x20, 0x29, 0x20, 0x2A, 0x8B, 0x0, 0x4E, 0x0, 0x6F, 0x30, 0x6F, 0xAC, 0xE0, 0xE0, 0xE0, 0xE0,
2012-08-11 00:08:51 +02:00
0x65, 0x22, 0x20, 0x65, 0x26, 0x87, 0x0, 0x68, 0x69, 0x2B, 0xAA, 0xC0, 0x67, 0x24, 0x20, 0x67,
0x28, 0x89, 0x0, 0x68, 0x69, 0x2B, 0xAA, 0xC0, 0x65, 0x22, 0x20, 0x65, 0x26, 0xA7, 0x28, 0x20,
0x69, 0x2B, 0xAA, 0x29, 0x20, 0x68, 0x29, 0xAA, 0x2B, 0x20, 0x69, 0x28, 0x69, 0x67,
};
const uint8_t leadseq[] = { 0, 1, 0, 2, 0, 1, 0, 3, 4, 5, 6 };
#define LEADSIZE 174
2012-08-08 00:06:29 +02:00
struct leadvoice_s {
uint8_t ptr, timer;
uint16_t osc;
} leads[3] = {
2012-08-11 00:18:27 +02:00
{ LEADSIZE, 0, 0 },
{ LEADSIZE, 0, 1601 },
{ LEADSIZE, 0, 3571 },
2012-08-08 00:06:29 +02:00
};
2012-08-08 22:15:46 +02:00
uint8_t boosts;
2012-08-08 00:06:29 +02:00
static unsigned char voice_lead(unsigned long i, int voice_nr)
2012-08-04 17:27:02 +02:00
{
2012-08-08 00:06:29 +02:00
#define leadptr leads[voice_nr].ptr
#define lead_osc leads[voice_nr].osc
#define leadtimer leads[voice_nr].timer
2012-08-04 17:27:02 +02:00
if (leadptr == LEADSIZE)
{
if (i == (0x40000 + 0x400 * voice_nr))
{
leadptr = -1;
leadtimer = 1;
}
else
return 0;
}
2012-08-08 22:15:46 +02:00
if (0 == (i & 0x0FF))
boosts &= ~(1 << voice_nr);
2012-08-08 00:06:29 +02:00
if (0 == (i & 0x1FF))
2012-08-04 17:43:49 +02:00
leadtimer--;
2012-08-04 17:27:02 +02:00
if (0 == leadtimer)
leadptr++;
uint8_t data = leaddata[(leadseq[leadptr >> 4] << 4) | (leadptr & 0xF)];
if (0 == leadtimer)
{
leadtimer = leadtimes[data >> 5];
2012-08-08 22:15:46 +02:00
boosts |= 1 << voice_nr;
2012-08-04 17:27:02 +02:00
}
uint8_t melody = data & 0x1F;
2012-08-11 00:18:27 +02:00
lead_osc += notes[melody];
2012-08-11 15:27:03 +02:00
uint8_t sample = ((lead_osc >> 7) & 0x3F) + ((lead_osc >> 7) & 0x1F);
2012-08-11 10:39:35 +02:00
return (0 == melody) ? 0 : ((boosts & (1 << voice_nr)) ? sample : THREEQUARTERS(sample));
2012-08-04 17:27:02 +02:00
}
2012-07-31 23:36:14 +02:00
static inline unsigned char voice_arp(unsigned long i)
{
2012-08-04 16:30:27 +02:00
static uint16_t arp_osc = 0;
2012-08-11 13:33:43 +02:00
uint8_t arpptr = arpseq1[arpseq2[i >> 16]][(i >> 14) & 3];
2012-08-11 13:10:24 +02:00
if (!(i & (1 << 13)))
2012-08-11 13:33:43 +02:00
arpptr >>= 4;
arpptr = arpeggio[arpptr & 0xF][(i >> 8) & 1];
2012-08-10 22:33:47 +02:00
if (!(i & 0x80))
arpptr >>= 4;
2012-08-11 10:39:35 +02:00
int note = arpnotes[arpptr & 0xF];
2012-08-04 16:30:27 +02:00
arp_osc += note;
2012-08-11 13:33:43 +02:00
if ((i >> 13) <= 15)
return 0;
2012-08-11 13:50:11 +02:00
uint8_t timing = arptiming[(i >> 12) & 3];
if (!((timing << ((i >> 9) & 7)) & 0x80))
2012-08-11 13:33:43 +02:00
return 0;
return (arp_osc & (1 << 12)) ? 0 : 35;
}
2012-07-31 23:16:33 +02:00
static inline unsigned char voice_bass(unsigned long i)
{
2012-08-04 16:30:27 +02:00
static uint16_t bassosc = 0, flangeosc = 0;
2012-08-10 22:58:47 +02:00
uint8_t bassptr = (i >> 13) & 0xF;
if (i >> 19)
bassptr |= 0x10;
int note = notes[bassline[bassptr]];
2012-08-04 16:30:27 +02:00
if (bassbeat[(i >> 10) & 7])
note <<= 1;
bassosc += note;
flangeosc += note + 1;
unsigned char ret = ((bassosc >> 8) & 0x7F) + ((flangeosc >> 8) & 0x7F);
return ((i >> 6) & 0xF) == 0xF ? 0 : ret;
2012-07-31 23:16:33 +02:00
}
2012-08-08 22:40:33 +02:00
static inline uint8_t next_sample()
2012-07-31 21:43:34 +02:00
{
2012-08-11 00:18:27 +02:00
static unsigned long i = 0;//x40000;
2012-08-11 15:27:03 +02:00
uint8_t ret = voice_lead(i, 0) + THREEQUARTERS(voice_lead(i, 1) >> 1) + (voice_lead(i, 2) >> 2) + (voice_bass(i) >> 2) + voice_arp(i);
2012-08-08 22:40:33 +02:00
i++;
if ((i >> 13) == ARPSIZE)
i = 16 << 13;
return ret;
}
2012-08-10 23:18:29 +02:00
void fill(uint8_t *data)
2012-08-08 22:40:33 +02:00
{
2012-08-08 00:06:29 +02:00
static uint8_t max = 0;
2012-07-31 22:50:25 +02:00
for (int j = 0; j < 4096; j++)
2012-07-31 21:43:34 +02:00
{
2012-08-08 22:40:33 +02:00
data[j] = next_sample();
if (data[j] > max)
2012-08-08 00:06:29 +02:00
{
2012-08-08 22:40:33 +02:00
max = data[j];
2012-08-08 00:06:29 +02:00
printf("%x\n", max);
}
2012-07-31 21:43:34 +02:00
}
}
static const WAVEFORMATEX fmt = {
WAVE_FORMAT_PCM, 1, 8000, 8000, 1, 8, 0
};
int main(int argc, char *argv[])
{
HWAVEOUT out;
HRESULT rc = waveOutOpen(&out, WAVE_MAPPER, &fmt, NULL, NULL, CALLBACK_NULL);
if (rc != MMSYSERR_NOERROR)
{
printf("error %d on open\n");
exit(1);
}
WAVEHDR bufs[2] = {
{ (char *)malloc(4096), 4096 },
{ (char *)malloc(4096), 4096 },
};
int i = 0;
2012-08-10 23:18:29 +02:00
fill((uint8_t *)bufs[i].lpData);
2012-07-31 21:43:34 +02:00
bufs[i].dwFlags = WHDR_PREPARED;
waveOutPrepareHeader(out, bufs + i, sizeof(WAVEHDR));
waveOutWrite(out, bufs + i, sizeof(WAVEHDR));
i ^= 1;
while (!(GetAsyncKeyState(VK_ESCAPE) & 1))
{
2012-08-10 23:18:29 +02:00
fill((uint8_t *)bufs[i].lpData);
2012-07-31 21:43:34 +02:00
bufs[i].dwFlags = WHDR_PREPARED;
waveOutPrepareHeader(out, bufs + i, sizeof(WAVEHDR));
waveOutWrite(out, bufs + i, sizeof(WAVEHDR));
i ^= 1;
while (waveOutUnprepareHeader(out, bufs + i, sizeof(WAVEHDR)) == WAVERR_STILLPLAYING);
}
}