Can't you use diskin2? Not as flexible but pretty fast?

On 12 January 2013 18:04, Roger Kelly  wrote:
> I was wondering if there would be interest in adding a feature of a
> "disk-streaming" version of GEN01 to combine with loscil.
>
> This basically would make a disk-streaming sampler, versus the need to
> pre-load all samples into memory.
>
> Thoughts?

Dňa 12. 1. 2013 19:04 Roger Kelly wrote / napísal(a):
> I was wondering if there would be interest in adding a feature of a 
> "disk-streaming" version of GEN01 to combine with loscil.
>
> This basically would make a disk-streaming sampler, versus the need to 
> pre-load all samples into memory.
>
> Thoughts?
Hi! What is a disc -streaming sampler? What is difference between normal 
and disc streaming sampler? Thank You!

Marco

I think by disk-streaming Rodger is referring to something that is
read directly from the hard disk rather than RAM.

On 12 January 2013 18:17, Marco Oros  wrote:
> Dňa 12. 1. 2013 19:04 Roger Kelly wrote / napísal(a):
>
>> I was wondering if there would be interest in adding a feature of a
>> "disk-streaming" version of GEN01 to combine with loscil.
>>
>> This basically would make a disk-streaming sampler, versus the need to
>> pre-load all samples into memory.
>>
>> Thoughts?
>
> Hi! What is a disc -streaming sampler? What is difference between normal and
> disc streaming sampler? Thank You!
>
> Marco
>
>
> 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"
>

I've used diskin2 with drum samples and it performed just fine. It
would be faster of course to load the samples, but on mobile devices
that's not always an option due to limited memory.

On 12 January 2013 18:43, peiman khosravi  wrote:
> I don't think this is safe for live performance.
>
>
> On 12 January 2013 18:36, Rory Walsh  wrote:
>>
>> I think by disk-streaming Rodger is referring to something that is
>> read directly from the hard disk rather than RAM.
>>
>> On 12 January 2013 18:17, Marco Oros  wrote:
>> > Dňa 12. 1. 2013 19:04 Roger Kelly wrote / napísal(a):
>> >
>> >> I was wondering if there would be interest in adding a feature of a
>> >> "disk-streaming" version of GEN01 to combine with loscil.
>> >>
>> >> This basically would make a disk-streaming sampler, versus the need to
>> >> pre-load all samples into memory.
>> >>
>> >> Thoughts?
>> >
>> > Hi! What is a disc -streaming sampler? What is difference between normal
>> > and
>> > disc streaming sampler? Thank You!
>> >
>> > Marco
>> >
>> >
>> > 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"
>>
>

> sfplay~ in maxmsp. It was so embarrassing. And that was just reading a
> single file.

Yes, but has it happened with Csound :)

> On another note I heard that if the samples are really short then it's not a
> good idea for the disk because the data is fragmented and overworks the
> disk. (Of course that's not an issue with SSDs.) Is this true?

I'm not sure about this one, perhaps someone else can enlighten us.

OK! I understand now.

 
I'm currently meeting an about 50 seconds limit for a stereo file read into a table with ftgentmp (macro below, this is part of a larger setup). 
I would be happy to try a "disk-streaming" version of GEN01 to overcome this limitation (editing samples I often cut to make them fit within 50 seconds). Rendering realtime is not important in my case.
Could this new GEN01 version read any number of channels into tables?

Ruben


Den 12. jan. 2013 kl. 19.04 skrev Roger Kelly:

> I was wondering if there would be interest in adding a feature of a "disk-streaming" version of GEN01 to combine with loscil.
> 
> This basically would make a disk-streaming sampler, versus the need to pre-load all samples into memory.
> 
> Thoughts?


# define PlayInputWithTable(A#B#C#D) #
;___________________________________________________________________________________________________________________________________________________________________________
;READ SOUND INTO TABLE
;___________________________________________________________________________________________________________________________________________________________________________
;RESERVE TABLE SPACE FOR ALL SOUND FILES 3000+

itablenum$B=$A+3000

;ifno ftgentmp itablenumber, ip2dummy, ( isize, igen, iarga, iargb, ...) paranthesis is like GEN 01
;     f    time  size  1  filcod  skiptime  format  channel

itablenum$B ftgentmp itablenum$B, 0, 0, -1, $A, 0, 0, 0 ;Load all in original format

;___________________________________________________________________________________________________________________________________________________________________________
;LOSCIL3 reading, for stretching
;___________________________________________________________________________________________________________________________________________________________________________
iframes$B=ilength$B*isr$B-1

;If itimeforloop is smaller than 0, the segment will be taken from the exact middle of the file
imidten$B=iframes$B/2
ibegmidt$B=imidten$B - ((iframes$B*ipositivetimeforloop$B)/2)
iendmidt$B=imidten$B + ((iframes$B*ipositivetimeforloop$B)/2)

ibeg1$B=0
ibeg1$B=(itimeforloopuntouched$B<0?ibegmidt$B:ibeg1$B) 
ibeg2$B=ibeg1$B
iend1$B=iframes$B
iend1$B=(itimeforloopuntouched$B<0?iendmidt$B:iend1$B)
iend2$B=iend1$B
print ibeg1$B, iend1$B, itimeforloopuntouched$B

ibas=1                            ;ibas på 1 gjør isamplespeedratio til simpel faktor
imod1=2 ;LOOP 1=normal loop 2=forlengs/baklengs 1=normal loop 0=ikke loop
imod1=(itimeforloop$B==0?0:imod1) ;Turn off LOOPING if itimeforloop is 0
imod2=imod1


;___________________________________________________________________________________________________________________________________________________________________________
;loscil3 uses cubic interpolation ......ibas er base freq i Hz.....kcsps er freq.......imod er play modes for sustain/loop...
;___________________________________________________________________________________________________________________________________________________________________________
if (ichan$B ==2 ) goto loscil3stereo$B
$C  loscil3 kamp, ksamplespeedratio$B, itablenum$B ,ibas ,imod1 ,ibeg1$B, iend1$B, imod2, ibeg2$B, iend2$B
$D = $C
goto outtter$B
loscil3stereo$B:
$C,$D loscil3 kamp, ksamplespeedratio$B, itablenum$B ,ibas,imod1,ibeg1$B, iend1$B, imod2, ibeg2$B, iend2$B 
;___________________________________________________________________________________________________________________________________________________________________________
outtter$B:
#

I think this is a loscil bug. Try doing this:

1) read the file in two tables, one for each channel
2) use two flopper2 opcodes reading from each channel

I am pretty sure you can get much more than 50 seconds.

Victor

On 14 Jan 2013, at 11:02, Ruben Sverre Gjertsen wrote:

> 
> I'm currently meeting an about 50 seconds limit for a stereo file read into a table with ftgentmp (macro below, this is part of a larger setup). 
> I would be happy to try a "disk-streaming" version of GEN01 to overcome this limitation (editing samples I often cut to make them fit within 50 seconds). Rendering realtime is not important in my case.
> Could this new GEN01 version read any number of channels into tables?
> 
> Ruben
> 
> 
> Den 12. jan. 2013 kl. 19.04 skrev Roger Kelly:
> 
>> I was wondering if there would be interest in adding a feature of a "disk-streaming" version of GEN01 to combine with loscil.
>> 
>> This basically would make a disk-streaming sampler, versus the need to pre-load all samples into memory.
>> 
>> Thoughts?
> 
> 
> # define PlayInputWithTable(A#B#C#D) #
> ;___________________________________________________________________________________________________________________________________________________________________________
> ;READ SOUND INTO TABLE
> ;___________________________________________________________________________________________________________________________________________________________________________
> ;RESERVE TABLE SPACE FOR ALL SOUND FILES 3000+
> 
> itablenum$B=$A+3000
> 
> ;ifno ftgentmp itablenumber, ip2dummy, ( isize, igen, iarga, iargb, ...) paranthesis is like GEN 01
> ;     f    time  size  1  filcod  skiptime  format  channel
> 
> itablenum$B ftgentmp itablenum$B, 0, 0, -1, $A, 0, 0, 0 ;Load all in original format
> 
> ;___________________________________________________________________________________________________________________________________________________________________________
> ;LOSCIL3 reading, for stretching
> ;___________________________________________________________________________________________________________________________________________________________________________
> iframes$B=ilength$B*isr$B-1
> 
> ;If itimeforloop is smaller than 0, the segment will be taken from the exact middle of the file
> imidten$B=iframes$B/2
> ibegmidt$B=imidten$B - ((iframes$B*ipositivetimeforloop$B)/2)
> iendmidt$B=imidten$B + ((iframes$B*ipositivetimeforloop$B)/2)
> 
> ibeg1$B=0
> ibeg1$B=(itimeforloopuntouched$B<0?ibegmidt$B:ibeg1$B) 
> ibeg2$B=ibeg1$B
> iend1$B=iframes$B
> iend1$B=(itimeforloopuntouched$B<0?iendmidt$B:iend1$B)
> iend2$B=iend1$B
> print ibeg1$B, iend1$B, itimeforloopuntouched$B
> 
> ibas=1                            ;ibas på 1 gjør isamplespeedratio til simpel faktor
> imod1=2 ;LOOP 1=normal loop 2=forlengs/baklengs 1=normal loop 0=ikke loop
> imod1=(itimeforloop$B==0?0:imod1) ;Turn off LOOPING if itimeforloop is 0
> imod2=imod1
> 
> 
> ;___________________________________________________________________________________________________________________________________________________________________________
> ;loscil3 uses cubic interpolation ......ibas er base freq i Hz.....kcsps er freq.......imod er play modes for sustain/loop...
> ;___________________________________________________________________________________________________________________________________________________________________________
> if (ichan$B ==2 ) goto loscil3stereo$B
> $C  loscil3 kamp, ksamplespeedratio$B, itablenum$B ,ibas ,imod1 ,ibeg1$B, iend1$B, imod2, ibeg2$B, iend2$B
> $D = $C
> goto outtter$B
> loscil3stereo$B:
> $C,$D loscil3 kamp, ksamplespeedratio$B, itablenum$B ,ibas,imod1,ibeg1$B, iend1$B, imod2, ibeg2$B, iend2$B 
> ;___________________________________________________________________________________________________________________________________________________________________________
> outtter$B:
> #
> 
> 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"
> 

Dr Victor Lazzarini
Senior Lecturer
Dept. of Music
NUI Maynooth Ireland
tel.: +353 1 708 3545
Victor dot Lazzarini AT nuim dot ie

This is what I did for one of my csound for live sampler plugins.  Concur that it works!

John Clements

cell: 401-835-6050
http://www.clementsaudio.com


On Jan 14, 2013, at 4:07 AM, Victor Lazzarini  wrote:

> I think this is a loscil bug. Try doing this:
> 
> 1) read the file in two tables, one for each channel
> 2) use two flopper2 opcodes reading from each channel
> 
> I am pretty sure you can get much more than 50 seconds.
> 
> Victor
> 
> On 14 Jan 2013, at 11:02, Ruben Sverre Gjertsen wrote:
> 
>> 
>> I'm currently meeting an about 50 seconds limit for a stereo file read into a table with ftgentmp (macro below, this is part of a larger setup). 
>> I would be happy to try a "disk-streaming" version of GEN01 to overcome this limitation (editing samples I often cut to make them fit within 50 seconds). Rendering realtime is not important in my case.
>> Could this new GEN01 version read any number of channels into tables?
>> 
>> Ruben
>> 
>> 
>> Den 12. jan. 2013 kl. 19.04 skrev Roger Kelly:
>> 
>>> I was wondering if there would be interest in adding a feature of a "disk-streaming" version of GEN01 to combine with loscil.
>>> 
>>> This basically would make a disk-streaming sampler, versus the need to pre-load all samples into memory.
>>> 
>>> Thoughts?
>> 
>> 
>> # define PlayInputWithTable(A#B#C#D) #
>> ;___________________________________________________________________________________________________________________________________________________________________________
>> ;READ SOUND INTO TABLE
>> ;___________________________________________________________________________________________________________________________________________________________________________
>> ;RESERVE TABLE SPACE FOR ALL SOUND FILES 3000+
>> 
>> itablenum$B=$A+3000
>> 
>> ;ifno ftgentmp itablenumber, ip2dummy, ( isize, igen, iarga, iargb, ...) paranthesis is like GEN 01
>> ;     f    time  size  1  filcod  skiptime  format  channel
>> 
>> itablenum$B ftgentmp itablenum$B, 0, 0, -1, $A, 0, 0, 0 ;Load all in original format
>> 
>> ;___________________________________________________________________________________________________________________________________________________________________________
>> ;LOSCIL3 reading, for stretching
>> ;___________________________________________________________________________________________________________________________________________________________________________
>> iframes$B=ilength$B*isr$B-1
>> 
>> ;If itimeforloop is smaller than 0, the segment will be taken from the exact middle of the file
>> imidten$B=iframes$B/2
>> ibegmidt$B=imidten$B - ((iframes$B*ipositivetimeforloop$B)/2)
>> iendmidt$B=imidten$B + ((iframes$B*ipositivetimeforloop$B)/2)
>> 
>> ibeg1$B=0
>> ibeg1$B=(itimeforloopuntouched$B<0?ibegmidt$B:ibeg1$B) 
>> ibeg2$B=ibeg1$B
>> iend1$B=iframes$B
>> iend1$B=(itimeforloopuntouched$B<0?iendmidt$B:iend1$B)
>> iend2$B=iend1$B
>> print ibeg1$B, iend1$B, itimeforloopuntouched$B
>> 
>> ibas=1                            ;ibas på 1 gjør isamplespeedratio til simpel faktor
>> imod1=2 ;LOOP 1=normal loop 2=forlengs/baklengs 1=normal loop 0=ikke loop
>> imod1=(itimeforloop$B==0?0:imod1) ;Turn off LOOPING if itimeforloop is 0
>> imod2=imod1
>> 
>> 
>> ;___________________________________________________________________________________________________________________________________________________________________________
>> ;loscil3 uses cubic interpolation ......ibas er base freq i Hz.....kcsps er freq.......imod er play modes for sustain/loop...
>> ;___________________________________________________________________________________________________________________________________________________________________________
>> if (ichan$B ==2 ) goto loscil3stereo$B
>> $C  loscil3 kamp, ksamplespeedratio$B, itablenum$B ,ibas ,imod1 ,ibeg1$B, iend1$B, imod2, ibeg2$B, iend2$B
>> $D = $C
>> goto outtter$B
>> loscil3stereo$B:
>> $C,$D loscil3 kamp, ksamplespeedratio$B, itablenum$B ,ibas,imod1,ibeg1$B, iend1$B, imod2, ibeg2$B, iend2$B 
>> ;___________________________________________________________________________________________________________________________________________________________________________
>> outtter$B:
>> #
>> 
>> 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"
> 
> Dr Victor Lazzarini
> Senior Lecturer
> Dept. of Music
> NUI Maynooth Ireland
> tel.: +353 1 708 3545
> Victor dot Lazzarini AT nuim dot ie
> 
> 
> 
> 
> 
> 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"
> 

Thank you!

I'm trying flooper2 now. Is there a possibility to use cubic interpolation when stretching the sound (like with loscil3)?

It would be ideal to: 
    Interpolate if the note is longer than the soundfile.
    Shorten by granulation if the note is shorter the the soundfile.

If I manage to add something from this orchestra by Hans Mikelson:
http://www.csounds.com/ezine/spring2000/processing/

Ruben


Den 14. jan. 2013 kl. 13.07 skrev Victor Lazzarini:

> I think this is a loscil bug. Try doing this:
> 
> 1) read the file in two tables, one for each channel
> 2) use two flopper2 opcodes reading from each channel
> 
> I am pretty sure you can get much more than 50 seconds.
> 
> Victor
> 
> On 14 Jan 2013, at 11:02, Ruben Sverre Gjertsen wrote:
> 
>> 
>> I'm currently meeting an about 50 seconds limit for a stereo file read into a table with ftgentmp (macro below, this is part of a larger setup). 
>> I would be happy to try a "disk-streaming" version of GEN01 to overcome this limitation (editing samples I often cut to make them fit within 50 seconds). Rendering realtime is not important in my case.
>> Could this new GEN01 version read any number of channels into tables?
>> 
>> Ruben
>> 
>> 
>> Den 12. jan. 2013 kl. 19.04 skrev Roger Kelly:
>> 
>>> I was wondering if there would be interest in adding a feature of a "disk-streaming" version of GEN01 to combine with loscil.
>>> 
>>> This basically would make a disk-streaming sampler, versus the need to pre-load all samples into memory.
>>> 
>>> Thoughts?
>> 
>> 
>> # define PlayInputWithTable(A#B#C#D) #
>> ;___________________________________________________________________________________________________________________________________________________________________________
>> ;READ SOUND INTO TABLE
>> ;___________________________________________________________________________________________________________________________________________________________________________
>> ;RESERVE TABLE SPACE FOR ALL SOUND FILES 3000+
>> 
>> itablenum$B=$A+3000
>> 
>> ;ifno ftgentmp itablenumber, ip2dummy, ( isize, igen, iarga, iargb, ...) paranthesis is like GEN 01
>> ;     f    time  size  1  filcod  skiptime  format  channel
>> 
>> itablenum$B ftgentmp itablenum$B, 0, 0, -1, $A, 0, 0, 0 ;Load all in original format
>> 
>> ;___________________________________________________________________________________________________________________________________________________________________________
>> ;LOSCIL3 reading, for stretching
>> ;___________________________________________________________________________________________________________________________________________________________________________
>> iframes$B=ilength$B*isr$B-1
>> 
>> ;If itimeforloop is smaller than 0, the segment will be taken from the exact middle of the file
>> imidten$B=iframes$B/2
>> ibegmidt$B=imidten$B - ((iframes$B*ipositivetimeforloop$B)/2)
>> iendmidt$B=imidten$B + ((iframes$B*ipositivetimeforloop$B)/2)
>> 
>> ibeg1$B=0
>> ibeg1$B=(itimeforloopuntouched$B<0?ibegmidt$B:ibeg1$B) 
>> ibeg2$B=ibeg1$B
>> iend1$B=iframes$B
>> iend1$B=(itimeforloopuntouched$B<0?iendmidt$B:iend1$B)
>> iend2$B=iend1$B
>> print ibeg1$B, iend1$B, itimeforloopuntouched$B
>> 
>> ibas=1                            ;ibas på 1 gjør isamplespeedratio til simpel faktor
>> imod1=2 ;LOOP 1=normal loop 2=forlengs/baklengs 1=normal loop 0=ikke loop
>> imod1=(itimeforloop$B==0?0:imod1) ;Turn off LOOPING if itimeforloop is 0
>> imod2=imod1
>> 
>> 
>> ;___________________________________________________________________________________________________________________________________________________________________________
>> ;loscil3 uses cubic interpolation ......ibas er base freq i Hz.....kcsps er freq.......imod er play modes for sustain/loop...
>> ;___________________________________________________________________________________________________________________________________________________________________________
>> if (ichan$B ==2 ) goto loscil3stereo$B
>> $C  loscil3 kamp, ksamplespeedratio$B, itablenum$B ,ibas ,imod1 ,ibeg1$B, iend1$B, imod2, ibeg2$B, iend2$B
>> $D = $C
>> goto outtter$B
>> loscil3stereo$B:
>> $C,$D loscil3 kamp, ksamplespeedratio$B, itablenum$B ,ibas,imod1,ibeg1$B, iend1$B, imod2, ibeg2$B, iend2$B 
>> ;___________________________________________________________________________________________________________________________________________________________________________
>> outtter$B:
>> #
>> 
>> 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"
>> 
> 
> Dr Victor Lazzarini
> Senior Lecturer
> Dept. of Music
> NUI Maynooth Ireland
> tel.: +353 1 708 3545
> Victor dot Lazzarini AT nuim dot ie
> 
> 
> 
> 
> 
> 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"
> 

That can certainly be added to a TODO list.

If you want to play around with durations etc, you can checkout the mincer opcode too.

Victor
On 15 Jan 2013, at 09:39, Ruben Sverre Gjertsen wrote:

> Thank you!
> 
> I'm trying flooper2 now. Is there a possibility to use cubic interpolation when stretching the sound (like with loscil3)?
> 
> It would be ideal to: 
>    Interpolate if the note is longer than the soundfile.
>    Shorten by granulation if the note is shorter the the soundfile.
> 
> If I manage to add something from this orchestra by Hans Mikelson:
> http://www.csounds.com/ezine/spring2000/processing/
> 
> Ruben
> 
> 
> Den 14. jan. 2013 kl. 13.07 skrev Victor Lazzarini:
> 
>> I think this is a loscil bug. Try doing this:
>> 
>> 1) read the file in two tables, one for each channel
>> 2) use two flopper2 opcodes reading from each channel
>> 
>> I am pretty sure you can get much more than 50 seconds.
>> 
>> Victor
>> 
>> On 14 Jan 2013, at 11:02, Ruben Sverre Gjertsen wrote:
>> 
>>> 
>>> I'm currently meeting an about 50 seconds limit for a stereo file read into a table with ftgentmp (macro below, this is part of a larger setup). 
>>> I would be happy to try a "disk-streaming" version of GEN01 to overcome this limitation (editing samples I often cut to make them fit within 50 seconds). Rendering realtime is not important in my case.
>>> Could this new GEN01 version read any number of channels into tables?
>>> 
>>> Ruben
>>> 
>>> 
>>> Den 12. jan. 2013 kl. 19.04 skrev Roger Kelly:
>>> 
>>>> I was wondering if there would be interest in adding a feature of a "disk-streaming" version of GEN01 to combine with loscil.
>>>> 
>>>> This basically would make a disk-streaming sampler, versus the need to pre-load all samples into memory.
>>>> 
>>>> Thoughts?
>>> 
>>> 
>>> # define PlayInputWithTable(A#B#C#D) #
>>> ;___________________________________________________________________________________________________________________________________________________________________________
>>> ;READ SOUND INTO TABLE
>>> ;___________________________________________________________________________________________________________________________________________________________________________
>>> ;RESERVE TABLE SPACE FOR ALL SOUND FILES 3000+
>>> 
>>> itablenum$B=$A+3000
>>> 
>>> ;ifno ftgentmp itablenumber, ip2dummy, ( isize, igen, iarga, iargb, ...) paranthesis is like GEN 01
>>> ;     f    time  size  1  filcod  skiptime  format  channel
>>> 
>>> itablenum$B ftgentmp itablenum$B, 0, 0, -1, $A, 0, 0, 0 ;Load all in original format
>>> 
>>> ;___________________________________________________________________________________________________________________________________________________________________________
>>> ;LOSCIL3 reading, for stretching
>>> ;___________________________________________________________________________________________________________________________________________________________________________
>>> iframes$B=ilength$B*isr$B-1
>>> 
>>> ;If itimeforloop is smaller than 0, the segment will be taken from the exact middle of the file
>>> imidten$B=iframes$B/2
>>> ibegmidt$B=imidten$B - ((iframes$B*ipositivetimeforloop$B)/2)
>>> iendmidt$B=imidten$B + ((iframes$B*ipositivetimeforloop$B)/2)
>>> 
>>> ibeg1$B=0
>>> ibeg1$B=(itimeforloopuntouched$B<0?ibegmidt$B:ibeg1$B) 
>>> ibeg2$B=ibeg1$B
>>> iend1$B=iframes$B
>>> iend1$B=(itimeforloopuntouched$B<0?iendmidt$B:iend1$B)
>>> iend2$B=iend1$B
>>> print ibeg1$B, iend1$B, itimeforloopuntouched$B
>>> 
>>> ibas=1                            ;ibas på 1 gjør isamplespeedratio til simpel faktor
>>> imod1=2 ;LOOP 1=normal loop 2=forlengs/baklengs 1=normal loop 0=ikke loop
>>> imod1=(itimeforloop$B==0?0:imod1) ;Turn off LOOPING if itimeforloop is 0
>>> imod2=imod1
>>> 
>>> 
>>> ;___________________________________________________________________________________________________________________________________________________________________________
>>> ;loscil3 uses cubic interpolation ......ibas er base freq i Hz.....kcsps er freq.......imod er play modes for sustain/loop...
>>> ;___________________________________________________________________________________________________________________________________________________________________________
>>> if (ichan$B ==2 ) goto loscil3stereo$B
>>> $C  loscil3 kamp, ksamplespeedratio$B, itablenum$B ,ibas ,imod1 ,ibeg1$B, iend1$B, imod2, ibeg2$B, iend2$B
>>> $D = $C
>>> goto outtter$B
>>> loscil3stereo$B:
>>> $C,$D loscil3 kamp, ksamplespeedratio$B, itablenum$B ,ibas,imod1,ibeg1$B, iend1$B, imod2, ibeg2$B, iend2$B 
>>> ;___________________________________________________________________________________________________________________________________________________________________________
>>> outtter$B:
>>> #
>>> 
>>> 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"
>>> 
>> 
>> Dr Victor Lazzarini
>> Senior Lecturer
>> Dept. of Music
>> NUI Maynooth Ireland
>> tel.: +353 1 708 3545
>> Victor dot Lazzarini AT nuim dot ie
>> 
>> 
>> 
>> 
>> 
>> 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"
> 

Dr Victor Lazzarini
Senior Lecturer
Dept. of Music
NUI Maynooth Ireland
tel.: +353 1 708 3545
Victor dot Lazzarini AT nuim dot ie