FMModModCar.csd Written by Iain McCurdy, 2008 -odac -M0 -dm0 -+rtmidi=virtual sr = 44100 ksmps = 128 nchnls = 2 ;FLTK INTERFACE CODE;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; FLcolor 255, 255, 255, 0, 0, 0 ;SET INTERFACE COLOURS ; LABEL | WIDTH | HEIGHT | X | Y FLpanel "FM Synthesis: Modulator->Modulator->Carrier", 500, 450, 0, 0 ; FLBUTBANK TYPE | NUMX | NUMY | WIDTH | HEIGHT | X | Y | IOPCODE | P1 | P2 | P3 gkFLTK_MIDI, ihFLTK_MIDI FLbutBank 4, 1, 2, 20, 40, 5, 5, 0, 2, 0, -1 ;TEXT BOXES TYPE | FONT | SIZE | WIDTH | HEIGHT | X | Y ih FLbox "MIDI", 1, 6, 17, 50, 20, 23, 4 ih FLbox "FLTK", 1, 6, 17, 50, 20, 23, 24 ; ON | OFF | TYPE | WIDTH | HEIGHT | X | Y | OPCODE | INS | STARTTIM | IDUR gkquit,ihquit FLbutton "Quit", 1, 0, 21, 140, 28, 355, 5, 0, 100, 0, 0 ;VALUE DISPLAY BOXES WIDTH | HEIGHT | X | Y idbasefreq FLvalue " ", 60, 20, 5, 75 ;idindex1 FLvalue " ", 60, 20, 5, 125 idindex2 FLvalue " ", 60, 20, 5, 175 idCarAmp FLvalue " ", 60, 20, 5, 325 ;SLIDERS MIN | MAX | EXP | TYPE | DISP | WIDTH | HEIGHT | X | Y gkbasefreq, gihbasefreq FLslider "Base Frequency", 20, 20000, -1, 23, idbasefreq, 490, 25, 5, 50 gkindex1, gihindex1S FLslider "Modulation Index 1", 0, 100, 0, 23, -1, 395, 25, 5, 100 gkindex2, gihindex2 FLslider "Modulation Index 2", 0, 100, 0, 23, idindex2, 395, 25, 5, 150 gkCarAmp, gihCarAmp FLslider "Carrier Amplitude", 0, 30000, 0, 23, idCarAmp, 490, 25, 5, 300 ; MIN | MAX | STEP | TYPE | WIDTH | HEIGHT | X | Y gkindex1, gihindex1T FLtext " ", 0, 100, .0001, 1, 60, 20, 5, 125 ;BORDERS ITYPE, IFONT, ISIZE, IWIDTH, IHEIGHT, IX, IY ih FLbox " ", 6, 9, 15, 300, 70, 100, 210 ; MIN | MAX | STEP | TYPE | WIDTH | HEIGHT | X | Y gkCarRatio, gihCarRatio FLtext " ", .125, 20, .0001, 1, 60, 20, 140, 220 gkMod1Ratio, gihMod1Ratio FLtext " ", .125, 20, .0001, 1, 60, 20, 220, 220 gkMod2Ratio, gihMod2Ratio FLtext " ", .125, 20, .0001, 1, 60, 20, 300, 220 gkPeakDev1, gihPeakDev1 FLtext "P. Dev. 1", 0, 10000, 0, 1, 80, 20, 410, 115 ;DISPLAY ONLY! gkPeakDev2, gihPeakDev2 FLtext "P. Dev. 2", 0, 10000, 0, 1, 80, 20, 410, 165 ;DISPLAY ONLY! ;TEXT BOXES TYPE | FONT | SIZE | WIDTH | HEIGHT | X | Y ih FLbox ":", 1, 5, 14, 5, 15, 208, 222 ih FLbox ":", 1, 5, 14, 5, 15, 288, 222 ih FLbox "Carrier Frequency", 1, 5, 12, 90, 15, 115, 250 ih FLbox "Mod. 1 Frequency", 1, 5, 12, 90, 15, 205, 250 ih FLbox "Mod. 2 Frequency", 1, 5, 12, 90, 15, 285, 250 FLsetVal_i 100, gihbasefreq FLsetVal_i 3, gihindex1S FLsetVal_i 3, gihindex1T FLsetVal_i 3, gihindex2 FLsetVal_i 1, gihCarRatio FLsetVal_i 1, gihMod1Ratio FLsetVal_i 1, gihMod2Ratio FLsetVal_i 5000, gihCarAmp ;BORDERS ITYPE, IFONT, ISIZE, IWIDTH, IHEIGHT, IX, IY ih FLbox " ", 3, 9, 15, 480, 70, 10, 360 ; ON | OFF | TYPE | WIDTH | HEIGHT | X | Y | OPCODE | INS | STARTTIM | IDUR | p4(BASE FREQ) | p5(INDEX 1) | p6(INDEX 2) | p7(CAR_RATIO) | p8(MOD_1_RATIO) | p9(MOD_2_RATIO) gkPreset,ih FLbutton "1", 1, 0, 21, 30, 25, 90, 382, 0, 3, 0, 0, 100, 3, 3, 1, 1, 1 gkPreset,ih FLbutton "2", 1, 0, 21, 30, 25, 140, 382, 0, 3, 0, 0, 122, 18, 4.6753, 1, 8.9852, 1.0036 gkPreset,ih FLbutton "3", 1, 0, 21, 30, 25, 190, 382, 0, 3, 0, 0, 70, 0.0007, 17.143, 1, 0.9992, 1 gkPreset,ih FLbutton "4", 1, 0, 21, 30, 25, 240, 382, 0, 3, 0, 0, 3622, 74.8052, 74.8, 1, 1, 2 gkPreset,ih FLbutton "5", 1, 0, 21, 30, 25, 290, 382, 0, 3, 0, 0, 86, 100, 5.7143, 1, 4, 1.001 gkPreset,ih FLbutton "6", 1, 0, 21, 30, 25, 340, 382, 0, 3, 0, 0, 271, 1.3, 4, 1, 1.3001, 1.3 gkPreset,ih FLbutton "7", 1, 0, 21, 30, 25, 390, 382, 0, 3, 0, 0, 69, 31, 3.1169, 15, 14, 13 gkPreset,ih FLbutton "8", 1, 0, 21, 30, 25, 440, 382, 0, 3, 0, 0, 93, 1.2987, 4.1558, 15, 12.9723, 13 ;TEXT BOXES TYPE | FONT | SIZE | WIDTH | HEIGHT | X | Y ih FLbox "Presets:", 1, 11, 16, 70, 15, 15, 385 FLpanel_end ;INSTRUCTIONS AND INFO PANEL FLpanel " ", 500, 660, 512, 0 ;TEXT BOXES TYPE | FONT | SIZE | WIDTH | HEIGHT | X | Y ih FLbox " FM Synthesis: Modulator->Modulator->Carrier ", 1, 5, 14, 490, 15, 5, 0 ih FLbox "-------------------------------------------------------------", 1, 5, 14, 490, 15, 5, 20 ih FLbox " +-----+ ", 1, 5, 14, 490, 15, 5, 40 ih FLbox " |MOD.1| ", 1, 5, 14, 490, 15, 5, 60 ih FLbox " +--+--+ ", 1, 5, 14, 490, 15, 5, 80 ih FLbox " | ", 1, 5, 14, 490, 15, 5, 100 ih FLbox " +--+--+ ", 1, 5, 14, 490, 15, 5, 120 ih FLbox " |MOD.2| ", 1, 5, 14, 490, 15, 5, 140 ih FLbox " +--+--+ ", 1, 5, 14, 490, 15, 5, 160 ih FLbox " | ", 1, 5, 14, 490, 15, 5, 180 ih FLbox " +--+--+ ", 1, 5, 14, 490, 15, 5, 200 ih FLbox " |CAR. | ", 1, 5, 14, 490, 15, 5, 220 ih FLbox " +--+--+ ", 1, 5, 14, 490, 15, 5, 240 ih FLbox " | ", 1, 5, 14, 490, 15, 5, 260 ih FLbox " V ", 1, 5, 14, 490, 15, 5, 280 ih FLbox " OUT ", 1, 5, 14, 490, 15, 5, 300 ih FLbox " ", 1, 5, 14, 490, 15, 5, 320 ih FLbox "This three oscillator algorithm has the audio output of a ", 1, 5, 14, 490, 15, 5, 340 ih FLbox "modulator modulating the frequency of a second modulator, ", 1, 5, 14, 490, 15, 5, 360 ih FLbox "the audio output of which modulates the frequency of a ", 1, 5, 14, 490, 15, 5, 380 ih FLbox "carrier. ", 1, 5, 14, 490, 15, 5, 400 ih FLbox "The modulation index control for modulator 2, as well as ", 1, 5, 14, 490, 15, 5, 420 ih FLbox "controlling the amount of influence modulator 2 has on the ", 1, 5, 14, 490, 15, 5, 440 ih FLbox "carrier, inevitably also governs the influence modulator 1 ", 1, 5, 14, 490, 15, 5, 460 ih FLbox "has on the carrier. ", 1, 5, 14, 490, 15, 5, 480 ih FLbox "This type of arrangement is capable of generating extremely ", 1, 5, 14, 490, 15, 5, 500 ih FLbox "complex and sometimes chaotic spectra therefore care and ", 1, 5, 14, 490, 15, 5, 520 ih FLbox "subtlety are probably needed. ", 1, 5, 14, 490, 15, 5, 540 ih FLbox "Note that 'Modulation Index 1' is also controllable from the ", 1, 5, 14, 490, 15, 5, 560 ih FLbox "number box beneath the slider. This is included to permit ", 1, 5, 14, 490, 15, 5, 580 ih FLbox "fine and precise control of this parameter. ", 1, 5, 14, 490, 15, 5, 600 ih FLbox "Some of the presets in this example demonstrate the more ", 1, 5, 14, 490, 15, 5, 620 ih FLbox "extreme and strident spectra possible with this FM algorithm.", 1, 5, 14, 490, 15, 5, 640 FLpanel_end FLrun ;RUN THE FLTK WIDGET THREAD ;END OF FLTK INTERFACE CODE;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; gisine ftgen 0,0,4096,10,1 ;A SINE WAVE instr 1 ;MIDI INPUT INSTRUMENT if gkFLTK_MIDI=1 then ;IF FLTK/MIDI SWITCH IS SET TO 'FLTK'... turnoff ;TURN THIS INSTRUMENT OFF endif ;END OF CONDITIONAL BRANCHING icps cpsmidi ;READ CYCLES PER SECOND VALUE FROM MIDI INPUT iamp ampmidi 1 ;READ IN A NOTE VELOCITY VALUE FROM THE MIDI INPUT ; P1 | P4 | P5 aoutL, aoutR subinstr 2, icps, iamp ;ACTIVATE A SUB-INSTRUMENT outs aoutL, aoutR ;SEND AUDIO TO SPEAKERS endin instr 2 ;FM INSTRUMENT kactive1 active 1 ;SENSE NUMBER OF ACTIVE INSTANCES OF INSTRUMENT 1 (I.E. MIDI ACTIVATED INSTRUMENT) if gkFLTK_MIDI=0&&kactive1=0 then ;IF FLTK/MIDI SWITCH IS SET TO 'MIDI' AND NO MIDI NOTES ARE ACTIVE... turnoff ;TURN THIS INSTRUMENT endif ;END OF CONDITIONAL BRANCHING if gkFLTK_MIDI = 1 then ;IF FLTK/MIDI SWITCH IS SET TO 'FLTK'... kbasefreq = gkbasefreq ;SET kbasefreq (BASE FREQUENCY) TO SLIDER VARIABLE gkbasefreq kCarAmp = gkCarAmp ;SET kCarAmp (CARRIER AMPLITUDE) TO SLIDER VARIABLE gkCarAmp else ;OTHERWISE... kbasefreq = p4 ;SET FUNDEMENTAL TO RECEIVED p4 RECEIVED FROM INSTR 1. I.E. MIDI PITCH kCarAmp = p5 * gkCarAmp ;SET AMPLITUDE TO RECEIVED p5 RECEIVED FROM INSTR 1 (I.E. MIDI VELOCITY) MULTIPLIED BY FLTK SLIDER gkamp. endif ;END OF CONDITIONAL BRANCHING iporttime = .02 ;PORTAMENTO TIME (TO BE APPLIED TO K-RATE VARIABLES IN ORDER TO IMPLEMENT DAMPING) kporttime linseg 0, .001, iporttime, 1, iporttime ;FINAL VARIABLE WILL RAMP UP kbasefreq portk kbasefreq, kporttime ;PORTAMENTO APPLIED kindex1 portk gkindex1, kporttime ;PORTAMENTO APPLIED kindex2 portk gkindex2, kporttime ;PORTAMENTO APPLIED kCarAmp portk kCarAmp, kporttime ;PORTAMENTO APPLIED kpeakdeviation1 = kbasefreq * kindex1 ;CALCUALATE THE PEAK DEVIATION OF THE MODULATOR FROM THE VALUES GIVEN FOR BASE FREQUENCY AND THE INDEX OF MODULATION kpeakdeviation2 = kbasefreq * kindex2 ;CALCUALATE THE PEAK DEVIATION OF THE MODULATOR FROM THE VALUES GIVEN FOR BASE FREQUENCY AND THE INDEX OF MODULATION aAntiClick linsegr 0,0.001,1,0.01,0 ;ANTI CLICK ENVELOPE ;OUTPUT OPCODE AMPLITUDE | FREQUENCY | FUNCTION_TABLE aModulator1 oscili kpeakdeviation1, kbasefreq * gkMod1Ratio, gisine ;DEFINE THE MODULATOR WAVEFORM aModulator2 oscili kpeakdeviation2, (kbasefreq * gkMod2Ratio) + aModulator1, gisine ;DEFINE THE MODULATOR WAVEFORM aCarrier oscili kCarAmp*aAntiClick,(kbasefreq * gkCarRatio) + aModulator2, gisine ;DEFINE THE CARRIER WAVEFORM (NOTE HOW ITS FREQUENCY IS MODULATED (THROUGH ADDITION) BY THE AUDIO OUTPUT OF THE MODULATOR WAVEFORM) outs aCarrier, aCarrier ;SEND THE AUDIO OUTPUT OF THE CARRIER WAVEFORM *ONLY* TO THE OUTPUTS ktrig metro 10 ;CREATE A REPEATING TRIGGER SIGNAL FLsetVal ktrig, kpeakdeviation1, gihPeakDev1 ;UPDATE VALUE BOX 'gihPeakDev' WITH THE VALUE kpeakdeviation WHENEVER A TRIGGER PULSE IS RECEIVED FLsetVal ktrig, kpeakdeviation2, gihPeakDev2 ;UPDATE VALUE BOX 'gihPeakDev' WITH THE VALUE kpeakdeviation WHENEVER A TRIGGER PULSE IS RECEIVED FLsetVal ktrig, gkindex1, gihindex1S ;UPDATE VALUE BOX 'gihPeakDev' WITH THE VALUE kpeakdeviation WHENEVER A TRIGGER PULSE IS RECEIVED FLsetVal ktrig, gkindex1, gihindex1T ;UPDATE VALUE BOX 'gihPeakDev' WITH THE VALUE kpeakdeviation WHENEVER A TRIGGER PULSE IS RECEIVED endin instr 3 ;PRESETS (ACTIVATED BY ON-SCREEN FLTK BUTTONS) FLsetVal_i p4, gihbasefreq FLsetVal_i p5, gihindex1S FLsetVal_i p5, gihindex1T FLsetVal_i p6, gihindex2 FLsetVal_i p7, gihCarRatio FLsetVal_i p8, gihMod1Ratio FLsetVal_i p9, gihMod2Ratio endin instr 100 ;EXIT exitnow endin f 1 0 129 10 1 ;A SINE WAVE (INTERPOLATING OSCILLATOR OPCODES ARE USED THEREFORE A SMALL TABLE SIZE (+1) CAN BE USED) f 0 3600 ;DUMMY SCORE EVENT - KEEPS REALTIME PERFORMANCE GOING FOR ONE HOUR