;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 "marimba", 500, 500, 0, 0 ;BUTTONS ON | OFF | TYPE | WIDTH | HEIGHT | X | Y | OPCODE | INS | STARTTIM | IDUR gkOnOff,ihOnOff FLbutton "Strike!", 1, 0, 21, 200, 30, 5, 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 idhrd FLvalue " ", 100, 18, 5, 175 idpos FLvalue " ", 100, 18, 5, 225 idvibf FLvalue " ", 100, 18, 5, 275 idvamp FLvalue " ", 100, 18, 5, 325 iddec FLvalue " ", 100, 18, 5, 375 iddoubles FLvalue " ", 100, 18, 5, 425 idtriples FLvalue " ", 100, 18, 5, 475 ;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 gkhrd, ihhrd FLslider "Stick Hardness", 0, 1, 0, 23, idhrd, 490, 25, 5, 150 gkpos, ihpos FLslider "Strike Position", 0, 1, 0, 23, idpos, 490, 25, 5, 200 gkvibf,ihvibf FLslider "Vibrato Frequency", 0, 15, 0, 23, idvibf, 490, 25, 5, 250 gkvamp,ihvamp FLslider "Vibrato Amplitude", 0, 1, 0, 23, idvamp, 490, 25, 5, 300 gkdec,ihdec FLslider "Decay Time", 0, 5, 0, 23, iddec, 490, 25, 5, 350 gkdoubles,ihdoubles FLslider "Doubles (% likelihood)", 0.00001, 100, 0, 23, iddoubles, 490, 25, 5, 400 gktriples,ihtriples FLslider "Triples (% likelihood)", 0.00001, 100, 0, 23, idtriples, 490, 25, 5, 450 ;GENERAL_TEXT_SETTINGS SIZE | FONT | ALIGN | RED | GREEN | BLUE FLlabel 13, 4, 1, 255, 255, 255 ;LABELS MADE INVISIBLE (I.E. SAME COLOR AS PANEL) ;BUTTON BANKS TYPE | NUMX | NUMY | WIDTH | HEIGHT | X | Y | OPCODE | INS | STARTTIM | DUR gkimp, ihimp FLbutBank 3, 1, 2, 18, 40, 330, 0, -1 ;GENERAL_TEXT_SETTINGS SIZE | FONT | ALIGN | RED | GREEN | BLUE FLlabel 13, 4, 1, 0, 0, 0 ;LABELS MADE VISIBLE AGAIN ;TEXT BOXES TYPE | FONT | SIZE | WIDTH | HEIGHT | X | Y ih FLbox "IMPULSE:", 1, 6, 14, 60, 20, 270, 0 ih FLbox "marmstk1 ", 1, 5, 14, 60, 20, 360, 0 ih FLbox "soundscape", 1, 5, 14, 60, 20, 360, 20 ;SET INITIAL VALUES OF FLTK VALUATORS ; VALUE | HANDLE FLsetVal_i 0.3, gihamp FLsetVal_i 250, gihfreq FLsetVal_i 0.5, ihhrd FLsetVal_i 0.4, ihpos FLsetVal_i 0.5, ihvibf FLsetVal_i 0, ihvamp FLsetVal_i 1, ihdec FLsetVal_i 0.00001,ihdoubles FLsetVal_i 0.00001,ihtriples FLpanel_end ;INSTRUCTIONS AND INFO PANEL FLpanel " ", 500, 280, 512, 0 ;TEXT BOXES TYPE | FONT | SIZE | WIDTH | HEIGHT | X | Y ih FLbox " marimba ", 1, 5, 14, 490, 20, 5, 0 ih FLbox "-------------------------------------------------------------", 1, 5, 14, 490, 20, 5, 20 ih FLbox "'marimba' is a physical model of a marimba tone. ", 1, 5, 14, 490, 20, 5, 40 ih FLbox "'Stick Hardness' and 'Strike Position' create some variation ", 1, 5, 14, 490, 20, 5, 60 ih FLbox "in tone but this is quite subtle. ", 1, 5, 14, 490, 20, 5, 80 ih FLbox "'Decay Time' controls the time before the end of the note ", 1, 5, 14, 490, 20, 5, 100 ih FLbox "when damping is introduced. ", 1, 5, 14, 490, 20, 5, 120 ih FLbox "By replacing the sample suggested for the strike impulse ", 1, 5, 14, 490, 20, 5, 140 ih FLbox "(marmstk1.wav) with a longer sample, a longer duration tone ", 1, 5, 14, 490, 20, 5, 160 ih FLbox "is possible. ", 1, 5, 14, 490, 20, 5, 180 ih FLbox "'Doubles' and 'Triples' controls the percentage chance of a ", 1, 5, 14, 490, 20, 5, 200 ih FLbox "double or triple strike occurring respectively. ", 1, 5, 14, 490, 20, 5, 220 ih FLbox "This instrument can be triggered either from the FLTK button ", 1, 5, 14, 490, 20, 5, 240 ih FLbox "or via a connected MIDI keyboard. ", 1, 5, 14, 490, 20, 5, 260 FLpanel_end FLrun ;RUN THE FLTK WIDGET THREAD ;END OF FLTK INTERFACE CODE;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; gimp1 ftgen 1,0,1024,1,"marmstk1.wav",0,0,0 gimp2 ftgen 2,0,1048576,1,"Songpan.wav",0,0,1 givibfn ftgen 0,0,4096,10,1 ;A SINE WAVE instr 1 ;MIDI ACTIVATED INSTRUMENT ifreq cpsmidi ;FREQUENCY IS READ FROM INCOMING MIDI NOTE iamp ampmidi 0.3 ;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 ACTIVATED INSTRUMENT kSwitch changed gkhrd, gkpos, gkdec, gkdoubles, gktriples ;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 reinit UPDATE endif UPDATE: imp = i(gkimp)+1 ares marimba i(gkamp), i(gkfreq), i(gkhrd), i(gkpos), imp, gkvibf, gkvamp, givibfn, i(gkdec), i(gkdoubles), i(gktriples) rireturn outs ares, ares endin f 0 3600 ;DUMMT SCORE EVENT, SUSTAINS REALTIME PERFORMANCE FOR 1 HOUR