You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
131 lines
3.0 KiB
Arduino
131 lines
3.0 KiB
Arduino
5 years ago
|
/*
|
||
|
|
|
||
|
|
FRAMEN v2.0
|
||
|
|
by Robert Beenen
|
||
|
|
|
||
|
|
MOD1: 1-15 -> amen slice
|
||
|
|
16 -> random sample
|
||
|
|
MOD2: 0-50% -> play from start to 1-100%
|
||
|
|
51-100% -> loop starts at 0-99% to end
|
||
|
|
KNOB3: 0-100% -> pitch -1 oct to +1 oct
|
||
|
|
INPUT3: trigger input
|
||
|
|
|
||
|
|
Just play around with it, it's pretty straight forward.
|
||
|
|
|
||
|
|
*/
|
||
|
|
|
||
|
|
#include "sample.h"
|
||
|
|
|
||
|
|
#define MOD1_PIN A2 // KNOB1 / INPUT1
|
||
|
|
#define MOD2_PIN A1 // KNOB2 / INPUT2
|
||
|
|
#define KNOB3_PIN A0 // KNOB3
|
||
|
|
#define INPUT3_PIN A3 // INPUT3
|
||
|
|
#define OUT_PIN 11
|
||
|
|
|
||
|
|
#define SAMPLERATE 8000
|
||
|
|
#define UPDATERATE (F_CPU / SAMPLERATE)
|
||
|
|
#define SILENCE 0x80
|
||
|
|
|
||
|
|
// inputs
|
||
|
|
uint8_t mod1;
|
||
|
|
uint16_t mod2;
|
||
|
|
uint16_t knob3;
|
||
|
|
uint8_t input3;
|
||
|
|
|
||
|
|
// internal
|
||
|
|
uint16_t offset;
|
||
|
|
uint16_t length;
|
||
|
|
uint16_t loop_start;
|
||
|
|
uint16_t index;
|
||
|
|
|
||
|
|
bool playing;
|
||
|
|
bool triggered;
|
||
|
|
bool looping;
|
||
|
|
|
||
|
|
uint8_t seed = 1;
|
||
|
|
void xorshift(void) {
|
||
|
|
if(!seed) seed++;
|
||
|
|
seed ^= (seed << 7);
|
||
|
|
seed ^= (seed >> 5);
|
||
|
|
seed ^= (seed << 3);
|
||
|
|
}
|
||
|
|
|
||
|
|
void setup() {
|
||
|
|
pinMode(OUT_PIN, OUTPUT);
|
||
|
|
|
||
|
|
// Setup Timer 2 to do pulse width modulation on the speaker pin
|
||
|
|
ASSR &= ~(_BV(EXCLK) | _BV(AS2)); // use internal clock (datasheet p.160)
|
||
|
|
TCCR2A |= _BV(WGM21) | _BV(WGM20); // set fast PWM mode (p.155)
|
||
|
|
TCCR2B &= ~_BV(WGM22);
|
||
|
|
TCCR2A = (TCCR2A | _BV(COM2A1)) & ~_BV(COM2A0); // non-inverting PWM on OC2A (p.155)
|
||
|
|
TCCR2A &= ~(_BV(COM2B1) | _BV(COM2B0)); // OC2A = OUT_PIN
|
||
|
|
TCCR2B = (TCCR2B & ~(_BV(CS12) | _BV(CS11))) | _BV(CS10); // no prescaler (p.158)
|
||
|
|
|
||
|
|
OCR2A = SILENCE; // set initial output to silent
|
||
|
|
|
||
|
|
// Setup Timer 1 to send a sample every interrupt.
|
||
|
|
cli();
|
||
|
|
TCCR1B = (TCCR1B & ~_BV(WGM13)) | _BV(WGM12); // CTC mode (p.133)
|
||
|
|
TCCR1A = TCCR1A & ~(_BV(WGM11) | _BV(WGM10));
|
||
|
|
TCCR1B = (TCCR1B & ~(_BV(CS12) | _BV(CS11))) | _BV(CS10); // no prescaler
|
||
|
|
|
||
|
|
OCR1A = UPDATERATE;
|
||
|
|
|
||
|
|
TIMSK1 |= _BV(OCIE1A); // enable interrupt when TCNT1 == OCR1A (p.136)
|
||
|
|
sei();
|
||
|
|
}
|
||
|
|
|
||
|
|
void loop() {
|
||
|
|
mod1 = analogRead(MOD1_PIN) >> 6; // reduce to 4 bits
|
||
|
|
mod2 = analogRead(MOD2_PIN);
|
||
|
|
knob3 = analogRead(KNOB3_PIN);
|
||
|
|
input3 = digitalRead(INPUT3_PIN); // using digital read on an analog input works
|
||
|
|
|
||
|
|
if(mod1 == 0x0F) {
|
||
|
|
mod1 = map(seed, 0, 255, 0, 14); // use the random value when mod1 is at max value
|
||
|
|
}
|
||
|
|
offset = slice_start[mod1];
|
||
|
|
|
||
|
|
if(mod2 & 0x200) {
|
||
|
|
looping = true;
|
||
|
|
length = slice_length[mod1];
|
||
|
|
mod2 ^= 0x3FF;
|
||
|
|
loop_start = length - map(mod2, 0, 511, 4 * GRAINSIZE, length);
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
looping = false;
|
||
|
|
length = map(mod2, 0, 511, 4 * GRAINSIZE, slice_length[mod1]);
|
||
|
|
}
|
||
|
|
|
||
|
|
OCR1A = map(analogRead(KNOB3_PIN), 0, 1023, 4000, 1000);
|
||
|
|
}
|
||
|
|
|
||
|
|
ISR(TIMER1_COMPA_vect) {
|
||
|
|
if(input3 && !triggered) {
|
||
|
|
xorshift(); // update to another random number on trigger
|
||
|
|
index = 0;
|
||
|
|
playing = true;
|
||
|
|
triggered = true;
|
||
|
|
}
|
||
|
|
else if(!input3 && triggered) {
|
||
|
|
triggered = false;
|
||
|
|
}
|
||
|
|
|
||
|
|
if(index >= length) {
|
||
|
|
if(looping) {
|
||
|
|
index = loop_start;
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
playing = false;
|
||
|
|
OCR2A = SILENCE;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
index++;
|
||
|
|
}
|
||
|
|
|
||
|
|
if(playing) {
|
||
|
|
OCR2A = pgm_read_byte(&sample_data[(offset + index) % SAMPLESIZE]);
|
||
|
|
}
|
||
|
|
}
|