[Csnd] Wind

Date	2011-11-04 00:53
From	Hans and Laurel Mikelson
Subject	[Csnd] Wind
	Hi, Looks like maybe attachments are not allowed. Anyway here it is again, and a link. http://soundcloud.com/hmikelson/windnoise2-click-for-code Hans Mikelson -RWfo wind.wav ;--------------------------------------------------------- ; Wind Noise ; Hans Mikelson November 2011 ;--------------------------------------------------------- sr = 44100 ; Sample rate kr = 44100 ; Kontrol rate ksmps = 1 ; Samples/Kontrol period nchnls = 2 ; Normal stereo ;--------------------------------------------------------- ; Wind Noise ;--------------------------------------------------------- instr 64 idur = p3 ; Duration iamp = p42 ; Amplitude ifqc = cpspch(p5) ; Pitch to frequency ipanr = sqrt(p6) ; Pan right ipanl = sqrt(1-p6) ; Pan left idstgn = p9 ; Distortion gain (Fqc) iamt = p10 ; Amount of effect iq = p11 ; Resonance ay init p7 ; Initial Y value ax init p8 ; Initial X value ajz init 0 ; z jerk aaz init 0 ; z acceleration avz init 0 ; z velocity apz init 0 ; z position ih init p12 ; diff eq step size ilk init .999 kamp linseg 0, idur.3, 1, idur.4, 1, idur.3, 0 ; This part generates fractal noise similar to static. axx = .004ax + ay ; This is the dynammical system ay = (-1/ay - ay)/ax ; save X and restore after y is ax = axx ; updated. ; This part uses the noise as a source for 4th derivative ; positioning of a particle. Basically this acts like a ; filter. ajz = ilk(ajz + ayih) ; Update Jerk da/dt aaz = ilk(aaz + ajzih) ; Update Acceleration dv/dt avz = ilk(avz + aazih) ; Update Velocity dx/dt apz = apz + avzih ; Update Position abpz buthp apz, 5 ; Remove any DC offsets ; At this point abpz should be a bit like a Sample/Hold ; random LFO that has been low pass filtered. anz noise 1, 0 ; Make some noise ; Get the cut off frequency ; idstgn is a pre-distortion (tanh) gain that determines ; how frequently the static is generated. ; iamt controls the amount of the amplitude of the ; frequency modulation signal before it is added to the ; central frequency which is used for cut off. afco = ifqc + tanh(abpz.01idstgn/iamt)ifqciamt afnz rezzy anz, afco, iq outs afnziampipanlkamp, -afnziampipanrkamp ; Amplify and output endin ;------------------------------------------------------------------------- ; Wind Noise ; by Hans Mikelson November, 2011 ;------------------------------------------------------------------------- f1 0 65536 10 1 ; Wind Noise ; Sta Dur Amp Pitch Pan XSeed YSeed Fqc Amt Q H i64 0 46 42000 7.00 0.3 -.3 3.4 10 .2 20 .0002 i64 12 22 35000 8.00 0.9 .22 -.23 2 .3 30 .0005 i64 16 16 32000 8.03 0.2 .10 -.12 4 .1 40 .0011 i64 20 12 12000 9.00 0.7 1.3 -2.4 8 .5 80 .0008 i64 32 8 8000 9.03 0.4 .256 .45 12 .6 70 .0012 i64 36 11 12000 10.00 0.8 .56 -.55 16 .3 10 .0010 i64 38 21 32000 7.05 0.5 -.56 1.55 1 .4 150 .0020 i64 45 11 10000 10.07 0.3 1.6 -1.52 20 .2 250 .0025 i64 50 18 20000 8.05 0.9 -.6 .083 1 .1 1000 .0002 Send bugs reports to the Sourceforge bug tracker https://sourceforge.net/tracker/?group_id=81968&atid=564599 Discussions of bugs and features can be posted here To unsubscribe, send email sympa@lists.bath.ac.uk with body "unsubscribe csound"

Date	2011-11-04 01:00
From	Brian Wong
Subject	RE: [Csnd] Wind
	The attachment worked for me. Thanks very much for sharing this Hans! Brian ---------------------------------------- > From: hljmm@charter.net > Date: Thu, 3 Nov 2011 19:53:03 -0500 > To: csound@lists.bath.ac.uk > Subject: [Csnd] Wind > > Hi, > > Looks like maybe attachments are not allowed. Anyway here it is again, and a link. > > http://soundcloud.com/hmikelson/windnoise2-click-for-code > > Hans Mikelson > > > > -RWfo wind.wav > > > ;--------------------------------------------------------- > ; Wind Noise > ; Hans Mikelson November 2011 > ;--------------------------------------------------------- > sr = 44100 ; Sample rate > kr = 44100 ; Kontrol rate > ksmps = 1 ; Samples/Kontrol period > nchnls = 2 ; Normal stereo > ;--------------------------------------------------------- > ; Wind Noise > ;--------------------------------------------------------- > instr 64 > idur = p3 ; Duration > iamp = p42 ; Amplitude > ifqc = cpspch(p5) ; Pitch to frequency > ipanr = sqrt(p6) ; Pan right > ipanl = sqrt(1-p6) ; Pan left > idstgn = p9 ; Distortion gain (Fqc) > iamt = p10 ; Amount of effect > iq = p11 ; Resonance > ay init p7 ; Initial Y value > ax init p8 ; Initial X value > ajz init 0 ; z jerk > aaz init 0 ; z acceleration > avz init 0 ; z velocity > apz init 0 ; z position > ih init p12 ; diff eq step size > ilk init .999 > kamp linseg 0, idur.3, 1, idur.4, 1, idur.3, 0 > ; This part generates fractal noise similar to static. > axx = .004ax + ay ; This is the dynammical system > ay = (-1/ay - ay)/ax ; save X and restore after y is > ax = axx ; updated. > ; This part uses the noise as a source for 4th derivative > ; positioning of a particle. Basically this acts like a > ; filter. > ajz = ilk(ajz + ayih) ; Update Jerk da/dt > aaz = ilk(aaz + ajzih) ; Update Acceleration dv/dt > avz = ilk(avz + aazih) ; Update Velocity dx/dt > apz = apz + avzih ; Update Position > abpz buthp apz, 5 ; Remove any DC offsets > ; At this point abpz should be a bit like a Sample/Hold > ; random LFO that has been low pass filtered. > anz noise 1, 0 ; Make some noise > ; Get the cut off frequency > ; idstgn is a pre-distortion (tanh) gain that determines > ; how frequently the static is generated. > ; iamt controls the amount of the amplitude of the > ; frequency modulation signal before it is added to the > ; central frequency which is used for cut off. > afco = ifqc + tanh(abpz.01idstgn/iamt)ifqciamt > afnz rezzy anz, afco, iq > outs afnziampipanlkamp, -afnziampipanrkamp ; Amplify and output > endin > > > ;------------------------------------------------------------------------- > ; Wind Noise > ; by Hans Mikelson November, 2011 > ;------------------------------------------------------------------------- > f1 0 65536 10 1 > ; Wind Noise > ; Sta Dur Amp Pitch Pan XSeed YSeed Fqc Amt Q H > i64 0 46 42000 7.00 0.3 -.3 3.4 10 .2 20 .0002 > i64 12 22 35000 8.00 0.9 .22 -.23 2 .3 30 .0005 > i64 16 16 32000 8.03 0.2 .10 -.12 4 .1 40 .0011 > i64 20 12 12000 9.00 0.7 1.3 -2.4 8 .5 80 .0008 > i64 32 8 8000 9.03 0.4 .256 .45 12 .6 70 .0012 > i64 36 11 12000 10.00 0.8 .56 -.55 16 .3 10 .0010 > i64 38 21 32000 7.05 0.5 -.56 1.55 1 .4 150 .0020 > i64 45 11 10000 10.07 0.3 1.6 -1.52 20 .2 250 .0025 > i64 50 18 20000 8.05 0.9 -.6 .083 1 .1 1000 .0002 > > > > > Send bugs reports to the Sourceforge bug tracker > https://sourceforge.net/tracker/?group_id=81968&atid=564599 > Discussions of bugs and features can be posted here > To unsubscribe, send email sympa@lists.bath.ac.uk with body "unsubscribe csound" > Send bugs reports to the Sourceforge bug tracker https://sourceforge.net/tracker/?group_id=81968&atid=564599 Discussions of bugs and features can be posted here To unsubscribe, send email sympa@lists.bath.ac.uk with body "unsubscribe csound"

Date	2011-11-04 10:38
From	Rory Walsh
Subject	Re: [Csnd] Wind
	No problems here either. Interesting post, thanks, Rory. On 4 November 2011 01:00, Brian Wong wrote: > > The attachment worked for me. Thanks very much for sharing this Hans! > Brian > > ---------------------------------------- >> From: hljmm@charter.net >> Date: Thu, 3 Nov 2011 19:53:03 -0500 >> To: csound@lists.bath.ac.uk >> Subject: [Csnd] Wind >> >> Hi, >> >> Looks like maybe attachments are not allowed. Anyway here it is again, and a link. >> >> http://soundcloud.com/hmikelson/windnoise2-click-for-code >> >> Hans Mikelson >> >> >> >> -RWfo wind.wav >> >> >> ;--------------------------------------------------------- >> ; Wind Noise >> ; Hans Mikelson November 2011 >> ;--------------------------------------------------------- >> sr = 44100 ; Sample rate >> kr = 44100 ; Kontrol rate >> ksmps = 1 ; Samples/Kontrol period >> nchnls = 2 ; Normal stereo >> ;--------------------------------------------------------- >> ; Wind Noise >> ;--------------------------------------------------------- >> instr 64 >> idur = p3 ; Duration >> iamp = p42 ; Amplitude >> ifqc = cpspch(p5) ; Pitch to frequency >> ipanr = sqrt(p6) ; Pan right >> ipanl = sqrt(1-p6) ; Pan left >> idstgn = p9 ; Distortion gain (Fqc) >> iamt = p10 ; Amount of effect >> iq = p11 ; Resonance >> ay init p7 ; Initial Y value >> ax init p8 ; Initial X value >> ajz init 0 ; z jerk >> aaz init 0 ; z acceleration >> avz init 0 ; z velocity >> apz init 0 ; z position >> ih init p12 ; diff eq step size >> ilk init .999 >> kamp linseg 0, idur.3, 1, idur.4, 1, idur.3, 0 >> ; This part generates fractal noise similar to static. >> axx = .004ax + ay ; This is the dynammical system >> ay = (-1/ay - ay)/ax ; save X and restore after y is >> ax = axx ; updated. >> ; This part uses the noise as a source for 4th derivative >> ; positioning of a particle. Basically this acts like a >> ; filter. >> ajz = ilk(ajz + ayih) ; Update Jerk da/dt >> aaz = ilk(aaz + ajzih) ; Update Acceleration dv/dt >> avz = ilk(avz + aazih) ; Update Velocity dx/dt >> apz = apz + avzih ; Update Position >> abpz buthp apz, 5 ; Remove any DC offsets >> ; At this point abpz should be a bit like a Sample/Hold >> ; random LFO that has been low pass filtered. >> anz noise 1, 0 ; Make some noise >> ; Get the cut off frequency >> ; idstgn is a pre-distortion (tanh) gain that determines >> ; how frequently the static is generated. >> ; iamt controls the amount of the amplitude of the >> ; frequency modulation signal before it is added to the >> ; central frequency which is used for cut off. >> afco = ifqc + tanh(abpz.01idstgn/iamt)ifqciamt >> afnz rezzy anz, afco, iq >> outs afnziampipanlkamp, -afnziampipanrkamp ; Amplify and output >> endin >> >> >> ;------------------------------------------------------------------------- >> ; Wind Noise >> ; by Hans Mikelson November, 2011 >> ;------------------------------------------------------------------------- >> f1 0 65536 10 1 >> ; Wind Noise >> ; Sta Dur Amp Pitch Pan XSeed YSeed Fqc Amt Q H >> i64 0 46 42000 7.00 0.3 -.3 3.4 10 .2 20 .0002 >> i64 12 22 35000 8.00 0.9 .22 -.23 2 .3 30 .0005 >> i64 16 16 32000 8.03 0.2 .10 -.12 4 .1 40 .0011 >> i64 20 12 12000 9.00 0.7 1.3 -2.4 8 .5 80 .0008 >> i64 32 8 8000 9.03 0.4 .256 .45 12 .6 70 .0012 >> i64 36 11 12000 10.00 0.8 .56 -.55 16 .3 10 .0010 >> i64 38 21 32000 7.05 0.5 -.56 1.55 1 .4 150 .0020 >> i64 45 11 10000 10.07 0.3 1.6 -1.52 20 .2 250 .0025 >> i64 50 18 20000 8.05 0.9 -.6 .083 1 .1 1000 .0002 >> >> >> >> >> Send bugs reports to the Sourceforge bug tracker >> https://sourceforge.net/tracker/?group_id=81968&atid=564599 >> Discussions of bugs and features can be posted here >> To unsubscribe, send email sympa@lists.bath.ac.uk with body "unsubscribe csound" >> > > > Send bugs reports to the Sourceforge bug tracker > https://sourceforge.net/tracker/?group_id=81968&atid=564599 > Discussions of bugs and features can be posted here > To unsubscribe, send email sympa@lists.bath.ac.uk with body "unsubscribe csound" > > Send bugs reports to the Sourceforge bug tracker https://sourceforge.net/tracker/?group_id=81968&atid=564599 Discussions of bugs and features can be posted here To unsubscribe, send email sympa@lists.bath.ac.uk with body "unsubscribe csound"