[Cs-dev] midiin changes??

[Cs-dev] midiin changes??

Date	2006-11-08 09:08
From	David Akbari
Subject	[Cs-dev] midiin changes??
	Hi Developers, Can anyone provide some more information on what was changed since June 18 2006 in the midiin opcode? In June I spent a lot of time and made a few demos using a MIDI file to drive performance and using program change messages to trigger samples. It works with a version of Csound5 compiled on June 18 2006. It does not work on the current CVS version. Does this qualify as breaking backwards compatibility? I'd really rather not go through the trouble of chasing changes since I have no idea what would've been changed since the file DOES work on a recent version (compiled from CVS since the last release). How can this be fixed? What was changed in midiin? Here's the files so you can see for yourself http://csounds.com/olpc/Archive.zip -David ------------------------------------------------------------------------- Using Tomcat but need to do more? Need to support web services, security? Get stuff done quickly with pre-integrated technology to make your job easier Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642 _______________________________________________ Csound-devel mailing list Csound-devel@lists.sourceforge.net

Date	2006-11-08 09:53
From	"Dr. Richard Boulanger"
Subject	Re: [Cs-dev] midiin changes??
	David, The midiin opcode was NOT working correctly back then. I am not sure that it is working correctly even now, but I can assure you that it was not working correctly back then. It is better now, and I am able to use it for the current release of the BETA1-Demo package for the One Laptop Per Child Computer Systems - OLPC, but... it definitely still needs some serious testing and looking into. In fact, the reason that Istvan's General MIDI fluid instrument does work correctly is because he uses the raw messages to: play the notes, read the program changes, and read the controllers. He essentially turns off all of Csound's MIDI and then maps it directly from there. -dr.B. On Nov 8, 2006, at 4:08 AM, David Akbari wrote: > Hi Developers, > > Can anyone provide some more information on what was changed since > June > 18 2006 in the midiin opcode? > > In June I spent a lot of time and made a few demos using a MIDI > file to > drive performance and using program change messages to trigger > samples. > It works with a version of Csound5 compiled on June 18 2006. It does > not work on the current CVS version. Does this qualify as breaking > backwards compatibility? I'd really rather not go through the trouble > of chasing changes since I have no idea what would've been changed > since the file DOES work on a recent version (compiled from CVS since > the last release). > > How can this be fixed? What was changed in midiin? > > Here's the files so you can see for yourself > > http://csounds.com/olpc/Archive.zip > > > -David > > > ---------------------------------------------------------------------- > --- > Using Tomcat but need to do more? Need to support web services, > security? > Get stuff done quickly with pre-integrated technology to make your > job easier > Download IBM WebSphere Application Server v.1.0.1 based on Apache > Geronimo > http://sel.as-us.falkag.net/sel? > cmd=lnk&kid=120709&bid=263057&dat=121642 > _______________________________________________ > Csound-devel mailing list > Csound-devel@lists.sourceforge.net > https://lists.sourceforge.net/lists/listinfo/csound-devel ------------------------------------------------------------------------- Using Tomcat but need to do more? Need to support web services, security? Get stuff done quickly with pre-integrated technology to make your job easier Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642 _______________________________________________ Csound-devel mailing list Csound-devel@lists.sourceforge.net

Date	2006-11-08 10:00
From	"Dr. Richard Boulanger"
Subject	Re: [Cs-dev] midiin changes??
	You should ABSOLUTELY NOT delay this release because of David's problem with midiin - I think that his problem might be with diskin2 and not midiin - also, there are some complicated things going on in David's design that might also account for his midiin issues.... As I reported earlier, I am not sure that his pgmin UDO is working 100% correctly. If David would share his orchestra with us, you might be able to better chase down his midiin and diskin2 issues Also, for your testing purposes, you might want to check the MIDI stuff I posted the other night... All you need is there to run your tests - I use midiin and David's pgmin UDO. http://csounds.com/olpc/gmSoundFontPlayer.zip Dr. B. On Nov 8, 2006, at 4:53 AM, Dr. Richard Boulanger wrote: > David, > > The midiin opcode was NOT working correctly back then. I am not sure > that it is working correctly even now, but I can assure you that it > was not working correctly back then. It is better now, and I am able > to use it for the current release of the BETA1-Demo package for the > One Laptop Per Child Computer Systems - OLPC, but... it definitely > still needs some serious testing and looking into. > > In fact, the reason that Istvan's General MIDI fluid instrument does > work correctly is because he uses the raw messages to: play the > notes, read the program changes, and read the controllers. He > essentially turns off all of Csound's MIDI and then maps it directly > from there. > > -dr.B. > > On Nov 8, 2006, at 4:08 AM, David Akbari wrote: > >> Hi Developers, >> >> Can anyone provide some more information on what was changed since >> June >> 18 2006 in the midiin opcode? >> >> In June I spent a lot of time and made a few demos using a MIDI >> file to >> drive performance and using program change messages to trigger >> samples. >> It works with a version of Csound5 compiled on June 18 2006. It does >> not work on the current CVS version. Does this qualify as breaking >> backwards compatibility? I'd really rather not go through the trouble >> of chasing changes since I have no idea what would've been changed >> since the file DOES work on a recent version (compiled from CVS since >> the last release). >> >> How can this be fixed? What was changed in midiin? >> >> Here's the files so you can see for yourself >> >> http://csounds.com/olpc/Archive.zip >> >> >> -David >> >> >> --------------------------------------------------------------------- >> - >> --- >> Using Tomcat but need to do more? Need to support web services, >> security? >> Get stuff done quickly with pre-integrated technology to make your >> job easier >> Download IBM WebSphere Application Server v.1.0.1 based on Apache >> Geronimo >> http://sel.as-us.falkag.net/sel? >> cmd=lnk&kid=120709&bid=263057&dat=121642 >> _______________________________________________ >> Csound-devel mailing list >> Csound-devel@lists.sourceforge.net >> https://lists.sourceforge.net/lists/listinfo/csound-devel > > > ---------------------------------------------------------------------- > --- > Using Tomcat but need to do more? Need to support web services, > security? > Get stuff done quickly with pre-integrated technology to make your > job easier > Download IBM WebSphere Application Server v.1.0.1 based on Apache > Geronimo > http://sel.as-us.falkag.net/sel? > cmd=lnk&kid=120709&bid=263057&dat=121642 > _______________________________________________ > Csound-devel mailing list > Csound-devel@lists.sourceforge.net > https://lists.sourceforge.net/lists/listinfo/csound-devel ------------------------------------------------------------------------- Using Tomcat but need to do more? Need to support web services, security? Get stuff done quickly with pre-integrated technology to make your job easier Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642 _______________________________________________ Csound-devel mailing list Csound-devel@lists.sourceforge.net

Date	2006-11-08 10:47
From	Jonathan Murphy
Subject	Re: [Cs-dev] midiin changes??
	Hi Folks, I'm pretty much certain that midiin is working properly. Here is the output of a modified version of the instrument that Dr Boulanger and I used the other day. Note off messages are not printed, instead note on with a velocity of 0 is received. I'm not sure if this is csound or the alsa sequencer. Note on, control change, pitch bend, aftertouch, program change, change channels, repeat. Aftertouch and control change continue to be sent on channel 1 because omni is off. aseqdump (command line alsa utility) displayed the same info while running simultaneously. J. SECTION 1: kstatus= 144.000000, kchan = 1.000000, kdata1 = 60.000000, kdata2 = 75.000000 kstatus= 144.000000, kchan = 1.000000, kdata1 = 60.000000, kdata2 = 0.000000 kstatus= 176.000000, kchan = 1.000000, kdata1 = 101.000000, kdata2 = 0.000000 kstatus= 224.000000, kchan = 1.000000, kdata1 = 2.000000, kdata2 = 65.000000 kstatus= 224.000000, kchan = 1.000000, kdata1 = 4.000000, kdata2 = 66.000000 kstatus= 224.000000, kchan = 1.000000, kdata1 = 8.000000, kdata2 = 68.000000 kstatus= 224.000000, kchan = 1.000000, kdata1 = 4.000000, kdata2 = 66.000000 kstatus= 224.000000, kchan = 1.000000, kdata1 = 0.000000, kdata2 = 64.000000 kstatus= 208.000000, kchan = 1.000000, kdata1 = 52.000000, kdata2 = 0.000000 kstatus= 208.000000, kchan = 1.000000, kdata1 = 54.000000, kdata2 = 0.000000 kstatus= 208.000000, kchan = 1.000000, kdata1 = 56.000000, kdata2 = 0.000000 kstatus= 208.000000, kchan = 1.000000, kdata1 = 58.000000, kdata2 = 0.000000 kstatus= 208.000000, kchan = 1.000000, kdata1 = 59.000000, kdata2 = 0.000000 kstatus= 208.000000, kchan = 1.000000, kdata1 = 61.000000, kdata2 = 0.000000 midi channel 1 now using instr 1 kstatus= 192.000000, kchan = 1.000000, kdata1 = 9.000000, kdata2 = 0.000000 kstatus= 144.000000, kchan = 9.000000, kdata1 = 60.000000, kdata2 = 80.000000 kstatus= 144.000000, kchan = 9.000000, kdata1 = 60.000000, kdata2 = 0.000000 kstatus= 176.000000, kchan = 1.000000, kdata1 = 101.000000, kdata2 = 127.000000 kstatus= 176.000000, kchan = 1.000000, kdata1 = 35.000000, kdata2 = 50.000000 kstatus= 176.000000, kchan = 1.000000, kdata1 = 35.000000, kdata2 = 51.000000 kstatus= 176.000000, kchan = 1.000000, kdata1 = 35.000000, kdata2 = 52.000000 kstatus= 224.000000, kchan = 9.000000, kdata1 = 2.000000, kdata2 = 65.000000 kstatus= 224.000000, kchan = 9.000000, kdata1 = 4.000000, kdata2 = 66.000000 kstatus= 224.000000, kchan = 9.000000, kdata1 = 8.000000, kdata2 = 68.000000 kstatus= 224.000000, kchan = 9.000000, kdata1 = 10.000000, kdata2 = 69.000000 kstatus= 224.000000, kchan = 9.000000, kdata1 = 6.000000, kdata2 = 67.000000 kstatus= 224.000000, kchan = 9.000000, kdata1 = 0.000000, kdata2 = 64.000000 kstatus= 208.000000, kchan = 1.000000, kdata1 = 60.000000, kdata2 = 0.000000 kstatus= 208.000000, kchan = 1.000000, kdata1 = 59.000000, kdata2 = 0.000000 kstatus= 208.000000, kchan = 1.000000, kdata1 = 58.000000, kdata2 = 0.000000 kstatus= 208.000000, kchan = 1.000000, kdata1 = 57.000000, kdata2 = 0.000000 using it "Dr. Richard Boulanger" writes: > You should ABSOLUTELY NOT delay this release because of David's > problem with midiin - I think that his problem might be with diskin2 > and not midiin - also, there are some complicated things going on in > David's design that might also account for his midiin issues.... > > As I reported earlier, I am not sure that his pgmin UDO is working > 100% correctly. > > If David would share his orchestra with us, you might be able to > better chase down his midiin and > diskin2 issues > > Also, for your testing purposes, you might want to check the MIDI > stuff I posted the other night... All you need is there to run your > tests - I use midiin and David's pgmin UDO. > > http://csounds.com/olpc/gmSoundFontPlayer.zip > > Dr. B. > > On Nov 8, 2006, at 4:53 AM, Dr. Richard Boulanger wrote: > >> David, >> >> The midiin opcode was NOT working correctly back then. I am not sure >> that it is working correctly even now, but I can assure you that it >> was not working correctly back then. It is better now, and I am able >> to use it for the current release of the BETA1-Demo package for the >> One Laptop Per Child Computer Systems - OLPC, but... it definitely >> still needs some serious testing and looking into. >> >> In fact, the reason that Istvan's General MIDI fluid instrument does >> work correctly is because he uses the raw messages to: play the >> notes, read the program changes, and read the controllers. He >> essentially turns off all of Csound's MIDI and then maps it directly >> from there. >> >> -dr.B. >> >> On Nov 8, 2006, at 4:08 AM, David Akbari wrote: >> >>> Hi Developers, >>> >>> Can anyone provide some more information on what was changed since >>> June >>> 18 2006 in the midiin opcode? >>> >>> In June I spent a lot of time and made a few demos using a MIDI >>> file to >>> drive performance and using program change messages to trigger >>> samples. >>> It works with a version of Csound5 compiled on June 18 2006. It does >>> not work on the current CVS version. Does this qualify as breaking >>> backwards compatibility? I'd really rather not go through the trouble >>> of chasing changes since I have no idea what would've been changed >>> since the file DOES work on a recent version (compiled from CVS since >>> the last release). >>> >>> How can this be fixed? What was changed in midiin? >>> >>> Here's the files so you can see for yourself >>> >>> http://csounds.com/olpc/Archive.zip >>> >>> >>> -David >>> >>> >>> --------------------------------------------------------------------- >>> - >>> --- >>> Using Tomcat but need to do more? Need to support web services, >>> security? >>> Get stuff done quickly with pre-integrated technology to make your >>> job easier >>> Download IBM WebSphere Application Server v.1.0.1 based on Apache >>> Geronimo >>> http://sel.as-us.falkag.net/sel? >>> cmd=lnk&kid=120709&bid=263057&dat=121642 >>> _______________________________________________ >>> Csound-devel mailing list >>> Csound-devel@lists.sourceforge.net >>> https://lists.sourceforge.net/lists/listinfo/csound-devel >> >> >> ---------------------------------------------------------------------- >> --- >> Using Tomcat but need to do more? Need to support web services, >> security? >> Get stuff done quickly with pre-integrated technology to make your >> job easier >> Download IBM WebSphere Application Server v.1.0.1 based on Apache >> Geronimo >> http://sel.as-us.falkag.net/sel? >> cmd=lnk&kid=120709&bid=263057&dat=121642 >> _______________________________________________ >> Csound-devel mailing list >> Csound-devel@lists.sourceforge.net >> https://lists.sourceforge.net/lists/listinfo/csound-devel > > > ------------------------------------------------------------------------- > Using Tomcat but need to do more? Need to support web services, security? > Get stuff done quickly with pre-integrated technology to make your job easier > Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo > http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642 > _______________________________________________ > Csound-devel mailing list > Csound-devel@lists.sourceforge.net > https://lists.sourceforge.net/lists/listinfo/csound-devel ------------------------------------------------------------------------- Using Tomcat but need to do more? Need to support web services, security? Get stuff done quickly with pre-integrated technology to make your job easier Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642 _______________________________________________ Csound-devel mailing list Csound-devel@lists.sourceforge.net

Date	2006-11-08 11:02
From	Jonathan Murphy
Subject	Re: [Cs-dev] midiin changes??
	pgmin also fine: SECTION 1: program: 0 midi channel 9 now using instr 1 program: 9 channel: 9 midi channel 9 now using instr 1 program: 6 midi channel 1 now using instr 1 program: 3 channel: 1 from: kpgm, kchan pgmin Spgm sprintfk "program: %d", kpgm Schan sprintfk "channel: %d", kchan puts Spgm, kpgm + 1 ; +1 in case pgm is 0 puts Schan, kchan J. Jonathan Murphy writes: > Hi Folks, > > I'm pretty much certain that midiin is working properly. Here is the > output of a modified version of the instrument that Dr Boulanger and I > used the other day. Note off messages are not printed, instead note on > with a velocity of 0 is received. I'm not sure if this is csound or > the alsa sequencer. Note on, control change, pitch bend, aftertouch, > program change, change channels, repeat. Aftertouch and control change > continue to be sent on channel 1 because omni is off. aseqdump > (command line alsa utility) displayed the same info while running > simultaneously. > > J. > > SECTION 1: > kstatus= 144.000000, kchan = 1.000000, kdata1 = 60.000000, kdata2 = 75.000000 > kstatus= 144.000000, kchan = 1.000000, kdata1 = 60.000000, kdata2 = 0.000000 > kstatus= 176.000000, kchan = 1.000000, kdata1 = 101.000000, kdata2 = 0.000000 > kstatus= 224.000000, kchan = 1.000000, kdata1 = 2.000000, kdata2 = 65.000000 > kstatus= 224.000000, kchan = 1.000000, kdata1 = 4.000000, kdata2 = 66.000000 > kstatus= 224.000000, kchan = 1.000000, kdata1 = 8.000000, kdata2 = 68.000000 > kstatus= 224.000000, kchan = 1.000000, kdata1 = 4.000000, kdata2 = 66.000000 > kstatus= 224.000000, kchan = 1.000000, kdata1 = 0.000000, kdata2 = 64.000000 > kstatus= 208.000000, kchan = 1.000000, kdata1 = 52.000000, kdata2 = 0.000000 > kstatus= 208.000000, kchan = 1.000000, kdata1 = 54.000000, kdata2 = 0.000000 > kstatus= 208.000000, kchan = 1.000000, kdata1 = 56.000000, kdata2 = 0.000000 > kstatus= 208.000000, kchan = 1.000000, kdata1 = 58.000000, kdata2 = 0.000000 > kstatus= 208.000000, kchan = 1.000000, kdata1 = 59.000000, kdata2 = 0.000000 > kstatus= 208.000000, kchan = 1.000000, kdata1 = 61.000000, kdata2 = 0.000000 > midi channel 1 now using instr 1 > kstatus= 192.000000, kchan = 1.000000, kdata1 = 9.000000, kdata2 = 0.000000 > kstatus= 144.000000, kchan = 9.000000, kdata1 = 60.000000, kdata2 = 80.000000 > kstatus= 144.000000, kchan = 9.000000, kdata1 = 60.000000, kdata2 = 0.000000 > kstatus= 176.000000, kchan = 1.000000, kdata1 = 101.000000, kdata2 = 127.000000 > kstatus= 176.000000, kchan = 1.000000, kdata1 = 35.000000, kdata2 = 50.000000 > kstatus= 176.000000, kchan = 1.000000, kdata1 = 35.000000, kdata2 = 51.000000 > kstatus= 176.000000, kchan = 1.000000, kdata1 = 35.000000, kdata2 = 52.000000 > kstatus= 224.000000, kchan = 9.000000, kdata1 = 2.000000, kdata2 = 65.000000 > kstatus= 224.000000, kchan = 9.000000, kdata1 = 4.000000, kdata2 = 66.000000 > kstatus= 224.000000, kchan = 9.000000, kdata1 = 8.000000, kdata2 = 68.000000 > kstatus= 224.000000, kchan = 9.000000, kdata1 = 10.000000, kdata2 = 69.000000 > kstatus= 224.000000, kchan = 9.000000, kdata1 = 6.000000, kdata2 = 67.000000 > kstatus= 224.000000, kchan = 9.000000, kdata1 = 0.000000, kdata2 = 64.000000 > kstatus= 208.000000, kchan = 1.000000, kdata1 = 60.000000, kdata2 = 0.000000 > kstatus= 208.000000, kchan = 1.000000, kdata1 = 59.000000, kdata2 = 0.000000 > kstatus= 208.000000, kchan = 1.000000, kdata1 = 58.000000, kdata2 = 0.000000 > kstatus= 208.000000, kchan = 1.000000, kdata1 = 57.000000, kdata2 = 0.000000 > > > > using it > "Dr. Richard Boulanger" writes: > >> You should ABSOLUTELY NOT delay this release because of David's >> problem with midiin - I think that his problem might be with diskin2 >> and not midiin - also, there are some complicated things going on in >> David's design that might also account for his midiin issues.... >> >> As I reported earlier, I am not sure that his pgmin UDO is working >> 100% correctly. >> >> If David would share his orchestra with us, you might be able to >> better chase down his midiin and >> diskin2 issues >> >> Also, for your testing purposes, you might want to check the MIDI >> stuff I posted the other night... All you need is there to run your >> tests - I use midiin and David's pgmin UDO. >> >> http://csounds.com/olpc/gmSoundFontPlayer.zip >> >> Dr. B. >> >> On Nov 8, 2006, at 4:53 AM, Dr. Richard Boulanger wrote: >> >>> David, >>> >>> The midiin opcode was NOT working correctly back then. I am not sure >>> that it is working correctly even now, but I can assure you that it >>> was not working correctly back then. It is better now, and I am able >>> to use it for the current release of the BETA1-Demo package for the >>> One Laptop Per Child Computer Systems - OLPC, but... it definitely >>> still needs some serious testing and looking into. >>> >>> In fact, the reason that Istvan's General MIDI fluid instrument does >>> work correctly is because he uses the raw messages to: play the >>> notes, read the program changes, and read the controllers. He >>> essentially turns off all of Csound's MIDI and then maps it directly >>> from there. >>> >>> -dr.B. >>> >>> On Nov 8, 2006, at 4:08 AM, David Akbari wrote: >>> >>>> Hi Developers, >>>> >>>> Can anyone provide some more information on what was changed since >>>> June >>>> 18 2006 in the midiin opcode? >>>> >>>> In June I spent a lot of time and made a few demos using a MIDI >>>> file to >>>> drive performance and using program change messages to trigger >>>> samples. >>>> It works with a version of Csound5 compiled on June 18 2006. It does >>>> not work on the current CVS version. Does this qualify as breaking >>>> backwards compatibility? I'd really rather not go through the trouble >>>> of chasing changes since I have no idea what would've been changed >>>> since the file DOES work on a recent version (compiled from CVS since >>>> the last release). >>>> >>>> How can this be fixed? What was changed in midiin? >>>> >>>> Here's the files so you can see for yourself >>>> >>>> http://csounds.com/olpc/Archive.zip >>>> >>>> >>>> -David >>>> >>>> >>>> --------------------------------------------------------------------- >>>> - >>>> --- >>>> Using Tomcat but need to do more? Need to support web services, >>>> security? >>>> Get stuff done quickly with pre-integrated technology to make your >>>> job easier >>>> Download IBM WebSphere Application Server v.1.0.1 based on Apache >>>> Geronimo >>>> http://sel.as-us.falkag.net/sel? >>>> cmd=lnk&kid=120709&bid=263057&dat=121642 >>>> _______________________________________________ >>>> Csound-devel mailing list >>>> Csound-devel@lists.sourceforge.net >>>> https://lists.sourceforge.net/lists/listinfo/csound-devel >>> >>> >>> ---------------------------------------------------------------------- >>> --- >>> Using Tomcat but need to do more? Need to support web services, >>> security? >>> Get stuff done quickly with pre-integrated technology to make your >>> job easier >>> Download IBM WebSphere Application Server v.1.0.1 based on Apache >>> Geronimo >>> http://sel.as-us.falkag.net/sel? >>> cmd=lnk&kid=120709&bid=263057&dat=121642 >>> _______________________________________________ >>> Csound-devel mailing list >>> Csound-devel@lists.sourceforge.net >>> https://lists.sourceforge.net/lists/listinfo/csound-devel >> >> >> ------------------------------------------------------------------------- >> Using Tomcat but need to do more? Need to support web services, security? >> Get stuff done quickly with pre-integrated technology to make your job easier >> Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo >> http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642 >> _______________________________________________ >> Csound-devel mailing list >> Csound-devel@lists.sourceforge.net >> https://lists.sourceforge.net/lists/listinfo/csound-devel > > ------------------------------------------------------------------------- > Using Tomcat but need to do more? Need to support web services, security? > Get stuff done quickly with pre-integrated technology to make your job easier > Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo > http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642 > _______________________________________________ > Csound-devel mailing list > Csound-devel@lists.sourceforge.net > https://lists.sourceforge.net/lists/listinfo/csound-devel ------------------------------------------------------------------------- Using Tomcat but need to do more? Need to support web services, security? Get stuff done quickly with pre-integrated technology to make your job easier Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642 _______________________________________________ Csound-devel mailing list Csound-devel@lists.sourceforge.net

Date	2006-11-08 11:51
From	"Dr. Richard Boulanger"
Subject	Re: [Cs-dev] midiin changes??
	Jonathan, thank you for these tests and for your test instrument the other night. it was extremely helpful to me and bolstered my confidence in these opcodes and UDOs ... -dr.B. On Nov 8, 2006, at 5:47 AM, Jonathan Murphy wrote: > > Hi Folks, > > I'm pretty much certain that midiin is working properly. Here is the > output of a modified version of the instrument that Dr Boulanger and I > used the other day. Note off messages are not printed, instead note on > with a velocity of 0 is received. I'm not sure if this is csound or > the alsa sequencer. Note on, control change, pitch bend, aftertouch, > program change, change channels, repeat. Aftertouch and control change > continue to be sent on channel 1 because omni is off. aseqdump > (command line alsa utility) displayed the same info while running > simultaneously. > > J. > > SECTION 1: > kstatus= 144.000000, kchan = 1.000000, kdata1 = 60.000000, kdata2 = > 75.000000 > kstatus= 144.000000, kchan = 1.000000, kdata1 = 60.000000, kdata2 = > 0.000000 > kstatus= 176.000000, kchan = 1.000000, kdata1 = 101.000000, kdata2 > = 0.000000 > kstatus= 224.000000, kchan = 1.000000, kdata1 = 2.000000, kdata2 = > 65.000000 > kstatus= 224.000000, kchan = 1.000000, kdata1 = 4.000000, kdata2 = > 66.000000 > kstatus= 224.000000, kchan = 1.000000, kdata1 = 8.000000, kdata2 = > 68.000000 > kstatus= 224.000000, kchan = 1.000000, kdata1 = 4.000000, kdata2 = > 66.000000 > kstatus= 224.000000, kchan = 1.000000, kdata1 = 0.000000, kdata2 = > 64.000000 > kstatus= 208.000000, kchan = 1.000000, kdata1 = 52.000000, kdata2 = > 0.000000 > kstatus= 208.000000, kchan = 1.000000, kdata1 = 54.000000, kdata2 = > 0.000000 > kstatus= 208.000000, kchan = 1.000000, kdata1 = 56.000000, kdata2 = > 0.000000 > kstatus= 208.000000, kchan = 1.000000, kdata1 = 58.000000, kdata2 = > 0.000000 > kstatus= 208.000000, kchan = 1.000000, kdata1 = 59.000000, kdata2 = > 0.000000 > kstatus= 208.000000, kchan = 1.000000, kdata1 = 61.000000, kdata2 = > 0.000000 > midi channel 1 now using instr 1 > kstatus= 192.000000, kchan = 1.000000, kdata1 = 9.000000, kdata2 = > 0.000000 > kstatus= 144.000000, kchan = 9.000000, kdata1 = 60.000000, kdata2 = > 80.000000 > kstatus= 144.000000, kchan = 9.000000, kdata1 = 60.000000, kdata2 = > 0.000000 > kstatus= 176.000000, kchan = 1.000000, kdata1 = 101.000000, kdata2 > = 127.000000 > kstatus= 176.000000, kchan = 1.000000, kdata1 = 35.000000, kdata2 = > 50.000000 > kstatus= 176.000000, kchan = 1.000000, kdata1 = 35.000000, kdata2 = > 51.000000 > kstatus= 176.000000, kchan = 1.000000, kdata1 = 35.000000, kdata2 = > 52.000000 > kstatus= 224.000000, kchan = 9.000000, kdata1 = 2.000000, kdata2 = > 65.000000 > kstatus= 224.000000, kchan = 9.000000, kdata1 = 4.000000, kdata2 = > 66.000000 > kstatus= 224.000000, kchan = 9.000000, kdata1 = 8.000000, kdata2 = > 68.000000 > kstatus= 224.000000, kchan = 9.000000, kdata1 = 10.000000, kdata2 = > 69.000000 > kstatus= 224.000000, kchan = 9.000000, kdata1 = 6.000000, kdata2 = > 67.000000 > kstatus= 224.000000, kchan = 9.000000, kdata1 = 0.000000, kdata2 = > 64.000000 > kstatus= 208.000000, kchan = 1.000000, kdata1 = 60.000000, kdata2 = > 0.000000 > kstatus= 208.000000, kchan = 1.000000, kdata1 = 59.000000, kdata2 = > 0.000000 > kstatus= 208.000000, kchan = 1.000000, kdata1 = 58.000000, kdata2 = > 0.000000 > kstatus= 208.000000, kchan = 1.000000, kdata1 = 57.000000, kdata2 = > 0.000000 > > > > using it > "Dr. Richard Boulanger" writes: > >> You should ABSOLUTELY NOT delay this release because of David's >> problem with midiin - I think that his problem might be with diskin2 >> and not midiin - also, there are some complicated things going on in >> David's design that might also account for his midiin issues.... >> >> As I reported earlier, I am not sure that his pgmin UDO is working >> 100% correctly. >> >> If David would share his orchestra with us, you might be able to >> better chase down his midiin and >> diskin2 issues >> >> Also, for your testing purposes, you might want to check the MIDI >> stuff I posted the other night... All you need is there to run your >> tests - I use midiin and David's pgmin UDO. >> >> http://csounds.com/olpc/gmSoundFontPlayer.zip >> >> Dr. B. >> >> On Nov 8, 2006, at 4:53 AM, Dr. Richard Boulanger wrote: >> >>> David, >>> >>> The midiin opcode was NOT working correctly back then. I am not >>> sure >>> that it is working correctly even now, but I can assure you that it >>> was not working correctly back then. It is better now, and I am >>> able >>> to use it for the current release of the BETA1-Demo package for the >>> One Laptop Per Child Computer Systems - OLPC, but... it definitely >>> still needs some serious testing and looking into. >>> >>> In fact, the reason that Istvan's General MIDI fluid instrument does >>> work correctly is because he uses the raw messages to: play the >>> notes, read the program changes, and read the controllers. He >>> essentially turns off all of Csound's MIDI and then maps it directly >>> from there. >>> >>> -dr.B. >>> >>> On Nov 8, 2006, at 4:08 AM, David Akbari wrote: >>> >>>> Hi Developers, >>>> >>>> Can anyone provide some more information on what was changed since >>>> June >>>> 18 2006 in the midiin opcode? >>>> >>>> In June I spent a lot of time and made a few demos using a MIDI >>>> file to >>>> drive performance and using program change messages to trigger >>>> samples. >>>> It works with a version of Csound5 compiled on June 18 2006. It >>>> does >>>> not work on the current CVS version. Does this qualify as breaking >>>> backwards compatibility? I'd really rather not go through the >>>> trouble >>>> of chasing changes since I have no idea what would've been changed >>>> since the file DOES work on a recent version (compiled from CVS >>>> since >>>> the last release). >>>> >>>> How can this be fixed? What was changed in midiin? >>>> >>>> Here's the files so you can see for yourself >>>> >>>> http://csounds.com/olpc/Archive.zip >>>> >>>> >>>> -David >>>> >>>> >>>> ------------------------------------------------------------------- >>>> -- >>>> - >>>> --- >>>> Using Tomcat but need to do more? Need to support web services, >>>> security? >>>> Get stuff done quickly with pre-integrated technology to make your >>>> job easier >>>> Download IBM WebSphere Application Server v.1.0.1 based on Apache >>>> Geronimo >>>> http://sel.as-us.falkag.net/sel? >>>> cmd=lnk&kid=120709&bid=263057&dat=121642 >>>> _______________________________________________ >>>> Csound-devel mailing list >>>> Csound-devel@lists.sourceforge.net >>>> https://lists.sourceforge.net/lists/listinfo/csound-devel >>> >>> >>> -------------------------------------------------------------------- >>> -- >>> --- >>> Using Tomcat but need to do more? Need to support web services, >>> security? >>> Get stuff done quickly with pre-integrated technology to make your >>> job easier >>> Download IBM WebSphere Application Server v.1.0.1 based on Apache >>> Geronimo >>> http://sel.as-us.falkag.net/sel? >>> cmd=lnk&kid=120709&bid=263057&dat=121642 >>> _______________________________________________ >>> Csound-devel mailing list >>> Csound-devel@lists.sourceforge.net >>> https://lists.sourceforge.net/lists/listinfo/csound-devel >> >> >> --------------------------------------------------------------------- >> ---- >> Using Tomcat but need to do more? Need to support web services, >> security? >> Get stuff done quickly with pre-integrated technology to make your >> job easier >> Download IBM WebSphere Application Server v.1.0.1 based on Apache >> Geronimo >> http://sel.as-us.falkag.net/sel? >> cmd=lnk&kid=120709&bid=263057&dat=121642 >> _______________________________________________ >> Csound-devel mailing list >> Csound-devel@lists.sourceforge.net >> https://lists.sourceforge.net/lists/listinfo/csound-devel > > ---------------------------------------------------------------------- > --- > Using Tomcat but need to do more? Need to support web services, > security? > Get stuff done quickly with pre-integrated technology to make your > job easier > Download IBM WebSphere Application Server v.1.0.1 based on Apache > Geronimo > http://sel.as-us.falkag.net/sel? > cmd=lnk&kid=120709&bid=263057&dat=121642 > _______________________________________________ > Csound-devel mailing list > Csound-devel@lists.sourceforge.net > https://lists.sourceforge.net/lists/listinfo/csound-devel ------------------------------------------------------------------------- Using Tomcat but need to do more? Need to support web services, security? Get stuff done quickly with pre-integrated technology to make your job easier Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642 _______________________________________________ Csound-devel mailing list Csound-devel@lists.sourceforge.net

Date	2006-11-08 11:57
From	David Akbari
Subject	Re: [Cs-dev] midiin changes??
	Ok, so that's good that midiin and pgmin are working correctly. Here's the thing then, why does this instrument get an "error diskin2 not initialized" only in the instruments where the iskip parameter is 0? Why didn't this fail before? (substitute sound files for files in header) ; macintosh -odac -iadc -d -m0 -+rtaudio=CoreAudio -+rtmidi=null -Fdrivinit.mid -T -K ; ; linux ;-odac -iadc -d -m0 -b1024 -B16384 -+rtaudio=alsa -Fbreakinit.mid -T -K sr = 44100 kr = 100 ksmps = 441 nchnls = 2 pgmassign -1, -1 massign 1, 1 gkphos01 init 0 gkphos02 init 0 gkphos03 init 0 gkphos04 init 0 gkcb01 init 0 gkcb02 init 0 gkcb03 init 0 gkcb04 init 0 gkcb05 init 0 gkcb06 init 0 gkcb07 init 0 gkcb08 init 0 gkcb09 init 0 gkcb10 init 0 gkcb11 init 0 gkcb12 init 0 gkcb13 init 0 gkcb14 init 0 gkcb15 init 0 gkcb16 init 0 gkvol1 init 0 gkvol2 init 0 gkvol3 init 0 gkvol4 init 0 gksl01 init 0 gksl02 init 0 gksl03 init 0 gksl04 init 0 gkled01 init 0 gkled02 init 0 /* sound files / / #define SFILE01 # "a2rinse8" # #define SFILE02 # "aslide16" # #define SFILE03 # "bslide16" # #define SFILE04 # "slidebass16" # / / sound files / #define SFILE01 # "tt03.aif" # #define SFILE02 # "tt03-01.aif" # #define SFILE03 # "tt03-03.aif" # #define SFILE04 # "tt04.aif" # / MIDI CC numbers for volume sliders / #define SLIDER1 #1# #define SLIDER2 #2# #define SLIDER3 #6# #define SLIDER4 #7# ctrlinit 1, $SLIDER1, 111, $SLIDER2, 127, $SLIDER3, 64, $SLIDER4, 111 ;// opcode pgmin, kk, 0 kstatus, kchan, kdata1, kdata2 midiin if (kstatus == 192 && kchan == 1) then kpgm = kdata1 else endif xout kpgm, kchan endop ;// opcode sanskey, kk, 0 keyin sensekey if (keyin == -1) then else kkey_num = keyin endif ktrig = (keyin >= 0 ? 1 : 0) xout kkey_num, ktrig endop ;// opcode LogCurve, k, kk kfloat, ksteep xin if (ksteep > 1) then ksteep = ksteep elseif (ksteep < 1) then ksteep = 1.00001 endif kout = (log(kfloat (ksteep-1)+1)/log(ksteep)) xout kout endop ;// /--- ---/ instr 1 ilen1 filelen $SFILE01 ilen2 filelen $SFILE02 ilen3 filelen $SFILE03 ilen4 filelen $SFILE04 kpgm, kchan pgmin key, kbang sanskey kvol1 ctrl7 1, $SLIDER1, 0, 1 kvol2 ctrl7 1, $SLIDER2, 0, 1 kvol3 ctrl7 1, $SLIDER3, 0, 1 kvol4 ctrl7 1, $SLIDER4, 0, 1 gkvol1 LogCurve kvol1, 1.00001 gkvol2 LogCurve kvol2, 1.00001 gkvol3 LogCurve kvol3, 1.00001 gkvol4 LogCurve kvol4, 1.00001 gksl01 = gkvol1 gksl02 = gkvol2 gksl03 = gkvol3 gksl04 = gkvol4 /* if (kbang == 1 && key == 32) then turnoff2 2, 0, 1 turnoff2 3, 0, 1 turnoff2 4, 0, 1 else endif / kpg changed kpgm if (kpg != 1) kgoto cont if (kpgm == 1) then turnoff2 2, 0, 0 event "i", 2, 0, ilen1-(ilen1/2), 0.1 gkcb01 = 1 gkcb02 = 0 gkcb03 = 0 gkcb04 = 0 elseif (kpgm == 2) then turnoff2 2, 0, 0 event "i", 2, 0, ilen1-(ilen1/2), ilen1/4 gkcb01 = 0 gkcb02 = 1 gkcb03 = 0 gkcb04 = 0 elseif (kpgm == 3) then turnoff2 2, 0, 0 event "i", 2, 0, ilen1-(ilen1/2), ilen1/2 gkcb01 = 0 gkcb02 = 0 gkcb03 = 1 gkcb04 = 0 elseif (kpgm == 4) then turnoff2 2, 0, 0 event "i", 2, 0, ilen1-(ilen1/2), ((ilen1/4)+(ilen1/2)) gkcb01 = 0 gkcb02 = 0 gkcb03 = 0 gkcb04 = 1 else endif if (kpgm == 5) then turnoff2 3, 0, 0 event "i", 3, 0, ilen2-(ilen2/2), 0.1 gkcb05 = 1 gkcb06 = 0 gkcb07 = 0 gkcb08 = 0 elseif (kpgm == 6) then turnoff2 3, 0, 0 event "i", 3, 0, ilen2-(ilen2/2), ilen2/4 gkcb05 = 0 gkcb06 = 1 gkcb07 = 0 gkcb08 = 0 elseif (kpgm == 7) then turnoff2 3, 0, 0 event "i", 3, 0, ilen2-(ilen2/2), ilen2/2 gkcb05 = 0 gkcb06 = 0 gkcb07 = 1 gkcb08 = 0 elseif (kpgm == 8) then turnoff2 3, 0, 0 event "i", 3, 0, ilen2-(ilen2/2), ((ilen2/4)+(ilen2/2)) gkcb05 = 0 gkcb06 = 0 gkcb07 = 0 gkcb08 = 1 else endif if (kpgm == 9) then turnoff2 4, 0, 0 event "i", 4, 0, ilen3-(ilen3/2), 0 gkcb09 = 1 gkcb10 = 0 gkcb11 = 0 gkcb12 = 0 elseif (kpgm == 10) then turnoff2 4, 0, 0 event "i", 4, 0, ilen3-(ilen3/2), ilen3/4 gkcb09 = 0 gkcb10 = 1 gkcb11 = 0 gkcb12 = 0 elseif (kpgm == 11) then turnoff2 4, 0, 0 event "i", 4, 0, ilen3-(ilen3/2), ilen3/2 gkcb09 = 0 gkcb10 = 0 gkcb11 = 1 gkcb12 = 0 elseif (kpgm == 12) then turnoff2 4, 0, 0 event "i", 4, 0, ilen3-(ilen3/2), ((ilen3/4)+(ilen3/2)) gkcb09 = 0 gkcb10 = 0 gkcb11 = 0 gkcb12 = 1 else endif if (kpgm == 13) then turnoff2 5, 0, 0 event "i", 5, 0, ilen4-(ilen4/2), 0 gkcb13 = 1 gkcb14 = 0 gkcb15 = 0 gkcb16 = 0 elseif (kpgm == 14) then turnoff2 5, 0, 0 event "i", 5, 0, ilen4-(ilen4/2), ilen4/4 gkcb13 = 0 gkcb14 = 1 gkcb15 = 0 gkcb16 = 0 elseif (kpgm == 15) then turnoff2 5, 0, 0 event "i", 5, 0, ilen4-(ilen4/2), ilen4/2 gkcb13 = 0 gkcb14 = 0 gkcb15 = 1 gkcb16 = 0 elseif (kpgm == 16) then turnoff2 5, 0, 0 event "i", 5, 0, ilen4-(ilen4/2), ((ilen4/4)+(ilen4/2)) gkcb13 = 0 gkcb14 = 0 gkcb15 = 0 gkcb16 = 1 else endif kpgm = 0 kpg = 0 cont: endin /--- ---/ instr 2 iskip = p4 ichnls filenchnls $SFILE01 ilen filelen $SFILE01 kpos phasor (1/ilen) kpos = (kpos0.25)+(iskip/ilen) gkphos01 = kpos if (ichnls == 1) then al diskin2 $SFILE01, 1, 0, 1 ar = al elseif (ichnls == 2) then al, ar diskin2 $SFILE01, 1, iskip, 1 else endif al = al * gkvol1 ar = ar * gkvol1 al clip al, 0, 32767 ar clip ar, 0, 32767 outs al, ar endin /--- ---/ instr 3 iskip = p4 ichnls filenchnls $SFILE02 ilen filelen $SFILE02 kpos phasor (1/ilen) kpos = (kpos0.25)+(iskip/ilen) gkphos02 = kpos if (ichnls == 1) then al diskin2 $SFILE02, 1, iskip, 1 ar = al elseif (ichnls == 2) then al, ar diskin2 $SFILE02, 1, iskip, 1 else endif al = al gkvol2 ar = ar * gkvol2 al clip al, 0, 32767 ar clip ar, 0, 32767 outs al, ar endin /--- ---/ instr 4 iskip = p4 ichnls filenchnls $SFILE03 ilen filelen $SFILE03 kpos phasor (1/ilen) kpos = (kpos0.25)+(iskip/ilen) gkphos03 = kpos if (ichnls == 1) then al diskin2 $SFILE03, 1, iskip, 1 ar = al elseif (ichnls == 2) then al, ar diskin2 $SFILE03, 1, iskip, 1 else endif al = al gkvol3 ar = ar * gkvol3 al clip al, 0, 32767 ar clip ar, 0, 32767 outs al, ar endin /--- ---/ instr 5 iskip = p4 ichnls filenchnls $SFILE04 ilen filelen $SFILE04 kpos phasor (1/ilen) kpos = (kpos0.25)+(iskip/ilen) gkphos04 = kpos if (ichnls == 1) then al diskin2 $SFILE04, 1, iskip, 1 ar = al elseif (ichnls == 2) then al, ar diskin2 $SFILE04, 1, iskip, 1 else endif al = al gkvol4 ar = ar * gkvol4 al clip al, 0, 32767 ar clip ar, 0, 32767 outs al, ar endin /--- ---/ i1 0 1000 ;i255 0 1000 e TVRoZAAAAAYAAAABAeBNVHJrAAAFkgD/AwZUeXBlIDAA/1EDBbjYAP9YBAQCGAgAwAG8AAG8 AAKperAPfYIOD31aD31aD35aD3paD3paD3paD3paD3paD3paD3paD3laD3haD3haD3haD3da D3daD3ZaD3ZaD3VaD3V4D3VaD3RaD3MewA08sA9yWg9yWg9xWg9wWg9vWg9vWg9uWg9uWg9t Wg9sWg9rWg9rWg9rWg9qWg9pWg9oWg9oWg9nWg9mWg9lWg9lWg9kWg9jWg9iWg9hWg9hWg9h Wg9eeA9eWg9eWg9eWg9dWg9cWg9cWg9cWg9cWg9bWg9bWg9bWg9aWg9aWg9aWg9ZWg9ZWg9Y Wg9YWg9YWg9XWg9XWg9XWg9XWg9WWg9WWg9VWg9UWg9UWg9TWg9TWg9TWg9SeA9RWg9RWg9Q Wg9PWg9OWg9OWg9OWg9NWg9MWg9MWg9MWg9LWg9KWg9JWg9JWg9JWg9JWg9IWg9IWg9HWg9H Wg9GWg9GWg9FWsAOALAPRVoPRFoPRFoPRIE0D0RaD0N4D0NaD0JaD0JaD0FaD0FaD0FaD0Ba D0BaDz9aDz9aDz9aDz9aDz5aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9a Dz9aDz9aDz9aDz9aDz9aDz94Dz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9a Dz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9a Dz94Dz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz+BNA8/Wg8/Wg8/HsAPPLAP P1oPP1oPP1oPP1oPP4E0Dz9aDz9aD0VaD0ZaD0eBNA9IgTQPSYFSD0laD0paD0paD0taD0ta D0xaD01aD01aD05aD06BNA9OWg9PWg9QWg9QWg9RgTQPUoE0D1NaD1OBNA9UWg9UWg9VWg9W gTQPV1oPV4E0D1d4D1haD1laD1laD1qBNA9bgTQPXIIOD11aD11aD15aD15aD19aD19aD2Ba D2BaD2FaD2FaD2FaD2FaD2FaD2JaD2JaD2NaD2NaD2NaD2RaD2RaD2V4D2VaD2VaD2ZaD2Za D2ZaD2Y8wBAesA9nWg9nWg9nWg9oWg9oWg9pWg9pWg9pWg9qWg9qWg9qWg9rWg9rWg9rWg9r Wg9rWg9rWg9sWg9sWg9sWg9sWg9tWg9tWg9tWg9tWg9veA9vWg9wWg9wWg9wWg9wWg9wWg9w Wg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9xWg9x Wg9xWg9xWg9xWg9xWg9xgVIPcFoPcFoPcFoPcFoPb1oPb4IOD3ZaD3daD3haD3haD3laD3qC Dg97Wg98gTQPf1oPfloPf4JoD3+BUsAQvAAOgaUADYHDAAyXdLAPe4E0D3taD3uDBg97Wg96 gmgPeYE0D3haD3daD3aBNA91gTQPdIE0D3OBNA9ygTQPcVoPcVoPcIE0D2+BNA9uWg9tWg9s Wg9rgVIPaloPaVoPaFoPZ1oPZoE0D2VaD2RaD2NaD2JaD2GBNA9gWg9fWg9eWg9dWg9cgTQP W1oPWloPWVoPWFoPV4E0D1ZaD1VaD1RaD1OBNA9SgVIPUVoPUFoPT1oPToE0D01aD0xaD0ta D0paD0laD0haD0daD0VaD0RaD0RaD0JaD0FaD0BaDz9aDz5aDz1aDzxaDztaDzpaDzlaDzha DzdaDzZaDzVaDzRaDzN4DzJaDzFaDzBaDy9aDy5aDy1aDyuBNA8qWg8pWg8ngTQPJloPJVoP H4E0DxdaDxCBNA8JgTQPCVoPB1oPBVoPBFoPAoE0DwGBNA8AhDoPAAD/LwA On Nov 8, 2006, at 5:51 AM, Dr. Richard Boulanger wrote: > Jonathan, > > thank you for these tests and for your test instrument the other > night. it was extremely helpful to me and bolstered my confidence in > these opcodes and UDOs ... > > -dr.B. > On Nov 8, 2006, at 5:47 AM, Jonathan Murphy wrote: > >> >> Hi Folks, >> >> I'm pretty much certain that midiin is working properly. Here is the >> output of a modified version of the instrument that Dr Boulanger and I >> used the other day. Note off messages are not printed, instead note on >> with a velocity of 0 is received. I'm not sure if this is csound or >> the alsa sequencer. Note on, control change, pitch bend, aftertouch, >> program change, change channels, repeat. Aftertouch and control change >> continue to be sent on channel 1 because omni is off. aseqdump >> (command line alsa utility) displayed the same info while running >> simultaneously. >> >> J. >> >> SECTION 1: >> kstatus= 144.000000, kchan = 1.000000, kdata1 = 60.000000, kdata2 = >> 75.000000 >> kstatus= 144.000000, kchan = 1.000000, kdata1 = 60.000000, kdata2 = >> 0.000000 >> kstatus= 176.000000, kchan = 1.000000, kdata1 = 101.000000, kdata2 >> = 0.000000 >> kstatus= 224.000000, kchan = 1.000000, kdata1 = 2.000000, kdata2 = >> 65.000000 >> kstatus= 224.000000, kchan = 1.000000, kdata1 = 4.000000, kdata2 = >> 66.000000 >> kstatus= 224.000000, kchan = 1.000000, kdata1 = 8.000000, kdata2 = >> 68.000000 >> kstatus= 224.000000, kchan = 1.000000, kdata1 = 4.000000, kdata2 = >> 66.000000 >> kstatus= 224.000000, kchan = 1.000000, kdata1 = 0.000000, kdata2 = >> 64.000000 >> kstatus= 208.000000, kchan = 1.000000, kdata1 = 52.000000, kdata2 = >> 0.000000 >> kstatus= 208.000000, kchan = 1.000000, kdata1 = 54.000000, kdata2 = >> 0.000000 >> kstatus= 208.000000, kchan = 1.000000, kdata1 = 56.000000, kdata2 = >> 0.000000 >> kstatus= 208.000000, kchan = 1.000000, kdata1 = 58.000000, kdata2 = >> 0.000000 >> kstatus= 208.000000, kchan = 1.000000, kdata1 = 59.000000, kdata2 = >> 0.000000 >> kstatus= 208.000000, kchan = 1.000000, kdata1 = 61.000000, kdata2 = >> 0.000000 >> midi channel 1 now using instr 1 >> kstatus= 192.000000, kchan = 1.000000, kdata1 = 9.000000, kdata2 = >> 0.000000 >> kstatus= 144.000000, kchan = 9.000000, kdata1 = 60.000000, kdata2 = >> 80.000000 >> kstatus= 144.000000, kchan = 9.000000, kdata1 = 60.000000, kdata2 = >> 0.000000 >> kstatus= 176.000000, kchan = 1.000000, kdata1 = 101.000000, kdata2 >> = 127.000000 >> kstatus= 176.000000, kchan = 1.000000, kdata1 = 35.000000, kdata2 = >> 50.000000 >> kstatus= 176.000000, kchan = 1.000000, kdata1 = 35.000000, kdata2 = >> 51.000000 >> kstatus= 176.000000, kchan = 1.000000, kdata1 = 35.000000, kdata2 = >> 52.000000 >> kstatus= 224.000000, kchan = 9.000000, kdata1 = 2.000000, kdata2 = >> 65.000000 >> kstatus= 224.000000, kchan = 9.000000, kdata1 = 4.000000, kdata2 = >> 66.000000 >> kstatus= 224.000000, kchan = 9.000000, kdata1 = 8.000000, kdata2 = >> 68.000000 >> kstatus= 224.000000, kchan = 9.000000, kdata1 = 10.000000, kdata2 = >> 69.000000 >> kstatus= 224.000000, kchan = 9.000000, kdata1 = 6.000000, kdata2 = >> 67.000000 >> kstatus= 224.000000, kchan = 9.000000, kdata1 = 0.000000, kdata2 = >> 64.000000 >> kstatus= 208.000000, kchan = 1.000000, kdata1 = 60.000000, kdata2 = >> 0.000000 >> kstatus= 208.000000, kchan = 1.000000, kdata1 = 59.000000, kdata2 = >> 0.000000 >> kstatus= 208.000000, kchan = 1.000000, kdata1 = 58.000000, kdata2 = >> 0.000000 >> kstatus= 208.000000, kchan = 1.000000, kdata1 = 57.000000, kdata2 = >> 0.000000 >> >> >> >> using it >> "Dr. Richard Boulanger" writes: >> >>> You should ABSOLUTELY NOT delay this release because of David's >>> problem with midiin - I think that his problem might be with diskin2 >>> and not midiin - also, there are some complicated things going on in >>> David's design that might also account for his midiin issues.... >>> >>> As I reported earlier, I am not sure that his pgmin UDO is working >>> 100% correctly. >>> >>> If David would share his orchestra with us, you might be able to >>> better chase down his midiin and >>> diskin2 issues >>> >>> Also, for your testing purposes, you might want to check the MIDI >>> stuff I posted the other night... All you need is there to run your >>> tests - I use midiin and David's pgmin UDO. >>> >>> http://csounds.com/olpc/gmSoundFontPlayer.zip >>> >>> Dr. B. >>> >>> On Nov 8, 2006, at 4:53 AM, Dr. Richard Boulanger wrote: >>> >>>> David, >>>> >>>> The midiin opcode was NOT working correctly back then. I am not >>>> sure >>>> that it is working correctly even now, but I can assure you that it >>>> was not working correctly back then. It is better now, and I am >>>> able >>>> to use it for the current release of the BETA1-Demo package for the >>>> One Laptop Per Child Computer Systems - OLPC, but... it definitely >>>> still needs some serious testing and looking into. >>>> >>>> In fact, the reason that Istvan's General MIDI fluid instrument does >>>> work correctly is because he uses the raw messages to: play the >>>> notes, read the program changes, and read the controllers. He >>>> essentially turns off all of Csound's MIDI and then maps it directly >>>> from there. >>>> >>>> -dr.B. >>>> >>>> On Nov 8, 2006, at 4:08 AM, David Akbari wrote: >>>> >>>>> Hi Developers, >>>>> >>>>> Can anyone provide some more information on what was changed since >>>>> June >>>>> 18 2006 in the midiin opcode? >>>>> >>>>> In June I spent a lot of time and made a few demos using a MIDI >>>>> file to >>>>> drive performance and using program change messages to trigger >>>>> samples. >>>>> It works with a version of Csound5 compiled on June 18 2006. It >>>>> does >>>>> not work on the current CVS version. Does this qualify as breaking >>>>> backwards compatibility? I'd really rather not go through the >>>>> trouble >>>>> of chasing changes since I have no idea what would've been changed >>>>> since the file DOES work on a recent version (compiled from CVS >>>>> since >>>>> the last release). >>>>> >>>>> How can this be fixed? What was changed in midiin? >>>>> >>>>> Here's the files so you can see for yourself >>>>> >>>>> http://csounds.com/olpc/Archive.zip >>>>> >>>>> >>>>> -David >>>>> >>>>> >>>>> ------------------------------------------------------------------- >>>>> -- >>>>> - >>>>> --- >>>>> Using Tomcat but need to do more? Need to support web services, >>>>> security? >>>>> Get stuff done quickly with pre-integrated technology to make your >>>>> job easier >>>>> Download IBM WebSphere Application Server v.1.0.1 based on Apache >>>>> Geronimo >>>>> http://sel.as-us.falkag.net/sel? >>>>> cmd=lnk&kid=120709&bid=263057&dat=121642 >>>>> _______________________________________________ >>>>> Csound-devel mailing list >>>>> Csound-devel@lists.sourceforge.net >>>>> https://lists.sourceforge.net/lists/listinfo/csound-devel >>>> >>>> >>>> -------------------------------------------------------------------- >>>> -- >>>> --- >>>> Using Tomcat but need to do more? Need to support web services, >>>> security? >>>> Get stuff done quickly with pre-integrated technology to make your >>>> job easier >>>> Download IBM WebSphere Application Server v.1.0.1 based on Apache >>>> Geronimo >>>> http://sel.as-us.falkag.net/sel? >>>> cmd=lnk&kid=120709&bid=263057&dat=121642 >>>> _______________________________________________ >>>> Csound-devel mailing list >>>> Csound-devel@lists.sourceforge.net >>>> https://lists.sourceforge.net/lists/listinfo/csound-devel >>> >>> >>> --------------------------------------------------------------------- >>> ---- >>> Using Tomcat but need to do more? Need to support web services, >>> security? >>> Get stuff done quickly with pre-integrated technology to make your >>> job easier >>> Download IBM WebSphere Application Server v.1.0.1 based on Apache >>> Geronimo >>> http://sel.as-us.falkag.net/sel? >>> cmd=lnk&kid=120709&bid=263057&dat=121642 >>> _______________________________________________ >>> Csound-devel mailing list >>> Csound-devel@lists.sourceforge.net >>> https://lists.sourceforge.net/lists/listinfo/csound-devel >> >> ---------------------------------------------------------------------- >> --- >> Using Tomcat but need to do more? Need to support web services, >> security? >> Get stuff done quickly with pre-integrated technology to make your >> job easier >> Download IBM WebSphere Application Server v.1.0.1 based on Apache >> Geronimo >> http://sel.as-us.falkag.net/sel? >> cmd=lnk&kid=120709&bid=263057&dat=121642 >> _______________________________________________ >> Csound-devel mailing list >> Csound-devel@lists.sourceforge.net >> https://lists.sourceforge.net/lists/listinfo/csound-devel > > > ----------------------------------------------------------------------- > -- > Using Tomcat but need to do more? Need to support web services, > security? > Get stuff done quickly with pre-integrated technology to make your job > easier > Download IBM WebSphere Application Server v.1.0.1 based on Apache > Geronimo > http://sel.as-us.falkag.net/sel? > cmd=lnk&kid=120709&bid=263057&dat=121642 > _______________________________________________ > Csound-devel mailing list > Csound-devel@lists.sourceforge.net > https://lists.sourceforge.net/lists/listinfo/csound-devel > ------------------------------------------------------------------------- Using Tomcat but need to do more? Need to support web services, security? Get stuff done quickly with pre-integrated technology to make your job easier Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642 _______________________________________________ Csound-devel mailing list Csound-devel@lists.sourceforge.net

Date	2006-11-08 13:50
From	Jonathan Murphy
Subject	Re: [Cs-dev] midiin changes??
	It'd be a lot easier to figure that out if you posted the midi file that you're using! I'm guessing that it's because the instrument is turned on and asked to play a soundfile that it didn't know it needed to load. Immediately. diskin2 has an optional argument to skip initialisation. If you turned that on and then the csd rendered without error but struggling hideously then it'd probably be safe to say that that was the issue. This is just guessing. If you send me the midi I'll give it a spin. J. David Akbari writes: > Ok, so that's good that midiin and pgmin are working correctly. Here's > the thing then, why does this instrument get an "error diskin2 not > initialized" only in the instruments where the iskip parameter is 0? > Why didn't this fail before? (substitute sound files for files in > header) > > > > ; macintosh > -odac -iadc -d -m0 -+rtaudio=CoreAudio -+rtmidi=null -Fdrivinit.mid -T > -K > ; > ; linux > ;-odac -iadc -d -m0 -b1024 -B16384 -+rtaudio=alsa -Fbreakinit.mid -T -K > > > sr = 44100 > kr = 100 > ksmps = 441 > nchnls = 2 > pgmassign -1, -1 > massign 1, 1 > > gkphos01 init 0 > gkphos02 init 0 > gkphos03 init 0 > gkphos04 init 0 > gkcb01 init 0 > gkcb02 init 0 > gkcb03 init 0 > gkcb04 init 0 > gkcb05 init 0 > gkcb06 init 0 > gkcb07 init 0 > gkcb08 init 0 > gkcb09 init 0 > gkcb10 init 0 > gkcb11 init 0 > gkcb12 init 0 > gkcb13 init 0 > gkcb14 init 0 > gkcb15 init 0 > gkcb16 init 0 > gkvol1 init 0 > gkvol2 init 0 > gkvol3 init 0 > gkvol4 init 0 > gksl01 init 0 > gksl02 init 0 > gksl03 init 0 > gksl04 init 0 > gkled01 init 0 > gkled02 init 0 > > /* sound files / > / > #define SFILE01 # "a2rinse8" # > #define SFILE02 # "aslide16" # > #define SFILE03 # "bslide16" # > #define SFILE04 # "slidebass16" # > / > / sound files / > #define SFILE01 # "tt03.aif" # > #define SFILE02 # "tt03-01.aif" # > #define SFILE03 # "tt03-03.aif" # > #define SFILE04 # "tt04.aif" # > > / MIDI CC numbers for volume sliders / > #define SLIDER1 #1# > #define SLIDER2 #2# > #define SLIDER3 #6# > #define SLIDER4 #7# > > ctrlinit 1, $SLIDER1, 111, $SLIDER2, 127, $SLIDER3, 64, $SLIDER4, 111 > > ;// > opcode pgmin, kk, 0 > > kstatus, kchan, kdata1, kdata2 midiin > > if (kstatus == 192 && kchan == 1) then > kpgm = kdata1 > else > endif > > xout kpgm, kchan > > endop > ;// > opcode sanskey, kk, 0 > > keyin sensekey > > if (keyin == -1) then > else > kkey_num = keyin > endif > > ktrig = (keyin >= 0 ? 1 : 0) > > xout kkey_num, ktrig > > endop > ;// > opcode LogCurve, k, kk > > kfloat, ksteep xin > > if (ksteep > 1) then > ksteep = ksteep > elseif (ksteep < 1) then > ksteep = 1.00001 > endif > > kout = (log(kfloat (ksteep-1)+1)/log(ksteep)) > > xout kout > > endop > ;// > /--- ---/ > > instr 1 > > ilen1 filelen $SFILE01 > ilen2 filelen $SFILE02 > ilen3 filelen $SFILE03 > ilen4 filelen $SFILE04 > > > kpgm, kchan pgmin > key, kbang sanskey > > kvol1 ctrl7 1, $SLIDER1, 0, 1 > kvol2 ctrl7 1, $SLIDER2, 0, 1 > kvol3 ctrl7 1, $SLIDER3, 0, 1 > kvol4 ctrl7 1, $SLIDER4, 0, 1 > > gkvol1 LogCurve kvol1, 1.00001 > gkvol2 LogCurve kvol2, 1.00001 > gkvol3 LogCurve kvol3, 1.00001 > gkvol4 LogCurve kvol4, 1.00001 > > gksl01 = gkvol1 > gksl02 = gkvol2 > gksl03 = gkvol3 > gksl04 = gkvol4 > /* > if (kbang == 1 && key == 32) then > turnoff2 2, 0, 1 > turnoff2 3, 0, 1 > turnoff2 4, 0, 1 > else > endif > / > kpg changed kpgm > > if (kpg != 1) kgoto cont > > if (kpgm == 1) then > turnoff2 2, 0, 0 > event "i", 2, 0, ilen1-(ilen1/2), 0.1 > gkcb01 = 1 > gkcb02 = 0 > gkcb03 = 0 > gkcb04 = 0 > elseif (kpgm == 2) then > turnoff2 2, 0, 0 > event "i", 2, 0, ilen1-(ilen1/2), ilen1/4 > gkcb01 = 0 > gkcb02 = 1 > gkcb03 = 0 > gkcb04 = 0 > elseif (kpgm == 3) then > turnoff2 2, 0, 0 > event "i", 2, 0, ilen1-(ilen1/2), ilen1/2 > gkcb01 = 0 > gkcb02 = 0 > gkcb03 = 1 > gkcb04 = 0 > elseif (kpgm == 4) then > turnoff2 2, 0, 0 > event "i", 2, 0, ilen1-(ilen1/2), ((ilen1/4)+(ilen1/2)) > gkcb01 = 0 > gkcb02 = 0 > gkcb03 = 0 > gkcb04 = 1 > else > endif > > if (kpgm == 5) then > turnoff2 3, 0, 0 > event "i", 3, 0, ilen2-(ilen2/2), 0.1 > gkcb05 = 1 > gkcb06 = 0 > gkcb07 = 0 > gkcb08 = 0 > elseif (kpgm == 6) then > turnoff2 3, 0, 0 > event "i", 3, 0, ilen2-(ilen2/2), ilen2/4 > gkcb05 = 0 > gkcb06 = 1 > gkcb07 = 0 > gkcb08 = 0 > elseif (kpgm == 7) then > turnoff2 3, 0, 0 > event "i", 3, 0, ilen2-(ilen2/2), ilen2/2 > gkcb05 = 0 > gkcb06 = 0 > gkcb07 = 1 > gkcb08 = 0 > elseif (kpgm == 8) then > turnoff2 3, 0, 0 > event "i", 3, 0, ilen2-(ilen2/2), ((ilen2/4)+(ilen2/2)) > gkcb05 = 0 > gkcb06 = 0 > gkcb07 = 0 > gkcb08 = 1 > else > endif > > if (kpgm == 9) then > turnoff2 4, 0, 0 > event "i", 4, 0, ilen3-(ilen3/2), 0 > gkcb09 = 1 > gkcb10 = 0 > gkcb11 = 0 > gkcb12 = 0 > elseif (kpgm == 10) then > turnoff2 4, 0, 0 > event "i", 4, 0, ilen3-(ilen3/2), ilen3/4 > gkcb09 = 0 > gkcb10 = 1 > gkcb11 = 0 > gkcb12 = 0 > elseif (kpgm == 11) then > turnoff2 4, 0, 0 > event "i", 4, 0, ilen3-(ilen3/2), ilen3/2 > gkcb09 = 0 > gkcb10 = 0 > gkcb11 = 1 > gkcb12 = 0 > elseif (kpgm == 12) then > turnoff2 4, 0, 0 > event "i", 4, 0, ilen3-(ilen3/2), ((ilen3/4)+(ilen3/2)) > gkcb09 = 0 > gkcb10 = 0 > gkcb11 = 0 > gkcb12 = 1 > else > endif > > if (kpgm == 13) then > turnoff2 5, 0, 0 > event "i", 5, 0, ilen4-(ilen4/2), 0 > gkcb13 = 1 > gkcb14 = 0 > gkcb15 = 0 > gkcb16 = 0 > elseif (kpgm == 14) then > turnoff2 5, 0, 0 > event "i", 5, 0, ilen4-(ilen4/2), ilen4/4 > gkcb13 = 0 > gkcb14 = 1 > gkcb15 = 0 > gkcb16 = 0 > elseif (kpgm == 15) then > turnoff2 5, 0, 0 > event "i", 5, 0, ilen4-(ilen4/2), ilen4/2 > gkcb13 = 0 > gkcb14 = 0 > gkcb15 = 1 > gkcb16 = 0 > elseif (kpgm == 16) then > turnoff2 5, 0, 0 > event "i", 5, 0, ilen4-(ilen4/2), ((ilen4/4)+(ilen4/2)) > gkcb13 = 0 > gkcb14 = 0 > gkcb15 = 0 > gkcb16 = 1 > else > endif > > kpgm = 0 > kpg = 0 > > cont: > > endin > > /--- ---/ > > instr 2 > > iskip = p4 > ichnls filenchnls $SFILE01 > ilen filelen $SFILE01 > > kpos phasor (1/ilen) > kpos = (kpos0.25)+(iskip/ilen) > gkphos01 = kpos > > if (ichnls == 1) then > > al diskin2 $SFILE01, 1, 0, 1 > ar = al > > elseif (ichnls == 2) then > > al, ar diskin2 $SFILE01, 1, iskip, 1 > > else > endif > > > al = al * gkvol1 > ar = ar * gkvol1 > > > al clip al, 0, 32767 > ar clip ar, 0, 32767 > outs al, ar > > endin > > /--- ---/ > > instr 3 > > iskip = p4 > ichnls filenchnls $SFILE02 > ilen filelen $SFILE02 > > kpos phasor (1/ilen) > kpos = (kpos0.25)+(iskip/ilen) > gkphos02 = kpos > > if (ichnls == 1) then > > al diskin2 $SFILE02, 1, iskip, 1 > ar = al > > elseif (ichnls == 2) then > > al, ar diskin2 $SFILE02, 1, iskip, 1 > > else > endif > > al = al gkvol2 > ar = ar * gkvol2 > > > al clip al, 0, 32767 > ar clip ar, 0, 32767 > outs al, ar > > endin > > /--- ---/ > > instr 4 > > iskip = p4 > ichnls filenchnls $SFILE03 > ilen filelen $SFILE03 > > kpos phasor (1/ilen) > kpos = (kpos0.25)+(iskip/ilen) > gkphos03 = kpos > > if (ichnls == 1) then > > al diskin2 $SFILE03, 1, iskip, 1 > ar = al > > elseif (ichnls == 2) then > > al, ar diskin2 $SFILE03, 1, iskip, 1 > > else > endif > > al = al gkvol3 > ar = ar * gkvol3 > > > al clip al, 0, 32767 > ar clip ar, 0, 32767 > outs al, ar > > endin > > /--- ---/ > > instr 5 > > iskip = p4 > ichnls filenchnls $SFILE04 > ilen filelen $SFILE04 > > kpos phasor (1/ilen) > kpos = (kpos0.25)+(iskip/ilen) > gkphos04 = kpos > > if (ichnls == 1) then > > al diskin2 $SFILE04, 1, iskip, 1 > ar = al > > elseif (ichnls == 2) then > > al, ar diskin2 $SFILE04, 1, iskip, 1 > > else > endif > > > al = al gkvol4 > ar = ar * gkvol4 > > > al clip al, 0, 32767 > ar clip ar, 0, 32767 > outs al, ar > > endin > > > > /--- ---/ > > > > i1 0 1000 > > ;i255 0 1000 > > e > > > TVRoZAAAAAYAAAABAeBNVHJrAAAFkgD/AwZUeXBlIDAA/1EDBbjYAP9YBAQCGAgAwAG8AAG8 > AAKperAPfYIOD31aD31aD35aD3paD3paD3paD3paD3paD3paD3paD3laD3haD3haD3haD3da > D3daD3ZaD3ZaD3VaD3V4D3VaD3RaD3MewA08sA9yWg9yWg9xWg9wWg9vWg9vWg9uWg9uWg9t > Wg9sWg9rWg9rWg9rWg9qWg9pWg9oWg9oWg9nWg9mWg9lWg9lWg9kWg9jWg9iWg9hWg9hWg9h > Wg9eeA9eWg9eWg9eWg9dWg9cWg9cWg9cWg9cWg9bWg9bWg9bWg9aWg9aWg9aWg9ZWg9ZWg9Y > Wg9YWg9YWg9XWg9XWg9XWg9XWg9WWg9WWg9VWg9UWg9UWg9TWg9TWg9TWg9SeA9RWg9RWg9Q > Wg9PWg9OWg9OWg9OWg9NWg9MWg9MWg9MWg9LWg9KWg9JWg9JWg9JWg9JWg9IWg9IWg9HWg9H > Wg9GWg9GWg9FWsAOALAPRVoPRFoPRFoPRIE0D0RaD0N4D0NaD0JaD0JaD0FaD0FaD0FaD0Ba > D0BaDz9aDz9aDz9aDz9aDz5aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9a > Dz9aDz9aDz9aDz9aDz9aDz94Dz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9a > Dz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9a > Dz94Dz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz+BNA8/Wg8/Wg8/HsAPPLAP > P1oPP1oPP1oPP1oPP4E0Dz9aDz9aD0VaD0ZaD0eBNA9IgTQPSYFSD0laD0paD0paD0taD0ta > D0xaD01aD01aD05aD06BNA9OWg9PWg9QWg9QWg9RgTQPUoE0D1NaD1OBNA9UWg9UWg9VWg9W > gTQPV1oPV4E0D1d4D1haD1laD1laD1qBNA9bgTQPXIIOD11aD11aD15aD15aD19aD19aD2Ba > D2BaD2FaD2FaD2FaD2FaD2FaD2JaD2JaD2NaD2NaD2NaD2RaD2RaD2V4D2VaD2VaD2ZaD2Za > D2ZaD2Y8wBAesA9nWg9nWg9nWg9oWg9oWg9pWg9pWg9pWg9qWg9qWg9qWg9rWg9rWg9rWg9r > Wg9rWg9rWg9sWg9sWg9sWg9sWg9tWg9tWg9tWg9tWg9veA9vWg9wWg9wWg9wWg9wWg9wWg9w > Wg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9xWg9x > Wg9xWg9xWg9xWg9xWg9xgVIPcFoPcFoPcFoPcFoPb1oPb4IOD3ZaD3daD3haD3haD3laD3qC > Dg97Wg98gTQPf1oPfloPf4JoD3+BUsAQvAAOgaUADYHDAAyXdLAPe4E0D3taD3uDBg97Wg96 > gmgPeYE0D3haD3daD3aBNA91gTQPdIE0D3OBNA9ygTQPcVoPcVoPcIE0D2+BNA9uWg9tWg9s > Wg9rgVIPaloPaVoPaFoPZ1oPZoE0D2VaD2RaD2NaD2JaD2GBNA9gWg9fWg9eWg9dWg9cgTQP > W1oPWloPWVoPWFoPV4E0D1ZaD1VaD1RaD1OBNA9SgVIPUVoPUFoPT1oPToE0D01aD0xaD0ta > D0paD0laD0haD0daD0VaD0RaD0RaD0JaD0FaD0BaDz9aDz5aDz1aDzxaDztaDzpaDzlaDzha > DzdaDzZaDzVaDzRaDzN4DzJaDzFaDzBaDy9aDy5aDy1aDyuBNA8qWg8pWg8ngTQPJloPJVoP > H4E0DxdaDxCBNA8JgTQPCVoPB1oPBVoPBFoPAoE0DwGBNA8AhDoPAAD/LwA > > > > > On Nov 8, 2006, at 5:51 AM, Dr. Richard Boulanger wrote: > >> Jonathan, >> >> thank you for these tests and for your test instrument the other >> night. it was extremely helpful to me and bolstered my confidence in >> these opcodes and UDOs ... >> >> -dr.B. >> On Nov 8, 2006, at 5:47 AM, Jonathan Murphy wrote: >> >>> >>> Hi Folks, >>> >>> I'm pretty much certain that midiin is working properly. Here is the >>> output of a modified version of the instrument that Dr Boulanger and I >>> used the other day. Note off messages are not printed, instead note on >>> with a velocity of 0 is received. I'm not sure if this is csound or >>> the alsa sequencer. Note on, control change, pitch bend, aftertouch, >>> program change, change channels, repeat. Aftertouch and control change >>> continue to be sent on channel 1 because omni is off. aseqdump >>> (command line alsa utility) displayed the same info while running >>> simultaneously. >>> >>> J. >>> >>> SECTION 1: >>> kstatus= 144.000000, kchan = 1.000000, kdata1 = 60.000000, kdata2 = >>> 75.000000 >>> kstatus= 144.000000, kchan = 1.000000, kdata1 = 60.000000, kdata2 = >>> 0.000000 >>> kstatus= 176.000000, kchan = 1.000000, kdata1 = 101.000000, kdata2 >>> = 0.000000 >>> kstatus= 224.000000, kchan = 1.000000, kdata1 = 2.000000, kdata2 = >>> 65.000000 >>> kstatus= 224.000000, kchan = 1.000000, kdata1 = 4.000000, kdata2 = >>> 66.000000 >>> kstatus= 224.000000, kchan = 1.000000, kdata1 = 8.000000, kdata2 = >>> 68.000000 >>> kstatus= 224.000000, kchan = 1.000000, kdata1 = 4.000000, kdata2 = >>> 66.000000 >>> kstatus= 224.000000, kchan = 1.000000, kdata1 = 0.000000, kdata2 = >>> 64.000000 >>> kstatus= 208.000000, kchan = 1.000000, kdata1 = 52.000000, kdata2 = >>> 0.000000 >>> kstatus= 208.000000, kchan = 1.000000, kdata1 = 54.000000, kdata2 = >>> 0.000000 >>> kstatus= 208.000000, kchan = 1.000000, kdata1 = 56.000000, kdata2 = >>> 0.000000 >>> kstatus= 208.000000, kchan = 1.000000, kdata1 = 58.000000, kdata2 = >>> 0.000000 >>> kstatus= 208.000000, kchan = 1.000000, kdata1 = 59.000000, kdata2 = >>> 0.000000 >>> kstatus= 208.000000, kchan = 1.000000, kdata1 = 61.000000, kdata2 = >>> 0.000000 >>> midi channel 1 now using instr 1 >>> kstatus= 192.000000, kchan = 1.000000, kdata1 = 9.000000, kdata2 = >>> 0.000000 >>> kstatus= 144.000000, kchan = 9.000000, kdata1 = 60.000000, kdata2 = >>> 80.000000 >>> kstatus= 144.000000, kchan = 9.000000, kdata1 = 60.000000, kdata2 = >>> 0.000000 >>> kstatus= 176.000000, kchan = 1.000000, kdata1 = 101.000000, kdata2 >>> = 127.000000 >>> kstatus= 176.000000, kchan = 1.000000, kdata1 = 35.000000, kdata2 = >>> 50.000000 >>> kstatus= 176.000000, kchan = 1.000000, kdata1 = 35.000000, kdata2 = >>> 51.000000 >>> kstatus= 176.000000, kchan = 1.000000, kdata1 = 35.000000, kdata2 = >>> 52.000000 >>> kstatus= 224.000000, kchan = 9.000000, kdata1 = 2.000000, kdata2 = >>> 65.000000 >>> kstatus= 224.000000, kchan = 9.000000, kdata1 = 4.000000, kdata2 = >>> 66.000000 >>> kstatus= 224.000000, kchan = 9.000000, kdata1 = 8.000000, kdata2 = >>> 68.000000 >>> kstatus= 224.000000, kchan = 9.000000, kdata1 = 10.000000, kdata2 = >>> 69.000000 >>> kstatus= 224.000000, kchan = 9.000000, kdata1 = 6.000000, kdata2 = >>> 67.000000 >>> kstatus= 224.000000, kchan = 9.000000, kdata1 = 0.000000, kdata2 = >>> 64.000000 >>> kstatus= 208.000000, kchan = 1.000000, kdata1 = 60.000000, kdata2 = >>> 0.000000 >>> kstatus= 208.000000, kchan = 1.000000, kdata1 = 59.000000, kdata2 = >>> 0.000000 >>> kstatus= 208.000000, kchan = 1.000000, kdata1 = 58.000000, kdata2 = >>> 0.000000 >>> kstatus= 208.000000, kchan = 1.000000, kdata1 = 57.000000, kdata2 = >>> 0.000000 >>> >>> >>> >>> using it >>> "Dr. Richard Boulanger" writes: >>> >>>> You should ABSOLUTELY NOT delay this release because of David's >>>> problem with midiin - I think that his problem might be with diskin2 >>>> and not midiin - also, there are some complicated things going on in >>>> David's design that might also account for his midiin issues.... >>>> >>>> As I reported earlier, I am not sure that his pgmin UDO is working >>>> 100% correctly. >>>> >>>> If David would share his orchestra with us, you might be able to >>>> better chase down his midiin and >>>> diskin2 issues >>>> >>>> Also, for your testing purposes, you might want to check the MIDI >>>> stuff I posted the other night... All you need is there to run your >>>> tests - I use midiin and David's pgmin UDO. >>>> >>>> http://csounds.com/olpc/gmSoundFontPlayer.zip >>>> >>>> Dr. B. >>>> >>>> On Nov 8, 2006, at 4:53 AM, Dr. Richard Boulanger wrote: >>>> >>>>> David, >>>>> >>>>> The midiin opcode was NOT working correctly back then. I am not >>>>> sure >>>>> that it is working correctly even now, but I can assure you that it >>>>> was not working correctly back then. It is better now, and I am >>>>> able >>>>> to use it for the current release of the BETA1-Demo package for the >>>>> One Laptop Per Child Computer Systems - OLPC, but... it definitely >>>>> still needs some serious testing and looking into. >>>>> >>>>> In fact, the reason that Istvan's General MIDI fluid instrument does >>>>> work correctly is because he uses the raw messages to: play the >>>>> notes, read the program changes, and read the controllers. He >>>>> essentially turns off all of Csound's MIDI and then maps it directly >>>>> from there. >>>>> >>>>> -dr.B. >>>>> >>>>> On Nov 8, 2006, at 4:08 AM, David Akbari wrote: >>>>> >>>>>> Hi Developers, >>>>>> >>>>>> Can anyone provide some more information on what was changed since >>>>>> June >>>>>> 18 2006 in the midiin opcode? >>>>>> >>>>>> In June I spent a lot of time and made a few demos using a MIDI >>>>>> file to >>>>>> drive performance and using program change messages to trigger >>>>>> samples. >>>>>> It works with a version of Csound5 compiled on June 18 2006. It >>>>>> does >>>>>> not work on the current CVS version. Does this qualify as breaking >>>>>> backwards compatibility? I'd really rather not go through the >>>>>> trouble >>>>>> of chasing changes since I have no idea what would've been changed >>>>>> since the file DOES work on a recent version (compiled from CVS >>>>>> since >>>>>> the last release). >>>>>> >>>>>> How can this be fixed? What was changed in midiin? >>>>>> >>>>>> Here's the files so you can see for yourself >>>>>> >>>>>> http://csounds.com/olpc/Archive.zip >>>>>> >>>>>> >>>>>> -David >>>>>> >>>>>> >>>>>> ------------------------------------------------------------------- >>>>>> -- >>>>>> - >>>>>> --- >>>>>> Using Tomcat but need to do more? Need to support web services, >>>>>> security? >>>>>> Get stuff done quickly with pre-integrated technology to make your >>>>>> job easier >>>>>> Download IBM WebSphere Application Server v.1.0.1 based on Apache >>>>>> Geronimo >>>>>> http://sel.as-us.falkag.net/sel? >>>>>> cmd=lnk&kid=120709&bid=263057&dat=121642 >>>>>> _______________________________________________ >>>>>> Csound-devel mailing list >>>>>> Csound-devel@lists.sourceforge.net >>>>>> https://lists.sourceforge.net/lists/listinfo/csound-devel >>>>> >>>>> >>>>> -------------------------------------------------------------------- >>>>> -- >>>>> --- >>>>> Using Tomcat but need to do more? Need to support web services, >>>>> security? >>>>> Get stuff done quickly with pre-integrated technology to make your >>>>> job easier >>>>> Download IBM WebSphere Application Server v.1.0.1 based on Apache >>>>> Geronimo >>>>> http://sel.as-us.falkag.net/sel? >>>>> cmd=lnk&kid=120709&bid=263057&dat=121642 >>>>> _______________________________________________ >>>>> Csound-devel mailing list >>>>> Csound-devel@lists.sourceforge.net >>>>> https://lists.sourceforge.net/lists/listinfo/csound-devel >>>> >>>> >>>> --------------------------------------------------------------------- >>>> ---- >>>> Using Tomcat but need to do more? Need to support web services, >>>> security? >>>> Get stuff done quickly with pre-integrated technology to make your >>>> job easier >>>> Download IBM WebSphere Application Server v.1.0.1 based on Apache >>>> Geronimo >>>> http://sel.as-us.falkag.net/sel? >>>> cmd=lnk&kid=120709&bid=263057&dat=121642 >>>> _______________________________________________ >>>> Csound-devel mailing list >>>> Csound-devel@lists.sourceforge.net >>>> https://lists.sourceforge.net/lists/listinfo/csound-devel >>> >>> ---------------------------------------------------------------------- >>> --- >>> Using Tomcat but need to do more? Need to support web services, >>> security? >>> Get stuff done quickly with pre-integrated technology to make your >>> job easier >>> Download IBM WebSphere Application Server v.1.0.1 based on Apache >>> Geronimo >>> http://sel.as-us.falkag.net/sel? >>> cmd=lnk&kid=120709&bid=263057&dat=121642 >>> _______________________________________________ >>> Csound-devel mailing list >>> Csound-devel@lists.sourceforge.net >>> https://lists.sourceforge.net/lists/listinfo/csound-devel >> >> >> ----------------------------------------------------------------------- >> -- >> Using Tomcat but need to do more? Need to support web services, >> security? >> Get stuff done quickly with pre-integrated technology to make your job >> easier >> Download IBM WebSphere Application Server v.1.0.1 based on Apache >> Geronimo >> http://sel.as-us.falkag.net/sel? >> cmd=lnk&kid=120709&bid=263057&dat=121642 >> _______________________________________________ >> Csound-devel mailing list >> Csound-devel@lists.sourceforge.net >> https://lists.sourceforge.net/lists/listinfo/csound-devel >> > > > ------------------------------------------------------------------------- > Using Tomcat but need to do more? Need to support web services, security? > Get stuff done quickly with pre-integrated technology to make your job easier > Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo > http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642 > _______________________________________________ > Csound-devel mailing list > Csound-devel@lists.sourceforge.net > https://lists.sourceforge.net/lists/listinfo/csound-devel ------------------------------------------------------------------------- Using Tomcat but need to do more? Need to support web services, security? Get stuff done quickly with pre-integrated technology to make your job easier Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642 _______________________________________________ Csound-devel mailing list Csound-devel@lists.sourceforge.net

Date	2006-11-08 14:31
From	David Akbari
Subject	Re: [Cs-dev] midiin changes??
	The midifile is there! It's in the tag and uses the embedded media feature... >> >> TVRoZAAAAAYAAAABAeBNVHJrAAAFkgD/AwZUeXBlIDAA/ >> 1EDBbjYAP9YBAQCGAgAwAG8AAG8 >> AAKperAPfYIOD31aD31aD35aD3paD3paD3paD3paD3paD3paD3paD3laD3haD3haD3haD3 >> da >> D3daD3ZaD3ZaD3VaD3V4D3VaD3RaD3MewA08sA9yWg9yWg9xWg9wWg9vWg9vWg9uWg9uWg >> 9t >> Wg9sWg9rWg9rWg9rWg9qWg9pWg9oWg9oWg9nWg9mWg9lWg9lWg9kWg9jWg9iWg9hWg9hWg >> 9h >> Wg9eeA9eWg9eWg9eWg9dWg9cWg9cWg9cWg9cWg9bWg9bWg9bWg9aWg9aWg9aWg9ZWg9ZWg >> 9Y >> Wg9YWg9YWg9XWg9XWg9XWg9XWg9WWg9WWg9VWg9UWg9UWg9TWg9TWg9TWg9SeA9RWg9RWg >> 9Q >> Wg9PWg9OWg9OWg9OWg9NWg9MWg9MWg9MWg9LWg9KWg9JWg9JWg9JWg9JWg9IWg9IWg9HWg >> 9H >> Wg9GWg9GWg9FWsAOALAPRVoPRFoPRFoPRIE0D0RaD0N4D0NaD0JaD0JaD0FaD0FaD0FaD0 >> Ba >> D0BaDz9aDz9aDz9aDz9aDz5aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz >> 9a >> Dz9aDz9aDz9aDz9aDz9aDz94Dz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz >> 9a >> Dz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz >> 9a >> Dz94Dz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz+BNA8/Wg8/Wg8/ >> HsAPPLAP >> P1oPP1oPP1oPP1oPP4E0Dz9aDz9aD0VaD0ZaD0eBNA9IgTQPSYFSD0laD0paD0paD0taD0 >> ta >> D0xaD01aD01aD05aD06BNA9OWg9PWg9QWg9QWg9RgTQPUoE0D1NaD1OBNA9UWg9UWg9VWg >> 9W >> gTQPV1oPV4E0D1d4D1haD1laD1laD1qBNA9bgTQPXIIOD11aD11aD15aD15aD19aD19aD2 >> Ba >> D2BaD2FaD2FaD2FaD2FaD2FaD2JaD2JaD2NaD2NaD2NaD2RaD2RaD2V4D2VaD2VaD2ZaD2 >> Za >> D2ZaD2Y8wBAesA9nWg9nWg9nWg9oWg9oWg9pWg9pWg9pWg9qWg9qWg9qWg9rWg9rWg9rWg >> 9r >> Wg9rWg9rWg9sWg9sWg9sWg9sWg9tWg9tWg9tWg9tWg9veA9vWg9wWg9wWg9wWg9wWg9wWg >> 9w >> Wg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9xWg >> 9x >> Wg9xWg9xWg9xWg9xWg9xgVIPcFoPcFoPcFoPcFoPb1oPb4IOD3ZaD3daD3haD3haD3laD3 >> qC >> Dg97Wg98gTQPf1oPfloPf4JoD3+BUsAQvAAOgaUADYHDAAyXdLAPe4E0D3taD3uDBg97Wg >> 96 >> gmgPeYE0D3haD3daD3aBNA91gTQPdIE0D3OBNA9ygTQPcVoPcVoPcIE0D2+BNA9uWg9tWg >> 9s >> Wg9rgVIPaloPaVoPaFoPZ1oPZoE0D2VaD2RaD2NaD2JaD2GBNA9gWg9fWg9eWg9dWg9cgT >> QP >> W1oPWloPWVoPWFoPV4E0D1ZaD1VaD1RaD1OBNA9SgVIPUVoPUFoPT1oPToE0D01aD0xaD0 >> ta >> D0paD0laD0haD0daD0VaD0RaD0RaD0JaD0FaD0BaDz9aDz5aDz1aDzxaDztaDzpaDzlaDz >> ha >> DzdaDzZaDzVaDzRaDzN4DzJaDzFaDzBaDy9aDy5aDy1aDyuBNA8qWg8pWg8ngTQPJloPJV >> oP >> H4E0DxdaDxCBNA8JgTQPCVoPB1oPBVoPBFoPAoE0DwGBNA8AhDoPAAD/LwA >> -David On Nov 8, 2006, at 7:50 AM, Jonathan Murphy wrote: > > It'd be a lot easier to figure that out if you posted the midi file > that you're using! I'm guessing that it's because the instrument is > turned on and asked to play a soundfile that it didn't know it needed > to load. Immediately. diskin2 has an optional argument to skip > initialisation. If you turned that on and then the csd rendered > without error but struggling hideously then it'd probably be safe to > say that that was the issue. This is just guessing. If you send me the > midi I'll give it a spin. > > J. > > > David Akbari writes: > >> Ok, so that's good that midiin and pgmin are working correctly. Here's >> the thing then, why does this instrument get an "error diskin2 not >> initialized" only in the instruments where the iskip parameter is 0? >> Why didn't this fail before? (substitute sound files for files in >> header) >> >> >> >> ; macintosh >> -odac -iadc -d -m0 -+rtaudio=CoreAudio -+rtmidi=null -Fdrivinit.mid -T >> -K >> ; >> ; linux >> ;-odac -iadc -d -m0 -b1024 -B16384 -+rtaudio=alsa -Fbreakinit.mid -T >> -K >> >> >> sr = 44100 >> kr = 100 >> ksmps = 441 >> nchnls = 2 >> pgmassign -1, -1 >> massign 1, 1 >> >> gkphos01 init 0 >> gkphos02 init 0 >> gkphos03 init 0 >> gkphos04 init 0 >> gkcb01 init 0 >> gkcb02 init 0 >> gkcb03 init 0 >> gkcb04 init 0 >> gkcb05 init 0 >> gkcb06 init 0 >> gkcb07 init 0 >> gkcb08 init 0 >> gkcb09 init 0 >> gkcb10 init 0 >> gkcb11 init 0 >> gkcb12 init 0 >> gkcb13 init 0 >> gkcb14 init 0 >> gkcb15 init 0 >> gkcb16 init 0 >> gkvol1 init 0 >> gkvol2 init 0 >> gkvol3 init 0 >> gkvol4 init 0 >> gksl01 init 0 >> gksl02 init 0 >> gksl03 init 0 >> gksl04 init 0 >> gkled01 init 0 >> gkled02 init 0 >> >> /* sound files / >> / >> #define SFILE01 # "a2rinse8" # >> #define SFILE02 # "aslide16" # >> #define SFILE03 # "bslide16" # >> #define SFILE04 # "slidebass16" # >> / >> / sound files / >> #define SFILE01 # "tt03.aif" # >> #define SFILE02 # "tt03-01.aif" # >> #define SFILE03 # "tt03-03.aif" # >> #define SFILE04 # "tt04.aif" # >> >> / MIDI CC numbers for volume sliders / >> #define SLIDER1 #1# >> #define SLIDER2 #2# >> #define SLIDER3 #6# >> #define SLIDER4 #7# >> >> ctrlinit 1, $SLIDER1, 111, $SLIDER2, 127, $SLIDER3, 64, $SLIDER4, 111 >> >> ;// >> opcode pgmin, kk, 0 >> >> kstatus, kchan, kdata1, kdata2 midiin >> >> if (kstatus == 192 && kchan == 1) then >> kpgm = kdata1 >> else >> endif >> >> xout kpgm, kchan >> >> endop >> ;// >> opcode sanskey, kk, 0 >> >> keyin sensekey >> >> if (keyin == -1) then >> else >> kkey_num = keyin >> endif >> >> ktrig = (keyin >= 0 ? 1 : 0) >> >> xout kkey_num, ktrig >> >> endop >> ;// >> opcode LogCurve, k, kk >> >> kfloat, ksteep xin >> >> if (ksteep > 1) then >> ksteep = ksteep >> elseif (ksteep < 1) then >> ksteep = 1.00001 >> endif >> >> kout = (log(kfloat (ksteep-1)+1)/log(ksteep)) >> >> xout kout >> >> endop >> ;// >> /--- ---/ >> >> instr 1 >> >> ilen1 filelen $SFILE01 >> ilen2 filelen $SFILE02 >> ilen3 filelen $SFILE03 >> ilen4 filelen $SFILE04 >> >> >> kpgm, kchan pgmin >> key, kbang sanskey >> >> kvol1 ctrl7 1, $SLIDER1, 0, 1 >> kvol2 ctrl7 1, $SLIDER2, 0, 1 >> kvol3 ctrl7 1, $SLIDER3, 0, 1 >> kvol4 ctrl7 1, $SLIDER4, 0, 1 >> >> gkvol1 LogCurve kvol1, 1.00001 >> gkvol2 LogCurve kvol2, 1.00001 >> gkvol3 LogCurve kvol3, 1.00001 >> gkvol4 LogCurve kvol4, 1.00001 >> >> gksl01 = gkvol1 >> gksl02 = gkvol2 >> gksl03 = gkvol3 >> gksl04 = gkvol4 >> /* >> if (kbang == 1 && key == 32) then >> turnoff2 2, 0, 1 >> turnoff2 3, 0, 1 >> turnoff2 4, 0, 1 >> else >> endif >> / >> kpg changed kpgm >> >> if (kpg != 1) kgoto cont >> >> if (kpgm == 1) then >> turnoff2 2, 0, 0 >> event "i", 2, 0, ilen1-(ilen1/2), 0.1 >> gkcb01 = 1 >> gkcb02 = 0 >> gkcb03 = 0 >> gkcb04 = 0 >> elseif (kpgm == 2) then >> turnoff2 2, 0, 0 >> event "i", 2, 0, ilen1-(ilen1/2), ilen1/4 >> gkcb01 = 0 >> gkcb02 = 1 >> gkcb03 = 0 >> gkcb04 = 0 >> elseif (kpgm == 3) then >> turnoff2 2, 0, 0 >> event "i", 2, 0, ilen1-(ilen1/2), ilen1/2 >> gkcb01 = 0 >> gkcb02 = 0 >> gkcb03 = 1 >> gkcb04 = 0 >> elseif (kpgm == 4) then >> turnoff2 2, 0, 0 >> event "i", 2, 0, ilen1-(ilen1/2), ((ilen1/4)+(ilen1/2)) >> gkcb01 = 0 >> gkcb02 = 0 >> gkcb03 = 0 >> gkcb04 = 1 >> else >> endif >> >> if (kpgm == 5) then >> turnoff2 3, 0, 0 >> event "i", 3, 0, ilen2-(ilen2/2), 0.1 >> gkcb05 = 1 >> gkcb06 = 0 >> gkcb07 = 0 >> gkcb08 = 0 >> elseif (kpgm == 6) then >> turnoff2 3, 0, 0 >> event "i", 3, 0, ilen2-(ilen2/2), ilen2/4 >> gkcb05 = 0 >> gkcb06 = 1 >> gkcb07 = 0 >> gkcb08 = 0 >> elseif (kpgm == 7) then >> turnoff2 3, 0, 0 >> event "i", 3, 0, ilen2-(ilen2/2), ilen2/2 >> gkcb05 = 0 >> gkcb06 = 0 >> gkcb07 = 1 >> gkcb08 = 0 >> elseif (kpgm == 8) then >> turnoff2 3, 0, 0 >> event "i", 3, 0, ilen2-(ilen2/2), ((ilen2/4)+(ilen2/2)) >> gkcb05 = 0 >> gkcb06 = 0 >> gkcb07 = 0 >> gkcb08 = 1 >> else >> endif >> >> if (kpgm == 9) then >> turnoff2 4, 0, 0 >> event "i", 4, 0, ilen3-(ilen3/2), 0 >> gkcb09 = 1 >> gkcb10 = 0 >> gkcb11 = 0 >> gkcb12 = 0 >> elseif (kpgm == 10) then >> turnoff2 4, 0, 0 >> event "i", 4, 0, ilen3-(ilen3/2), ilen3/4 >> gkcb09 = 0 >> gkcb10 = 1 >> gkcb11 = 0 >> gkcb12 = 0 >> elseif (kpgm == 11) then >> turnoff2 4, 0, 0 >> event "i", 4, 0, ilen3-(ilen3/2), ilen3/2 >> gkcb09 = 0 >> gkcb10 = 0 >> gkcb11 = 1 >> gkcb12 = 0 >> elseif (kpgm == 12) then >> turnoff2 4, 0, 0 >> event "i", 4, 0, ilen3-(ilen3/2), ((ilen3/4)+(ilen3/2)) >> gkcb09 = 0 >> gkcb10 = 0 >> gkcb11 = 0 >> gkcb12 = 1 >> else >> endif >> >> if (kpgm == 13) then >> turnoff2 5, 0, 0 >> event "i", 5, 0, ilen4-(ilen4/2), 0 >> gkcb13 = 1 >> gkcb14 = 0 >> gkcb15 = 0 >> gkcb16 = 0 >> elseif (kpgm == 14) then >> turnoff2 5, 0, 0 >> event "i", 5, 0, ilen4-(ilen4/2), ilen4/4 >> gkcb13 = 0 >> gkcb14 = 1 >> gkcb15 = 0 >> gkcb16 = 0 >> elseif (kpgm == 15) then >> turnoff2 5, 0, 0 >> event "i", 5, 0, ilen4-(ilen4/2), ilen4/2 >> gkcb13 = 0 >> gkcb14 = 0 >> gkcb15 = 1 >> gkcb16 = 0 >> elseif (kpgm == 16) then >> turnoff2 5, 0, 0 >> event "i", 5, 0, ilen4-(ilen4/2), ((ilen4/4)+(ilen4/2)) >> gkcb13 = 0 >> gkcb14 = 0 >> gkcb15 = 0 >> gkcb16 = 1 >> else >> endif >> >> kpgm = 0 >> kpg = 0 >> >> cont: >> >> endin >> >> /--- ---/ >> >> instr 2 >> >> iskip = p4 >> ichnls filenchnls $SFILE01 >> ilen filelen $SFILE01 >> >> kpos phasor (1/ilen) >> kpos = (kpos0.25)+(iskip/ilen) >> gkphos01 = kpos >> >> if (ichnls == 1) then >> >> al diskin2 $SFILE01, 1, 0, 1 >> ar = al >> >> elseif (ichnls == 2) then >> >> al, ar diskin2 $SFILE01, 1, iskip, 1 >> >> else >> endif >> >> >> al = al * gkvol1 >> ar = ar * gkvol1 >> >> >> al clip al, 0, 32767 >> ar clip ar, 0, 32767 >> outs al, ar >> >> endin >> >> /--- ---/ >> >> instr 3 >> >> iskip = p4 >> ichnls filenchnls $SFILE02 >> ilen filelen $SFILE02 >> >> kpos phasor (1/ilen) >> kpos = (kpos0.25)+(iskip/ilen) >> gkphos02 = kpos >> >> if (ichnls == 1) then >> >> al diskin2 $SFILE02, 1, iskip, 1 >> ar = al >> >> elseif (ichnls == 2) then >> >> al, ar diskin2 $SFILE02, 1, iskip, 1 >> >> else >> endif >> >> al = al gkvol2 >> ar = ar * gkvol2 >> >> >> al clip al, 0, 32767 >> ar clip ar, 0, 32767 >> outs al, ar >> >> endin >> >> /--- ---/ >> >> instr 4 >> >> iskip = p4 >> ichnls filenchnls $SFILE03 >> ilen filelen $SFILE03 >> >> kpos phasor (1/ilen) >> kpos = (kpos0.25)+(iskip/ilen) >> gkphos03 = kpos >> >> if (ichnls == 1) then >> >> al diskin2 $SFILE03, 1, iskip, 1 >> ar = al >> >> elseif (ichnls == 2) then >> >> al, ar diskin2 $SFILE03, 1, iskip, 1 >> >> else >> endif >> >> al = al gkvol3 >> ar = ar * gkvol3 >> >> >> al clip al, 0, 32767 >> ar clip ar, 0, 32767 >> outs al, ar >> >> endin >> >> /--- ---/ >> >> instr 5 >> >> iskip = p4 >> ichnls filenchnls $SFILE04 >> ilen filelen $SFILE04 >> >> kpos phasor (1/ilen) >> kpos = (kpos0.25)+(iskip/ilen) >> gkphos04 = kpos >> >> if (ichnls == 1) then >> >> al diskin2 $SFILE04, 1, iskip, 1 >> ar = al >> >> elseif (ichnls == 2) then >> >> al, ar diskin2 $SFILE04, 1, iskip, 1 >> >> else >> endif >> >> >> al = al gkvol4 >> ar = ar * gkvol4 >> >> >> al clip al, 0, 32767 >> ar clip ar, 0, 32767 >> outs al, ar >> >> endin >> >> >> >> /--- ---/ >> >> >> >> i1 0 1000 >> >> ;i255 0 1000 >> >> e >> >> >> TVRoZAAAAAYAAAABAeBNVHJrAAAFkgD/AwZUeXBlIDAA/ >> 1EDBbjYAP9YBAQCGAgAwAG8AAG8 >> AAKperAPfYIOD31aD31aD35aD3paD3paD3paD3paD3paD3paD3paD3laD3haD3haD3haD3 >> da >> D3daD3ZaD3ZaD3VaD3V4D3VaD3RaD3MewA08sA9yWg9yWg9xWg9wWg9vWg9vWg9uWg9uWg >> 9t >> Wg9sWg9rWg9rWg9rWg9qWg9pWg9oWg9oWg9nWg9mWg9lWg9lWg9kWg9jWg9iWg9hWg9hWg >> 9h >> Wg9eeA9eWg9eWg9eWg9dWg9cWg9cWg9cWg9cWg9bWg9bWg9bWg9aWg9aWg9aWg9ZWg9ZWg >> 9Y >> Wg9YWg9YWg9XWg9XWg9XWg9XWg9WWg9WWg9VWg9UWg9UWg9TWg9TWg9TWg9SeA9RWg9RWg >> 9Q >> Wg9PWg9OWg9OWg9OWg9NWg9MWg9MWg9MWg9LWg9KWg9JWg9JWg9JWg9JWg9IWg9IWg9HWg >> 9H >> Wg9GWg9GWg9FWsAOALAPRVoPRFoPRFoPRIE0D0RaD0N4D0NaD0JaD0JaD0FaD0FaD0FaD0 >> Ba >> D0BaDz9aDz9aDz9aDz9aDz5aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz >> 9a >> Dz9aDz9aDz9aDz9aDz9aDz94Dz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz >> 9a >> Dz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz >> 9a >> Dz94Dz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz+BNA8/Wg8/Wg8/ >> HsAPPLAP >> P1oPP1oPP1oPP1oPP4E0Dz9aDz9aD0VaD0ZaD0eBNA9IgTQPSYFSD0laD0paD0paD0taD0 >> ta >> D0xaD01aD01aD05aD06BNA9OWg9PWg9QWg9QWg9RgTQPUoE0D1NaD1OBNA9UWg9UWg9VWg >> 9W >> gTQPV1oPV4E0D1d4D1haD1laD1laD1qBNA9bgTQPXIIOD11aD11aD15aD15aD19aD19aD2 >> Ba >> D2BaD2FaD2FaD2FaD2FaD2FaD2JaD2JaD2NaD2NaD2NaD2RaD2RaD2V4D2VaD2VaD2ZaD2 >> Za >> D2ZaD2Y8wBAesA9nWg9nWg9nWg9oWg9oWg9pWg9pWg9pWg9qWg9qWg9qWg9rWg9rWg9rWg >> 9r >> Wg9rWg9rWg9sWg9sWg9sWg9sWg9tWg9tWg9tWg9tWg9veA9vWg9wWg9wWg9wWg9wWg9wWg >> 9w >> Wg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9xWg >> 9x >> Wg9xWg9xWg9xWg9xWg9xgVIPcFoPcFoPcFoPcFoPb1oPb4IOD3ZaD3daD3haD3haD3laD3 >> qC >> Dg97Wg98gTQPf1oPfloPf4JoD3+BUsAQvAAOgaUADYHDAAyXdLAPe4E0D3taD3uDBg97Wg >> 96 >> gmgPeYE0D3haD3daD3aBNA91gTQPdIE0D3OBNA9ygTQPcVoPcVoPcIE0D2+BNA9uWg9tWg >> 9s >> Wg9rgVIPaloPaVoPaFoPZ1oPZoE0D2VaD2RaD2NaD2JaD2GBNA9gWg9fWg9eWg9dWg9cgT >> QP >> W1oPWloPWVoPWFoPV4E0D1ZaD1VaD1RaD1OBNA9SgVIPUVoPUFoPT1oPToE0D01aD0xaD0 >> ta >> D0paD0laD0haD0daD0VaD0RaD0RaD0JaD0FaD0BaDz9aDz5aDz1aDzxaDztaDzpaDzlaDz >> ha >> DzdaDzZaDzVaDzRaDzN4DzJaDzFaDzBaDy9aDy5aDy1aDyuBNA8qWg8pWg8ngTQPJloPJV >> oP >> H4E0DxdaDxCBNA8JgTQPCVoPB1oPBVoPBFoPAoE0DwGBNA8AhDoPAAD/LwA >> >> >> >> >> On Nov 8, 2006, at 5:51 AM, Dr. Richard Boulanger wrote: >> >>> Jonathan, >>> >>> thank you for these tests and for your test instrument the other >>> night. it was extremely helpful to me and bolstered my confidence in >>> these opcodes and UDOs ... >>> >>> -dr.B. >>> On Nov 8, 2006, at 5:47 AM, Jonathan Murphy wrote: >>> >>>> >>>> Hi Folks, >>>> >>>> I'm pretty much certain that midiin is working properly. Here is the >>>> output of a modified version of the instrument that Dr Boulanger >>>> and I >>>> used the other day. Note off messages are not printed, instead note >>>> on >>>> with a velocity of 0 is received. I'm not sure if this is csound or >>>> the alsa sequencer. Note on, control change, pitch bend, aftertouch, >>>> program change, change channels, repeat. Aftertouch and control >>>> change >>>> continue to be sent on channel 1 because omni is off. aseqdump >>>> (command line alsa utility) displayed the same info while running >>>> simultaneously. >>>> >>>> J. >>>> >>>> SECTION 1: >>>> kstatus= 144.000000, kchan = 1.000000, kdata1 = 60.000000, kdata2 = >>>> 75.000000 >>>> kstatus= 144.000000, kchan = 1.000000, kdata1 = 60.000000, kdata2 = >>>> 0.000000 >>>> kstatus= 176.000000, kchan = 1.000000, kdata1 = 101.000000, kdata2 >>>> = 0.000000 >>>> kstatus= 224.000000, kchan = 1.000000, kdata1 = 2.000000, kdata2 = >>>> 65.000000 >>>> kstatus= 224.000000, kchan = 1.000000, kdata1 = 4.000000, kdata2 = >>>> 66.000000 >>>> kstatus= 224.000000, kchan = 1.000000, kdata1 = 8.000000, kdata2 = >>>> 68.000000 >>>> kstatus= 224.000000, kchan = 1.000000, kdata1 = 4.000000, kdata2 = >>>> 66.000000 >>>> kstatus= 224.000000, kchan = 1.000000, kdata1 = 0.000000, kdata2 = >>>> 64.000000 >>>> kstatus= 208.000000, kchan = 1.000000, kdata1 = 52.000000, kdata2 = >>>> 0.000000 >>>> kstatus= 208.000000, kchan = 1.000000, kdata1 = 54.000000, kdata2 = >>>> 0.000000 >>>> kstatus= 208.000000, kchan = 1.000000, kdata1 = 56.000000, kdata2 = >>>> 0.000000 >>>> kstatus= 208.000000, kchan = 1.000000, kdata1 = 58.000000, kdata2 = >>>> 0.000000 >>>> kstatus= 208.000000, kchan = 1.000000, kdata1 = 59.000000, kdata2 = >>>> 0.000000 >>>> kstatus= 208.000000, kchan = 1.000000, kdata1 = 61.000000, kdata2 = >>>> 0.000000 >>>> midi channel 1 now using instr 1 >>>> kstatus= 192.000000, kchan = 1.000000, kdata1 = 9.000000, kdata2 = >>>> 0.000000 >>>> kstatus= 144.000000, kchan = 9.000000, kdata1 = 60.000000, kdata2 = >>>> 80.000000 >>>> kstatus= 144.000000, kchan = 9.000000, kdata1 = 60.000000, kdata2 = >>>> 0.000000 >>>> kstatus= 176.000000, kchan = 1.000000, kdata1 = 101.000000, kdata2 >>>> = 127.000000 >>>> kstatus= 176.000000, kchan = 1.000000, kdata1 = 35.000000, kdata2 = >>>> 50.000000 >>>> kstatus= 176.000000, kchan = 1.000000, kdata1 = 35.000000, kdata2 = >>>> 51.000000 >>>> kstatus= 176.000000, kchan = 1.000000, kdata1 = 35.000000, kdata2 = >>>> 52.000000 >>>> kstatus= 224.000000, kchan = 9.000000, kdata1 = 2.000000, kdata2 = >>>> 65.000000 >>>> kstatus= 224.000000, kchan = 9.000000, kdata1 = 4.000000, kdata2 = >>>> 66.000000 >>>> kstatus= 224.000000, kchan = 9.000000, kdata1 = 8.000000, kdata2 = >>>> 68.000000 >>>> kstatus= 224.000000, kchan = 9.000000, kdata1 = 10.000000, kdata2 = >>>> 69.000000 >>>> kstatus= 224.000000, kchan = 9.000000, kdata1 = 6.000000, kdata2 = >>>> 67.000000 >>>> kstatus= 224.000000, kchan = 9.000000, kdata1 = 0.000000, kdata2 = >>>> 64.000000 >>>> kstatus= 208.000000, kchan = 1.000000, kdata1 = 60.000000, kdata2 = >>>> 0.000000 >>>> kstatus= 208.000000, kchan = 1.000000, kdata1 = 59.000000, kdata2 = >>>> 0.000000 >>>> kstatus= 208.000000, kchan = 1.000000, kdata1 = 58.000000, kdata2 = >>>> 0.000000 >>>> kstatus= 208.000000, kchan = 1.000000, kdata1 = 57.000000, kdata2 = >>>> 0.000000 >>>> >>>> >>>> >>>> using it >>>> "Dr. Richard Boulanger" writes: >>>> >>>>> You should ABSOLUTELY NOT delay this release because of David's >>>>> problem with midiin - I think that his problem might be with >>>>> diskin2 >>>>> and not midiin - also, there are some complicated things going on >>>>> in >>>>> David's design that might also account for his midiin issues.... >>>>> >>>>> As I reported earlier, I am not sure that his pgmin UDO is working >>>>> 100% correctly. >>>>> >>>>> If David would share his orchestra with us, you might be able to >>>>> better chase down his midiin and >>>>> diskin2 issues >>>>> >>>>> Also, for your testing purposes, you might want to check the MIDI >>>>> stuff I posted the other night... All you need is there to run your >>>>> tests - I use midiin and David's pgmin UDO. >>>>> >>>>> http://csounds.com/olpc/gmSoundFontPlayer.zip >>>>> >>>>> Dr. B. >>>>> >>>>> On Nov 8, 2006, at 4:53 AM, Dr. Richard Boulanger wrote: >>>>> >>>>>> David, >>>>>> >>>>>> The midiin opcode was NOT working correctly back then. I am not >>>>>> sure >>>>>> that it is working correctly even now, but I can assure you that >>>>>> it >>>>>> was not working correctly back then. It is better now, and I am >>>>>> able >>>>>> to use it for the current release of the BETA1-Demo package for >>>>>> the >>>>>> One Laptop Per Child Computer Systems - OLPC, but... it >>>>>> definitely >>>>>> still needs some serious testing and looking into. >>>>>> >>>>>> In fact, the reason that Istvan's General MIDI fluid instrument >>>>>> does >>>>>> work correctly is because he uses the raw messages to: play the >>>>>> notes, read the program changes, and read the controllers. He >>>>>> essentially turns off all of Csound's MIDI and then maps it >>>>>> directly >>>>>> from there. >>>>>> >>>>>> -dr.B. >>>>>> >>>>>> On Nov 8, 2006, at 4:08 AM, David Akbari wrote: >>>>>> >>>>>>> Hi Developers, >>>>>>> >>>>>>> Can anyone provide some more information on what was changed >>>>>>> since >>>>>>> June >>>>>>> 18 2006 in the midiin opcode? >>>>>>> >>>>>>> In June I spent a lot of time and made a few demos using a MIDI >>>>>>> file to >>>>>>> drive performance and using program change messages to trigger >>>>>>> samples. >>>>>>> It works with a version of Csound5 compiled on June 18 2006. It >>>>>>> does >>>>>>> not work on the current CVS version. Does this qualify as >>>>>>> breaking >>>>>>> backwards compatibility? I'd really rather not go through the >>>>>>> trouble >>>>>>> of chasing changes since I have no idea what would've been >>>>>>> changed >>>>>>> since the file DOES work on a recent version (compiled from CVS >>>>>>> since >>>>>>> the last release). >>>>>>> >>>>>>> How can this be fixed? What was changed in midiin? >>>>>>> >>>>>>> Here's the files so you can see for yourself >>>>>>> >>>>>>> http://csounds.com/olpc/Archive.zip >>>>>>> >>>>>>> >>>>>>> -David >>>>>>> >>>>>>> >>>>>>> ----------------------------------------------------------------- >>>>>>> -- >>>>>>> -- >>>>>>> - >>>>>>> --- >>>>>>> Using Tomcat but need to do more? Need to support web services, >>>>>>> security? >>>>>>> Get stuff done quickly with pre-integrated technology to make >>>>>>> your >>>>>>> job easier >>>>>>> Download IBM WebSphere Application Server v.1.0.1 based on Apache >>>>>>> Geronimo >>>>>>> http://sel.as-us.falkag.net/sel? >>>>>>> cmd=lnk&kid=120709&bid=263057&dat=121642 >>>>>>> _______________________________________________ >>>>>>> Csound-devel mailing list >>>>>>> Csound-devel@lists.sourceforge.net >>>>>>> https://lists.sourceforge.net/lists/listinfo/csound-devel >>>>>> >>>>>> >>>>>> ------------------------------------------------------------------ >>>>>> -- >>>>>> -- >>>>>> --- >>>>>> Using Tomcat but need to do more? Need to support web services, >>>>>> security? >>>>>> Get stuff done quickly with pre-integrated technology to make your >>>>>> job easier >>>>>> Download IBM WebSphere Application Server v.1.0.1 based on Apache >>>>>> Geronimo >>>>>> http://sel.as-us.falkag.net/sel? >>>>>> cmd=lnk&kid=120709&bid=263057&dat=121642 >>>>>> _______________________________________________ >>>>>> Csound-devel mailing list >>>>>> Csound-devel@lists.sourceforge.net >>>>>> https://lists.sourceforge.net/lists/listinfo/csound-devel >>>>> >>>>> >>>>> ------------------------------------------------------------------- >>>>> -- >>>>> ---- >>>>> Using Tomcat but need to do more? Need to support web services, >>>>> security? >>>>> Get stuff done quickly with pre-integrated technology to make your >>>>> job easier >>>>> Download IBM WebSphere Application Server v.1.0.1 based on Apache >>>>> Geronimo >>>>> http://sel.as-us.falkag.net/sel? >>>>> cmd=lnk&kid=120709&bid=263057&dat=121642 >>>>> _______________________________________________ >>>>> Csound-devel mailing list >>>>> Csound-devel@lists.sourceforge.net >>>>> https://lists.sourceforge.net/lists/listinfo/csound-devel >>>> >>>> -------------------------------------------------------------------- >>>> -- >>>> --- >>>> Using Tomcat but need to do more? Need to support web services, >>>> security? >>>> Get stuff done quickly with pre-integrated technology to make your >>>> job easier >>>> Download IBM WebSphere Application Server v.1.0.1 based on Apache >>>> Geronimo >>>> http://sel.as-us.falkag.net/sel? >>>> cmd=lnk&kid=120709&bid=263057&dat=121642 >>>> _______________________________________________ >>>> Csound-devel mailing list >>>> Csound-devel@lists.sourceforge.net >>>> https://lists.sourceforge.net/lists/listinfo/csound-devel >>> >>> >>> --------------------------------------------------------------------- >>> -- >>> -- >>> Using Tomcat but need to do more? Need to support web services, >>> security? >>> Get stuff done quickly with pre-integrated technology to make your >>> job >>> easier >>> Download IBM WebSphere Application Server v.1.0.1 based on Apache >>> Geronimo >>> http://sel.as-us.falkag.net/sel? >>> cmd=lnk&kid=120709&bid=263057&dat=121642 >>> _______________________________________________ >>> Csound-devel mailing list >>> Csound-devel@lists.sourceforge.net >>> https://lists.sourceforge.net/lists/listinfo/csound-devel >>> >> >> >> ---------------------------------------------------------------------- >> --- >> Using Tomcat but need to do more? Need to support web services, >> security? >> Get stuff done quickly with pre-integrated technology to make your >> job easier >> Download IBM WebSphere Application Server v.1.0.1 based on Apache >> Geronimo >> http://sel.as-us.falkag.net/sel? >> cmd=lnk&kid=120709&bid=263057&dat=121642 >> _______________________________________________ >> Csound-devel mailing list >> Csound-devel@lists.sourceforge.net >> https://lists.sourceforge.net/lists/listinfo/csound-devel > > ----------------------------------------------------------------------- > -- > Using Tomcat but need to do more? Need to support web services, > security? > Get stuff done quickly with pre-integrated technology to make your job > easier > Download IBM WebSphere Application Server v.1.0.1 based on Apache > Geronimo > http://sel.as-us.falkag.net/sel? > cmd=lnk&kid=120709&bid=263057&dat=121642 > _______________________________________________ > Csound-devel mailing list > Csound-devel@lists.sourceforge.net > https://lists.sourceforge.net/lists/listinfo/csound-devel > ------------------------------------------------------------------------- Using Tomcat but need to do more? Need to support web services, security? Get stuff done quickly with pre-integrated technology to make your job easier Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642 _______________________________________________ Csound-devel mailing list Csound-devel@lists.sourceforge.net

Date	2006-11-08 16:33
From	Jonathan Murphy
Subject	Re: [Cs-dev] midiin changes??
	Sorry! Missed it down there. These were the changes that get rid of the error message. I guess that you were turning it off before it had started. J. if (kpgm == 1) then ; turnoff2 2, 0, 0 event "i", 2, 0, ilen1-(ilen1/2), 0.1 gkcb01 = 1 gkcb02 = 0 gkcb03 = 0 gkcb04 = 0 else endif if (kpgm == 2) then ; turnoff2 2, 0, 0 event "i", 2, 0, ilen1-(ilen1/2), ilen1/4 gkcb01 = 0 gkcb02 = 1 gkcb03 = 0 gkcb04 = 0 David Akbari writes: > Ok, so that's good that midiin and pgmin are working correctly. Here's > the thing then, why does this instrument get an "error diskin2 not > initialized" only in the instruments where the iskip parameter is 0? > Why didn't this fail before? (substitute sound files for files in > header) > > > > ; macintosh > -odac -iadc -d -m0 -+rtaudio=CoreAudio -+rtmidi=null -Fdrivinit.mid -T > -K > ; > ; linux > ;-odac -iadc -d -m0 -b1024 -B16384 -+rtaudio=alsa -Fbreakinit.mid -T -K > > > sr = 44100 > kr = 100 > ksmps = 441 > nchnls = 2 > pgmassign -1, -1 > massign 1, 1 > > gkphos01 init 0 > gkphos02 init 0 > gkphos03 init 0 > gkphos04 init 0 > gkcb01 init 0 > gkcb02 init 0 > gkcb03 init 0 > gkcb04 init 0 > gkcb05 init 0 > gkcb06 init 0 > gkcb07 init 0 > gkcb08 init 0 > gkcb09 init 0 > gkcb10 init 0 > gkcb11 init 0 > gkcb12 init 0 > gkcb13 init 0 > gkcb14 init 0 > gkcb15 init 0 > gkcb16 init 0 > gkvol1 init 0 > gkvol2 init 0 > gkvol3 init 0 > gkvol4 init 0 > gksl01 init 0 > gksl02 init 0 > gksl03 init 0 > gksl04 init 0 > gkled01 init 0 > gkled02 init 0 > > /* sound files / > / > #define SFILE01 # "a2rinse8" # > #define SFILE02 # "aslide16" # > #define SFILE03 # "bslide16" # > #define SFILE04 # "slidebass16" # > / > / sound files / > #define SFILE01 # "tt03.aif" # > #define SFILE02 # "tt03-01.aif" # > #define SFILE03 # "tt03-03.aif" # > #define SFILE04 # "tt04.aif" # > > / MIDI CC numbers for volume sliders / > #define SLIDER1 #1# > #define SLIDER2 #2# > #define SLIDER3 #6# > #define SLIDER4 #7# > > ctrlinit 1, $SLIDER1, 111, $SLIDER2, 127, $SLIDER3, 64, $SLIDER4, 111 > > ;// > opcode pgmin, kk, 0 > > kstatus, kchan, kdata1, kdata2 midiin > > if (kstatus == 192 && kchan == 1) then > kpgm = kdata1 > else > endif > > xout kpgm, kchan > > endop > ;// > opcode sanskey, kk, 0 > > keyin sensekey > > if (keyin == -1) then > else > kkey_num = keyin > endif > > ktrig = (keyin >= 0 ? 1 : 0) > > xout kkey_num, ktrig > > endop > ;// > opcode LogCurve, k, kk > > kfloat, ksteep xin > > if (ksteep > 1) then > ksteep = ksteep > elseif (ksteep < 1) then > ksteep = 1.00001 > endif > > kout = (log(kfloat (ksteep-1)+1)/log(ksteep)) > > xout kout > > endop > ;// > /--- ---/ > > instr 1 > > ilen1 filelen $SFILE01 > ilen2 filelen $SFILE02 > ilen3 filelen $SFILE03 > ilen4 filelen $SFILE04 > > > kpgm, kchan pgmin > key, kbang sanskey > > kvol1 ctrl7 1, $SLIDER1, 0, 1 > kvol2 ctrl7 1, $SLIDER2, 0, 1 > kvol3 ctrl7 1, $SLIDER3, 0, 1 > kvol4 ctrl7 1, $SLIDER4, 0, 1 > > gkvol1 LogCurve kvol1, 1.00001 > gkvol2 LogCurve kvol2, 1.00001 > gkvol3 LogCurve kvol3, 1.00001 > gkvol4 LogCurve kvol4, 1.00001 > > gksl01 = gkvol1 > gksl02 = gkvol2 > gksl03 = gkvol3 > gksl04 = gkvol4 > /* > if (kbang == 1 && key == 32) then > turnoff2 2, 0, 1 > turnoff2 3, 0, 1 > turnoff2 4, 0, 1 > else > endif > / > kpg changed kpgm > > if (kpg != 1) kgoto cont > > if (kpgm == 1) then > turnoff2 2, 0, 0 > event "i", 2, 0, ilen1-(ilen1/2), 0.1 > gkcb01 = 1 > gkcb02 = 0 > gkcb03 = 0 > gkcb04 = 0 > elseif (kpgm == 2) then > turnoff2 2, 0, 0 > event "i", 2, 0, ilen1-(ilen1/2), ilen1/4 > gkcb01 = 0 > gkcb02 = 1 > gkcb03 = 0 > gkcb04 = 0 > elseif (kpgm == 3) then > turnoff2 2, 0, 0 > event "i", 2, 0, ilen1-(ilen1/2), ilen1/2 > gkcb01 = 0 > gkcb02 = 0 > gkcb03 = 1 > gkcb04 = 0 > elseif (kpgm == 4) then > turnoff2 2, 0, 0 > event "i", 2, 0, ilen1-(ilen1/2), ((ilen1/4)+(ilen1/2)) > gkcb01 = 0 > gkcb02 = 0 > gkcb03 = 0 > gkcb04 = 1 > else > endif > > if (kpgm == 5) then > turnoff2 3, 0, 0 > event "i", 3, 0, ilen2-(ilen2/2), 0.1 > gkcb05 = 1 > gkcb06 = 0 > gkcb07 = 0 > gkcb08 = 0 > elseif (kpgm == 6) then > turnoff2 3, 0, 0 > event "i", 3, 0, ilen2-(ilen2/2), ilen2/4 > gkcb05 = 0 > gkcb06 = 1 > gkcb07 = 0 > gkcb08 = 0 > elseif (kpgm == 7) then > turnoff2 3, 0, 0 > event "i", 3, 0, ilen2-(ilen2/2), ilen2/2 > gkcb05 = 0 > gkcb06 = 0 > gkcb07 = 1 > gkcb08 = 0 > elseif (kpgm == 8) then > turnoff2 3, 0, 0 > event "i", 3, 0, ilen2-(ilen2/2), ((ilen2/4)+(ilen2/2)) > gkcb05 = 0 > gkcb06 = 0 > gkcb07 = 0 > gkcb08 = 1 > else > endif > > if (kpgm == 9) then > turnoff2 4, 0, 0 > event "i", 4, 0, ilen3-(ilen3/2), 0 > gkcb09 = 1 > gkcb10 = 0 > gkcb11 = 0 > gkcb12 = 0 > elseif (kpgm == 10) then > turnoff2 4, 0, 0 > event "i", 4, 0, ilen3-(ilen3/2), ilen3/4 > gkcb09 = 0 > gkcb10 = 1 > gkcb11 = 0 > gkcb12 = 0 > elseif (kpgm == 11) then > turnoff2 4, 0, 0 > event "i", 4, 0, ilen3-(ilen3/2), ilen3/2 > gkcb09 = 0 > gkcb10 = 0 > gkcb11 = 1 > gkcb12 = 0 > elseif (kpgm == 12) then > turnoff2 4, 0, 0 > event "i", 4, 0, ilen3-(ilen3/2), ((ilen3/4)+(ilen3/2)) > gkcb09 = 0 > gkcb10 = 0 > gkcb11 = 0 > gkcb12 = 1 > else > endif > > if (kpgm == 13) then > turnoff2 5, 0, 0 > event "i", 5, 0, ilen4-(ilen4/2), 0 > gkcb13 = 1 > gkcb14 = 0 > gkcb15 = 0 > gkcb16 = 0 > elseif (kpgm == 14) then > turnoff2 5, 0, 0 > event "i", 5, 0, ilen4-(ilen4/2), ilen4/4 > gkcb13 = 0 > gkcb14 = 1 > gkcb15 = 0 > gkcb16 = 0 > elseif (kpgm == 15) then > turnoff2 5, 0, 0 > event "i", 5, 0, ilen4-(ilen4/2), ilen4/2 > gkcb13 = 0 > gkcb14 = 0 > gkcb15 = 1 > gkcb16 = 0 > elseif (kpgm == 16) then > turnoff2 5, 0, 0 > event "i", 5, 0, ilen4-(ilen4/2), ((ilen4/4)+(ilen4/2)) > gkcb13 = 0 > gkcb14 = 0 > gkcb15 = 0 > gkcb16 = 1 > else > endif > > kpgm = 0 > kpg = 0 > > cont: > > endin > > /--- ---/ > > instr 2 > > iskip = p4 > ichnls filenchnls $SFILE01 > ilen filelen $SFILE01 > > kpos phasor (1/ilen) > kpos = (kpos0.25)+(iskip/ilen) > gkphos01 = kpos > > if (ichnls == 1) then > > al diskin2 $SFILE01, 1, 0, 1 > ar = al > > elseif (ichnls == 2) then > > al, ar diskin2 $SFILE01, 1, iskip, 1 > > else > endif > > > al = al * gkvol1 > ar = ar * gkvol1 > > > al clip al, 0, 32767 > ar clip ar, 0, 32767 > outs al, ar > > endin > > /--- ---/ > > instr 3 > > iskip = p4 > ichnls filenchnls $SFILE02 > ilen filelen $SFILE02 > > kpos phasor (1/ilen) > kpos = (kpos0.25)+(iskip/ilen) > gkphos02 = kpos > > if (ichnls == 1) then > > al diskin2 $SFILE02, 1, iskip, 1 > ar = al > > elseif (ichnls == 2) then > > al, ar diskin2 $SFILE02, 1, iskip, 1 > > else > endif > > al = al gkvol2 > ar = ar * gkvol2 > > > al clip al, 0, 32767 > ar clip ar, 0, 32767 > outs al, ar > > endin > > /--- ---/ > > instr 4 > > iskip = p4 > ichnls filenchnls $SFILE03 > ilen filelen $SFILE03 > > kpos phasor (1/ilen) > kpos = (kpos0.25)+(iskip/ilen) > gkphos03 = kpos > > if (ichnls == 1) then > > al diskin2 $SFILE03, 1, iskip, 1 > ar = al > > elseif (ichnls == 2) then > > al, ar diskin2 $SFILE03, 1, iskip, 1 > > else > endif > > al = al gkvol3 > ar = ar * gkvol3 > > > al clip al, 0, 32767 > ar clip ar, 0, 32767 > outs al, ar > > endin > > /--- ---/ > > instr 5 > > iskip = p4 > ichnls filenchnls $SFILE04 > ilen filelen $SFILE04 > > kpos phasor (1/ilen) > kpos = (kpos0.25)+(iskip/ilen) > gkphos04 = kpos > > if (ichnls == 1) then > > al diskin2 $SFILE04, 1, iskip, 1 > ar = al > > elseif (ichnls == 2) then > > al, ar diskin2 $SFILE04, 1, iskip, 1 > > else > endif > > > al = al gkvol4 > ar = ar * gkvol4 > > > al clip al, 0, 32767 > ar clip ar, 0, 32767 > outs al, ar > > endin > > > > /--- ---/ > > > > i1 0 1000 > > ;i255 0 1000 > > e > > > TVRoZAAAAAYAAAABAeBNVHJrAAAFkgD/AwZUeXBlIDAA/1EDBbjYAP9YBAQCGAgAwAG8AAG8 > AAKperAPfYIOD31aD31aD35aD3paD3paD3paD3paD3paD3paD3paD3laD3haD3haD3haD3da > D3daD3ZaD3ZaD3VaD3V4D3VaD3RaD3MewA08sA9yWg9yWg9xWg9wWg9vWg9vWg9uWg9uWg9t > Wg9sWg9rWg9rWg9rWg9qWg9pWg9oWg9oWg9nWg9mWg9lWg9lWg9kWg9jWg9iWg9hWg9hWg9h > Wg9eeA9eWg9eWg9eWg9dWg9cWg9cWg9cWg9cWg9bWg9bWg9bWg9aWg9aWg9aWg9ZWg9ZWg9Y > Wg9YWg9YWg9XWg9XWg9XWg9XWg9WWg9WWg9VWg9UWg9UWg9TWg9TWg9TWg9SeA9RWg9RWg9Q > Wg9PWg9OWg9OWg9OWg9NWg9MWg9MWg9MWg9LWg9KWg9JWg9JWg9JWg9JWg9IWg9IWg9HWg9H > Wg9GWg9GWg9FWsAOALAPRVoPRFoPRFoPRIE0D0RaD0N4D0NaD0JaD0JaD0FaD0FaD0FaD0Ba > D0BaDz9aDz9aDz9aDz9aDz5aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9a > Dz9aDz9aDz9aDz9aDz9aDz94Dz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9a > Dz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9a > Dz94Dz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz+BNA8/Wg8/Wg8/HsAPPLAP > P1oPP1oPP1oPP1oPP4E0Dz9aDz9aD0VaD0ZaD0eBNA9IgTQPSYFSD0laD0paD0paD0taD0ta > D0xaD01aD01aD05aD06BNA9OWg9PWg9QWg9QWg9RgTQPUoE0D1NaD1OBNA9UWg9UWg9VWg9W > gTQPV1oPV4E0D1d4D1haD1laD1laD1qBNA9bgTQPXIIOD11aD11aD15aD15aD19aD19aD2Ba > D2BaD2FaD2FaD2FaD2FaD2FaD2JaD2JaD2NaD2NaD2NaD2RaD2RaD2V4D2VaD2VaD2ZaD2Za > D2ZaD2Y8wBAesA9nWg9nWg9nWg9oWg9oWg9pWg9pWg9pWg9qWg9qWg9qWg9rWg9rWg9rWg9r > Wg9rWg9rWg9sWg9sWg9sWg9sWg9tWg9tWg9tWg9tWg9veA9vWg9wWg9wWg9wWg9wWg9wWg9w > Wg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9xWg9x > Wg9xWg9xWg9xWg9xWg9xgVIPcFoPcFoPcFoPcFoPb1oPb4IOD3ZaD3daD3haD3haD3laD3qC > Dg97Wg98gTQPf1oPfloPf4JoD3+BUsAQvAAOgaUADYHDAAyXdLAPe4E0D3taD3uDBg97Wg96 > gmgPeYE0D3haD3daD3aBNA91gTQPdIE0D3OBNA9ygTQPcVoPcVoPcIE0D2+BNA9uWg9tWg9s > Wg9rgVIPaloPaVoPaFoPZ1oPZoE0D2VaD2RaD2NaD2JaD2GBNA9gWg9fWg9eWg9dWg9cgTQP > W1oPWloPWVoPWFoPV4E0D1ZaD1VaD1RaD1OBNA9SgVIPUVoPUFoPT1oPToE0D01aD0xaD0ta > D0paD0laD0haD0daD0VaD0RaD0RaD0JaD0FaD0BaDz9aDz5aDz1aDzxaDztaDzpaDzlaDzha > DzdaDzZaDzVaDzRaDzN4DzJaDzFaDzBaDy9aDy5aDy1aDyuBNA8qWg8pWg8ngTQPJloPJVoP > H4E0DxdaDxCBNA8JgTQPCVoPB1oPBVoPBFoPAoE0DwGBNA8AhDoPAAD/LwA > > > > > On Nov 8, 2006, at 5:51 AM, Dr. Richard Boulanger wrote: > >> Jonathan, >> >> thank you for these tests and for your test instrument the other >> night. it was extremely helpful to me and bolstered my confidence in >> these opcodes and UDOs ... >> >> -dr.B. >> On Nov 8, 2006, at 5:47 AM, Jonathan Murphy wrote: >> >>> >>> Hi Folks, >>> >>> I'm pretty much certain that midiin is working properly. Here is the >>> output of a modified version of the instrument that Dr Boulanger and I >>> used the other day. Note off messages are not printed, instead note on >>> with a velocity of 0 is received. I'm not sure if this is csound or >>> the alsa sequencer. Note on, control change, pitch bend, aftertouch, >>> program change, change channels, repeat. Aftertouch and control change >>> continue to be sent on channel 1 because omni is off. aseqdump >>> (command line alsa utility) displayed the same info while running >>> simultaneously. >>> >>> J. >>> >>> SECTION 1: >>> kstatus= 144.000000, kchan = 1.000000, kdata1 = 60.000000, kdata2 = >>> 75.000000 >>> kstatus= 144.000000, kchan = 1.000000, kdata1 = 60.000000, kdata2 = >>> 0.000000 >>> kstatus= 176.000000, kchan = 1.000000, kdata1 = 101.000000, kdata2 >>> = 0.000000 >>> kstatus= 224.000000, kchan = 1.000000, kdata1 = 2.000000, kdata2 = >>> 65.000000 >>> kstatus= 224.000000, kchan = 1.000000, kdata1 = 4.000000, kdata2 = >>> 66.000000 >>> kstatus= 224.000000, kchan = 1.000000, kdata1 = 8.000000, kdata2 = >>> 68.000000 >>> kstatus= 224.000000, kchan = 1.000000, kdata1 = 4.000000, kdata2 = >>> 66.000000 >>> kstatus= 224.000000, kchan = 1.000000, kdata1 = 0.000000, kdata2 = >>> 64.000000 >>> kstatus= 208.000000, kchan = 1.000000, kdata1 = 52.000000, kdata2 = >>> 0.000000 >>> kstatus= 208.000000, kchan = 1.000000, kdata1 = 54.000000, kdata2 = >>> 0.000000 >>> kstatus= 208.000000, kchan = 1.000000, kdata1 = 56.000000, kdata2 = >>> 0.000000 >>> kstatus= 208.000000, kchan = 1.000000, kdata1 = 58.000000, kdata2 = >>> 0.000000 >>> kstatus= 208.000000, kchan = 1.000000, kdata1 = 59.000000, kdata2 = >>> 0.000000 >>> kstatus= 208.000000, kchan = 1.000000, kdata1 = 61.000000, kdata2 = >>> 0.000000 >>> midi channel 1 now using instr 1 >>> kstatus= 192.000000, kchan = 1.000000, kdata1 = 9.000000, kdata2 = >>> 0.000000 >>> kstatus= 144.000000, kchan = 9.000000, kdata1 = 60.000000, kdata2 = >>> 80.000000 >>> kstatus= 144.000000, kchan = 9.000000, kdata1 = 60.000000, kdata2 = >>> 0.000000 >>> kstatus= 176.000000, kchan = 1.000000, kdata1 = 101.000000, kdata2 >>> = 127.000000 >>> kstatus= 176.000000, kchan = 1.000000, kdata1 = 35.000000, kdata2 = >>> 50.000000 >>> kstatus= 176.000000, kchan = 1.000000, kdata1 = 35.000000, kdata2 = >>> 51.000000 >>> kstatus= 176.000000, kchan = 1.000000, kdata1 = 35.000000, kdata2 = >>> 52.000000 >>> kstatus= 224.000000, kchan = 9.000000, kdata1 = 2.000000, kdata2 = >>> 65.000000 >>> kstatus= 224.000000, kchan = 9.000000, kdata1 = 4.000000, kdata2 = >>> 66.000000 >>> kstatus= 224.000000, kchan = 9.000000, kdata1 = 8.000000, kdata2 = >>> 68.000000 >>> kstatus= 224.000000, kchan = 9.000000, kdata1 = 10.000000, kdata2 = >>> 69.000000 >>> kstatus= 224.000000, kchan = 9.000000, kdata1 = 6.000000, kdata2 = >>> 67.000000 >>> kstatus= 224.000000, kchan = 9.000000, kdata1 = 0.000000, kdata2 = >>> 64.000000 >>> kstatus= 208.000000, kchan = 1.000000, kdata1 = 60.000000, kdata2 = >>> 0.000000 >>> kstatus= 208.000000, kchan = 1.000000, kdata1 = 59.000000, kdata2 = >>> 0.000000 >>> kstatus= 208.000000, kchan = 1.000000, kdata1 = 58.000000, kdata2 = >>> 0.000000 >>> kstatus= 208.000000, kchan = 1.000000, kdata1 = 57.000000, kdata2 = >>> 0.000000 >>> >>> >>> >>> using it >>> "Dr. Richard Boulanger" writes: >>> >>>> You should ABSOLUTELY NOT delay this release because of David's >>>> problem with midiin - I think that his problem might be with diskin2 >>>> and not midiin - also, there are some complicated things going on in >>>> David's design that might also account for his midiin issues.... >>>> >>>> As I reported earlier, I am not sure that his pgmin UDO is working >>>> 100% correctly. >>>> >>>> If David would share his orchestra with us, you might be able to >>>> better chase down his midiin and >>>> diskin2 issues >>>> >>>> Also, for your testing purposes, you might want to check the MIDI >>>> stuff I posted the other night... All you need is there to run your >>>> tests - I use midiin and David's pgmin UDO. >>>> >>>> http://csounds.com/olpc/gmSoundFontPlayer.zip >>>> >>>> Dr. B. >>>> >>>> On Nov 8, 2006, at 4:53 AM, Dr. Richard Boulanger wrote: >>>> >>>>> David, >>>>> >>>>> The midiin opcode was NOT working correctly back then. I am not >>>>> sure >>>>> that it is working correctly even now, but I can assure you that it >>>>> was not working correctly back then. It is better now, and I am >>>>> able >>>>> to use it for the current release of the BETA1-Demo package for the >>>>> One Laptop Per Child Computer Systems - OLPC, but... it definitely >>>>> still needs some serious testing and looking into. >>>>> >>>>> In fact, the reason that Istvan's General MIDI fluid instrument does >>>>> work correctly is because he uses the raw messages to: play the >>>>> notes, read the program changes, and read the controllers. He >>>>> essentially turns off all of Csound's MIDI and then maps it directly >>>>> from there. >>>>> >>>>> -dr.B. >>>>> >>>>> On Nov 8, 2006, at 4:08 AM, David Akbari wrote: >>>>> >>>>>> Hi Developers, >>>>>> >>>>>> Can anyone provide some more information on what was changed since >>>>>> June >>>>>> 18 2006 in the midiin opcode? >>>>>> >>>>>> In June I spent a lot of time and made a few demos using a MIDI >>>>>> file to >>>>>> drive performance and using program change messages to trigger >>>>>> samples. >>>>>> It works with a version of Csound5 compiled on June 18 2006. It >>>>>> does >>>>>> not work on the current CVS version. Does this qualify as breaking >>>>>> backwards compatibility? I'd really rather not go through the >>>>>> trouble >>>>>> of chasing changes since I have no idea what would've been changed >>>>>> since the file DOES work on a recent version (compiled from CVS >>>>>> since >>>>>> the last release). >>>>>> >>>>>> How can this be fixed? What was changed in midiin? >>>>>> >>>>>> Here's the files so you can see for yourself >>>>>> >>>>>> http://csounds.com/olpc/Archive.zip >>>>>> >>>>>> >>>>>> -David >>>>>> >>>>>> >>>>>> ------------------------------------------------------------------- >>>>>> -- >>>>>> - >>>>>> --- >>>>>> Using Tomcat but need to do more? Need to support web services, >>>>>> security? >>>>>> Get stuff done quickly with pre-integrated technology to make your >>>>>> job easier >>>>>> Download IBM WebSphere Application Server v.1.0.1 based on Apache >>>>>> Geronimo >>>>>> http://sel.as-us.falkag.net/sel? >>>>>> cmd=lnk&kid=120709&bid=263057&dat=121642 >>>>>> _______________________________________________ >>>>>> Csound-devel mailing list >>>>>> Csound-devel@lists.sourceforge.net >>>>>> https://lists.sourceforge.net/lists/listinfo/csound-devel >>>>> >>>>> >>>>> -------------------------------------------------------------------- >>>>> -- >>>>> --- >>>>> Using Tomcat but need to do more? Need to support web services, >>>>> security? >>>>> Get stuff done quickly with pre-integrated technology to make your >>>>> job easier >>>>> Download IBM WebSphere Application Server v.1.0.1 based on Apache >>>>> Geronimo >>>>> http://sel.as-us.falkag.net/sel? >>>>> cmd=lnk&kid=120709&bid=263057&dat=121642 >>>>> _______________________________________________ >>>>> Csound-devel mailing list >>>>> Csound-devel@lists.sourceforge.net >>>>> https://lists.sourceforge.net/lists/listinfo/csound-devel >>>> >>>> >>>> --------------------------------------------------------------------- >>>> ---- >>>> Using Tomcat but need to do more? Need to support web services, >>>> security? >>>> Get stuff done quickly with pre-integrated technology to make your >>>> job easier >>>> Download IBM WebSphere Application Server v.1.0.1 based on Apache >>>> Geronimo >>>> http://sel.as-us.falkag.net/sel? >>>> cmd=lnk&kid=120709&bid=263057&dat=121642 >>>> _______________________________________________ >>>> Csound-devel mailing list >>>> Csound-devel@lists.sourceforge.net >>>> https://lists.sourceforge.net/lists/listinfo/csound-devel >>> >>> ---------------------------------------------------------------------- >>> --- >>> Using Tomcat but need to do more? Need to support web services, >>> security? >>> Get stuff done quickly with pre-integrated technology to make your >>> job easier >>> Download IBM WebSphere Application Server v.1.0.1 based on Apache >>> Geronimo >>> http://sel.as-us.falkag.net/sel? >>> cmd=lnk&kid=120709&bid=263057&dat=121642 >>> _______________________________________________ >>> Csound-devel mailing list >>> Csound-devel@lists.sourceforge.net >>> https://lists.sourceforge.net/lists/listinfo/csound-devel >> >> >> ----------------------------------------------------------------------- >> -- >> Using Tomcat but need to do more? Need to support web services, >> security? >> Get stuff done quickly with pre-integrated technology to make your job >> easier >> Download IBM WebSphere Application Server v.1.0.1 based on Apache >> Geronimo >> http://sel.as-us.falkag.net/sel? >> cmd=lnk&kid=120709&bid=263057&dat=121642 >> _______________________________________________ >> Csound-devel mailing list >> Csound-devel@lists.sourceforge.net >> https://lists.sourceforge.net/lists/listinfo/csound-devel >> > > > ------------------------------------------------------------------------- > Using Tomcat but need to do more? Need to support web services, security? > Get stuff done quickly with pre-integrated technology to make your job easier > Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo > http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642 > _______________________________________________ > Csound-devel mailing list > Csound-devel@lists.sourceforge.net > https://lists.sourceforge.net/lists/listinfo/csound-devel ------------------------------------------------------------------------- Using Tomcat but need to do more? Need to support web services, security? Get stuff done quickly with pre-integrated technology to make your job easier Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642 _______________________________________________ Csound-devel mailing list Csound-devel@lists.sourceforge.net

Date	2006-11-09 05:22
From	David Akbari
Subject	Re: [Cs-dev] midiin changes??
	Hi John, Thanks for looking into this! I tried your fix, but I still get the same errors SECTION 1: PERF ERROR in instr 2: diskin2: not initialised al diskin2 "tt03.aif" 1 iskip 1 0 0 0 0 note aborted PERF ERROR in instr 5: diskin2: not initialised al diskin2 "tt04.aif" 1 iskip 1 0 0 0 0 note aborted So that a piece that once worked with Csound, now does not work I've been trying to figure this out all day and cannot find a solution that works without changing the audio output. I look at the .csd source code and think to myself "man, this should work" and in fact it DOES work[3] The links again (since the original was deleted) can be found here. This might be useful since with this csound source code and samples I can accurately and consistently replicate the above errors on both OSX and Linux. [1] http://www.csounds.com/akbari/akbari_OLPC.zip [2] http://www.csounds.com/akbari/akbari_OLPC2.zip I have also created an archive of the sources which the above examples DO work with at this URL [3] http://www.csounds.com/akbari/2006-jun18-csound5.tar.gz I believe this issue is very serious but I DO NOT in any way advocate holding up the release for this. Development is not a black and white process and things happen all the time. However I would appreciate at least a hypothesis as to why this piece of music works with the above Csound sources but not with the current CVS (and up-and-coming release.) Because all this time making music with Csound I thought this was the "primary objective", to not make changes to the sources that prevent pieces of music that were written for Csound from working in the future. I'm not sure exactly what the changes could be (established that it's likely not midiin) which makes it even more difficult to fix. -David On Nov 8, 2006, at 10:33 AM, Jonathan Murphy wrote: > > Sorry! Missed it down there. These were the changes that get rid of > the error message. I guess that you were turning it off before it had > started. > > J. > > > if (kpgm == 1) then > ; turnoff2 2, 0, 0 > event "i", 2, 0, ilen1-(ilen1/2), 0.1 > gkcb01 = 1 > gkcb02 = 0 > gkcb03 = 0 > gkcb04 = 0 > else > endif > > if (kpgm == 2) then > ; turnoff2 2, 0, 0 > event "i", 2, 0, ilen1-(ilen1/2), ilen1/4 > gkcb01 = 0 > gkcb02 = 1 > gkcb03 = 0 > gkcb04 = 0 > > > > > > > David Akbari writes: > >> Ok, so that's good that midiin and pgmin are working correctly. Here's >> the thing then, why does this instrument get an "error diskin2 not >> initialized" only in the instruments where the iskip parameter is 0? >> Why didn't this fail before? (substitute sound files for files in >> header) >> >> >> >> ; macintosh >> -odac -iadc -d -m0 -+rtaudio=CoreAudio -+rtmidi=null -Fdrivinit.mid -T >> -K >> ; >> ; linux >> ;-odac -iadc -d -m0 -b1024 -B16384 -+rtaudio=alsa -Fbreakinit.mid -T >> -K >> >> >> sr = 44100 >> kr = 100 >> ksmps = 441 >> nchnls = 2 >> pgmassign -1, -1 >> massign 1, 1 >> >> gkphos01 init 0 >> gkphos02 init 0 >> gkphos03 init 0 >> gkphos04 init 0 >> gkcb01 init 0 >> gkcb02 init 0 >> gkcb03 init 0 >> gkcb04 init 0 >> gkcb05 init 0 >> gkcb06 init 0 >> gkcb07 init 0 >> gkcb08 init 0 >> gkcb09 init 0 >> gkcb10 init 0 >> gkcb11 init 0 >> gkcb12 init 0 >> gkcb13 init 0 >> gkcb14 init 0 >> gkcb15 init 0 >> gkcb16 init 0 >> gkvol1 init 0 >> gkvol2 init 0 >> gkvol3 init 0 >> gkvol4 init 0 >> gksl01 init 0 >> gksl02 init 0 >> gksl03 init 0 >> gksl04 init 0 >> gkled01 init 0 >> gkled02 init 0 >> >> /* sound files / >> / >> #define SFILE01 # "a2rinse8" # >> #define SFILE02 # "aslide16" # >> #define SFILE03 # "bslide16" # >> #define SFILE04 # "slidebass16" # >> / >> / sound files / >> #define SFILE01 # "tt03.aif" # >> #define SFILE02 # "tt03-01.aif" # >> #define SFILE03 # "tt03-03.aif" # >> #define SFILE04 # "tt04.aif" # >> >> / MIDI CC numbers for volume sliders / >> #define SLIDER1 #1# >> #define SLIDER2 #2# >> #define SLIDER3 #6# >> #define SLIDER4 #7# >> >> ctrlinit 1, $SLIDER1, 111, $SLIDER2, 127, $SLIDER3, 64, $SLIDER4, 111 >> >> ;// >> opcode pgmin, kk, 0 >> >> kstatus, kchan, kdata1, kdata2 midiin >> >> if (kstatus == 192 && kchan == 1) then >> kpgm = kdata1 >> else >> endif >> >> xout kpgm, kchan >> >> endop >> ;// >> opcode sanskey, kk, 0 >> >> keyin sensekey >> >> if (keyin == -1) then >> else >> kkey_num = keyin >> endif >> >> ktrig = (keyin >= 0 ? 1 : 0) >> >> xout kkey_num, ktrig >> >> endop >> ;// >> opcode LogCurve, k, kk >> >> kfloat, ksteep xin >> >> if (ksteep > 1) then >> ksteep = ksteep >> elseif (ksteep < 1) then >> ksteep = 1.00001 >> endif >> >> kout = (log(kfloat (ksteep-1)+1)/log(ksteep)) >> >> xout kout >> >> endop >> ;// >> /--- ---/ >> >> instr 1 >> >> ilen1 filelen $SFILE01 >> ilen2 filelen $SFILE02 >> ilen3 filelen $SFILE03 >> ilen4 filelen $SFILE04 >> >> >> kpgm, kchan pgmin >> key, kbang sanskey >> >> kvol1 ctrl7 1, $SLIDER1, 0, 1 >> kvol2 ctrl7 1, $SLIDER2, 0, 1 >> kvol3 ctrl7 1, $SLIDER3, 0, 1 >> kvol4 ctrl7 1, $SLIDER4, 0, 1 >> >> gkvol1 LogCurve kvol1, 1.00001 >> gkvol2 LogCurve kvol2, 1.00001 >> gkvol3 LogCurve kvol3, 1.00001 >> gkvol4 LogCurve kvol4, 1.00001 >> >> gksl01 = gkvol1 >> gksl02 = gkvol2 >> gksl03 = gkvol3 >> gksl04 = gkvol4 >> /* >> if (kbang == 1 && key == 32) then >> turnoff2 2, 0, 1 >> turnoff2 3, 0, 1 >> turnoff2 4, 0, 1 >> else >> endif >> / >> kpg changed kpgm >> >> if (kpg != 1) kgoto cont >> >> if (kpgm == 1) then >> turnoff2 2, 0, 0 >> event "i", 2, 0, ilen1-(ilen1/2), 0.1 >> gkcb01 = 1 >> gkcb02 = 0 >> gkcb03 = 0 >> gkcb04 = 0 >> elseif (kpgm == 2) then >> turnoff2 2, 0, 0 >> event "i", 2, 0, ilen1-(ilen1/2), ilen1/4 >> gkcb01 = 0 >> gkcb02 = 1 >> gkcb03 = 0 >> gkcb04 = 0 >> elseif (kpgm == 3) then >> turnoff2 2, 0, 0 >> event "i", 2, 0, ilen1-(ilen1/2), ilen1/2 >> gkcb01 = 0 >> gkcb02 = 0 >> gkcb03 = 1 >> gkcb04 = 0 >> elseif (kpgm == 4) then >> turnoff2 2, 0, 0 >> event "i", 2, 0, ilen1-(ilen1/2), ((ilen1/4)+(ilen1/2)) >> gkcb01 = 0 >> gkcb02 = 0 >> gkcb03 = 0 >> gkcb04 = 1 >> else >> endif >> >> if (kpgm == 5) then >> turnoff2 3, 0, 0 >> event "i", 3, 0, ilen2-(ilen2/2), 0.1 >> gkcb05 = 1 >> gkcb06 = 0 >> gkcb07 = 0 >> gkcb08 = 0 >> elseif (kpgm == 6) then >> turnoff2 3, 0, 0 >> event "i", 3, 0, ilen2-(ilen2/2), ilen2/4 >> gkcb05 = 0 >> gkcb06 = 1 >> gkcb07 = 0 >> gkcb08 = 0 >> elseif (kpgm == 7) then >> turnoff2 3, 0, 0 >> event "i", 3, 0, ilen2-(ilen2/2), ilen2/2 >> gkcb05 = 0 >> gkcb06 = 0 >> gkcb07 = 1 >> gkcb08 = 0 >> elseif (kpgm == 8) then >> turnoff2 3, 0, 0 >> event "i", 3, 0, ilen2-(ilen2/2), ((ilen2/4)+(ilen2/2)) >> gkcb05 = 0 >> gkcb06 = 0 >> gkcb07 = 0 >> gkcb08 = 1 >> else >> endif >> >> if (kpgm == 9) then >> turnoff2 4, 0, 0 >> event "i", 4, 0, ilen3-(ilen3/2), 0 >> gkcb09 = 1 >> gkcb10 = 0 >> gkcb11 = 0 >> gkcb12 = 0 >> elseif (kpgm == 10) then >> turnoff2 4, 0, 0 >> event "i", 4, 0, ilen3-(ilen3/2), ilen3/4 >> gkcb09 = 0 >> gkcb10 = 1 >> gkcb11 = 0 >> gkcb12 = 0 >> elseif (kpgm == 11) then >> turnoff2 4, 0, 0 >> event "i", 4, 0, ilen3-(ilen3/2), ilen3/2 >> gkcb09 = 0 >> gkcb10 = 0 >> gkcb11 = 1 >> gkcb12 = 0 >> elseif (kpgm == 12) then >> turnoff2 4, 0, 0 >> event "i", 4, 0, ilen3-(ilen3/2), ((ilen3/4)+(ilen3/2)) >> gkcb09 = 0 >> gkcb10 = 0 >> gkcb11 = 0 >> gkcb12 = 1 >> else >> endif >> >> if (kpgm == 13) then >> turnoff2 5, 0, 0 >> event "i", 5, 0, ilen4-(ilen4/2), 0 >> gkcb13 = 1 >> gkcb14 = 0 >> gkcb15 = 0 >> gkcb16 = 0 >> elseif (kpgm == 14) then >> turnoff2 5, 0, 0 >> event "i", 5, 0, ilen4-(ilen4/2), ilen4/4 >> gkcb13 = 0 >> gkcb14 = 1 >> gkcb15 = 0 >> gkcb16 = 0 >> elseif (kpgm == 15) then >> turnoff2 5, 0, 0 >> event "i", 5, 0, ilen4-(ilen4/2), ilen4/2 >> gkcb13 = 0 >> gkcb14 = 0 >> gkcb15 = 1 >> gkcb16 = 0 >> elseif (kpgm == 16) then >> turnoff2 5, 0, 0 >> event "i", 5, 0, ilen4-(ilen4/2), ((ilen4/4)+(ilen4/2)) >> gkcb13 = 0 >> gkcb14 = 0 >> gkcb15 = 0 >> gkcb16 = 1 >> else >> endif >> >> kpgm = 0 >> kpg = 0 >> >> cont: >> >> endin >> >> /--- ---/ >> >> instr 2 >> >> iskip = p4 >> ichnls filenchnls $SFILE01 >> ilen filelen $SFILE01 >> >> kpos phasor (1/ilen) >> kpos = (kpos0.25)+(iskip/ilen) >> gkphos01 = kpos >> >> if (ichnls == 1) then >> >> al diskin2 $SFILE01, 1, 0, 1 >> ar = al >> >> elseif (ichnls == 2) then >> >> al, ar diskin2 $SFILE01, 1, iskip, 1 >> >> else >> endif >> >> >> al = al * gkvol1 >> ar = ar * gkvol1 >> >> >> al clip al, 0, 32767 >> ar clip ar, 0, 32767 >> outs al, ar >> >> endin >> >> /--- ---/ >> >> instr 3 >> >> iskip = p4 >> ichnls filenchnls $SFILE02 >> ilen filelen $SFILE02 >> >> kpos phasor (1/ilen) >> kpos = (kpos0.25)+(iskip/ilen) >> gkphos02 = kpos >> >> if (ichnls == 1) then >> >> al diskin2 $SFILE02, 1, iskip, 1 >> ar = al >> >> elseif (ichnls == 2) then >> >> al, ar diskin2 $SFILE02, 1, iskip, 1 >> >> else >> endif >> >> al = al gkvol2 >> ar = ar * gkvol2 >> >> >> al clip al, 0, 32767 >> ar clip ar, 0, 32767 >> outs al, ar >> >> endin >> >> /--- ---/ >> >> instr 4 >> >> iskip = p4 >> ichnls filenchnls $SFILE03 >> ilen filelen $SFILE03 >> >> kpos phasor (1/ilen) >> kpos = (kpos0.25)+(iskip/ilen) >> gkphos03 = kpos >> >> if (ichnls == 1) then >> >> al diskin2 $SFILE03, 1, iskip, 1 >> ar = al >> >> elseif (ichnls == 2) then >> >> al, ar diskin2 $SFILE03, 1, iskip, 1 >> >> else >> endif >> >> al = al gkvol3 >> ar = ar * gkvol3 >> >> >> al clip al, 0, 32767 >> ar clip ar, 0, 32767 >> outs al, ar >> >> endin >> >> /--- ---/ >> >> instr 5 >> >> iskip = p4 >> ichnls filenchnls $SFILE04 >> ilen filelen $SFILE04 >> >> kpos phasor (1/ilen) >> kpos = (kpos0.25)+(iskip/ilen) >> gkphos04 = kpos >> >> if (ichnls == 1) then >> >> al diskin2 $SFILE04, 1, iskip, 1 >> ar = al >> >> elseif (ichnls == 2) then >> >> al, ar diskin2 $SFILE04, 1, iskip, 1 >> >> else >> endif >> >> >> al = al gkvol4 >> ar = ar * gkvol4 >> >> >> al clip al, 0, 32767 >> ar clip ar, 0, 32767 >> outs al, ar >> >> endin >> >> >> >> /--- ---/ >> >> >> >> i1 0 1000 >> >> ;i255 0 1000 >> >> e >> >> >> TVRoZAAAAAYAAAABAeBNVHJrAAAFkgD/AwZUeXBlIDAA/ >> 1EDBbjYAP9YBAQCGAgAwAG8AAG8 >> AAKperAPfYIOD31aD31aD35aD3paD3paD3paD3paD3paD3paD3paD3laD3haD3haD3haD3 >> da >> D3daD3ZaD3ZaD3VaD3V4D3VaD3RaD3MewA08sA9yWg9yWg9xWg9wWg9vWg9vWg9uWg9uWg >> 9t >> Wg9sWg9rWg9rWg9rWg9qWg9pWg9oWg9oWg9nWg9mWg9lWg9lWg9kWg9jWg9iWg9hWg9hWg >> 9h >> Wg9eeA9eWg9eWg9eWg9dWg9cWg9cWg9cWg9cWg9bWg9bWg9bWg9aWg9aWg9aWg9ZWg9ZWg >> 9Y >> Wg9YWg9YWg9XWg9XWg9XWg9XWg9WWg9WWg9VWg9UWg9UWg9TWg9TWg9TWg9SeA9RWg9RWg >> 9Q >> Wg9PWg9OWg9OWg9OWg9NWg9MWg9MWg9MWg9LWg9KWg9JWg9JWg9JWg9JWg9IWg9IWg9HWg >> 9H >> Wg9GWg9GWg9FWsAOALAPRVoPRFoPRFoPRIE0D0RaD0N4D0NaD0JaD0JaD0FaD0FaD0FaD0 >> Ba >> D0BaDz9aDz9aDz9aDz9aDz5aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz >> 9a >> Dz9aDz9aDz9aDz9aDz9aDz94Dz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz >> 9a >> Dz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz >> 9a >> Dz94Dz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz+BNA8/Wg8/Wg8/ >> HsAPPLAP >> P1oPP1oPP1oPP1oPP4E0Dz9aDz9aD0VaD0ZaD0eBNA9IgTQPSYFSD0laD0paD0paD0taD0 >> ta >> D0xaD01aD01aD05aD06BNA9OWg9PWg9QWg9QWg9RgTQPUoE0D1NaD1OBNA9UWg9UWg9VWg >> 9W >> gTQPV1oPV4E0D1d4D1haD1laD1laD1qBNA9bgTQPXIIOD11aD11aD15aD15aD19aD19aD2 >> Ba >> D2BaD2FaD2FaD2FaD2FaD2FaD2JaD2JaD2NaD2NaD2NaD2RaD2RaD2V4D2VaD2VaD2ZaD2 >> Za >> D2ZaD2Y8wBAesA9nWg9nWg9nWg9oWg9oWg9pWg9pWg9pWg9qWg9qWg9qWg9rWg9rWg9rWg >> 9r >> Wg9rWg9rWg9sWg9sWg9sWg9sWg9tWg9tWg9tWg9tWg9veA9vWg9wWg9wWg9wWg9wWg9wWg >> 9w >> Wg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9xWg >> 9x >> Wg9xWg9xWg9xWg9xWg9xgVIPcFoPcFoPcFoPcFoPb1oPb4IOD3ZaD3daD3haD3haD3laD3 >> qC >> Dg97Wg98gTQPf1oPfloPf4JoD3+BUsAQvAAOgaUADYHDAAyXdLAPe4E0D3taD3uDBg97Wg >> 96 >> gmgPeYE0D3haD3daD3aBNA91gTQPdIE0D3OBNA9ygTQPcVoPcVoPcIE0D2+BNA9uWg9tWg >> 9s >> Wg9rgVIPaloPaVoPaFoPZ1oPZoE0D2VaD2RaD2NaD2JaD2GBNA9gWg9fWg9eWg9dWg9cgT >> QP >> W1oPWloPWVoPWFoPV4E0D1ZaD1VaD1RaD1OBNA9SgVIPUVoPUFoPT1oPToE0D01aD0xaD0 >> ta >> D0paD0laD0haD0daD0VaD0RaD0RaD0JaD0FaD0BaDz9aDz5aDz1aDzxaDztaDzpaDzlaDz >> ha >> DzdaDzZaDzVaDzRaDzN4DzJaDzFaDzBaDy9aDy5aDy1aDyuBNA8qWg8pWg8ngTQPJloPJV >> oP >> H4E0DxdaDxCBNA8JgTQPCVoPB1oPBVoPBFoPAoE0DwGBNA8AhDoPAAD/LwA >> >> >> >> >> On Nov 8, 2006, at 5:51 AM, Dr. Richard Boulanger wrote: >> >>> Jonathan, >>> >>> thank you for these tests and for your test instrument the other >>> night. it was extremely helpful to me and bolstered my confidence in >>> these opcodes and UDOs ... >>> >>> -dr.B. >>> On Nov 8, 2006, at 5:47 AM, Jonathan Murphy wrote: >>> >>>> >>>> Hi Folks, >>>> >>>> I'm pretty much certain that midiin is working properly. Here is the >>>> output of a modified version of the instrument that Dr Boulanger >>>> and I >>>> used the other day. Note off messages are not printed, instead note >>>> on >>>> with a velocity of 0 is received. I'm not sure if this is csound or >>>> the alsa sequencer. Note on, control change, pitch bend, aftertouch, >>>> program change, change channels, repeat. Aftertouch and control >>>> change >>>> continue to be sent on channel 1 because omni is off. aseqdump >>>> (command line alsa utility) displayed the same info while running >>>> simultaneously. >>>> >>>> J. >>>> >>>> SECTION 1: >>>> kstatus= 144.000000, kchan = 1.000000, kdata1 = 60.000000, kdata2 = >>>> 75.000000 >>>> kstatus= 144.000000, kchan = 1.000000, kdata1 = 60.000000, kdata2 = >>>> 0.000000 >>>> kstatus= 176.000000, kchan = 1.000000, kdata1 = 101.000000, kdata2 >>>> = 0.000000 >>>> kstatus= 224.000000, kchan = 1.000000, kdata1 = 2.000000, kdata2 = >>>> 65.000000 >>>> kstatus= 224.000000, kchan = 1.000000, kdata1 = 4.000000, kdata2 = >>>> 66.000000 >>>> kstatus= 224.000000, kchan = 1.000000, kdata1 = 8.000000, kdata2 = >>>> 68.000000 >>>> kstatus= 224.000000, kchan = 1.000000, kdata1 = 4.000000, kdata2 = >>>> 66.000000 >>>> kstatus= 224.000000, kchan = 1.000000, kdata1 = 0.000000, kdata2 = >>>> 64.000000 >>>> kstatus= 208.000000, kchan = 1.000000, kdata1 = 52.000000, kdata2 = >>>> 0.000000 >>>> kstatus= 208.000000, kchan = 1.000000, kdata1 = 54.000000, kdata2 = >>>> 0.000000 >>>> kstatus= 208.000000, kchan = 1.000000, kdata1 = 56.000000, kdata2 = >>>> 0.000000 >>>> kstatus= 208.000000, kchan = 1.000000, kdata1 = 58.000000, kdata2 = >>>> 0.000000 >>>> kstatus= 208.000000, kchan = 1.000000, kdata1 = 59.000000, kdata2 = >>>> 0.000000 >>>> kstatus= 208.000000, kchan = 1.000000, kdata1 = 61.000000, kdata2 = >>>> 0.000000 >>>> midi channel 1 now using instr 1 >>>> kstatus= 192.000000, kchan = 1.000000, kdata1 = 9.000000, kdata2 = >>>> 0.000000 >>>> kstatus= 144.000000, kchan = 9.000000, kdata1 = 60.000000, kdata2 = >>>> 80.000000 >>>> kstatus= 144.000000, kchan = 9.000000, kdata1 = 60.000000, kdata2 = >>>> 0.000000 >>>> kstatus= 176.000000, kchan = 1.000000, kdata1 = 101.000000, kdata2 >>>> = 127.000000 >>>> kstatus= 176.000000, kchan = 1.000000, kdata1 = 35.000000, kdata2 = >>>> 50.000000 >>>> kstatus= 176.000000, kchan = 1.000000, kdata1 = 35.000000, kdata2 = >>>> 51.000000 >>>> kstatus= 176.000000, kchan = 1.000000, kdata1 = 35.000000, kdata2 = >>>> 52.000000 >>>> kstatus= 224.000000, kchan = 9.000000, kdata1 = 2.000000, kdata2 = >>>> 65.000000 >>>> kstatus= 224.000000, kchan = 9.000000, kdata1 = 4.000000, kdata2 = >>>> 66.000000 >>>> kstatus= 224.000000, kchan = 9.000000, kdata1 = 8.000000, kdata2 = >>>> 68.000000 >>>> kstatus= 224.000000, kchan = 9.000000, kdata1 = 10.000000, kdata2 = >>>> 69.000000 >>>> kstatus= 224.000000, kchan = 9.000000, kdata1 = 6.000000, kdata2 = >>>> 67.000000 >>>> kstatus= 224.000000, kchan = 9.000000, kdata1 = 0.000000, kdata2 = >>>> 64.000000 >>>> kstatus= 208.000000, kchan = 1.000000, kdata1 = 60.000000, kdata2 = >>>> 0.000000 >>>> kstatus= 208.000000, kchan = 1.000000, kdata1 = 59.000000, kdata2 = >>>> 0.000000 >>>> kstatus= 208.000000, kchan = 1.000000, kdata1 = 58.000000, kdata2 = >>>> 0.000000 >>>> kstatus= 208.000000, kchan = 1.000000, kdata1 = 57.000000, kdata2 = >>>> 0.000000 >>>> >>>> >>>> >>>> using it >>>> "Dr. Richard Boulanger" writes: >>>> >>>>> You should ABSOLUTELY NOT delay this release because of David's >>>>> problem with midiin - I think that his problem might be with >>>>> diskin2 >>>>> and not midiin - also, there are some complicated things going on >>>>> in >>>>> David's design that might also account for his midiin issues.... >>>>> >>>>> As I reported earlier, I am not sure that his pgmin UDO is working >>>>> 100% correctly. >>>>> >>>>> If David would share his orchestra with us, you might be able to >>>>> better chase down his midiin and >>>>> diskin2 issues >>>>> >>>>> Also, for your testing purposes, you might want to check the MIDI >>>>> stuff I posted the other night... All you need is there to run your >>>>> tests - I use midiin and David's pgmin UDO. >>>>> >>>>> http://csounds.com/olpc/gmSoundFontPlayer.zip >>>>> >>>>> Dr. B. >>>>> >>>>> On Nov 8, 2006, at 4:53 AM, Dr. Richard Boulanger wrote: >>>>> >>>>>> David, >>>>>> >>>>>> The midiin opcode was NOT working correctly back then. I am not >>>>>> sure >>>>>> that it is working correctly even now, but I can assure you that >>>>>> it >>>>>> was not working correctly back then. It is better now, and I am >>>>>> able >>>>>> to use it for the current release of the BETA1-Demo package for >>>>>> the >>>>>> One Laptop Per Child Computer Systems - OLPC, but... it >>>>>> definitely >>>>>> still needs some serious testing and looking into. >>>>>> >>>>>> In fact, the reason that Istvan's General MIDI fluid instrument >>>>>> does >>>>>> work correctly is because he uses the raw messages to: play the >>>>>> notes, read the program changes, and read the controllers. He >>>>>> essentially turns off all of Csound's MIDI and then maps it >>>>>> directly >>>>>> from there. >>>>>> >>>>>> -dr.B. >>>>>> >>>>>> On Nov 8, 2006, at 4:08 AM, David Akbari wrote: >>>>>> >>>>>>> Hi Developers, >>>>>>> >>>>>>> Can anyone provide some more information on what was changed >>>>>>> since >>>>>>> June >>>>>>> 18 2006 in the midiin opcode? >>>>>>> >>>>>>> In June I spent a lot of time and made a few demos using a MIDI >>>>>>> file to >>>>>>> drive performance and using program change messages to trigger >>>>>>> samples. >>>>>>> It works with a version of Csound5 compiled on June 18 2006. It >>>>>>> does >>>>>>> not work on the current CVS version. Does this qualify as >>>>>>> breaking >>>>>>> backwards compatibility? I'd really rather not go through the >>>>>>> trouble >>>>>>> of chasing changes since I have no idea what would've been >>>>>>> changed >>>>>>> since the file DOES work on a recent version (compiled from CVS >>>>>>> since >>>>>>> the last release). >>>>>>> >>>>>>> How can this be fixed? What was changed in midiin? >>>>>>> >>>>>>> Here's the files so you can see for yourself >>>>>>> >>>>>>> http://csounds.com/olpc/Archive.zip >>>>>>> >>>>>>> >>>>>>> -David >>>>>>> >>>>>>> >>>>>>> ----------------------------------------------------------------- >>>>>>> -- >>>>>>> -- >>>>>>> - >>>>>>> --- >>>>>>> Using Tomcat but need to do more? Need to support web services, >>>>>>> security? >>>>>>> Get stuff done quickly with pre-integrated technology to make >>>>>>> your >>>>>>> job easier >>>>>>> Download IBM WebSphere Application Server v.1.0.1 based on Apache >>>>>>> Geronimo >>>>>>> http://sel.as-us.falkag.net/sel? >>>>>>> cmd=lnk&kid=120709&bid=263057&dat=121642 >>>>>>> _______________________________________________ >>>>>>> Csound-devel mailing list >>>>>>> Csound-devel@lists.sourceforge.net >>>>>>> https://lists.sourceforge.net/lists/listinfo/csound-devel >>>>>> >>>>>> >>>>>> ------------------------------------------------------------------ >>>>>> -- >>>>>> -- >>>>>> --- >>>>>> Using Tomcat but need to do more? Need to support web services, >>>>>> security? >>>>>> Get stuff done quickly with pre-integrated technology to make your >>>>>> job easier >>>>>> Download IBM WebSphere Application Server v.1.0.1 based on Apache >>>>>> Geronimo >>>>>> http://sel.as-us.falkag.net/sel? >>>>>> cmd=lnk&kid=120709&bid=263057&dat=121642 >>>>>> _______________________________________________ >>>>>> Csound-devel mailing list >>>>>> Csound-devel@lists.sourceforge.net >>>>>> https://lists.sourceforge.net/lists/listinfo/csound-devel >>>>> >>>>> >>>>> ------------------------------------------------------------------- >>>>> -- >>>>> ---- >>>>> Using Tomcat but need to do more? Need to support web services, >>>>> security? >>>>> Get stuff done quickly with pre-integrated technology to make your >>>>> job easier >>>>> Download IBM WebSphere Application Server v.1.0.1 based on Apache >>>>> Geronimo >>>>> http://sel.as-us.falkag.net/sel? >>>>> cmd=lnk&kid=120709&bid=263057&dat=121642 >>>>> _______________________________________________ >>>>> Csound-devel mailing list >>>>> Csound-devel@lists.sourceforge.net >>>>> https://lists.sourceforge.net/lists/listinfo/csound-devel >>>> >>>> -------------------------------------------------------------------- >>>> -- >>>> --- >>>> Using Tomcat but need to do more? Need to support web services, >>>> security? >>>> Get stuff done quickly with pre-integrated technology to make your >>>> job easier >>>> Download IBM WebSphere Application Server v.1.0.1 based on Apache >>>> Geronimo >>>> http://sel.as-us.falkag.net/sel? >>>> cmd=lnk&kid=120709&bid=263057&dat=121642 >>>> _______________________________________________ >>>> Csound-devel mailing list >>>> Csound-devel@lists.sourceforge.net >>>> https://lists.sourceforge.net/lists/listinfo/csound-devel >>> >>> >>> --------------------------------------------------------------------- >>> -- >>> -- >>> Using Tomcat but need to do more? Need to support web services, >>> security? >>> Get stuff done quickly with pre-integrated technology to make your >>> job >>> easier >>> Download IBM WebSphere Application Server v.1.0.1 based on Apache >>> Geronimo >>> http://sel.as-us.falkag.net/sel? >>> cmd=lnk&kid=120709&bid=263057&dat=121642 >>> _______________________________________________ >>> Csound-devel mailing list >>> Csound-devel@lists.sourceforge.net >>> https://lists.sourceforge.net/lists/listinfo/csound-devel >>> >> >> >> ---------------------------------------------------------------------- >> --- >> Using Tomcat but need to do more? Need to support web services, >> security? >> Get stuff done quickly with pre-integrated technology to make your >> job easier >> Download IBM WebSphere Application Server v.1.0.1 based on Apache >> Geronimo >> http://sel.as-us.falkag.net/sel? >> cmd=lnk&kid=120709&bid=263057&dat=121642 >> _______________________________________________ >> Csound-devel mailing list >> Csound-devel@lists.sourceforge.net >> https://lists.sourceforge.net/lists/listinfo/csound-devel > > ----------------------------------------------------------------------- > -- > Using Tomcat but need to do more? Need to support web services, > security? > Get stuff done quickly with pre-integrated technology to make your job > easier > Download IBM WebSphere Application Server v.1.0.1 based on Apache > Geronimo > http://sel.as-us.falkag.net/sel? > cmd=lnk&kid=120709&bid=263057&dat=121642 > _______________________________________________ > Csound-devel mailing list > Csound-devel@lists.sourceforge.net > https://lists.sourceforge.net/lists/listinfo/csound-devel > ------------------------------------------------------------------------- Using Tomcat but need to do more? Need to support web services, security? Get stuff done quickly with pre-integrated technology to make your job easier Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642 _______________________________________________ Csound-devel mailing list Csound-devel@lists.sourceforge.net

Date	2006-11-09 05:40
From	David Akbari
Subject	Re: [Cs-dev] midiin changes??
	To be more specific about what happens, I commented out all instances of turnoff2, which gets rid of all errors, but the audio output is drastically different from what was originally intended. I suppose it could be accomplished with maxalloc, but I can't get it to sound the same after extensive testing. I also tried commenting out the turnoff2 in just the parts where it allocates instr's 2 and 5 but that just keeps on with the two errors. -David On Nov 8, 2006, at 11:22 PM, David Akbari wrote: > Hi John, > > Thanks for looking into this! I tried your fix, but I still get the > same errors > > SECTION 1: > PERF ERROR in instr 2: diskin2: not initialised > al diskin2 "tt03.aif" 1 iskip 1 0 0 > 0 0 > note aborted > PERF ERROR in instr 5: diskin2: not initialised > al diskin2 "tt04.aif" 1 iskip 1 0 0 > 0 0 > note aborted > > So that a piece that once worked with Csound, now does not work > > I've been trying to figure this out all day and cannot find a solution > that works without changing the audio output. I look at the .csd > source code and think to myself "man, this should work" and in fact it > DOES work[3] > > The links again (since the original was deleted) can be found here. > This might be useful since with this csound source code and samples I > can accurately and consistently replicate the above errors on both OSX > and Linux. > > [1] http://www.csounds.com/akbari/akbari_OLPC.zip > [2] http://www.csounds.com/akbari/akbari_OLPC2.zip > > I have also created an archive of the sources which the above examples > DO work with at this URL > > [3] http://www.csounds.com/akbari/2006-jun18-csound5.tar.gz > > I believe this issue is very serious but I DO NOT in any way advocate > holding up the release for this. Development is not a black and white > process and things happen all the time. However I would appreciate at > least a hypothesis as to why this piece of music works with the above > Csound sources but not with the current CVS (and up-and-coming > release.) Because all this time making music with Csound I thought > this was the "primary objective", to not make changes to the sources > that prevent pieces of music that were written for Csound from working > in the future. I'm not sure exactly what the changes could be > (established that it's likely not midiin) which makes it even more > difficult to fix. > > > > -David > > On Nov 8, 2006, at 10:33 AM, Jonathan Murphy wrote: > >> >> Sorry! Missed it down there. These were the changes that get rid of >> the error message. I guess that you were turning it off before it had >> started. >> >> J. >> >> >> if (kpgm == 1) then >> ; turnoff2 2, 0, 0 >> event "i", 2, 0, ilen1-(ilen1/2), 0.1 >> gkcb01 = 1 >> gkcb02 = 0 >> gkcb03 = 0 >> gkcb04 = 0 >> else >> endif >> >> if (kpgm == 2) then >> ; turnoff2 2, 0, 0 >> event "i", 2, 0, ilen1-(ilen1/2), ilen1/4 >> gkcb01 = 0 >> gkcb02 = 1 >> gkcb03 = 0 >> gkcb04 = 0 >> >> >> >> >> >> >> David Akbari writes: >> >>> Ok, so that's good that midiin and pgmin are working correctly. >>> Here's >>> the thing then, why does this instrument get an "error diskin2 not >>> initialized" only in the instruments where the iskip parameter is 0? >>> Why didn't this fail before? (substitute sound files for files in >>> header) >>> >>> >>> >>> ; macintosh >>> -odac -iadc -d -m0 -+rtaudio=CoreAudio -+rtmidi=null -Fdrivinit.mid >>> -T >>> -K >>> ; >>> ; linux >>> ;-odac -iadc -d -m0 -b1024 -B16384 -+rtaudio=alsa -Fbreakinit.mid -T >>> -K >>> >>> >>> sr = 44100 >>> kr = 100 >>> ksmps = 441 >>> nchnls = 2 >>> pgmassign -1, -1 >>> massign 1, 1 >>> >>> gkphos01 init 0 >>> gkphos02 init 0 >>> gkphos03 init 0 >>> gkphos04 init 0 >>> gkcb01 init 0 >>> gkcb02 init 0 >>> gkcb03 init 0 >>> gkcb04 init 0 >>> gkcb05 init 0 >>> gkcb06 init 0 >>> gkcb07 init 0 >>> gkcb08 init 0 >>> gkcb09 init 0 >>> gkcb10 init 0 >>> gkcb11 init 0 >>> gkcb12 init 0 >>> gkcb13 init 0 >>> gkcb14 init 0 >>> gkcb15 init 0 >>> gkcb16 init 0 >>> gkvol1 init 0 >>> gkvol2 init 0 >>> gkvol3 init 0 >>> gkvol4 init 0 >>> gksl01 init 0 >>> gksl02 init 0 >>> gksl03 init 0 >>> gksl04 init 0 >>> gkled01 init 0 >>> gkled02 init 0 >>> >>> /* sound files / >>> / >>> #define SFILE01 # "a2rinse8" # >>> #define SFILE02 # "aslide16" # >>> #define SFILE03 # "bslide16" # >>> #define SFILE04 # "slidebass16" # >>> / >>> / sound files / >>> #define SFILE01 # "tt03.aif" # >>> #define SFILE02 # "tt03-01.aif" # >>> #define SFILE03 # "tt03-03.aif" # >>> #define SFILE04 # "tt04.aif" # >>> >>> / MIDI CC numbers for volume sliders / >>> #define SLIDER1 #1# >>> #define SLIDER2 #2# >>> #define SLIDER3 #6# >>> #define SLIDER4 #7# >>> >>> ctrlinit 1, $SLIDER1, 111, $SLIDER2, 127, $SLIDER3, 64, $SLIDER4, >>> 111 >>> >>> ;// >>> opcode pgmin, kk, 0 >>> >>> kstatus, kchan, kdata1, kdata2 midiin >>> >>> if (kstatus == 192 && kchan == 1) then >>> kpgm = kdata1 >>> else >>> endif >>> >>> xout kpgm, kchan >>> >>> endop >>> ;// >>> opcode sanskey, kk, 0 >>> >>> keyin sensekey >>> >>> if (keyin == -1) then >>> else >>> kkey_num = keyin >>> endif >>> >>> ktrig = (keyin >= 0 ? 1 : 0) >>> >>> xout kkey_num, ktrig >>> >>> endop >>> ;// >>> opcode LogCurve, k, kk >>> >>> kfloat, ksteep xin >>> >>> if (ksteep > 1) then >>> ksteep = ksteep >>> elseif (ksteep < 1) then >>> ksteep = 1.00001 >>> endif >>> >>> kout = (log(kfloat (ksteep-1)+1)/log(ksteep)) >>> >>> xout kout >>> >>> endop >>> ;// >>> /--- ---/ >>> >>> instr 1 >>> >>> ilen1 filelen $SFILE01 >>> ilen2 filelen $SFILE02 >>> ilen3 filelen $SFILE03 >>> ilen4 filelen $SFILE04 >>> >>> >>> kpgm, kchan pgmin >>> key, kbang sanskey >>> >>> kvol1 ctrl7 1, $SLIDER1, 0, 1 >>> kvol2 ctrl7 1, $SLIDER2, 0, 1 >>> kvol3 ctrl7 1, $SLIDER3, 0, 1 >>> kvol4 ctrl7 1, $SLIDER4, 0, 1 >>> >>> gkvol1 LogCurve kvol1, 1.00001 >>> gkvol2 LogCurve kvol2, 1.00001 >>> gkvol3 LogCurve kvol3, 1.00001 >>> gkvol4 LogCurve kvol4, 1.00001 >>> >>> gksl01 = gkvol1 >>> gksl02 = gkvol2 >>> gksl03 = gkvol3 >>> gksl04 = gkvol4 >>> /* >>> if (kbang == 1 && key == 32) then >>> turnoff2 2, 0, 1 >>> turnoff2 3, 0, 1 >>> turnoff2 4, 0, 1 >>> else >>> endif >>> / >>> kpg changed kpgm >>> >>> if (kpg != 1) kgoto cont >>> >>> if (kpgm == 1) then >>> turnoff2 2, 0, 0 >>> event "i", 2, 0, ilen1-(ilen1/2), 0.1 >>> gkcb01 = 1 >>> gkcb02 = 0 >>> gkcb03 = 0 >>> gkcb04 = 0 >>> elseif (kpgm == 2) then >>> turnoff2 2, 0, 0 >>> event "i", 2, 0, ilen1-(ilen1/2), ilen1/4 >>> gkcb01 = 0 >>> gkcb02 = 1 >>> gkcb03 = 0 >>> gkcb04 = 0 >>> elseif (kpgm == 3) then >>> turnoff2 2, 0, 0 >>> event "i", 2, 0, ilen1-(ilen1/2), ilen1/2 >>> gkcb01 = 0 >>> gkcb02 = 0 >>> gkcb03 = 1 >>> gkcb04 = 0 >>> elseif (kpgm == 4) then >>> turnoff2 2, 0, 0 >>> event "i", 2, 0, ilen1-(ilen1/2), ((ilen1/4)+(ilen1/2)) >>> gkcb01 = 0 >>> gkcb02 = 0 >>> gkcb03 = 0 >>> gkcb04 = 1 >>> else >>> endif >>> >>> if (kpgm == 5) then >>> turnoff2 3, 0, 0 >>> event "i", 3, 0, ilen2-(ilen2/2), 0.1 >>> gkcb05 = 1 >>> gkcb06 = 0 >>> gkcb07 = 0 >>> gkcb08 = 0 >>> elseif (kpgm == 6) then >>> turnoff2 3, 0, 0 >>> event "i", 3, 0, ilen2-(ilen2/2), ilen2/4 >>> gkcb05 = 0 >>> gkcb06 = 1 >>> gkcb07 = 0 >>> gkcb08 = 0 >>> elseif (kpgm == 7) then >>> turnoff2 3, 0, 0 >>> event "i", 3, 0, ilen2-(ilen2/2), ilen2/2 >>> gkcb05 = 0 >>> gkcb06 = 0 >>> gkcb07 = 1 >>> gkcb08 = 0 >>> elseif (kpgm == 8) then >>> turnoff2 3, 0, 0 >>> event "i", 3, 0, ilen2-(ilen2/2), ((ilen2/4)+(ilen2/2)) >>> gkcb05 = 0 >>> gkcb06 = 0 >>> gkcb07 = 0 >>> gkcb08 = 1 >>> else >>> endif >>> >>> if (kpgm == 9) then >>> turnoff2 4, 0, 0 >>> event "i", 4, 0, ilen3-(ilen3/2), 0 >>> gkcb09 = 1 >>> gkcb10 = 0 >>> gkcb11 = 0 >>> gkcb12 = 0 >>> elseif (kpgm == 10) then >>> turnoff2 4, 0, 0 >>> event "i", 4, 0, ilen3-(ilen3/2), ilen3/4 >>> gkcb09 = 0 >>> gkcb10 = 1 >>> gkcb11 = 0 >>> gkcb12 = 0 >>> elseif (kpgm == 11) then >>> turnoff2 4, 0, 0 >>> event "i", 4, 0, ilen3-(ilen3/2), ilen3/2 >>> gkcb09 = 0 >>> gkcb10 = 0 >>> gkcb11 = 1 >>> gkcb12 = 0 >>> elseif (kpgm == 12) then >>> turnoff2 4, 0, 0 >>> event "i", 4, 0, ilen3-(ilen3/2), ((ilen3/4)+(ilen3/2)) >>> gkcb09 = 0 >>> gkcb10 = 0 >>> gkcb11 = 0 >>> gkcb12 = 1 >>> else >>> endif >>> >>> if (kpgm == 13) then >>> turnoff2 5, 0, 0 >>> event "i", 5, 0, ilen4-(ilen4/2), 0 >>> gkcb13 = 1 >>> gkcb14 = 0 >>> gkcb15 = 0 >>> gkcb16 = 0 >>> elseif (kpgm == 14) then >>> turnoff2 5, 0, 0 >>> event "i", 5, 0, ilen4-(ilen4/2), ilen4/4 >>> gkcb13 = 0 >>> gkcb14 = 1 >>> gkcb15 = 0 >>> gkcb16 = 0 >>> elseif (kpgm == 15) then >>> turnoff2 5, 0, 0 >>> event "i", 5, 0, ilen4-(ilen4/2), ilen4/2 >>> gkcb13 = 0 >>> gkcb14 = 0 >>> gkcb15 = 1 >>> gkcb16 = 0 >>> elseif (kpgm == 16) then >>> turnoff2 5, 0, 0 >>> event "i", 5, 0, ilen4-(ilen4/2), ((ilen4/4)+(ilen4/2)) >>> gkcb13 = 0 >>> gkcb14 = 0 >>> gkcb15 = 0 >>> gkcb16 = 1 >>> else >>> endif >>> >>> kpgm = 0 >>> kpg = 0 >>> >>> cont: >>> >>> endin >>> >>> /--- ---/ >>> >>> instr 2 >>> >>> iskip = p4 >>> ichnls filenchnls $SFILE01 >>> ilen filelen $SFILE01 >>> >>> kpos phasor (1/ilen) >>> kpos = (kpos0.25)+(iskip/ilen) >>> gkphos01 = kpos >>> >>> if (ichnls == 1) then >>> >>> al diskin2 $SFILE01, 1, 0, 1 >>> ar = al >>> >>> elseif (ichnls == 2) then >>> >>> al, ar diskin2 $SFILE01, 1, iskip, 1 >>> >>> else >>> endif >>> >>> >>> al = al * gkvol1 >>> ar = ar * gkvol1 >>> >>> >>> al clip al, 0, 32767 >>> ar clip ar, 0, 32767 >>> outs al, ar >>> >>> endin >>> >>> /--- ---/ >>> >>> instr 3 >>> >>> iskip = p4 >>> ichnls filenchnls $SFILE02 >>> ilen filelen $SFILE02 >>> >>> kpos phasor (1/ilen) >>> kpos = (kpos0.25)+(iskip/ilen) >>> gkphos02 = kpos >>> >>> if (ichnls == 1) then >>> >>> al diskin2 $SFILE02, 1, iskip, 1 >>> ar = al >>> >>> elseif (ichnls == 2) then >>> >>> al, ar diskin2 $SFILE02, 1, iskip, 1 >>> >>> else >>> endif >>> >>> al = al gkvol2 >>> ar = ar * gkvol2 >>> >>> >>> al clip al, 0, 32767 >>> ar clip ar, 0, 32767 >>> outs al, ar >>> >>> endin >>> >>> /--- ---/ >>> >>> instr 4 >>> >>> iskip = p4 >>> ichnls filenchnls $SFILE03 >>> ilen filelen $SFILE03 >>> >>> kpos phasor (1/ilen) >>> kpos = (kpos0.25)+(iskip/ilen) >>> gkphos03 = kpos >>> >>> if (ichnls == 1) then >>> >>> al diskin2 $SFILE03, 1, iskip, 1 >>> ar = al >>> >>> elseif (ichnls == 2) then >>> >>> al, ar diskin2 $SFILE03, 1, iskip, 1 >>> >>> else >>> endif >>> >>> al = al gkvol3 >>> ar = ar * gkvol3 >>> >>> >>> al clip al, 0, 32767 >>> ar clip ar, 0, 32767 >>> outs al, ar >>> >>> endin >>> >>> /--- ---/ >>> >>> instr 5 >>> >>> iskip = p4 >>> ichnls filenchnls $SFILE04 >>> ilen filelen $SFILE04 >>> >>> kpos phasor (1/ilen) >>> kpos = (kpos0.25)+(iskip/ilen) >>> gkphos04 = kpos >>> >>> if (ichnls == 1) then >>> >>> al diskin2 $SFILE04, 1, iskip, 1 >>> ar = al >>> >>> elseif (ichnls == 2) then >>> >>> al, ar diskin2 $SFILE04, 1, iskip, 1 >>> >>> else >>> endif >>> >>> >>> al = al gkvol4 >>> ar = ar * gkvol4 >>> >>> >>> al clip al, 0, 32767 >>> ar clip ar, 0, 32767 >>> outs al, ar >>> >>> endin >>> >>> >>> >>> /--- ---/ >>> >>> >>> >>> i1 0 1000 >>> >>> ;i255 0 1000 >>> >>> e >>> >>> >>> TVRoZAAAAAYAAAABAeBNVHJrAAAFkgD/AwZUeXBlIDAA/ >>> 1EDBbjYAP9YBAQCGAgAwAG8AAG8 >>> AAKperAPfYIOD31aD31aD35aD3paD3paD3paD3paD3paD3paD3paD3laD3haD3haD3haD >>> 3da >>> D3daD3ZaD3ZaD3VaD3V4D3VaD3RaD3MewA08sA9yWg9yWg9xWg9wWg9vWg9vWg9uWg9uW >>> g9t >>> Wg9sWg9rWg9rWg9rWg9qWg9pWg9oWg9oWg9nWg9mWg9lWg9lWg9kWg9jWg9iWg9hWg9hW >>> g9h >>> Wg9eeA9eWg9eWg9eWg9dWg9cWg9cWg9cWg9cWg9bWg9bWg9bWg9aWg9aWg9aWg9ZWg9ZW >>> g9Y >>> Wg9YWg9YWg9XWg9XWg9XWg9XWg9WWg9WWg9VWg9UWg9UWg9TWg9TWg9TWg9SeA9RWg9RW >>> g9Q >>> Wg9PWg9OWg9OWg9OWg9NWg9MWg9MWg9MWg9LWg9KWg9JWg9JWg9JWg9JWg9IWg9IWg9HW >>> g9H >>> Wg9GWg9GWg9FWsAOALAPRVoPRFoPRFoPRIE0D0RaD0N4D0NaD0JaD0JaD0FaD0FaD0FaD >>> 0Ba >>> D0BaDz9aDz9aDz9aDz9aDz5aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aD >>> z9a >>> Dz9aDz9aDz9aDz9aDz9aDz94Dz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aD >>> z9a >>> Dz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aD >>> z9a >>> Dz94Dz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz9aDz+BNA8/Wg8/Wg8/ >>> HsAPPLAP >>> P1oPP1oPP1oPP1oPP4E0Dz9aDz9aD0VaD0ZaD0eBNA9IgTQPSYFSD0laD0paD0paD0taD >>> 0ta >>> D0xaD01aD01aD05aD06BNA9OWg9PWg9QWg9QWg9RgTQPUoE0D1NaD1OBNA9UWg9UWg9VW >>> g9W >>> gTQPV1oPV4E0D1d4D1haD1laD1laD1qBNA9bgTQPXIIOD11aD11aD15aD15aD19aD19aD >>> 2Ba >>> D2BaD2FaD2FaD2FaD2FaD2FaD2JaD2JaD2NaD2NaD2NaD2RaD2RaD2V4D2VaD2VaD2ZaD >>> 2Za >>> D2ZaD2Y8wBAesA9nWg9nWg9nWg9oWg9oWg9pWg9pWg9pWg9qWg9qWg9qWg9rWg9rWg9rW >>> g9r >>> Wg9rWg9rWg9sWg9sWg9sWg9sWg9tWg9tWg9tWg9tWg9veA9vWg9wWg9wWg9wWg9wWg9wW >>> g9w >>> Wg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9wWg9xW >>> g9x >>> Wg9xWg9xWg9xWg9xWg9xgVIPcFoPcFoPcFoPcFoPb1oPb4IOD3ZaD3daD3haD3haD3laD >>> 3qC >>> Dg97Wg98gTQPf1oPfloPf4JoD3+BUsAQvAAOgaUADYHDAAyXdLAPe4E0D3taD3uDBg97W >>> g96 >>> gmgPeYE0D3haD3daD3aBNA91gTQPdIE0D3OBNA9ygTQPcVoPcVoPcIE0D2+BNA9uWg9tW >>> g9s >>> Wg9rgVIPaloPaVoPaFoPZ1oPZoE0D2VaD2RaD2NaD2JaD2GBNA9gWg9fWg9eWg9dWg9cg >>> TQP >>> W1oPWloPWVoPWFoPV4E0D1ZaD1VaD1RaD1OBNA9SgVIPUVoPUFoPT1oPToE0D01aD0xaD >>> 0ta >>> D0paD0laD0haD0daD0VaD0RaD0RaD0JaD0FaD0BaDz9aDz5aDz1aDzxaDztaDzpaDzlaD >>> zha >>> DzdaDzZaDzVaDzRaDzN4DzJaDzFaDzBaDy9aDy5aDy1aDyuBNA8qWg8pWg8ngTQPJloPJ >>> VoP >>> H4E0DxdaDxCBNA8JgTQPCVoPB1oPBVoPBFoPAoE0DwGBNA8AhDoPAAD/LwA >>> >>> >>> >>> >>> On Nov 8, 2006, at 5:51 AM, Dr. Richard Boulanger wrote: >>> >>>> Jonathan, >>>> >>>> thank you for these tests and for your test instrument the other >>>> night. it was extremely helpful to me and bolstered my confidence >>>> in >>>> these opcodes and UDOs ... >>>> >>>> -dr.B. >>>> On Nov 8, 2006, at 5:47 AM, Jonathan Murphy wrote: >>>> >>>>> >>>>> Hi Folks, >>>>> >>>>> I'm pretty much certain that midiin is working properly. Here is >>>>> the >>>>> output of a modified version of the instrument that Dr Boulanger >>>>> and I >>>>> used the other day. Note off messages are not printed, instead >>>>> note on >>>>> with a velocity of 0 is received. I'm not sure if this is csound or >>>>> the alsa sequencer. Note on, control change, pitch bend, >>>>> aftertouch, >>>>> program change, change channels, repeat. Aftertouch and control >>>>> change >>>>> continue to be sent on channel 1 because omni is off. aseqdump >>>>> (command line alsa utility) displayed the same info while running >>>>> simultaneously. >>>>> >>>>> J. >>>>> >>>>> SECTION 1: >>>>> kstatus= 144.000000, kchan = 1.000000, kdata1 = 60.000000, kdata2 = >>>>> 75.000000 >>>>> kstatus= 144.000000, kchan = 1.000000, kdata1 = 60.000000, kdata2 = >>>>> 0.000000 >>>>> kstatus= 176.000000, kchan = 1.000000, kdata1 = 101.000000, kdata2 >>>>> = 0.000000 >>>>> kstatus= 224.000000, kchan = 1.000000, kdata1 = 2.000000, kdata2 = >>>>> 65.000000 >>>>> kstatus= 224.000000, kchan = 1.000000, kdata1 = 4.000000, kdata2 = >>>>> 66.000000 >>>>> kstatus= 224.000000, kchan = 1.000000, kdata1 = 8.000000, kdata2 = >>>>> 68.000000 >>>>> kstatus= 224.000000, kchan = 1.000000, kdata1 = 4.000000, kdata2 = >>>>> 66.000000 >>>>> kstatus= 224.000000, kchan = 1.000000, kdata1 = 0.000000, kdata2 = >>>>> 64.000000 >>>>> kstatus= 208.000000, kchan = 1.000000, kdata1 = 52.000000, kdata2 = >>>>> 0.000000 >>>>> kstatus= 208.000000, kchan = 1.000000, kdata1 = 54.000000, kdata2 = >>>>> 0.000000 >>>>> kstatus= 208.000000, kchan = 1.000000, kdata1 = 56.000000, kdata2 = >>>>> 0.000000 >>>>> kstatus= 208.000000, kchan = 1.000000, kdata1 = 58.000000, kdata2 = >>>>> 0.000000 >>>>> kstatus= 208.000000, kchan = 1.000000, kdata1 = 59.000000, kdata2 = >>>>> 0.000000 >>>>> kstatus= 208.000000, kchan = 1.000000, kdata1 = 61.000000, kdata2 = >>>>> 0.000000 >>>>> midi channel 1 now using instr 1 >>>>> kstatus= 192.000000, kchan = 1.000000, kdata1 = 9.000000, kdata2 = >>>>> 0.000000 >>>>> kstatus= 144.000000, kchan = 9.000000, kdata1 = 60.000000, kdata2 = >>>>> 80.000000 >>>>> kstatus= 144.000000, kchan = 9.000000, kdata1 = 60.000000, kdata2 = >>>>> 0.000000 >>>>> kstatus= 176.000000, kchan = 1.000000, kdata1 = 101.000000, kdata2 >>>>> = 127.000000 >>>>> kstatus= 176.000000, kchan = 1.000000, kdata1 = 35.000000, kdata2 = >>>>> 50.000000 >>>>> kstatus= 176.000000, kchan = 1.000000, kdata1 = 35.000000, kdata2 = >>>>> 51.000000 >>>>> kstatus= 176.000000, kchan = 1.000000, kdata1 = 35.000000, kdata2 = >>>>> 52.000000 >>>>> kstatus= 224.000000, kchan = 9.000000, kdata1 = 2.000000, kdata2 = >>>>> 65.000000 >>>>> kstatus= 224.000000, kchan = 9.000000, kdata1 = 4.000000, kdata2 = >>>>> 66.000000 >>>>> kstatus= 224.000000, kchan = 9.000000, kdata1 = 8.000000, kdata2 = >>>>> 68.000000 >>>>> kstatus= 224.000000, kchan = 9.000000, kdata1 = 10.000000, kdata2 = >>>>> 69.000000 >>>>> kstatus= 224.000000, kchan = 9.000000, kdata1 = 6.000000, kdata2 = >>>>> 67.000000 >>>>> kstatus= 224.000000, kchan = 9.000000, kdata1 = 0.000000, kdata2 = >>>>> 64.000000 >>>>> kstatus= 208.000000, kchan = 1.000000, kdata1 = 60.000000, kdata2 = >>>>> 0.000000 >>>>> kstatus= 208.000000, kchan = 1.000000, kdata1 = 59.000000, kdata2 = >>>>> 0.000000 >>>>> kstatus= 208.000000, kchan = 1.000000, kdata1 = 58.000000, kdata2 = >>>>> 0.000000 >>>>> kstatus= 208.000000, kchan = 1.000000, kdata1 = 57.000000, kdata2 = >>>>> 0.000000 >>>>> >>>>> >>>>> >>>>> using it >>>>> "Dr. Richard Boulanger" writes: >>>>> >>>>>> You should ABSOLUTELY NOT delay this release because of David's >>>>>> problem with midiin - I think that his problem might be with >>>>>> diskin2 >>>>>> and not midiin - also, there are some complicated things going >>>>>> on in >>>>>> David's design that might also account for his midiin issues.... >>>>>> >>>>>> As I reported earlier, I am not sure that his pgmin UDO is working >>>>>> 100% correctly. >>>>>> >>>>>> If David would share his orchestra with us, you might be able to >>>>>> better chase down his midiin and >>>>>> diskin2 issues >>>>>> >>>>>> Also, for your testing purposes, you might want to check the MIDI >>>>>> stuff I posted the other night... All you need is there to run >>>>>> your >>>>>> tests - I use midiin and David's pgmin UDO. >>>>>> >>>>>> http://csounds.com/olpc/gmSoundFontPlayer.zip >>>>>> >>>>>> Dr. B. >>>>>> >>>>>> On Nov 8, 2006, at 4:53 AM, Dr. Richard Boulanger wrote: >>>>>> >>>>>>> David, >>>>>>> >>>>>>> The midiin opcode was NOT working correctly back then. I am not >>>>>>> sure >>>>>>> that it is working correctly even now, but I can assure you that >>>>>>> it >>>>>>> was not working correctly back then. It is better now, and I am >>>>>>> able >>>>>>> to use it for the current release of the BETA1-Demo package for >>>>>>> the >>>>>>> One Laptop Per Child Computer Systems - OLPC, but... it >>>>>>> definitely >>>>>>> still needs some serious testing and looking into. >>>>>>> >>>>>>> In fact, the reason that Istvan's General MIDI fluid instrument >>>>>>> does >>>>>>> work correctly is because he uses the raw messages to: play the >>>>>>> notes, read the program changes, and read the controllers. He >>>>>>> essentially turns off all of Csound's MIDI and then maps it >>>>>>> directly >>>>>>> from there. >>>>>>> >>>>>>> -dr.B. >>>>>>> >>>>>>> On Nov 8, 2006, at 4:08 AM, David Akbari wrote: >>>>>>> >>>>>>>> Hi Developers, >>>>>>>> >>>>>>>> Can anyone provide some more information on what was changed >>>>>>>> since >>>>>>>> June >>>>>>>> 18 2006 in the midiin opcode? >>>>>>>> >>>>>>>> In June I spent a lot of time and made a few demos using a MIDI >>>>>>>> file to >>>>>>>> drive performance and using program change messages to trigger >>>>>>>> samples. >>>>>>>> It works with a version of Csound5 compiled on June 18 2006. It >>>>>>>> does >>>>>>>> not work on the current CVS version. Does this qualify as >>>>>>>> breaking >>>>>>>> backwards compatibility? I'd really rather not go through the >>>>>>>> trouble >>>>>>>> of chasing changes since I have no idea what would've been >>>>>>>> changed >>>>>>>> since the file DOES work on a recent version (compiled from CVS >>>>>>>> since >>>>>>>> the last release). >>>>>>>> >>>>>>>> How can this be fixed? What was changed in midiin? >>>>>>>> >>>>>>>> Here's the files so you can see for yourself >>>>>>>> >>>>>>>> http://csounds.com/olpc/Archive.zip >>>>>>>> >>>>>>>> >>>>>>>> -David >>>>>>>> >>>>>>>> >>>>>>>> ---------------------------------------------------------------- >>>>>>>> --- >>>>>>>> -- >>>>>>>> - >>>>>>>> --- >>>>>>>> Using Tomcat but need to do more? Need to support web services, >>>>>>>> security? >>>>>>>> Get stuff done quickly with pre-integrated technology to make >>>>>>>> your >>>>>>>> job easier >>>>>>>> Download IBM WebSphere Application Server v.1.0.1 based on >>>>>>>> Apache >>>>>>>> Geronimo >>>>>>>> http://sel.as-us.falkag.net/sel? >>>>>>>> cmd=lnk&kid=120709&bid=263057&dat=121642 >>>>>>>> _______________________________________________ >>>>>>>> Csound-devel mailing list >>>>>>>> Csound-devel@lists.sourceforge.net >>>>>>>> https://lists.sourceforge.net/lists/listinfo/csound-devel >>>>>>> >>>>>>> >>>>>>> ----------------------------------------------------------------- >>>>>>> --- >>>>>>> -- >>>>>>> --- >>>>>>> Using Tomcat but need to do more? Need to support web services, >>>>>>> security? >>>>>>> Get stuff done quickly with pre-integrated technology to make >>>>>>> your >>>>>>> job easier >>>>>>> Download IBM WebSphere Application Server v.1.0.1 based on Apache >>>>>>> Geronimo >>>>>>> http://sel.as-us.falkag.net/sel? >>>>>>> cmd=lnk&kid=120709&bid=263057&dat=121642 >>>>>>> _______________________________________________ >>>>>>> Csound-devel mailing list >>>>>>> Csound-devel@lists.sourceforge.net >>>>>>> https://lists.sourceforge.net/lists/listinfo/csound-devel >>>>>> >>>>>> >>>>>> ------------------------------------------------------------------ >>>>>> --- >>>>>> ---- >>>>>> Using Tomcat but need to do more? Need to support web services, >>>>>> security? >>>>>> Get stuff done quickly with pre-integrated technology to make your >>>>>> job easier >>>>>> Download IBM WebSphere Application Server v.1.0.1 based on Apache >>>>>> Geronimo >>>>>> http://sel.as-us.falkag.net/sel? >>>>>> cmd=lnk&kid=120709&bid=263057&dat=121642 >>>>>> _______________________________________________ >>>>>> Csound-devel mailing list >>>>>> Csound-devel@lists.sourceforge.net >>>>>> https://lists.sourceforge.net/lists/listinfo/csound-devel >>>>> >>>>> ------------------------------------------------------------------- >>>>> --- >>>>> --- >>>>> Using Tomcat but need to do more? Need to support web services, >>>>> security? >>>>> Get stuff done quickly with pre-integrated technology to make your >>>>> job easier >>>>> Download IBM WebSphere Application Server v.1.0.1 based on Apache >>>>> Geronimo >>>>> http://sel.as-us.falkag.net/sel? >>>>> cmd=lnk&kid=120709&bid=263057&dat=121642 >>>>> _______________________________________________ >>>>> Csound-devel mailing list >>>>> Csound-devel@lists.sourceforge.net >>>>> https://lists.sourceforge.net/lists/listinfo/csound-devel >>>> >>>> >>>> -------------------------------------------------------------------- >>>> --- >>>> -- >>>> Using Tomcat but need to do more? Need to support web services, >>>> security? >>>> Get stuff done quickly with pre-integrated technology to make your >>>> job >>>> easier >>>> Download IBM WebSphere Application Server v.1.0.1 based on Apache >>>> Geronimo >>>> http://sel.as-us.falkag.net/sel? >>>> cmd=lnk&kid=120709&bid=263057&dat=121642 >>>> _______________________________________________ >>>> Csound-devel mailing list >>>> Csound-devel@lists.sourceforge.net >>>> https://lists.sourceforge.net/lists/listinfo/csound-devel >>>> >>> >>> >>> --------------------------------------------------------------------- >>> ---- >>> Using Tomcat but need to do more? Need to support web services, >>> security? >>> Get stuff done quickly with pre-integrated technology to make your >>> job easier >>> Download IBM WebSphere Application Server v.1.0.1 based on Apache >>> Geronimo >>> http://sel.as-us.falkag.net/sel? >>> cmd=lnk&kid=120709&bid=263057&dat=121642 >>> _______________________________________________ >>> Csound-devel mailing list >>> Csound-devel@lists.sourceforge.net >>> https://lists.sourceforge.net/lists/listinfo/csound-devel >> >> ---------------------------------------------------------------------- >> --- >> Using Tomcat but need to do more? Need to support web services, >> security? >> Get stuff done quickly with pre-integrated technology to make your >> job easier >> Download IBM WebSphere Application Server v.1.0.1 based on Apache >> Geronimo >> http://sel.as-us.falkag.net/sel? >> cmd=lnk&kid=120709&bid=263057&dat=121642 >> _______________________________________________ >> Csound-devel mailing list >> Csound-devel@lists.sourceforge.net >> https://lists.sourceforge.net/lists/listinfo/csound-devel >> > ------------------------------------------------------------------------- Using Tomcat but need to do more? Need to support web services, security? Get stuff done quickly with pre-integrated technology to make your job easier Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642 _______________________________________________ Csound-devel mailing list Csound-devel@lists.sourceforge.net