csoundapi flanger tinkering

Reply to csoundapi flanger tinkering on Sat, 02 Aug 2014 16:59:45 GMT

forrest — Sat, 02 Aug 2014 16:59:45 GMT

Simple patch with csoundapi running an example from the canonical csound manual (#267, fluidOut) and a speedup of the delay changes to the right ear;
...
instr 99

imvol init 4
asigl, asigr fluidOut giengine1 ;add a stereo flanger
adelL linseg 0, p3*.5, 0.02, p3*.5, 0 ;max delay time =20ms
adelR linseg 0.02, p3*.125, 0, p3*.125, 0.02, p3*.125, 0, p3*.125, 0.02, p3*.125, 0, p3*.125, 0.02, p3*.125, 0, p3*.125, 0.02 ;max delay time =20ms <---[changed this]
asigL flanger asigl, adelL, .9
asigR flanger asigr, adelR, .9
outs asigLimvol, asigRimvol
endin

Silly, fun -- might be a usable effect somewhere? (Reminds me of the hardware synthesizer that used to get impossible values in some of its settings.)
weirdstuff.mp3

Reply to csoundapi flanger tinkering on Sat, 02 Aug 2014 17:32:04 GMT

forrest — Sat, 02 Aug 2014 17:32:04 GMT

Copying & pasting here changed some things, '' somehow turned to' .' (or vanished? Anyway, 'p3.5' in the adelL line became p3.5 ) [original setting for the delay time to left ear.]

In the following line, likewise, 'p3.125' is an erroneous copy of 'p3*.125' throughout. That is, I changed this from a delay increasing and decreasing once over a minute, to one doing this four times (8 segments) in that same minute.

Reply to csoundapi flanger tinkering on Mon, 04 Aug 2014 13:54:27 GMT

EEight — Mon, 04 Aug 2014 13:54:27 GMT

Thanks for sharing!

As for the copy & paste, use ``` when pasting code:

instr 99

imvol init 4
asigl, asigr fluidOut giengine1 ;add a stereo flanger
adelL linseg 0, p3.5, 0.02, p3.5, 0 ;max delay time =20ms
adelR linseg 0.02, p3.125, 0, p3.125, 0.02, p3.125, 0, p3.125, 0.02, p3.125, 0, p3.125, 0.02, p3.125, 0, p3.125, 0.02 ;max delay time =20ms <---[changed this]
asigL flanger asigl, adelL, .9
asigR flanger asigr, adelR, .9
outs asigLimvol, asigRimvol
endin```