;Written by Iain McCurdy, 2009 ;COMMENT OR UNCOMMENT CSOUND FLAGS AS REQUIRED ;-odevaudio -M0 -b400 ;EXTERNAL MIDI -odevaudio -M0 -+rtmidi=virtual -b400 ;VIRTUAL MIDI DEVICE ;-odevaudio -b400 ;NO MIDI DEVICE sr = 22050 ;SAMPLE RATE ksmps = 10 ;NUMBER OF AUDIO SAMPLES IN EACH CONTROL CYCLE nchnls = 2 ;NUMBER OF CHANNELS (2=STEREO) 0dbfs = 1 ;MAXIMUM AMPLITUDE REGARDLESS OF BIT DEPTH ;FLTK INTERFACE CODE;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; FLcolor 255, 255, 255, 0, 0, 0 ; LABEL | WIDTH | HEIGHT | X | Y FLpanel "mandol", 500, 350, 0, 0 ;BUTTONS ON | OFF | TYPE | WIDTH | HEIGHT | X | Y | OPCODE | INS | STARTTIM | IDUR gkOnOff,ihOnOff FLbutton "Pluck!", 1, 0, 21, 200, 30, 150, 5, 0, 2, 0, -1 ;VALUE DISPLAY BOXES LABEL | WIDTH | HEIGHT | X | Y idamp FLvalue " ", 100, 18, 5, 75 idfreq FLvalue " ", 100, 18, 5, 125 idpluck FLvalue " ", 100, 18, 5, 175 iddetune FLvalue " ", 100, 18, 5, 225 idgain FLvalue " ", 100, 18, 5, 275 idsize FLvalue " ", 100, 18, 5, 325 ;SLIDERS MIN | MAX | EXP | TYPE | DISP | WIDTH | HEIGHT | X | Y gkamp, gihamp FLslider "Amplitude", 0, 1, 0, 23, idamp, 490, 25, 5, 50 gkfreq, gihfreq FLslider "Frequency", 20, 10000, -1, 23, idfreq, 490, 25, 5, 100 gkpluck, ihpluck FLslider "Pluck Position", 0.001, 1, 0, 23, idpluck, 490, 25, 5, 150 gkdetune, ihdetune FLslider "Detune", 0.9, 2, 0, 23, iddetune, 490, 25, 5, 200 gkgain,ihgain FLslider "Gain", 0.97, 1, 0, 23, idgain, 490, 25, 5, 250 gksize,ihsize FLslider "Size", 0.004, 2, 0, 23, idsize, 490, 25, 5, 300 ;SET INITIAL VALUES OF FLTK VALUATORS ; VALUE | HANDLE FLsetVal_i 0.3, gihamp FLsetVal_i 250, gihfreq FLsetVal_i 0.1, ihpluck FLsetVal_i 0.9, ihdetune FLsetVal_i 0.97, ihgain FLsetVal_i 1, ihsize FLpanel_end ;INSTRUCTIONS AND INFO PANEL FLpanel " ", 500, 260, 512, 0 ;TEXT BOXES TYPE | FONT | SIZE | WIDTH | HEIGHT | X | Y ih FLbox " mandol ", 1, 5, 14, 490, 20, 5, 0 ih FLbox "-------------------------------------------------------------", 1, 5, 14, 490, 20, 5, 20 ih FLbox "'mandol' implements a physical model of a mandolin. ", 1, 5, 14, 490, 20, 5, 40 ih FLbox "This instrument can be triggered by either the FLTK button or", 1, 5, 14, 490, 20, 5, 60 ih FLbox "by a connected MIDI keyboard. ", 1, 5, 14, 490, 20, 5, 80 ih FLbox "'detune' controls the amount of detuning between each pair of", 1, 5, 14, 490, 20, 5, 100 ih FLbox "strings. ", 1, 5, 14, 490, 20, 5, 120 ih FLbox "'Gain' controls the amount of feedback within the algorithm ", 1, 5, 14, 490, 20, 5, 140 ih FLbox "which ultimately gives control over the sustain of the ", 1, 5, 14, 490, 20, 5, 160 ih FLbox "instrument. ", 1, 5, 14, 490, 20, 5, 180 ih FLbox "'Size' is a control over the size of the instrument. ", 1, 5, 14, 490, 20, 5, 200 ih FLbox "'Pluck Position' offers control over where, along the length ", 1, 5, 14, 490, 20, 5, 220 ih FLbox "of the string, plucking occurs. ", 1, 5, 14, 490, 20, 5, 240 FLpanel_end FLrun ;RUN THE FLTK WIDGET THREAD ;END OF FLTK INTERFACE CODE;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; gifn ftgen 2,0,16384,1,"mandpluk.aiff",0,0,1 instr 1 ;MIDI ACTIVATED INSTRUMENT ifreq cpsmidi ;FREQUENCY IS READ FROM INCOMING MIDI NOTE iamp ampmidi 1 ;AMPLITUDE IS READ FROM INCOMING MIDI NOTE FLsetVal_i iamp, gihamp ;SEND AMPLITUDE VALUE TO AMPLITUDE SLIDER FLsetVal_i ifreq, gihfreq ;SEND FREQUENCY VALUE TO FREQUENCY SLIDER a1,a2 subinstr 2 ;CALL INSTRUMENT 2 AS A SUB-INSTRUMENT. OUTPUT ARGUMENTS WILL BE THE AUDIO OUTS OF CALLED INSTRUMENT aenv linsegr 1,3600,1,0.1,0 ;CREATE AN AMPLITUDE ENVELOPE. THIS WILL BE USED TO PREVENT CLICKS. outs a1*aenv, a2*aenv ;SEND AUDIO TO OUTPUTS endin instr 2 ;FLTK BUTTON ACTIVATED INSTRUMENT ares mandol i(gkamp), i(gkfreq), gkpluck, gkdetune, gkgain, gksize, gifn ;[, iminfreq] outs ares, ares ;SEND AUDIO TO OUTPUTS, OR TO CALLER INSTRUMENT IF THIS INSTRUMENT HAS BEEN CALLED BY INSTRUMENT 2 endin f 0 3600 ;REALTIME PERFORMANCE FOR 1 HOUR