syncloop.csd Written by Iain McCurdy, 2009 -odac -M0 -+rtmidi=virtual -dm0 sr = 44100 ;SAMPLE RATE ksmps = 32 ;NUMBER OF AUDIO SAMPLES IN EACH CONTROL CYCLE nchnls = 2 ;NUMBER OF CHANNELS (2=STEREO) 0dbfs = 1 ;FLTK INTERFACE CODE====================================================================================================================================================== FLcolor 255, 255, 255, 0, 0, 0 ; LABEL | WIDTH | HEIGHT | X | Y FLpanel "syncloop", 500, 895, 0, 0 ;BORDERS TYPE | FONT | SIZE | WIDTH | HEIGHT | X | Y ihCloudEnv FLbox "", 6, 9, 15, 496, 70, 2, 820 ;GRAIN CLOUD ENVELOPE ihMIDIrouting FLbox " ", 6, 9, 15, 280, 40, 155, 5 ;MIDI ROUTING ;TEXT BOXES TYPE | FONT | SIZE | WIDTH | HEIGHT | X | Y ih FLbox "MIDI notes to:", 1, 5, 12, 100, 15, 170, 15 ;SWITCHES ON | OFF | TYPE | WIDTH | HEIGHT | X | Y | OPCODE gkMIDItoDensity,ihMIDItoDensity FLbutton "Density", 1, 0, 2, 70, 20, 270, 13, -1 gkMIDItoPitch,ihMIDItoPitch FLbutton "Pitch", 1, 0, 2, 70, 20, 350, 13, -1 FLsetColor2 100, 100, 255, ihMIDItoDensity ;SET SECONDARY COLOUR TO BLUE FLsetColor2 100, 100, 255, ihMIDItoPitch ;SET SECONDARY COLOUR TO BLUE ;SWITCHES ON | OFF | TYPE | WIDTH | HEIGHT | X | Y | OPCODE | INS | STARTTIM | DUR gkOnOff,ihOnOff FLbutton "On/Off(MIDI)", 1, 0, 22, 140, 25, 5, 5, 0, 1, 0, 3600 gkfreeze,ihfreeze FLbutton "Freeze", 0, 1, 22, 80, 20, 415,225, -1 FLsetColor2 255, 255, 50, ihOnOff ;SET SECONDARY COLOUR TO YELLOW FLsetColor2 255, 255, 50, ihfreeze ;SET SECONDARY COLOUR TO YELLOW ;VALUE DISPLAY BOXES LABEL | WIDTH | HEIGHT | X | Y idamp FLvalue " ", 70, 20, 5, 75 idfreq FLvalue " ", 70, 20, 5, 125 idpitch FLvalue " ", 70, 20, 5, 175 idprate FLvalue " ", 70, 20, 5, 225 idgrsize FLvalue " ", 70, 20, 5, 275 idlstart FLvalue " ", 70, 20, 5, 595 idlend FLvalue " ", 70, 20, 5, 645 idnoloop FLvalue " ", 70, 20, 5, 795 idAtt FLvalue " ", 60, 20, 5, 865 idRel FLvalue " ", 60, 20, 255, 865 ;SLIDERS MIN | MAX | EXP | TYPE | DISP | WIDTH | HEIGHT | X | Y gkamp, ihamp FLslider "Amplitude", 0, 1, 0, 23, idamp, 490, 25, 5, 50 gkfreq, ihfreq FLslider "Density (Grain per Sec.)", 1, 200, 0, 23, idfreq, 490, 25, 5, 100 gkpitch, ihpitch FLslider "Pitch", -2, 2, 0, 23, idpitch, 490, 25, 5, 150 gkprate, gihprate FLslider "Progress Rate", -2, 2, 0, 23, idprate, 490, 25, 5, 200 gkgrsize, ihgrsize FLslider "Grain Size", .001, 1, 0, 23, idgrsize, 490, 25, 5, 250 gklstart, gihlstart FLslider "Loop Start", 0, 1, 0, 23, idlstart, 490, 25, 5, 570 gklend, gihlend FLslider "Loop End", 0, 1, 0, 23, idlend, 490, 25, 5, 620 gkfreqOS, ihfreqOS FLslider "Grain Density Offset", 0, 1, 0, 23, -1, 490, 25, 5, 670 gksizeOS, ihsizeOS FLslider "Grain Size Random Offset", 0, 1, 0, 23, -1, 490, 25, 5, 720 gknoloop, ihnoloop FLslider "Loop Start & End", 0, 1, 0, 23, idnoloop, 490, 25, 5, 770 gkAtt,ihAtt FLslider "Attack Time", 0.05, 10, 0, 23, idAtt, 240, 25, 5, 840 gkRel,ihRel FLslider "Release", 0.05, 10, 0, 23, idRel, 240, 25, 255, 840 ;COUNTERS MIN | MAX | STEP1 | STEP2 | TYPE | WIDTH | HEIGHT | X | Y | OPCODE P1 P2 P3 gkwfn, ihwfn FLcount "Grain Envelope", 1, 6, 1, 100, 2, 150, 27, 5, 303, -1 gksfn, ihsfn FLcount "Source Sound", 1, 3, 1, 100, 2, 150, 27, 5, 473, -1 ;TEXT BOXES TYPE | FONT | SIZE | WIDTH | HEIGHT | X | Y ih FLbox "Grain Envelopes: 1 - Half Sine ", 1, 5, 12, 500, 20, 0, 350 ih FLbox " 2 - Percussive (straight segments) ", 1, 5, 12, 500, 20, 0, 370 ih FLbox " 3 - Percussive (exponential segments) ", 1, 5, 12, 500, 20, 0, 390 ih FLbox " 4 - Gate (with anti click ramp up and ramp down) ", 1, 5, 12, 500, 20, 0, 410 ih FLbox " 5 - Reverse Percussive (straight segments) ", 1, 5, 12, 500, 20, 0, 430 ih FLbox " 6 - Reverse Percussive (exponential segments) ", 1, 5, 12, 500, 20, 0, 450 ih FLbox "Source Sounds 1 - Voice ", 1, 5, 12, 500, 20, 0, 515 ih FLbox " 2 - Drums ", 1, 5, 12, 500, 20, 0, 530 ih FLbox " 3 - Classical Guitar ", 1, 5, 12, 500, 20, 0, 545 ih FLbox "Grain Cloud Envelope", 1, 3, 12, 130, 15, 5, 821 FLsetVal_i 0.5, ihamp FLsetVal_i 40, ihfreq FLsetVal_i 1, ihpitch FLsetVal_i 0.5, gihprate FLsetVal_i .05, ihgrsize FLsetVal_i 1, ihwfn FLsetVal_i 3, ihsfn FLsetVal_i 0, gihlstart FLsetVal_i 1, gihlend FLsetVal_i 0, ihnoloop FLsetVal_i 1, ihMIDItoPitch FLsetVal_i 0.05, ihAtt FLsetVal_i 0.05, ihRel FLsetVal_i 1, ihMIDItoPitch FLpanel_end ;END OF PANEL CONTENTS ;INSTRUCTIONS AND INFO PANEL FLpanel " ", 515, 640, 512, 0 ;TEXT BOXES TYPE | FONT | SIZE | WIDTH | HEIGHT | X | Y ih FLbox " syncloop ", 1, 5, 14, 490, 20, 5, 0 ih FLbox "-------------------------------------------------------------", 1, 5, 14, 490, 20, 5, 20 ih FLbox "syncloop is a variation of syncgrain. For further information", 1, 5, 14, 490, 20, 5, 40 ih FLbox "see the example for syncgrain first. ", 1, 5, 14, 490, 20, 5, 60 ih FLbox "syncloop adds start and end loop points which are k-rate and ", 1, 5, 14, 490, 20, 5, 80 ih FLbox "therefore editable in real-time. ", 1, 5, 14, 490, 20, 5, 100 ih FLbox "Some additional functions have been added that are not part ", 1, 5, 14, 490, 20, 5, 120 ih FLbox "of the original opcode: 'Grain Density' (frequency) and ", 1, 5, 14, 490, 20, 5, 140 ih FLbox "'Grain Size' can be randomized. The 'Freeze' button sets ", 1, 5, 14, 490, 20, 5, 160 ih FLbox "the 'Progress Rate' slider to zero thereby effectively ", 1, 5, 14, 490, 20, 5, 180 ih FLbox "freezing progress through the sound file. The 'Loop Start & ", 1, 5, 14, 490, 20, 5, 200 ih FLbox "End' slider controls both the 'Loop Start' and 'Loop End' ", 1, 5, 14, 490, 20, 5, 220 ih FLbox "sliders simultaneously - the loop size will be zero so again ", 1, 5, 14, 490, 20, 5, 240 ih FLbox "progress through the sound file will be zero, the difference ", 1, 5, 14, 490, 20, 5, 260 ih FLbox "this time is that the user can freely define where within the", 1, 5, 14, 490, 20, 5, 280 ih FLbox "sound file freezing is taking place. ", 1, 5, 14, 490, 20, 5, 300 ih FLbox "This instrument can also be activated via MIDI. MIDI pitch ", 1, 5, 14, 490, 20, 5, 320 ih FLbox "values can be mapped to grain density and/or to the pitch of ", 1, 5, 14, 490, 20, 5, 340 ih FLbox "the material contained within the grain. In the latter ", 1, 5, 14, 490, 20, 5, 360 ih FLbox "mapping option, middle C is the point at which no ", 1, 5, 14, 490, 20, 5, 380 ih FLbox "transposition occurs. Using MIDI activation, polyphony is ", 1, 5, 14, 490, 20, 5, 400 ih FLbox "possible. ", 1, 5, 14, 490, 20, 5, 420 ih FLbox "The attack and release times of an amplitude envelope applied", 1, 5, 14, 490, 20, 5, 440 ih FLbox "to the entire grain cloud can be modulated by the user using ", 1, 5, 14, 490, 20, 5, 460 ih FLbox "two on screen sliders. These controls are probably most ", 1, 5, 14, 490, 20, 5, 480 ih FLbox "useful when triggering this example via MIDI. ", 1, 5, 14, 490, 20, 5, 500 ih FLbox "Audio output can be rendered by clicking 'File Open' and then", 1, 5, 14, 490, 20, 5, 520 ih FLbox "activating 'Record'. Recording can be paused and restarted by", 1, 5, 14, 490, 20, 5, 540 ih FLbox "deactivating and reactivating the 'Record' button. Clicking ", 1, 5, 14, 490, 20, 5, 560 ih FLbox "'File Open' again will clear any previously recorded ", 1, 5, 14, 490, 20, 5, 580 ih FLbox "material. A 24 bit sound file called 'SyncloopOutput.wav' ", 1, 5, 14, 490, 20, 5, 600 ih FLbox "will be created in the default directory for SFDIR. ", 1, 5, 14, 490, 20, 5, 620 FLpanel_end ;RECORD OUTPUT PANEL FLpanel "Record", 300, 35, 512, 695 ;BUTTONS LABEL | ON | OFF | TYPE | WIDTH | HEIGHT | X | Y | OPCODE | INS | STARTTIM | DUR gkfileopen,ihfileopen FLbutton "File Open", 1, 0, 21, 140, 25, 5, 5, 0, 99, 0, -1 gkrecord,ihrecord FLbutton "Record", 1, 0, 22, 140, 25, 150, 5, -1 FLsetColor2 255, 255, 50, ihfileopen ;SET SECONDARY COLOUR TO YELLOW FLsetColor2 255, 50, 50, ihrecord ;SET SECONDARY COLOUR TO RED FLpanel_end ;END OF PANEL CONTENTS FLrun ;RUN THE FLTK WIDGET THREAD ;END OF FLTK INTERFACE CODE;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; THE SOUND FILE USED IN THE GRANULATION ; NUM | INIT_TIME | SIZE | GEN_ROUTINE | FILE_PATH | IN_SKIP | FORMAT | CHANNEL gisfn1L ftgen 0, 0, 0, 1, "AndItsAll.wav", 0, 4, 1 ;SYNCLOOP ACCEPTS DEFERRED SIZE (SIZE=0) FUNCTION TABLES gisfn2L ftgen 0, 0, 0, 1, "808loop.wav", 0, 4, 1 gisfn3L ftgen 0, 0, 0, 1, "ClassicalGuitar.wav", 0, 4, 1 gisfn1R ftgen 0, 0, 0, 1, "AndItsAll.wav", 0, 4, 1 ;MONO FILE SO USE LEFT CHANNEL AGAIN gisfn2R ftgen 0, 0, 0, 1, "808loop.wav", 0, 4, 1 ;MONO FILE SO USE LEFT CHANNEL AGAIN gisfn3R ftgen 0, 0, 0, 1, "ClassicalGuitar.wav", 0, 4, 2 ;STEREO FILE SO USE RIGHT CHANNEL ; WINDOWING FUNCTIONS USED TO DYNAMICALLY SHAPE THE GRAINS ; NUM | INIT_TIME | SIZE | GEN_ROUTINE | PARTIAL_NUM | STRENGTH | PHASE ;GRAIN ENVELOPE WINDOW FUNCTION TABLES: giwfn1 ftgen 0, 0, 131072, 9, .5, 1, 0 ; HALF SINE giwfn2 ftgen 0, 0, 131072, 7, 0, 3072, 1, 128000, 0 ; PERCUSSIVE - STRAIGHT SEGMENTS giwfn3 ftgen 0, 0, 131072, 5, .001, 3072, 1, 128000, .001 ; PERCUSSIVE - EXPONENTIAL SEGMENTS giwfn4 ftgen 0, 0, 131072, 7, 0, 1536, 1, 128000, 1, 1536, 0 ; GATE - WITH DE-CLICKING RAMP UP AND RAMP DOWN SEGMENTS giwfn5 ftgen 0, 0, 131072, 7, 0, 128000, 1, 3072, 0 ; REVERSE PERCUSSIVE - STRAIGHT SEGMENTS giwfn6 ftgen 0, 0, 131072, 5, .001, 128000, 1, 3072, .001 ; REVERSE PERCUSSIVE - EXPONENTIAL SEGMENTS instr 1 iporttime = 0.1 kporttime linseg 0,0.01,iporttime,1,iporttime iMIDIActiveValue = 1 ;IF MIDI ACTIVATED iMIDIflag = 0 ;IF FLTK ACTIVATED mididefault iMIDIActiveValue, iMIDIflag ;IF NOTE IS MIDI ACTIVATED REPLACE iMIDIflag WITH iMIDIActiveValue icps cpsmidi ;READ MIDI PITCH VALUES - THIS VALUE CAN BE MAPPED TO GRAIN DENSITY AND/OR PITCH DEPENDING ON THE SETTING OF THE MIDI MAPPING SWITCHES if gkOnOff=0&&iMIDIflag=0 then ;SENSE FLTK ON/OFF SWITCH & WHETHER THIS IS A MIDI NOTE ITS STATUS WILL BE IGNORED turnoff ;TURNOFF THIS INSTRUMENT IMMEDIATELY endif if iMIDIflag=1&&gkMIDItoDensity=1 then ;IF THIS IS A MIDI ACTIVATED NOTE AND MIDI-TO-DENSITY SWITCH IS ON... kfreq = icps ;MAP TO MIDI NOTE VALUE TO DENSITY else ;OTHERWISE... kfreq portk gkfreq, kporttime ;USE THE FLTK SLIDER VALUE endif ;END OF THIS CONDITIONAL BRANCH if iMIDIflag=1&&gkMIDItoPitch=1 then ;IF THIS IS A MIDI ACTIVATED NOTE AND MIDI-TO-PITCH SWITCH IS ON... kpitch = icps/cpsoct(8) ;MAP TO MIDI NOTE VALUE TO PITCH (CONVERT TO RATIO: MIDDLE C IS POINT OF UNISON) else ;OTHERWISE... kpitch portk gkpitch, kporttime ;USE THE FLTK SLIDER VALUE endif ;END OF THIS CONDITIONAL BRANCH kSwitch changed gksfn, gkwfn ;GENERATE A MOMENTARY '1' PULSE IN OUTPUT 'kSwitch' IF ANY OF THE SCANNED INPUT VARIABLES CHANGE. (OUTPUT 'kSwitch' IS NORMALLY ZERO) if kSwitch=1 then ;IF I-RATE VARIABLE IS CHANGED... reinit UPDATE ;BEGIN A REINITIALISATION PASS IN ORDER TO EFFECT THIS CHANGE. BEGIN THIS PASS AT LABEL ENTITLED 'UPDATE' AND CONTINUE UNTIL rireturn OPCODE endif ;END OF CONDITIONAL BRANCHING UPDATE: ;LABEL ktrigloop changed gknoloop ;IF FLTK SLIDER 'Loop Start & End' IS MOVED GENERATE A MOMENTARY '1' FLsetVal ktrigloop, gknoloop, gihlstart ;IF ktrigloop IS '1' UPDATE 'Loop Start' SLIDER WITH THE VALUE OF gknoloop ('Loop Start & End') FLsetVal ktrigloop, gknoloop, gihlend ;IF ktrigloop IS '1' UPDATE 'Loop End' SLIDER WITH THE VALUE OF gknoloop ('Loop Start & End') isfnL = gisfn1L + i(gksfn) - 1 ;FUNCTION TABLE NUMBER FOR SOURCE SOUND FILE IS DERIVED isfnR = gisfn1R + i(gksfn) - 1 ;FUNCTION TABLE NUMBER FOR SOURCE SOUND FILE IS DERIVED iwfn = giwfn1 + i(gkwfn) - 1 ;FUNCTION TABLE NUMBER FOR WINDOWING FUNCTION IS DERIVED ilen = nsamp(isfnL)/sr ;LENGTH OF THE SOURCE SOUND FILE iolaps = 1000 ;NUMBER OF ALLOWED OVERLAPS - BEST JUST TO GIVE THIS A LARGE CONSTANT VALUE kfreqOS rand gkfreqOS ;kfreqOS IS A K-RATE RANDOM NUMBER WITHIN THE RANGE -gkfreqOS TO gkfreqOS kfreqOS = kfreqOS * gkfreq ;kfreqOS IS REDEFINED RELATIVE TO THE CURRENT VALUE OF gkfreq kgrsizeOS gauss gksizeOS ;kgrsizeOS IS A K-RATE GAUSSIAN RANDOM NUMBER WITHIN THE RANGE -gksizeOS TO gksizeOS kgrsizeOS = kgrsizeOS * gkgrsize ;kgrsizeOS IS REDEFINED RELATIVE TO THE CURRENT VALUE OF gkgrsize asigL syncloop gkamp, kfreq+kfreqOS, kpitch, gkgrsize+kgrsizeOS, gkprate*gkfreeze, gklstart*ilen, gklend*ilen, isfnL, iwfn, iolaps ;LEFT CHANNEL GRANULAR SYNTHESIS asigR syncloop gkamp, kfreq+kfreqOS, kpitch, gkgrsize+kgrsizeOS, gkprate*gkfreeze, gklstart*ilen, gklend*ilen, isfnR, iwfn, iolaps ;RIGHT CHANNEL GRANULAR SYNTHESIS aenv expsegr 0.0001,i(gkAtt),1,i(gkRel),0.0001 ; CLOUD AMPLITUDE ENVELOPE outs asigL*aenv, asigR*aenv ;SEND AUDIO TO OUTPUTS rireturn ;DENOTES THE END OF A REINITIALISATION PASS endin instr 99 ;RECORDING INSTRUMENT if gkrecord=1 then ;IF 'Record' switch is on... aL,aR monitor ; OPCODE FILENAME | FORMAT | OUT1 | OUT2 etc... fout "SyncloopOutput.wav", 8, aL, aR ; AUDIO FILE OUTPUT FORMAT IS 24 BIT. CHANGE IF REQUIRED endif endin f 0 3600 ;DUMMY SCORE EVENT - SUSTAINS REALTIME PERFORMANCE FOR 1 HOUR