Greetings,

A recent piece:

https://soundcloud.com/davephillips69/cadenza-for-flute-and-csound

For the unclouded:

     http://linux-sound.org/audio/Cadenza.mp3

     http://linux-sound.org/audio/Cadenza.ogg

It's an experiment with AVSynthesis and a flute solo (MIDI version 
recorded in lieu of an actual player). Material is based on the 
principal row from Alban Berg's Lyric Suite, but treated with a free 
atonal method.

Old school with new tools.

Best,

dp

Beautiful Dave. Would love to hear it in concert with a flute player.

Thanks for sharing!

On 8/20/13 8:56 AM, Dave Phillips wrote:
> Greetings,
>
> A recent piece:
>
> https://soundcloud.com/davephillips69/cadenza-for-flute-and-csound
>
> For the unclouded:
>
>     http://linux-sound.org/audio/Cadenza.mp3
>
>     http://linux-sound.org/audio/Cadenza.ogg
>
> It's an experiment with AVSynthesis and a flute solo (MIDI version 
> recorded in lieu of an actual player). Material is based on the 
> principal row from Alban Berg's Lyric Suite, but treated with a free 
> atonal method.
>
> Old school with new tools.
>
> Best,
>
> dp
>
>
>
> Send bugs reports to the Sourceforge bug trackers
> csound6:
>            https://sourceforge.net/p/csound/tickets/
> csound5:
>            https://sourceforge.net/p/csound/bugs/
> Discussions of bugs and features can be posted here
> To unsubscribe, send email sympa@lists.bath.ac.uk with body 
> "unsubscribe csound"
>
>
>
>

I can't listen to it this instant as I am currently in a meeting; but if 
you can send me the dots I can try to record a performance.


Richard Dobson


On 20/08/2013 13:56, Dave Phillips wrote:
> Greetings,
>
> A recent piece:
>
> https://soundcloud.com/davephillips69/cadenza-for-flute-and-csound
>
> For the unclouded:
>
>      http://linux-sound.org/audio/Cadenza.mp3
>
>      http://linux-sound.org/audio/Cadenza.ogg
>
> It's an experiment with AVSynthesis and a flute solo (MIDI version
> recorded in lieu of an actual player). Material is based on the
> principal row from Alban Berg's Lyric Suite, but treated with a free
> atonal method.
>
> Old school with new tools.
>

What is the source of the flute sound?

Regards,

Mike

===========================

Michael Gogins
Irreducible Productions
http://michaelgogins.tumblr.com
Michael dot Gogins at gmail dot com

On Tue, Aug 20, 2013 at 9:19 AM, Michael Rhoades <mrhoades@perceptionfactory.com> wrote:

Beautiful Dave. Would love to hear it in concert with a flute player.

Thanks for sharing!

On 8/20/13 8:56 AM, Dave Phillips wrote:

Greetings,

A recent piece:

https://soundcloud.com/davephillips69/cadenza-for-flute-and-csound

For the unclouded:

    http://linux-sound.org/audio/Cadenza.mp3

    http://linux-sound.org/audio/Cadenza.ogg

It's an experiment with AVSynthesis and a flute solo (MIDI version recorded in lieu of an actual player). Material is based on the principal row from Alban Berg's Lyric Suite, but treated with a free atonal method.

Old school with new tools.

Best,

dp



Send bugs reports to the Sourceforge bug trackers
csound6:
           https://sourceforge.net/p/csound/tickets/
csound5:
           https://sourceforge.net/p/csound/bugs/
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 trackers
csound6:
           https://sourceforge.net/p/csound/tickets/
csound5:
           https://sourceforge.net/p/csound/bugs/
Discussions of bugs and features can be posted here
To unsubscribe, send email sympa@lists.bath.ac.uk with body "unsubscribe csound"

On 08/20/2013 10:46 AM, Richard Dobson wrote:
> I can't listen to it this instant as I am currently in a meeting; but 
> if you can send me the dots I can try to record a performance.
>
>
> Richard Dobson

Hi Richard,

Thank you ! I've been working on some traditional scores with the 
Frescobaldi program, I'll see what I can whip up as a performance score 
for this piece. I haven't checked for range but I think it's within the 
do-able zone. I can provide the Csound audio parts as a stereo mix or as 
four separate files.

Best,

dp


>
>
> On 20/08/2013 13:56, Dave Phillips wrote:
>> Greetings,
>>
>> A recent piece:
>>
>> https://soundcloud.com/davephillips69/cadenza-for-flute-and-csound
>>
>> For the unclouded:
>>
>>      http://linux-sound.org/audio/Cadenza.mp3
>>
>>      http://linux-sound.org/audio/Cadenza.ogg
>>
>> It's an experiment with AVSynthesis and a flute solo (MIDI version
>> recorded in lieu of an actual player). Material is based on the
>> principal row from Alban Berg's Lyric Suite, but treated with a free
>> atonal method.
>>
>> Old school with new tools.
>>
>
>
> Send bugs reports to the Sourceforge bug trackers
> csound6:
>            https://sourceforge.net/p/csound/tickets/
> csound5:
>            https://sourceforge.net/p/csound/bugs/
> Discussions of bugs and features can be posted here
> To unsubscribe, send email sympa@lists.bath.ac.uk with body 
> "unsubscribe csound"
>
>
>

It sound eminently playable; I haven't listened to it to check the lower 
range (I have low-B footjoint available, but as I fancy this for Bath 
Spa students, low C (= "middle C", 263Hz or so) as a limit will enable 
more players to do it). It is short and, as far as I can hear, not 
difficult, and something I could offer to second-years either for a 
"viva" performance, or even as part of an exam.

One problem of course with MIDi samples etc is, no real slurring. If you 
are unsure, I would be very happy to make a few suggestions. Note that 
there is no particular need to notate it in a metre with bar-lines; a 
Berio Sequenza-style time-space notation would be fine, and something 
indeed I would be very glad to introduce students to.

And of course both I personally and the Uni have alto flute available if 
you fancy a contralto version with extra huskiness.

A stereo mix would be sufficient (In any case I don't really have a 
viable 4-chan system at the moment), and I would send a mix and the 
flute on its own (recorded "close" and as dry as my space will permit) 
so you can balance as you want. Maybe multiple versions, with any 
variations on slurring, etc.

Richard Dobson




On 20/08/2013 17:37, Dave Phillips wrote:
> On 08/20/2013 10:46 AM, Richard Dobson wrote:
>> I can't listen to it this instant as I am currently in a meeting; but
>> if you can send me the dots I can try to record a performance.
>>
>>
>> Richard Dobson
>
> Hi Richard,
>
> Thank you ! I've been working on some traditional scores with the
> Frescobaldi program, I'll see what I can whip up as a performance score
> for this piece. I haven't checked for range but I think it's within the
> do-able zone. I can provide the Csound audio parts as a stereo mix or as
> four separate files.
>
> Best,
>
> dp
>
>
>>
>>
>> On 20/08/2013 13:56, Dave Phillips wrote:
>>> Greetings,
>>>
>>> A recent piece:
>>>
>>> https://soundcloud.com/davephillips69/cadenza-for-flute-and-csound
>>>
>>> For the unclouded:
>>>
>>>      http://linux-sound.org/audio/Cadenza.mp3
>>>
>>>      http://linux-sound.org/audio/Cadenza.ogg
>>>
>>> It's an experiment with AVSynthesis and a flute solo (MIDI version
>>> recorded in lieu of an actual player). Material is based on the
>>> principal row from Alban Berg's Lyric Suite, but treated with a free
>>> atonal method.
>>>
>>> Old school with new tools.
>>>
>>
>>
>> Send bugs reports to the Sourceforge bug trackers
>> csound6:
>>            https://sourceforge.net/p/csound/tickets/
>> csound5:
>>            https://sourceforge.net/p/csound/bugs/
>> 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 trackers
> csound6:
>             https://sourceforge.net/p/csound/tickets/
> csound5:
>             https://sourceforge.net/p/csound/bugs/
> Discussions of bugs and features can be posted here
> To unsubscribe, send email sympa@lists.bath.ac.uk with body "unsubscribe
> csound"
>
>
>

yes, beautiful. Really.

thanks for sharing,
ciao,
francesco.




--
View this message in context: http://csound.1045644.n5.nabble.com/Cadenza-for-Flute-and-Csound-Synthesizers-tp5726908p5726924.html
Sent from the Csound - General mailing list archive at Nabble.com.

Gorgeous stuff Dave, thanks for sharing!

On Tue, Aug 20, 2013 at 8:56 AM, Dave Phillips  wrote:
> Greetings,
>
> A recent piece:
>
> https://soundcloud.com/davephillips69/cadenza-for-flute-and-csound
>
> For the unclouded:
>
>     http://linux-sound.org/audio/Cadenza.mp3
>
>     http://linux-sound.org/audio/Cadenza.ogg
>
> It's an experiment with AVSynthesis and a flute solo (MIDI version recorded
> in lieu of an actual player). Material is based on the principal row from
> Alban Berg's Lyric Suite, but treated with a free atonal method.
>
> Old school with new tools.
>
> Best,
>
> dp
>
>
>
> Send bugs reports to the Sourceforge bug trackers
> csound6:
>            https://sourceforge.net/p/csound/tickets/
> csound5:
>            https://sourceforge.net/p/csound/bugs/
> Discussions of bugs and features can be posted here
> To unsubscribe, send email sympa@lists.bath.ac.uk with body "unsubscribe
> csound"
>
>

Dear Dave,

thanks for sharing thihs piece! I am a fluteplayer, too. When you get the 
notation finished, would you send me the score and csound files  if you don't 
mind?


best!
tarmo


On Tuesday 20 August 2013 12:37:31 Dave Phillips wrote:
> On 08/20/2013 10:46 AM, Richard Dobson wrote:
> > I can't listen to it this instant as I am currently in a meeting; but
> > if you can send me the dots I can try to record a performance.
> > 
> > 
> > Richard Dobson
> 
> Hi Richard,
> 
> Thank you ! I've been working on some traditional scores with the
> Frescobaldi program, I'll see what I can whip up as a performance score
> for this piece. I haven't checked for range but I think it's within the
> do-able zone. I can provide the Csound audio parts as a stereo mix or as
> four separate files.
> 
> Best,
> 
> dp
> 
> > On 20/08/2013 13:56, Dave Phillips wrote:
> >> Greetings,
> >> 
> >> A recent piece:
> >> 
> >> https://soundcloud.com/davephillips69/cadenza-for-flute-and-csound
> >> 
> >> For the unclouded:
> >>      http://linux-sound.org/audio/Cadenza.mp3
> >>      
> >>      http://linux-sound.org/audio/Cadenza.ogg
> >> 
> >> It's an experiment with AVSynthesis and a flute solo (MIDI version
> >> recorded in lieu of an actual player). Material is based on the
> >> principal row from Alban Berg's Lyric Suite, but treated with a free
> >> atonal method.
> >> 
> >> Old school with new tools.
> > 
> > Send bugs reports to the Sourceforge bug trackers
> > 
> > csound6:
> >            https://sourceforge.net/p/csound/tickets/
> > 
> > csound5:
> >            https://sourceforge.net/p/csound/bugs/
> > 
> > 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 trackers
> csound6:
>             https://sourceforge.net/p/csound/tickets/
> csound5:
>             https://sourceforge.net/p/csound/bugs/
> Discussions of bugs and features can be posted here
> To unsubscribe, send email sympa@lists.bath.ac.uk with body "unsubscribe
> csound"

On 08/20/2013 12:52 PM, Richard Dobson wrote:
> It sound eminently playable; I haven't listened to it to check the 
> lower range (I have low-B footjoint available, but as I fancy this for 
> Bath Spa students, low C (= "middle C", 263Hz or so) as a limit will 
> enable more players to do it). It is short and, as far as I can hear, 
> not difficult, and something I could offer to second-years either for 
> a "viva" performance, or even as part of an exam.

That would be wonderful, Richard. The piece is licensed under a CC 
share-alike license, please feel free to use it as you like. I'll 
prepare the materials this weekend, hopefully I'll have everything ready 
to to send by Monday.


>
> One problem of course with MIDi samples etc is, no real slurring. If 
> you are unsure, I would be very happy to make a few suggestions. Note 
> that there is no particular need to notate it in a metre with 
> bar-lines; a Berio Sequenza-style time-space notation would be fine, 
> and something indeed I would be very glad to introduce students to.
>

It's actually in rather strict time so the first notation will be in 
CPN. However, I'm completely open to advice and even collaborative 
rewrites. A Sequenza-style notation would be a neat project to realize 
in LilyPond. I've been contracted to write another article on the 
current state of music notation software for Linux, with an emphasis on 
real use in projects. I'll look into the possibility, IIRC I've seen 
some similar examples from LilyPond users.

> And of course both I personally and the Uni have alto flute available 
> if you fancy a contralto version with extra huskiness.
>

One of the coolest sounds in the universe. :)  I wonder if the alto 
could yield a sound closer to the recorded sound ? There's some 
processing on the original to beef up the flute soundfont.

> A stereo mix would be sufficient (In any case I don't really have a 
> viable 4-chan system at the moment), and I would send a mix and the 
> flute on its own (recorded "close" and as dry as my space will permit) 
> so you can balance as you want. Maybe multiple versions, with any 
> variations on slurring, etc.
>

Multiple versions are welcome. :)  I intend to package it as a stereo 
mix, an Ardour session, and as a bundle of individual files intended for 
multichannel realization. But first I have to record the tracks again 
without any reverb, I was advised that that's preferable for 
multichannel redistribution.

Thanks again for offering your help, Richard, I look forward to hearing 
the results.

Best,

dp


> Richard Dobson
>
>
>
>
> On 20/08/2013 17:37, Dave Phillips wrote:
>> On 08/20/2013 10:46 AM, Richard Dobson wrote:
>>> I can't listen to it this instant as I am currently in a meeting; but
>>> if you can send me the dots I can try to record a performance.
>>>
>>>
>>> Richard Dobson
>>
>> Hi Richard,
>>
>> Thank you ! I've been working on some traditional scores with the
>> Frescobaldi program, I'll see what I can whip up as a performance score
>> for this piece. I haven't checked for range but I think it's within the
>> do-able zone. I can provide the Csound audio parts as a stereo mix or as
>> four separate files.
>>
>> Best,
>>
>> dp
>>
>>
>>>
>>>
>>> On 20/08/2013 13:56, Dave Phillips wrote:
>>>> Greetings,
>>>>
>>>> A recent piece:
>>>>
>>>> https://soundcloud.com/davephillips69/cadenza-for-flute-and-csound
>>>>
>>>> For the unclouded:
>>>>
>>>>      http://linux-sound.org/audio/Cadenza.mp3
>>>>
>>>>      http://linux-sound.org/audio/Cadenza.ogg
>>>>
>>>> It's an experiment with AVSynthesis and a flute solo (MIDI version
>>>> recorded in lieu of an actual player). Material is based on the
>>>> principal row from Alban Berg's Lyric Suite, but treated with a free
>>>> atonal method.
>>>>
>>>> Old school with new tools.
>>>>
>>>
>>>
>>> Send bugs reports to the Sourceforge bug trackers
>>> csound6:
>>>            https://sourceforge.net/p/csound/tickets/
>>> csound5:
>>>            https://sourceforge.net/p/csound/bugs/
>>> 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 trackers
>> csound6:
>>             https://sourceforge.net/p/csound/tickets/
>> csound5:
>>             https://sourceforge.net/p/csound/bugs/
>> 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 trackers
> csound6:
>            https://sourceforge.net/p/csound/tickets/
> csound5:
>            https://sourceforge.net/p/csound/bugs/
> Discussions of bugs and features can be posted here
> To unsubscribe, send email sympa@lists.bath.ac.uk with body 
> "unsubscribe csound"
>
>
>

On 08/21/2013 12:22 AM, Tarmo Johannes wrote:
> Dear Dave,
>
> thanks for sharing thihs piece! I am a fluteplayer, too. When you get the
> notation finished, would you send me the score and csound files  if you don't
> mind?
>
>
> best!
> tarmo

Hi Tarmo,

Please see my reply to Richard Dobson re: materials for the piece. I'll 
post a message when the packages have been prepared and uploaded. Btw, 
Ardour users can use the session files for remixing, might be fun if you 
happen to use Ardour.

Thanks for checking out my music ! :)

Best,

dp



>
>
> On Tuesday 20 August 2013 12:37:31 Dave Phillips wrote:
>> On 08/20/2013 10:46 AM, Richard Dobson wrote:
>>> I can't listen to it this instant as I am currently in a meeting; but
>>> if you can send me the dots I can try to record a performance.
>>>
>>>
>>> Richard Dobson
>> Hi Richard,
>>
>> Thank you ! I've been working on some traditional scores with the
>> Frescobaldi program, I'll see what I can whip up as a performance score
>> for this piece. I haven't checked for range but I think it's within the
>> do-able zone. I can provide the Csound audio parts as a stereo mix or as
>> four separate files.
>>
>> Best,
>>
>> dp
>>
>>> On 20/08/2013 13:56, Dave Phillips wrote:
>>>> Greetings,
>>>>
>>>> A recent piece:
>>>>
>>>> https://soundcloud.com/davephillips69/cadenza-for-flute-and-csound
>>>>
>>>> For the unclouded:
>>>>       http://linux-sound.org/audio/Cadenza.mp3
>>>>       
>>>>       http://linux-sound.org/audio/Cadenza.ogg
>>>>
>>>> It's an experiment with AVSynthesis and a flute solo (MIDI version
>>>> recorded in lieu of an actual player). Material is based on the
>>>> principal row from Alban Berg's Lyric Suite, but treated with a free
>>>> atonal method.
>>>>
>>>> Old school with new tools.
>>> Send bugs reports to the Sourceforge bug trackers
>>>
>>> csound6:
>>>             https://sourceforge.net/p/csound/tickets/
>>>
>>> csound5:
>>>             https://sourceforge.net/p/csound/bugs/
>>>
>>> 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 trackers
>> csound6:
>>              https://sourceforge.net/p/csound/tickets/
>> csound5:
>>              https://sourceforge.net/p/csound/bugs/
>> 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 trackers
> csound6:
>              https://sourceforge.net/p/csound/tickets/
> csound5:
>              https://sourceforge.net/p/csound/bugs/
> Discussions of bugs and features can be posted here
> To unsubscribe, send email sympa@lists.bath.ac.uk with body "unsubscribe csound"
>
>
>

Did you try the Csound waveguide flute instrument by Lee Zakian? (below).\

The instrument is completely self-contained, assuming you use the signal flow opcodes for routing audio.

Regards,

Mike

                                instr        ZakianFlute

                                //////////////////////////////////////////////

                                // Original by Lee Zakian.

                                // Adapted by Michael Gogins.

                                //////////////////////////////////////////////

if1                        ftgenonce               0, 0, 65536,    10,     1

iwtsin            init        if1

if2                        ftgenonce               0, 0, 16,       -2,     40, 40, 80, 160, 320, 640, 1280, 2560, 5120, 10240, 10240

if26                      ftgenonce               0, 0, 65536,    -10,    2000, 489, 74, 219, 125, 9, 33, 5, 5

if27                      ftgenonce               0, 0, 65536,    -10,    2729, 1926, 346, 662, 537, 110, 61, 29, 7

if28                      ftgenonce               0, 0, 65536,    -10,    2558, 2012, 390, 361, 534, 139, 53, 22, 10, 13, 10

if29                      ftgenonce               0, 0, 65536,    -10,    12318, 8844, 1841, 1636, 256, 150, 60, 46, 11

if30                      ftgenonce               0, 0, 65536,    -10,    1229, 16, 34, 57, 32

if31                      ftgenonce               0, 0, 65536,    -10,    163, 31, 1, 50, 31

if32                      ftgenonce               0, 0, 65536,    -10,    4128, 883, 354, 79, 59, 23

if33                      ftgenonce               0, 0, 65536,    -10,    1924, 930, 251, 50, 25, 14

if34                      ftgenonce               0, 0, 65536,    -10,    94, 6, 22, 8

if35                      ftgenonce               0, 0, 65536,    -10,    2661, 87, 33, 18

if36                      ftgenonce               0, 0, 65536,    -10,    174, 12

if37                      ftgenonce               0, 0, 65536,    -10,    314, 13

                                pset                    0, 0, 3600

i_instrument                    =                       p1

i_time                          =                       p2

i_duration                      =                       p3

i_midikey                       =                       p4

i_midivelocity                  =                       p5

i_phase                         =                       p6

i_pan                           =                       p7

i_depth                         =                       p8

i_height                        =                       p9

i_pitchclassset                 =                       p10

i_homogeneity                   =                       p11

ifrequency                      =                       cpsmidinn(i_midikey)

iamplitude                      =                       ampdb(i_midivelocity) * 4

iattack                         =                       .25

isustain                        =                       p3

irelease                        =                       .33333333

p3                              =                       iattack + isustain + irelease

iHz                             =                       ifrequency

kHz                             =                       k(iHz)

idB                             =                       i_midivelocity

adeclick77                        linsegr                 0, iattack, 1, isustain, 1, irelease, 0

ip3                        =                       (p3 < 3.0 ? p3 : 3.0)

; parameters

; p4    overall amplitude scaling factor

ip4                        init                    iamplitude

; p5    pitch in Hertz (normal pitch range: C4-C7)

ip5                        init                    iHz

; p6    percent vibrato depth, recommended values in range [-1., +1.]

ip6                        init                    1

;        0.0    -> no vibrato

;       +1.     -> 1% vibrato depth, where vibrato rate increases slightly

;       -1.     -> 1% vibrato depth, where vibrato rate decreases slightly

; p7    attack time in seconds

;       recommended value:  .12 for slurred notes, .06 for tongued notes

;                            (.03 for short notes)

ip7                        init                    .08

; p8    decay time in seconds

;       recommended value:  .1 (.05 for short notes)

ip8                        init                    .08

; p9    overall brightness / filter cutoff factor

;       1 -> least bright / minimum filter cutoff frequency (40 Hz)

;       9 -> brightest / maximum filter cutoff frequency (10,240Hz)

ip9                        init                    5

; initial variables

iampscale                  =                       ip4                              ; overall amplitude scaling factor

ifreq                      =                       ip5                              ; pitch in Hertz

ivibdepth                  =                       abs(ip6*ifreq/100.0)             ; vibrato depth relative to fundamental frequency

iattack                    =                       ip7 * (1.1 - .2*giseed)          ; attack time with up to +-10% random deviation

giseed                      =                       frac(giseed*105.947)             ; reset giseed

idecay                      =                       ip8 * (1.1 - .2*giseed)          ; decay time with up to +-10% random deviation

giseed                      =                       frac(giseed*105.947)

ifiltcut                    tablei                  ip9, if2                          ; lowpass filter cutoff frequency

iattack                    =                       (iattack < 6/kr ? 6/kr : iattack)               ; minimal attack length

idecay                      =                       (idecay < 6/kr ? 6/kr : idecay)                 ; minimal decay length

isustain                    =                       p3 - iattack - idecay

p3                          =                       (isustain < 5/kr ? iattack+idecay+5/kr : p3)    ; minimal sustain length

isustain                    =                       (isustain < 5/kr ? 5/kr : isustain)

iatt                        =                       iattack/6

isus                        =                       isustain/4

idec                        =                       idecay/6

iphase                      =                       giseed                          ; use same phase for all wavetables

giseed                      =                       frac(giseed*105.947)

; vibrato block

; kvibdepth                  linseg                  .1, .8*p3, 1, .2*p3, .7

kvibdepth                  linseg                  .1, .8*ip3, 1, isustain, 1, .2*ip3, .7

kvibdepth                  =                       kvibdepth* ivibdepth            ; vibrato depth

kvibdepthr                  randi                   .1*kvibdepth, 5, giseed         ; up to 10% vibrato depth variation

giseed                      =                       frac(giseed*105.947)

kvibdepth                  =                       kvibdepth + kvibdepthr

ivibr1                      =                       giseed                          ; vibrato rate

giseed                      =                       frac(giseed*105.947)

ivibr2                      =                       giseed

giseed                      =                       frac(giseed*105.947)

                                if                      ip6 < 0 goto            vibrato1

kvibrate                    linseg                  2.5+ivibr1, p3, 4.5+ivibr2      ; if p6 positive vibrato gets faster

                                goto                    vibrato2

vibrato1:

ivibr3                      =                       giseed

giseed                      =                       frac(giseed*105.947)

kvibrate                    linseg                  3.5+ivibr1, .1, 4.5+ivibr2, p3-.1, 2.5+ivibr3   ; if p6 negative vibrato gets slower

vibrato2:

kvibrater                  randi                   .1*kvibrate, 5, giseed          ; up to 10% vibrato rate variation

giseed                      =                       frac(giseed*105.947)

kvibrate                    =                       kvibrate + kvibrater

kvib                        oscili                  kvibdepth, kvibrate, iwtsin

ifdev1                      =                       -.03 * giseed                           ; frequency deviation

giseed                      =                       frac(giseed*105.947)

ifdev2                      =                       .003 * giseed

giseed                      =                       frac(giseed*105.947)

ifdev3                      =                       -.0015 * giseed

giseed                      =                       frac(giseed*105.947)

ifdev4                      =                       .012 * giseed

giseed                      =                       frac(giseed*105.947)

kfreqr                      linseg                  ifdev1, iattack, ifdev2, isustain, ifdev3, idecay, ifdev4

kfreq                      =                       kHz * (1 + kfreqr) + kvib

                                if                      ifreq <  427.28 goto    range1                          ; (cpspch(8.08) + cpspch(8.09))/2

                                if                      ifreq <  608.22 goto    range2                          ; (cpspch(9.02) + cpspch(9.03))/2

                                if                      ifreq <  1013.7 goto    range3                          ; (cpspch(9.11) + cpspch(10.00))/2

                                goto                    range4

; wavetable amplitude envelopes

range1:                    ; for low range tones

kamp1                      linseg                  0, iatt, 0.002, iatt, 0.045, iatt, 0.146, iatt,  \

                                                        0.272, iatt, 0.072, iatt, 0.043, isus, 0.230, isus, 0.000, isus, \

                                                        0.118, isus, 0.923, idec, 1.191, idec, 0.794, idec, 0.418, idec, \

                                                        0.172, idec, 0.053, idec, 0

kamp2                      linseg                  0, iatt, 0.009, iatt, 0.022, iatt, -0.049, iatt,  \

                                                        -0.120, iatt, 0.297, iatt, 1.890, isus, 1.543, isus, 0.000, isus, \

                                                        0.546, isus, 0.690, idec, -0.318, idec, -0.326, idec, -0.116, idec, \

                                                        -0.035, idec, -0.020, idec, 0

kamp3                      linseg                  0, iatt, 0.005, iatt, -0.026, iatt, 0.023, iatt,    \

                                                        0.133, iatt, 0.060, iatt, -1.245, isus, -0.760, isus, 1.000, isus,  \

                                                        0.360, isus, -0.526, idec, 0.165, idec, 0.184, idec, 0.060, idec,   \

                                                        0.010, idec, 0.013, idec, 0

iwt1                        =                       if26                                      ; wavetable numbers

iwt2                        =                       if27

iwt3                        =                       if28

inorm                      =                       3949

                                goto                    end

range2:                    ; for low mid-range tones

kamp1                      linseg                  0, iatt, 0.000, iatt, -0.005, iatt, 0.000, iatt, \

                                                        0.030, iatt, 0.198, iatt, 0.664, isus, 1.451, isus, 1.782, isus, \

                                                        1.316, isus, 0.817, idec, 0.284, idec, 0.171, idec, 0.082, idec, \

                                                        0.037, idec, 0.012, idec, 0

kamp2                      linseg                  0, iatt, 0.000, iatt, 0.320, iatt, 0.882, iatt,      \

                                                        1.863, iatt, 4.175, iatt, 4.355, isus, -5.329, isus, -8.303, isus,   \

                                                        -1.480, isus, -0.472, idec, 1.819, idec, -0.135, idec, -0.082, idec, \

                                                        -0.170, idec, -0.065, idec, 0

kamp3                      linseg                  0, iatt, 1.000, iatt, 0.520, iatt, -0.303, iatt,     \

                                                        0.059, iatt, -4.103, iatt, -6.784, isus, 7.006, isus, 11, isus,      \

                                                        12.495, isus, -0.562, idec, -4.946, idec, -0.587, idec, 0.440, idec, \

                                                        0.174, idec, -0.027, idec, 0

iwt1                        =                       if29

iwt2                        =                       if30

iwt3                        =                       if31

inorm                      =                       27668.2

                                goto                    end

range3:                    ; for high mid-range tones

kamp1                      linseg                  0, iatt, 0.005, iatt, 0.000, iatt, -0.082, iatt,      \

                                                        0.36, iatt, 0.581, iatt, 0.416, isus, 1.073, isus, 0.000, isus,       \

                                                        0.356, isus, .86, idec, 0.532, idec, 0.162, idec, 0.076, idec, 0.064, \

                                                        idec, 0.031, idec, 0

kamp2                      linseg                  0, iatt, -0.005, iatt, 0.000, iatt, 0.205, iatt,      \

                                                        -0.284, iatt, -0.208, iatt, 0.326, isus, -0.401, isus, 1.540, isus,   \

                                                        0.589, isus, -0.486, idec, -0.016, idec, 0.141, idec, 0.105, idec,    \

                                                        -0.003, idec, -0.023, idec, 0

kamp3                      linseg                  0, iatt, 0.722, iatt, 1.500, iatt, 3.697, iatt,       \

                                                        0.080, iatt, -2.327, iatt, -0.684, isus, -2.638, isus, 0.000, isus,   \

                                                        1.347, isus, 0.485, idec, -0.419, idec, -.700, idec, -0.278, idec,    \

                                                        0.167, idec, -0.059, idec, 0

iwt1                        =                       if32

iwt2                        =                       if33

iwt3                        =                       if34

inorm                      =                       3775

                                goto                    end

range4:                                                 ; for high range tones

kamp1                      linseg                  0, iatt, 0.000, iatt, 0.000, iatt, 0.211, iatt,         \

                                                        0.526, iatt, 0.989, iatt, 1.216, isus, 1.727, isus, 1.881, isus,        \

                                                        1.462, isus, 1.28, idec, 0.75, idec, 0.34, idec, 0.154, idec, 0.122,    \

                                                        idec, 0.028, idec, 0

kamp2                      linseg                  0, iatt, 0.500, iatt, 0.000, iatt, 0.181, iatt,         \

                                                        0.859, iatt, -0.205, iatt, -0.430, isus, -0.725, isus, -0.544, isus,    \

                                                        -0.436, isus, -0.109, idec, -0.03, idec, -0.022, idec, -0.046, idec,    \

                                                        -0.071, idec, -0.019, idec, 0

kamp3                      linseg                  0, iatt, 0.000, iatt, 1.000, iatt, 0.426, iatt,         \

                                                        0.222, iatt, 0.175, iatt, -0.153, isus, 0.355, isus, 0.175, isus,       \

                                                        0.16, isus, -0.246, idec, -0.045, idec, -0.072, idec, 0.057, idec,      \

                                                        -0.024, idec, 0.002, idec, 0

iwt1                        =                       if35

iwt2                        =                       if36

iwt3                        =                       if37

inorm                      =                       4909.05

                                goto                    end

end:

kampr1                      randi                   .02*kamp1, 10, giseed                   ; up to 2% wavetable amplitude variation

giseed                      =                       frac(giseed*105.947)

kamp1                      =                       kamp1 + kampr1

kampr2                      randi                   .02*kamp2, 10, giseed                   ; up to 2% wavetable amplitude variation

giseed                      =                       frac(giseed*105.947)

kamp2                      =                       kamp2 + kampr2

kampr3                      randi                   .02*kamp3, 10, giseed                   ; up to 2% wavetable amplitude variation

giseed                      =                       frac(giseed*105.947)

kamp3                      =                       kamp3 + kampr3

awt1                        poscil                  kamp1, kfreq, iwt1, iphase              ; wavetable lookup

awt2                        poscil                  kamp2, kfreq, iwt2, iphase

awt3                        poscil                  kamp3, kfreq, iwt3, iphase

asig                        =                       awt1 + awt2 + awt3

asig                        =                       asig*(iampscale/inorm)

kcut                        linseg                  0, iattack, ifiltcut, isustain, ifiltcut, idecay, 0     ; lowpass filter for brightness control

afilt                      tone                    asig, kcut

asignal                        balance                 afilt, asig

iattack                         =                       0.005

isustain                        =                       p3

irelease                        =                       0.06

p3                              =                       isustain + iattack + irelease

adeclick                        linsegr                 0.0, iattack, 1.0, isustain, 1.0, irelease, 0.0

aoutleft, aoutright             pan2                    asignal * adeclick, i_pan

                                outleta                 "outleft",  aoutleft

                                outleta                 "outright", aoutright

                                endin

===========================

Michael Gogins
Irreducible Productions
http://michaelgogins.tumblr.com
Michael dot Gogins at gmail dot com

On Tue, Aug 20, 2013 at 12:31 PM, Dave Phillips <dlphillips@woh.rr.com> wrote:

On 08/20/2013 10:40 AM, Michael Gogins wrote:

What is the source of the flute sound?

Regards,

Mike

Hi Mike,

It's the flute from the 8mbgmsfx.sf2 font, with some Calf reverb and some Csound waveguide filtering.

Best,

dp

===========================

Michael Gogins
Irreducible Productions
http://michaelgogins.tumblr.com
Michael dot Gogins at gmail dot com

On Tue, Aug 20, 2013 at 9:19 AM, Michael Rhoades <mrhoades@perceptionfactory.com> wrote:

Beautiful Dave. Would love to hear it in concert with a flute player.

Thanks for sharing!

On 8/20/13 8:56 AM, Dave Phillips wrote:

Greetings,

A recent piece:

https://soundcloud.com/davephillips69/cadenza-for-flute-and-csound

For the unclouded:

    http://linux-sound.org/audio/Cadenza.mp3

    http://linux-sound.org/audio/Cadenza.ogg

It's an experiment with AVSynthesis and a flute solo (MIDI version recorded in lieu of an actual player). Material is based on the principal row from Alban Berg's Lyric Suite, but treated with a free atonal method.

Old school with new tools.

Best,

dp



Send bugs reports to the Sourceforge bug trackers
csound6:
           https://sourceforge.net/p/csound/tickets/
csound5:
           https://sourceforge.net/p/csound/bugs/
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 trackers
csound6:
           https://sourceforge.net/p/csound/tickets/
csound5:
           https://sourceforge.net/p/csound/bugs/
Discussions of bugs and features can be posted here
To unsubscribe, send email sympa@lists.bath.ac.uk with body "unsubscribe csound"