;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 "gogobel", 500, 350, 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 " ", 80, 18, 5, 75 idfreq FLvalue " ", 80, 18, 5, 125 idhrd FLvalue " ", 80, 18, 5, 175 idpos FLvalue " ", 80, 18, 5, 225 idvibf FLvalue " ", 80, 18, 5, 275 idvamp FLvalue " ", 80, 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 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 ;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, 350, 0 ih FLbox "bounce ", 1, 5, 14, 60, 20, 350, 20 ;SET INITIAL VALUES OF FLTK VALUATORS ; VALUE | HANDLE FLsetVal_i 0.2, gihamp FLsetVal_i 750, gihfreq FLsetVal_i 0.5, ihhrd FLsetVal_i 0.65, ihpos FLsetVal_i 5, ihvibf FLsetVal_i 0, ihvamp FLpanel_end ;INSTRUCTIONS AND INFO PANEL FLpanel " ", 500, 280, 512, 0 ;TEXT BOXES TYPE | FONT | SIZE | WIDTH | HEIGHT | X | Y ih FLbox " gogobel ", 1, 5, 14, 490, 20, 5, 0 ih FLbox "-------------------------------------------------------------", 1, 5, 14, 490, 20, 5, 20 ih FLbox "'gogobel' is a physical model of a cow bell or agogo bell. ", 1, 5, 14, 490, 20, 5, 40 ih FLbox "'Stick Hardness' and 'Strike Position' impact 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 "It is difficult to imagine why vibrato has been included in ", 1, 5, 14, 490, 20, 5, 100 ih FLbox "an emulation of a cow bell. It is actually difficult to ", 1, 5, 14, 490, 20, 5, 120 ih FLbox "experience the vibrato as the duration of the sound is so ", 1, 5, 14, 490, 20, 5, 140 ih FLbox "short. ", 1, 5, 14, 490, 20, 5, 160 ih FLbox "By replacing the sample suggested for the strike impulse ", 1, 5, 14, 490, 20, 5, 180 ih FLbox "(marmstk1.wav) with a longer sample, a longer duration tone ", 1, 5, 14, 490, 20, 5, 200 ih FLbox "is possible. ", 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,131072,1,"bounce.wav",0,0,0 givfn 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.5 ;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 kSwitch changed gkhrd, gkpos ;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 gogobel i(gkamp), i(gkfreq), i(gkhrd), i(gkpos), imp, gkvibf, gkvamp, givfn rireturn outs ares, ares endin f 0 3600 ;DUMMY SCORE EVENT, SUSTAINS REALTIME PERFORMANCE FOR 1 HOUR