;Written by Iain McCurdy, 2006 ;DEMONSTRATION OF THE wgclar OPCODE. THIS IS A PHYSICALLY MODELLED CLARINET - SOUNDS MORE LIKE PAN PIPES AT TIMES... YUCK! ; - THE ALGORITHM USED IS SIMILAR TO THAT USED BY THE wgflute OPCODE ;kamp - AMPLITUDE ;kfreq - THE FUNDEMENTAL OF THE TONE PRODUCED ;kstiff - THE STIFFNESS OF THE REED - BUT I CAN'T GET IT TO DO ANYTHING! CAN YOU PROVE ME WRONG? ;iatt/idek - ATTACK AND DECAY TIMES. ; NOTE THAT THESE CONTROLS WILL IMPLEMENT AN ATTACK AND DECAY CHARACTERISTIC THAT IS MORE ELABORATE ; -THAN JUST AN AMPLITUDE ENVELOPE STYLE ATTACK AND DECAY ; IN ORDER FOR THE DECAY TIME PARAMETER TO WORK PROPERLY NOTE DURATION MUST BE EXTENDED. ; IN A MIDI SITUATION THIS COULD BE DONE USING linenr, linsegr OR expsegr. ;kngain - AMPLITUDE OF BREATH/WIND NOISE. THE FLUTE SOUND CONSISTS OF 2 MAIN ELEMENTS: ; THE RESONANT TONE AND THE BREATH NOISE. ; THIS PARAMETER CONTROLS THE STRENGTH OF THE BREATH/WIND NOISE. ; A USEFUL RANGE FOR THIS IS ABOUT 0-1 ; 0=NO BREATH NOISE, 1=BREATH NOISE ONLY ;kvibf/kvibamp - THIS OPCODE IMPLEMENTS VIBRATO THAT GOES BEYOND JUST FREQUENCY MODULATION AND INCLUDES MODULATION ; -UPON SEVERAL OTHER ASPECTS OF THE SOUND INCLUDING AMPLITUDE MODULATION ; A USEFUL RANGE FOR kvibamp (AMPLITUDE OF VIBRATO) IS 0-.25 WHERE 0=NO VIBRATO AND .25=A LOT OF VIBRATO ; kvibf IS USED TO CONTROL VIBRATO FREQUENCY, A NATURAL VIBRATO FREQUENCY IS ABOUT 5 HZ ;ifn - A FUNCTION TABLE WAVEFORM MUST BE GIVEN TO DEFINE THE SHAPE OF THE VIBRATO, ; -THIS SHOULD NORMALLY BE A SINE WAVE. ;THE OPCODE OFFERS 3 FURTHER *OPTIONAL* PARAMETERS: ;iminfreq - A MINIMUM FREQUENCY SETTING GIVEN TO THE ALGORITHM ; - TYPICALLY THIS IS SET TO A VALUE BELOW THE FREQUENCY SETTING GIVEN BY kfreq ; - IF kfreq GOES BELOW iminfreq IS CAN HAVE A STRANGE EFFECT ON THE SOUND AND THE SETTING FOR kfreq NO LONGER ; -REFLECTS THE PITCH THAT IS ACTUALLY HEARD. -+rtaudio=PortAudio -b4096 sr = 44100 ;SAMPLE RATE kr = 441 ;CONTROL RATE ksmps = 100 ;NUMBER OF AUDIO SAMPLES IN EACH CONTROL CYCLE nchnls = 2 ;NUMBER OF CHANNELS (2=STEREO) ;FLTK INTERFACE CODE;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; FLcolor -2 ;RANDOMLY COLOURIZE THE INTERFACE FLcolor2 -2 ;RANDOMLY COLOURIZE THE INTERFACE ; LABEL | WIDTH | HEIGHT | X | Y FLpanel "wgclar", 500, 500, 0, 0 ;BUTTONS ON | OFF | TYPE | WIDTH | HEIGHT | X | Y | OPCODE | INS | STARTTIM | DUR gkOnOff,ihOnOff FLbutton "On/Off", 1, -1, 2, 200, 30, 0, 0, 0, 2, 0, -1 ;VALUE DISPLAY BOXES LABEL | WIDTH | HEIGHT | X | Y idamp FLvalue " ", 100, 18, 0, 80 idfreq FLvalue " ", 100, 18, 0, 130 idstiff FLvalue " ", 100, 18, 0, 180 idngain FLvalue " ", 100, 18, 0, 230 idatt FLvalue " ", 100, 18, 0, 280 iddetk FLvalue " ", 100, 18, 0, 330 idvibf FLvalue " ", 100, 18, 0, 380 idvibamp FLvalue " ", 100, 18, 0, 430 idminfreq FLvalue " ", 100, 18, 0, 480 ;SLIDERS MIN | MAX | EXP | TYPE | DISP | WIDTH | HEIGHT | X | Y gkamp, ihamp FLslider "Amplitude", 0, 30000, 0, 5, idamp, 500, 30, 0, 50 gkfreq, ihfreq FLslider "Frequency", 20, 20000, -1, 5, idfreq, 500, 30, 0, 100 gkstiff, ihstiff FLslider "Reed Stiffness", -.44, -.18, 0, 5, idstiff, 500, 30, 0, 150 gkngain, ihngain FLslider "Noise Gain", 0, 1, 0, 5, idngain, 500, 30, 0, 200 gkatt, ihatt FLslider "Attack Time (i-rate in seconds)", 0, 1, 0, 5, idatt, 500, 30, 0, 250 gkdetk,ihdetk FLslider "Decay Time (i-rate in seconds)", 0, 1, 0, 5, iddetk, 500, 30, 0, 300 gkvibf,ihvibf FLslider "Vibrato Frequency", 0, 30, 0, 5, idvibf, 500, 30, 0, 350 gkvibamp,ihvibamp FLslider "Vibrato Amplitude", 0, .3, 0, 5, idvibamp, 500, 30, 0, 400 gkminfreq,ihminfreq FLslider "Minimum Frequency (i-rate)", 20, 20000, -1, 5, idminfreq, 500, 30, 0, 450 ;SET INITIAL VALUES FOR SLIDERS FLsetVal_i 10000, ihamp FLsetVal_i 750, ihfreq FLsetVal_i .3, ihstiff FLsetVal_i .1, ihngain FLsetVal_i .03, ihatt FLsetVal_i .03, ihdetk FLsetVal_i .1, ihngain FLsetVal_i 5, ihvibf FLsetVal_i .1, ihvibamp FLsetVal_i 20, ihminfreq FLsetVal_i -1, ihOnOff FLpanel_end ;INSTRUCTIONS AND INFO PANEL FLpanel " ", 500, 500, 512, 0 ;TEXT BOXES TYPE | FONT | SIZE | WIDTH | HEIGHT | X | Y ih FLbox " wgclar ", 1, 5, 14, 490, 15, 5, 0 ih FLbox "-------------------------------------------------------------", 1, 5, 14, 490, 15, 5, 20 ih FLbox "wgclar is a wave guide physical model of a clarinet based on ", 1, 5, 14, 490, 15, 5, 40 ih FLbox "work by Perry Cook but re-coded for Csound by John ffitch. ", 1, 5, 14, 490, 15, 5, 60 ih FLbox "Attack time is the time taken to reach full blowing pressure.", 1, 5, 14, 490, 15, 5, 80 ih FLbox "The author suggests that 0.1 corresponds to normal playing. ", 1, 5, 14, 490, 15, 5, 100 ih FLbox "Decay time is the time taken for the system to stop producing", 1, 5, 14, 490, 15, 5, 120 ih FLbox "sound after blowing has stopped. The author suggests that 0.1", 1, 5, 14, 490, 15, 5, 140 ih FLbox "produces a smooth natural sounding end to a note. ", 1, 5, 14, 490, 15, 5, 160 ih FLbox "Values for reed stiffness should be negative. The useful ", 1, 5, 14, 490, 15, 5, 160 ih FLbox "range is approximately -0.44 to -0.18. The author suggests a ", 1, 5, 14, 490, 15, 5, 180 ih FLbox "value of -0.3 as representing normal reed stiffness. ", 1, 5, 14, 490, 15, 5, 200 ih FLbox "Noise gain controls the amount of simulated wind noise in the", 1, 5, 14, 490, 15, 5, 220 ih FLbox "composite tone produced. The suggested range is 0 to 0.5. ", 1, 5, 14, 490, 15, 5, 240 ih FLbox "Vibrato is implemented within the opcode and does not need to", 1, 5, 14, 490, 15, 5, 260 ih FLbox "be applied separately to the frequency parameter. Natural ", 1, 5, 14, 490, 15, 5, 280 ih FLbox "vibrato occurs at about 5 hertz. ", 1, 5, 14, 490, 15, 5, 300 ih FLbox "Minimum frequency (optional) defines the lowest frequency at ", 1, 5, 14, 490, 15, 5, 320 ih FLbox "which the model will play. ", 1, 5, 14, 490, 15, 5, 340 FLpanel_end FLrun ;RUN THE FLTK WIDGET THREAD ;END OF FLTK INTERFACE CODE;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; instr 1 ;(ALWAYS ON - SEE SCORE) SENSES FADER MOVEMENT AND RESTARTS INSTR 2 FOR I-RATE CONTROLLERS kSwitch changed gkminfreq, gkatt, gkdetk if gkOnOff!=1 kgoto SKIP ; ITRIGGER | IMINTIM | IMAXNUM | IINSNUM | IWHEN | IDUR (-1 MEANS A NOTE OF INFINITE DURATION) schedkwhen kSwitch, 0, 0, 2, 0, -1 ;RESTART INSTRUMENT 2 WITH A SUSTAINED (HELD) NOTE WHENEVER kSwitch=1 SKIP: endin instr 2 ; SENSE FLTK ON/OFF SWITCH if gkOnOff!=-1 kgoto CONTINUE turnoff CONTINUE: ifn = 1 ;WAVEFORM FUNCTION TABLE FOR THE SHAPE OF THE VIBRATO - SHOULD NORMALLY JUST BE A SINE WAVE OR SOMETHING SIMILAR ;AN AUDIO SIGNAL IS CREATED USING THE wgclar OPCODE. NOTE THAT I-RATE VARIABLES MUST BE CONVERTED TO I-RATE FROM K-RATE SLIDERS aclarinet wgclar gkamp, gkfreq, gkstiff, i(gkatt), i(gkdetk), gkngain,gkvibf, gkvibamp, ifn, i(gkminfreq) outs aclarinet, aclarinet endin f 1 0 131072 10 1 ;SINE WAVE (USED FOR VIBRATO) ;INSTR | START | DURATION i 1 0 3600 ;INSTRUMENT 1 PLAYS FOR 1 HOUR