diff options
| author | mick <mickgrierson@gmail.com> | 2014-10-15 10:14:02 +0100 |
|---|---|---|
| committer | mick <mickgrierson@gmail.com> | 2014-10-15 10:14:02 +0100 |
| commit | bbe04a0f9254e81ca6be8a23164fb3e8743e6c82 (patch) | |
| tree | d47bf6cbc9d23da2f41c15da94a8977fe1d10218 /main.cpp | |
| parent | a38ec23a22a45f7fd902f97e5fe38c9f1a7fb6e6 (diff) | |
bug fixes that I should have done last year
arg
Diffstat (limited to 'main.cpp')
| -rwxr-xr-x | main.cpp | 70 |
1 files changed, 21 insertions, 49 deletions
@@ -1,61 +1,33 @@ #include "maximilian.h" -//Bizarelly, this sounds a little bit like Kraftwerk's 'Metropolis', although it isn't. Funny that. - -maxiOsc sound,bass,timer,mod,lead,lead2,leadmod;//here are the synth bits -maxiEnv envelope, leadenvelope;//some envelopes -maxiFilter filter, filter2;//some filters -maxiDelayline delay;//a delay -convert mtof;//a method for converting midi notes to frequency -double bassout,leadout, delayout;//some variables to hold the data and pass it around -int trigger, trigger2, newnote;//some control variables -int currentCount,lastCount,playHead=0, currentChord=0;//some other control variables -int pitch[8]={57,57,59,60};//the bassline for the arpeggio -int chord[8]={0,0,7,2,5,5,0,0};//the root chords for the arpeggio -float currentPitch,leadPitch;//the final pitch variables - -//here's the lead line trigger array, followed by the pitches -int leadLineTrigger[256]={1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,1,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}; -int leadLinePitch[15]={69,67,65,64,67,66,64,62,65,64,62,57,55,60,57}; - - +maxiOsc myCounter,mySwitchableOsc;// +int CurrentCount;// +double myOscOutput,myFilteredOutput;// +double myEnvelopeData[6] = {500,0,1000,500,0,500};//this data will be used to make an envelope. Value and time to value in ms. +maxiEnvelope myEnvelope; +maxiFilter myFilter; void setup() {//some inits - + myEnvelope.amplitude=myEnvelopeData[0]; //initialise the envelope } -void play(double *output) {//this is where the magic happens. Very slow magic. - - currentCount=(int)timer.phasor(9);//this sets up a metronome that ticks every so often +void play(double *output) { - if (lastCount!=currentCount) {//if we have a new timer int this sample, play the sound - trigger=1;//play the arpeggiator line - trigger2=leadLineTrigger[playHead%256];//play the lead line - if (trigger2==1) {//if we are going to play a note - leadPitch=mtof.mtof(leadLinePitch[newnote]);//get the next pitch val - newnote++;//and iterate - if (newnote>14) { - newnote=0;//make sure we don't go over the edge of the array - } - } - currentPitch=mtof.mtof(pitch[(playHead%4)]+chord[currentChord%8]);//write the frequency val into currentPitch - playHead++;//iterate the playhead - if (playHead%32==0) {//wrap every 4 bars - currentChord++;//change the chord - } - //cout << "tick\n";//the clock ticks - lastCount=0;//set lastCount to 0 - } + CurrentCount=myCounter.phasor(1, 1, 9);//phasor can take three arguments; frequency, start value and end value. - bassout=filter2.lores(envelope.adsr(bass.saw(currentPitch*0.5)+sound.pulse(currentPitch*0.5,mod.phasor(1)),1,0.9995, 0.25, 0.9995, 1, trigger),9250,2);//new, simple ADSR. - leadout=filter.lores(leadenvelope.ar(lead2.saw(leadPitch*4)+lead.pulse(leadPitch+(leadmod.sinebuf(1.9)*1.5), 0.6), 0.00005, 0.999975, 50000, trigger2),5900,10);//leadline + if (CurrentCount<5)//simple if statement + + myOscOutput=mySwitchableOsc.square(CurrentCount*100); - delayout=(leadout+(delay.dl(leadout, 14000, 0.8)*0.5))/2;//add some delay + else if (CurrentCount>=5)//and the 'else' bit. + + myOscOutput=mySwitchableOsc.saw(CurrentCount*50);//one osc object can produce whichever waveform you want. - if(trigger!=0)trigger=0;//set the trigger to off if you want it to trigger immediately next time. + if (CurrentCount==1) + + myEnvelope.trigger(0,myEnvelopeData[0]); //trigger the envelope + myFilteredOutput=myFilter.lores(myOscOutput,(myEnvelope.line(6, myEnvelopeData)),10);//lores takes an audio input, a frequency and a resonance factor (1-100) - output[0]=(bassout+delayout)/2;//sum output - output[1]=(bassout+delayout)/2; - -}
\ No newline at end of file + *output=myFilteredOutput;//point me at your speakers and fire. +} |
