[Csnd] how to use a catalog instrument for midi

[Csnd] how to use a catalog instrument for midi

Date	2010-01-25 09:03
From	Stefan Thomas
Subject	[Csnd] how to use a catalog instrument for midi
	Dear community, I would like to use the below listed csd-file for live midi-input. I've copied it from the csound-catalog. I tried it with the comman-line flags -odac -Ma -b128 -B512 --midi-key=4 --midi-velocity-amp=5 but without success. Unfortunately I can't see my mistake. Here is the file: <CsoundSynthesizer> <CsOptions> -odac -Ma -b128 -B512 --midi-key=4 --midi-velocity-amp=5 </CsOptions> <CsInstruments> sr = 44100 kr = 4410 ksmps = 10 nchnls = 1 ;========================================================================; ; Yamaha DX7 Algorithm 15 ; ;========================================================================; instr 1 ihold idur = abs(p3) ibase = (exp((p4/12) * log(2))/log(2.71828183)) * 8.175 iroct = octcps(p4) irbase = octpch(4.09) irrange = octpch(13.06)-irbase iveloc = p5 iop1fn = p10 iop2fn = p11 iop3fn = p12 iop4fn = p13 iop5fn = p14 iop6fn = p15 iampfn = p16 ipkamp = p17 irsfn = p18 idevfn = p19 irisefn = p20 idecfn = p21 ivsfn = p22 ivelfn = p23 iveloc table iveloc,ivelfn iveloc = iveloc * 1.10 ifeedfn = p24 ifeed table p25,ifeedfn ifeed = ifeed/(2 * 3.14159) idetfac = 4 imap128 = 127/99 irscl table (iroct-irbase)/irrange127,irsfn irscl = irscl6 iop = 1 iopfn = iop1fn loop: ;---------------------------------READ OPERATOR PARAMETERS ilvl table 0,iopfn ivel table 1,iopfn iegr1 table 2,iopfn iegr2 table 3,iopfn iegr3 table 4,iopfn iegr4 table 5,iopfn iegl1 table 6,iopfn iegl2 table 7,iopfn iegl3 table 8,iopfn iegl4 table 9,iopfn iams table 10,iopfn imode table 11,iopfn ifreq table 12,iopfn idet table 13,iopfn irss table 14,iopfn ;----------------------------------INITIALIZE OPERATOR ihz = (imode > 0 ? ifreq : ibase * ifreq) + idet/idetfac iamp = ilvl/99 ivfac table ivel,ivsfn iegl1 = iampiegl1 iegl2 = iampiegl2 iegl3 = iampiegl3 iegl4 = iampiegl4 iegl1 = iegl1(1-ivfac)+iegl1ivfaciveloc iegl2 = iegl2(1-ivfac)+iegl2ivfaciveloc iegl3 = iegl3(1-ivfac)+iegl3ivfaciveloc iegl4 = iegl4(1-ivfac)+iegl4ivfaciveloc irs = irsclirss iegr1 = (iegr1+irs > 99 ? 99 : iegr1+irs) iegr2 = (iegr2+irs > 99 ? 99 : iegr2+irs) iegr3 = (iegr3+irs > 99 ? 99 : iegr3+irs) iegr4 = (iegr4+irs > 99 ? 99 : iegr4+irs) irfn = (iegl1 > iegl4 ? irisefn : idecfn) iegd1 table iegr1,irfn ;CONVERT RATE->DUR ipct1 table iegl4,irfn+1 ;PCT FN IS NEXT ONE ipct2 table iegl1,irfn+1 iegd1 = abs(iegd1ipct1-iegd1ipct2) iegd1 = (iegd1 == 0 ? .001 : iegd1) irfn = (iegl2 > iegl1 ? irisefn : idecfn) iegd2 table iegr2,irfn ipct1 table iegl1,irfn+1 ipct2 table iegl2,irfn+1 iegd2 = abs(iegd2ipct1-iegd2ipct2) iegd2 = (iegd2 == 0 ? .001 : iegd2) irfn = (iegl3 > iegl2 ? irisefn : idecfn) iegd3 table iegr3,irfn ipct1 table iegl2,irfn+1 ipct2 table iegl3,irfn+1 iegd3 = abs(iegd3ipct1-iegd3ipct2) iegd3 = (iegd3 == 0 ? .001 : iegd3) iegd4 table iegr4,idecfn if (iegl3 <= iegl4) igoto continue ipct1 table iegl3,irfn+1 ipct2 table iegl4,irfn+1 iegd4 = abs(iegd4ipct1-iegd4ipct2) iegd4 = (iegd4 == 0 ? .001 : iegd4) continue: if (iop > 1) igoto op2 op1: i1egd1 = iegd1 i1egd2 = iegd2 i1egd3 = iegd3 i1egd4 = iegd4 i1egl1 = iegl1 i1egl2 = iegl2 i1egl3 = iegl3 i1egl4 = iegl4 i1ams = iams i1hz = ihz iop = iop + 1 iopfn = iop2fn igoto loop op2: if (iop > 2) igoto op3 i2egd1 = iegd1 i2egd2 = iegd2 i2egd3 = iegd3 i2egd4 = iegd4 i2egl1 = iegl1 i2egl2 = iegl2 i2egl3 = iegl3 i2egl4 = iegl4 i2ams = iams i2hz = ihz iop = iop + 1 iopfn = iop3fn igoto loop op3: if (iop > 3) igoto op4 i3egd1 = iegd1 i3egd2 = iegd2 i3egd3 = iegd3 i3egd4 = iegd4 i3egl1 = iegl1 i3egl2 = iegl2 i3egl3 = iegl3 i3egl4 = iegl4 i3ams = iams i3hz = ihz iop = iop + 1 iopfn = iop4fn igoto loop op4: if (iop > 4) igoto op5 i4egd1 = iegd1 i4egd2 = iegd2 i4egd3 = iegd3 i4egd4 = iegd4 i4egl1 = iegl1 i4egl2 = iegl2 i4egl3 = iegl3 i4egl4 = iegl4 i4ams = iams i4hz = ihz iop = iop + 1 iopfn = iop5fn igoto loop op5: if (iop > 5) igoto op6 i5egd1 = iegd1 i5egd2 = iegd2 i5egd3 = iegd3 i5egd4 = iegd4 i5egl1 = iegl1 i5egl2 = iegl2 i5egl3 = iegl3 i5egl4 = iegl4 i5ams = iams i5hz = ihz iop = iop + 1 iopfn = iop6fn igoto loop op6: i6egd1 = iegd1 i6egd2 = iegd2 i6egd3 = iegd3 i6egd4 = iegd4 i6egl1 = iegl1 i6egl2 = iegl2 i6egl3 = iegl3 i6egl4 = iegl4 i6ams = iams i6hz = ihz ;============================================================ timout idur,999,final ;SKIP DURING FINAL DECAY k1sus linseg i1egl4,i1egd1,i1egl1,i1egd2,i1egl2,i1egd3,i1egl3,1,i1egl3 k2sus linseg i2egl4,i2egd1,i2egl1,i2egd2,i2egl2,i2egd3,i2egl3,1,i2egl3 k3sus linseg i3egl4,i3egd1,i3egl1,i3egd2,i3egl2,i3egd3,i3egl3,1,i3egl3 k4sus linseg i4egl4,i4egd1,i4egl1,i4egd2,i4egl2,i4egd3,i4egl3,1,i4egl3 k5sus linseg i5egl4,i5egd1,i5egl1,i5egd2,i5egl2,i5egd3,i5egl3,1,i5egl3 k6sus linseg i6egl4,i6egd1,i6egl1,i6egd2,i6egl2,i6egd3,i6egl3,1,i6egl3 k1phs = k1sus k2phs = k2sus k3phs = k3sus k4phs = k4sus k5phs = k5sus k6phs = k6sus kgoto structure final: k1fin linseg 1,i1egd4,0,1,0 k1phs = i1egl4+(k1sus-i1egl4)k1fin k2fin linseg 1,i2egd4,0,1,0 k2phs = i2egl4+(k2sus-i2egl4)k2fin k3fin linseg 1,i3egd4,0,1,0 k3phs = i3egl4+(k3sus-i3egl4)k3fin k4fin linseg 1,i4egd4,0,1,0 k4phs = i4egl4+(k4sus-i4egl4)k4fin k5fin linseg 1,i5egd4,0,1,0 k5phs = i5egl4+(k5sus-i5egl4)k5fin k6fin linseg 1,i6egd4,0,1,0 k6phs = i6egl4+(k6sus-i6egl4)k6fin kgoto carrier ;==================================================================== ;DETERMINE ALGORITHM PATHWAY!!!!!!!!!!!!!!!!!!!!!!!! ;==================================================================== carrier: if (k1fin + k3fin) > 0 kgoto structure turnoff ;==================================================================== ;STRUCTURE SECTION - TELLS OPS WHETHER THEY ARE CARRIERS OR MODULATORS. ;==================================================================== structure: k1gate tablei k1phs,iampfn k2gate tablei k2phs,idevfn k3gate tablei k3phs,iampfn k4gate tablei k4phs,idevfn k5gate tablei k5phs,idevfn k6gate tablei k6phs,idevfn a6sig oscili k6gate,i6hz,1 a5sig oscili k5gate,i5hz,1 a4phs phasor i4hz a4sig tablei a4phs+a5sig+a6sig,1,1,0,1 a4sig = a4sigk4gate a3phs phasor i3hz a3sig tablei a3phs+a4sig,1,1,0,1 a3sig = a3sigk3gate a2sig init 0 a2phs phasor i2hz a2sig tablei a2phs+a2sigifeed,1,1,0,1 a2sig = a2sigk2gate a1phs phasor i1hz a1sig tablei a1phs+a2sig,1,1,0,1 a1sig = a1sigk1gate out (a1sig + a3sig) * ipkamp endin </CsInstruments> ; die Partiturereignisse werden definiert <CsScore> ;============================================================================ ; CELLO - ALGORITHM #15 ;============================================================================ ; SIMPLE SINE FUNCTION f01 0 4096 10 1 ; OPERATOR OUTPUT LEVEL TO AMP SCALE FUNCTION (DATA FROM CHOWNING/BRISTOW) f02 0 128 7 0 10 .003 10 .013 10 .031 10 .079 10 .188 10 .446 5 .690 5 1.068 5 1.639 5 2.512 5 3.894 5 6.029 5 9.263 4 13.119 29 13.119 ; RATE SCALING FUNCTION f03 0 128 7 0 128 1 ; EG RATE RISE FUNCTION FOR LVL CHANGE BETWEEN 0 AND 99 (DATA FROM OPCODE) f04 0 128 -7 38 5 22.8 5 12 5 7.5 5 4.8 5 2.7 5 1.8 5 1.3 8 .737 3 .615 3 .505 3 .409 3 .321 6 .080 6 .055 2 .032 3 .024 3 .018 3 .014 3 .011 3 .008 3 .008 3 .007 3 .005 3 .003 32 .003 ; EG RATE RISE PERCENTAGE FUNCTION f05 0 128 -7 .00001 31 .00001 4 .02 5 .06 10 .14 10 .24 10 .35 10 .50 10 .70 5 .86 4 1.0 29 1.0 ; EG RATE DECAY FUNCTION FOR LVL CHANGE BETWEEN 0 AND 99 f06 0 128 -7 318 4 181 5 115 5 63 5 39.7 5 20 5 11.2 5 7 8 5.66 3 3.98 6 1.99 3 1.34 3 .99 3 .71 5 .41 3 .15 3 .081 3 .068 3 .047 3 .037 3 .025 3 .02 3 .013 3 .008 36 .008 ; EG RATE DECAY PERCENTAGE FUNCTION f07 0 128 -7 .00001 10 .25 10 .35 10 .43 10 .52 10 .59 10 .70 10 .77 10 .84 10 .92 9 1.0 29 1.0 ; EG LEVEL TO AMP FACTOR MAPPING FUNCTION (INDEX IN RADIANS = INDEX / 2PI) ;f08 0 128 6 .001 96 .5 32 1 ;f08 0 128 -6 0 64 .0318 0 .0318 64 2.08795 f08 0 128 -7 0 10 .000477 10 .002 10 .00493 10 .01257 10 .02992 10 .07098 5 .10981 5 .16997 5 .260855 5 .39979 5 .61974 5 .95954 5 1.47425 4 2.08795 29 2.08795 ; VELOCITY TO AMP FACTOR MAPPING FUNCTION (ROUGH GUESS) f09 0 129 9 .25 1 0 ; VELOCITY SENSITIVITY SCALING FUNCTION f10 0 8 -7 0 8 1 ; FEEDBACK SCALING FUNCTION f11 0 8 -6 0 8 6 ; OPERATOR 1 PARAMETERS: f12 0 32 -2 ;OUTLVL KEYVEL EGR1 EGR2 EGR3 EGR4 EGL1 EGL2 EGL3 EGL4 99 1 52 30 25 43 98 99 98 0 ;AMS FIXED? FREQ DET RSC 0 0 1 +1 2 ; OPERATOR 2 PARAMETERS f13 0 32 -2 ;OUTLVL KEYVEL EGR1 EGR2 EGR3 EGR4 EGL1 EGL2 EGL3 EGL4 86 1 86 67 75 57 82 90 87 0 ;AMS FIXED? FREQ DET RSC 0 0 1 0 1 ; OPERATOR 3 PARAMETERS f14 0 32 -2 ;OUTLVL KEYVEL EGR1 EGR2 EGR3 EGR4 EGL1 EGL2 EGL3 EGL4 99 5 50 27 35 41 95 94 94 0 ;AMS FIXED? FREQ DET RSC 0 0 1 -1 2 ; OPERATOR 4 PARAMETERS f15 0 32 -2 ;OUTLVL KEYVEL EGR1 EGR2 EGR3 EGR4 EGL1 EGL2 EGL3 EGL4 84 2 96 19 20 54 99 92 89 0 ;AMS FIXED? FREQ DET RSC 0 0 1 +1 2 ; OPERATOR 5 PARAMETERS f16 0 32 -2 ;OUTLVL KEYVEL EGR1 EGR2 EGR3 EGR4 EGL1 EGL2 EGL3 EGL4 75 2 53 67 38 54 86 92 84 0 ;AMS FIXED? FREQ DET RSC 0 0 5 -2 2 ; OPERATOR 6 PARAMETERS f17 0 32 -2 ;OUTLVL KEYVEL EGR1 EGR2 EGR3 EGR4 EGL1 EGL2 EGL3 EGL4 54 2 53 64 48 54 70 81 52 0 ;AMS FIXED? FREQ DET RSC 0 0 1 0 2 ;====================================================================; ; Yamaha DX7 Algorithm 15 ; ; ; ; p02 = start p03 = dur p04 = pch p05 = vel ; ; p06 = panfac p07 = vibdel p08 = vibwth p09 = vibhz ; ; p10 = op1fn p11 = op2fn p12 = op3fn p13 = op4fn ; ; p14 = op5fn p15 = op6fn p16 = ampfn p17 = pkamp ; ; p18 = rsfn p19 = devfn p20 = erisfn p21 = edecfn ; ; p22 = vsfn p23 = velfn p24 = feedfn p25 = feedbk ; ; p26 = Algorithm Number (Disabled) ; ;====================================================================; t 0.000 65.000 f0 23 e </CsScore> </CsoundSynthesizer>

Date	2010-01-25 09:18
From	Victor Lazzarini
Subject	[Csnd] Re: how to use a catalog instrument for midi
	I think there are two basic things you need to do: 1. all variables coming from p-fields except amp(vel) and freq(note) have to be given constant values, then use p4 and p5 to translate vel and note number. 2. all envelopes need to be substituted by the 'r' envelopes (linen -> linenr) There might be other small tweaks, but these are the main things. Victor On 25 Jan 2010, at 09:03, Stefan Thomas wrote: > Dear community, > I would like to use the below listed csd-file for live midi-input. > I've copied it from the csound-catalog. > I tried it with the comman-line flags > -odac -Ma -b128 -B512 --midi-key=4 --midi-velocity-amp=5 > but without success. > Unfortunately I can't see my mistake. > Here is the file: > > > -odac -Ma -b128 -B512 --midi-key=4 --midi-velocity-amp=5 > > > sr = 44100 > kr = 4410 > ksmps = 10 > nchnls = 1 > ;= > = > = > =====================================================================; > ; Yamaha DX7 Algorithm > 15 ; > ;= > = > = > =====================================================================; > instr 1 > ihold > idur = abs(p3) > ibase = (exp((p4/12) * log(2))/ > log(2.71828183)) * 8.175 > iroct = octcps(p4) > irbase = octpch(4.09) > irrange = octpch(13.06)-irbase > iveloc = p5 > iop1fn = p10 > iop2fn = p11 > iop3fn = p12 > iop4fn = p13 > iop5fn = p14 > iop6fn = p15 > iampfn = p16 > ipkamp = p17 > irsfn = p18 > idevfn = p19 > irisefn = p20 > idecfn = p21 > ivsfn = p22 > ivelfn = p23 > iveloc table iveloc,ivelfn > iveloc = iveloc * 1.10 > ifeedfn = p24 > ifeed table p25,ifeedfn > ifeed = ifeed/(2 * 3.14159) > idetfac = 4 > imap128 = 127/99 > irscl table (iroct-irbase)/irrange127,irsfn > irscl = irscl6 > iop = 1 > iopfn = iop1fn > loop: > ;---------------------------------READ OPERATOR PARAMETERS > ilvl table 0,iopfn > ivel table 1,iopfn > iegr1 table 2,iopfn > iegr2 table 3,iopfn > iegr3 table 4,iopfn > iegr4 table 5,iopfn > iegl1 table 6,iopfn > iegl2 table 7,iopfn > iegl3 table 8,iopfn > iegl4 table 9,iopfn > iams table 10,iopfn > imode table 11,iopfn > ifreq table 12,iopfn > idet table 13,iopfn > irss table 14,iopfn > ;----------------------------------INITIALIZE OPERATOR > ihz = (imode > 0 ? ifreq : ibase * ifreq) + > idet/idetfac > iamp = ilvl/99 > ivfac table ivel,ivsfn > > iegl1 = iampiegl1 > iegl2 = iampiegl2 > iegl3 = iampiegl3 > iegl4 = iampiegl4 > > iegl1 = iegl1(1-ivfac)+iegl1ivfaciveloc > iegl2 = iegl2(1-ivfac)+iegl2ivfaciveloc > iegl3 = iegl3(1-ivfac)+iegl3ivfaciveloc > iegl4 = iegl4(1-ivfac)+iegl4ivfaciveloc > > irs = irsclirss > iegr1 = (iegr1+irs > 99 ? 99 : iegr1+irs) > iegr2 = (iegr2+irs > 99 ? 99 : iegr2+irs) > iegr3 = (iegr3+irs > 99 ? 99 : iegr3+irs) > iegr4 = (iegr4+irs > 99 ? 99 : iegr4+irs) > > irfn = (iegl1 > iegl4 ? irisefn : idecfn) > iegd1 table > iegr1,irfn ;CONVERT RATE->DUR > ipct1 table iegl4,irfn > +1 ;PCT FN IS NEXT ONE > ipct2 table iegl1,irfn+1 > iegd1 = abs(iegd1ipct1-iegd1ipct2) > iegd1 = (iegd1 == 0 ? .001 : iegd1) > > irfn = (iegl2 > iegl1 ? irisefn : idecfn) > iegd2 table iegr2,irfn > ipct1 table iegl1,irfn+1 > ipct2 table iegl2,irfn+1 > iegd2 = abs(iegd2ipct1-iegd2ipct2) > iegd2 = (iegd2 == 0 ? .001 : iegd2) > > irfn = (iegl3 > iegl2 ? irisefn : idecfn) > iegd3 table iegr3,irfn > ipct1 table iegl2,irfn+1 > ipct2 table iegl3,irfn+1 > iegd3 = abs(iegd3ipct1-iegd3ipct2) > iegd3 = (iegd3 == 0 ? .001 : iegd3) > > iegd4 table iegr4,idecfn > if (iegl3 <= iegl4) igoto continue > ipct1 table iegl3,irfn+1 > ipct2 table iegl4,irfn+1 > iegd4 = abs(iegd4ipct1-iegd4ipct2) > iegd4 = (iegd4 == 0 ? .001 : iegd4) > > continue: > if (iop > 1) igoto op2 > op1: > i1egd1 = iegd1 > i1egd2 = iegd2 > i1egd3 = iegd3 > i1egd4 = iegd4 > i1egl1 = iegl1 > i1egl2 = iegl2 > i1egl3 = iegl3 > i1egl4 = iegl4 > i1ams = iams > i1hz = ihz > iop = iop + 1 > iopfn = iop2fn > igoto loop > > op2: if (iop > 2) igoto op3 > i2egd1 = iegd1 > i2egd2 = iegd2 > i2egd3 = iegd3 > i2egd4 = iegd4 > i2egl1 = iegl1 > i2egl2 = iegl2 > i2egl3 = iegl3 > i2egl4 = iegl4 > i2ams = iams > i2hz = ihz > iop = iop + 1 > iopfn = iop3fn > igoto loop > > op3: if (iop > 3) igoto op4 > i3egd1 = iegd1 > i3egd2 = iegd2 > i3egd3 = iegd3 > i3egd4 = iegd4 > i3egl1 = iegl1 > i3egl2 = iegl2 > i3egl3 = iegl3 > i3egl4 = iegl4 > i3ams = iams > i3hz = ihz > iop = iop + 1 > iopfn = iop4fn > igoto loop > > op4: if (iop > 4) igoto op5 > i4egd1 = iegd1 > i4egd2 = iegd2 > i4egd3 = iegd3 > i4egd4 = iegd4 > i4egl1 = iegl1 > i4egl2 = iegl2 > i4egl3 = iegl3 > i4egl4 = iegl4 > i4ams = iams > i4hz = ihz > iop = iop + 1 > iopfn = iop5fn > igoto loop > > op5: if (iop > 5) igoto op6 > i5egd1 = iegd1 > i5egd2 = iegd2 > i5egd3 = iegd3 > i5egd4 = iegd4 > i5egl1 = iegl1 > i5egl2 = iegl2 > i5egl3 = iegl3 > i5egl4 = iegl4 > i5ams = iams > i5hz = ihz > iop = iop + 1 > iopfn = iop6fn > igoto loop > > op6: > i6egd1 = iegd1 > i6egd2 = iegd2 > i6egd3 = iegd3 > i6egd4 = iegd4 > i6egl1 = iegl1 > i6egl2 = iegl2 > i6egl3 = iegl3 > i6egl4 = iegl4 > i6ams = iams > i6hz = ihz > ;============================================================ > > timout idur,999,final ;SKIP > DURING FINAL DECAY > k1sus linseg > i1egl4,i1egd1,i1egl1,i1egd2,i1egl2,i1egd3,i1egl3,1,i1egl3 > k2sus linseg > i2egl4,i2egd1,i2egl1,i2egd2,i2egl2,i2egd3,i2egl3,1,i2egl3 > k3sus linseg > i3egl4,i3egd1,i3egl1,i3egd2,i3egl2,i3egd3,i3egl3,1,i3egl3 > k4sus linseg > i4egl4,i4egd1,i4egl1,i4egd2,i4egl2,i4egd3,i4egl3,1,i4egl3 > k5sus linseg > i5egl4,i5egd1,i5egl1,i5egd2,i5egl2,i5egd3,i5egl3,1,i5egl3 > k6sus linseg > i6egl4,i6egd1,i6egl1,i6egd2,i6egl2,i6egd3,i6egl3,1,i6egl3 > k1phs = k1sus > k2phs = k2sus > k3phs = k3sus > k4phs = k4sus > k5phs = k5sus > k6phs = k6sus > kgoto structure > > final: > k1fin linseg 1,i1egd4,0,1,0 > k1phs = i1egl4+(k1sus-i1egl4)k1fin > k2fin linseg 1,i2egd4,0,1,0 > k2phs = i2egl4+(k2sus-i2egl4)k2fin > k3fin linseg 1,i3egd4,0,1,0 > k3phs = i3egl4+(k3sus-i3egl4)k3fin > k4fin linseg 1,i4egd4,0,1,0 > k4phs = i4egl4+(k4sus-i4egl4)k4fin > k5fin linseg 1,i5egd4,0,1,0 > k5phs = i5egl4+(k5sus-i5egl4)k5fin > k6fin linseg 1,i6egd4,0,1,0 > k6phs = i6egl4+(k6sus-i6egl4)k6fin > kgoto carrier > ;==================================================================== > ;DETERMINE ALGORITHM PATHWAY!!!!!!!!!!!!!!!!!!!!!!!! > ;==================================================================== > carrier: if (k1fin + k3fin) > 0 kgoto structure > turnoff > ;==================================================================== > ;STRUCTURE SECTION - TELLS OPS WHETHER THEY ARE CARRIERS OR > MODULATORS. > ;==================================================================== > structure: > k1gate tablei k1phs,iampfn > k2gate tablei k2phs,idevfn > k3gate tablei k3phs,iampfn > k4gate tablei k4phs,idevfn > k5gate tablei k5phs,idevfn > k6gate tablei k6phs,idevfn > > a6sig oscili k6gate,i6hz,1 > > a5sig oscili k5gate,i5hz,1 > > a4phs phasor i4hz > a4sig tablei a4phs+a5sig+a6sig,1,1,0,1 > a4sig = a4sigk4gate > > a3phs phasor i3hz > a3sig tablei a3phs+a4sig,1,1,0,1 > a3sig = a3sigk3gate > > a2sig init 0 > a2phs phasor i2hz > a2sig tablei a2phs+a2sigifeed,1,1,0,1 > a2sig = a2sigk2gate > > a1phs phasor i1hz > a1sig tablei a1phs+a2sig,1,1,0,1 > a1sig = a1sigk1gate > > out (a1sig + a3sig) * ipkamp > endin > > > ; die Partiturereignisse werden definiert > > > > ;= > = > = > = > = > = > ====================================================================== > ; CELLO - ALGORITHM #15 > ;= > = > = > = > = > = > ====================================================================== > ; SIMPLE SINE FUNCTION > f01 0 4096 10 1 > ; OPERATOR OUTPUT LEVEL TO AMP SCALE FUNCTION (DATA FROM CHOWNING/ > BRISTOW) > f02 0 128 7 0 10 .003 10 .013 > 10 .031 10 .079 10 .188 10 .446 > 5 .690 5 1.068 5 1.639 5 2.512 > 5 3.894 5 6.029 5 9.263 4 13.119 > 29 13.119 > ; RATE SCALING FUNCTION > f03 0 128 7 0 128 1 > ; EG RATE RISE FUNCTION FOR LVL CHANGE BETWEEN 0 AND 99 (DATA FROM > OPCODE) > f04 0 128 -7 38 5 22.8 5 > 12 5 > 7.5 5 4.8 5 2.7 5 1.8 > 5 1.3 > 8 .737 3 .615 3 .505 3 . > 409 3 > .321 6 .080 6 .055 2 .032 > 3 .024 > 3 .018 3 .014 3 .011 3 . > 008 3 > .008 3 .007 3 .005 3 .003 > 32 .003 > ; EG RATE RISE PERCENTAGE FUNCTION > f05 0 128 -7 .00001 31 .00001 4 . > 02 5 > .06 10 .14 10 .24 10 .35 > 10 .50 > 10 .70 5 .86 4 1.0 29 1.0 > ; EG RATE DECAY FUNCTION FOR LVL CHANGE BETWEEN 0 AND 99 > f06 0 128 -7 318 4 181 5 > 115 5 > 63 5 39.7 5 20 5 11.2 > 5 7 > 8 5.66 3 3.98 6 1.99 3 > 1.34 3 > .99 3 .71 5 .41 3 .15 > 3 .081 > 3 .068 3 .047 3 .037 3 . > 025 3 > .02 3 .013 3 .008 36 .008 > ; EG RATE DECAY PERCENTAGE FUNCTION > f07 0 128 -7 .00001 10 .25 10 . > 35 10 > .43 10 .52 10 .59 10 .70 > 10 .77 > 10 .84 10 .92 9 1.0 29 1.0 > ; EG LEVEL TO AMP FACTOR MAPPING FUNCTION (INDEX IN RADIANS = > INDEX / 2PI) > ;f08 0 128 6 .001 96 .5 32 1 > ;f08 0 128 -6 0 64 .0318 0 .0318 64 2.08795 > f08 0 128 -7 0 10 .000477 10 .002 > 10 .00493 10 .01257 10 .02992 10 .07098 > 5 .10981 5 .16997 5 .260855 5 .39979 > 5 .61974 5 .95954 5 1.47425 4 > 2.08795 > 29 2.08795 > ; VELOCITY TO AMP FACTOR MAPPING FUNCTION (ROUGH GUESS) > f09 0 129 9 .25 1 0 > ; VELOCITY SENSITIVITY SCALING FUNCTION > f10 0 8 -7 0 8 1 > ; FEEDBACK SCALING FUNCTION > f11 0 8 -6 0 8 6 > > ; OPERATOR 1 PARAMETERS: > f12 0 32 -2 > ;OUTLVL KEYVEL EGR1 EGR2 EGR3 EGR4 EGL1 EGL2 EGL3 > EGL4 > 99 1 52 30 25 43 98 99 98 0 > ;AMS FIXED? FREQ DET RSC > 0 0 1 +1 2 > > ; OPERATOR 2 PARAMETERS > f13 0 32 -2 > ;OUTLVL KEYVEL EGR1 EGR2 EGR3 EGR4 EGL1 EGL2 EGL3 > EGL4 > 86 1 86 67 75 57 82 90 87 0 > ;AMS FIXED? FREQ DET RSC > 0 0 1 0 1 > > ; OPERATOR 3 PARAMETERS > f14 0 32 -2 > ;OUTLVL KEYVEL EGR1 EGR2 EGR3 EGR4 EGL1 EGL2 EGL3 > EGL4 > 99 5 50 27 35 41 95 94 94 0 > ;AMS FIXED? FREQ DET RSC > 0 0 1 -1 2 > > ; OPERATOR 4 PARAMETERS > f15 0 32 -2 > ;OUTLVL KEYVEL EGR1 EGR2 EGR3 EGR4 EGL1 EGL2 EGL3 > EGL4 > 84 2 96 19 20 54 99 92 89 0 > ;AMS FIXED? FREQ DET RSC > 0 0 1 +1 2 > > ; OPERATOR 5 PARAMETERS > f16 0 32 -2 > ;OUTLVL KEYVEL EGR1 EGR2 EGR3 EGR4 EGL1 EGL2 EGL3 > EGL4 > 75 2 53 67 38 54 86 92 84 0 > ;AMS FIXED? FREQ DET RSC > 0 0 5 -2 2 > > ; OPERATOR 6 PARAMETERS > f17 0 32 -2 > ;OUTLVL KEYVEL EGR1 EGR2 EGR3 EGR4 EGL1 EGL2 EGL3 > EGL4 > 54 2 53 64 48 54 70 81 52 0 > ;AMS FIXED? FREQ DET RSC > 0 0 1 0 2 > > ;====================================================================; > ; Yamaha DX7 Algorithm 15 ; > ; ; > ; p02 = start p03 = dur p04 = pch p05 = vel ; > ; p06 = panfac p07 = vibdel p08 = vibwth p09 = vibhz ; > ; p10 = op1fn p11 = op2fn p12 = op3fn p13 = op4fn ; > ; p14 = op5fn p15 = op6fn p16 = ampfn p17 = pkamp ; > ; p18 = rsfn p19 = devfn p20 = erisfn p21 = edecfn ; > ; p22 = vsfn p23 = velfn p24 = feedfn p25 = feedbk ; > ; p26 = Algorithm Number (Disabled) ; > ;====================================================================; > t 0.000 65.000 > f0 23 > e > > > > > Send bugs reports to this list. To unsubscribe, send email sympa@lists.bath.ac.uk with body "unsubscribe csound"

Date	2010-01-25 10:51
From	Stefan Thomas
Subject	[Csnd] Re: Re: how to use a catalog instrument for midi
	Dear Victor, thanks for Your fast reply. I guess it helped me very much. For the future I would like to make the suggestion, that the instruments in the csound-catalog should be designed for compiling as well for real-time usage, if it is possible. 2010/1/25 Victor Lazzarini <Victor.Lazzarini@nuim.ie> I think there are two basic things you need to do: 1. all variables coming from p-fields except amp(vel) and freq(note) have to be given constant values, then use p4 and p5 to translate vel and note number. 2. all envelopes need to be substituted by the 'r' envelopes (linen -> linenr) There might be other small tweaks, but these are the main things. Victor On 25 Jan 2010, at 09:03, Stefan Thomas wrote: Dear community, I would like to use the below listed csd-file for live midi-input. I've copied it from the csound-catalog. I tried it with the comman-line flags -odac -Ma -b128 -B512 --midi-key=4 --midi-velocity-amp=5 but without success. Unfortunately I can't see my mistake. Here is the file: <CsoundSynthesizer> <CsOptions> -odac -Ma -b128 -B512 --midi-key=4 --midi-velocity-amp=5 </CsOptions> <CsInstruments> sr = 44100 kr = 4410 ksmps = 10 nchnls = 1 ;========================================================================; ; Yamaha DX7 Algorithm 15 ; ;========================================================================; instr 1 ihold idur = abs(p3) ibase = (exp((p4/12) * log(2))/log(2.71828183)) * 8.175 iroct = octcps(p4) irbase = octpch(4.09) irrange = octpch(13.06)-irbase iveloc = p5 iop1fn = p10 iop2fn = p11 iop3fn = p12 iop4fn = p13 iop5fn = p14 iop6fn = p15 iampfn = p16 ipkamp = p17 irsfn = p18 idevfn = p19 irisefn = p20 idecfn = p21 ivsfn = p22 ivelfn = p23 iveloc table iveloc,ivelfn iveloc = iveloc * 1.10 ifeedfn = p24 ifeed table p25,ifeedfn ifeed = ifeed/(2 * 3.14159) idetfac = 4 imap128 = 127/99 irscl table (iroct-irbase)/irrange127,irsfn irscl = irscl6 iop = 1 iopfn = iop1fn loop: ;---------------------------------READ OPERATOR PARAMETERS ilvl table 0,iopfn ivel table 1,iopfn iegr1 table 2,iopfn iegr2 table 3,iopfn iegr3 table 4,iopfn iegr4 table 5,iopfn iegl1 table 6,iopfn iegl2 table 7,iopfn iegl3 table 8,iopfn iegl4 table 9,iopfn iams table 10,iopfn imode table 11,iopfn ifreq table 12,iopfn idet table 13,iopfn irss table 14,iopfn ;----------------------------------INITIALIZE OPERATOR ihz = (imode > 0 ? ifreq : ibase * ifreq) + idet/idetfac iamp = ilvl/99 ivfac table ivel,ivsfn iegl1 = iampiegl1 iegl2 = iampiegl2 iegl3 = iampiegl3 iegl4 = iampiegl4 iegl1 = iegl1(1-ivfac)+iegl1ivfaciveloc iegl2 = iegl2(1-ivfac)+iegl2ivfaciveloc iegl3 = iegl3(1-ivfac)+iegl3ivfaciveloc iegl4 = iegl4(1-ivfac)+iegl4ivfaciveloc irs = irsclirss iegr1 = (iegr1+irs > 99 ? 99 : iegr1+irs) iegr2 = (iegr2+irs > 99 ? 99 : iegr2+irs) iegr3 = (iegr3+irs > 99 ? 99 : iegr3+irs) iegr4 = (iegr4+irs > 99 ? 99 : iegr4+irs) irfn = (iegl1 > iegl4 ? irisefn : idecfn) iegd1 table iegr1,irfn ;CONVERT RATE->DUR ipct1 table iegl4,irfn+1 ;PCT FN IS NEXT ONE ipct2 table iegl1,irfn+1 iegd1 = abs(iegd1ipct1-iegd1ipct2) iegd1 = (iegd1 == 0 ? .001 : iegd1) irfn = (iegl2 > iegl1 ? irisefn : idecfn) iegd2 table iegr2,irfn ipct1 table iegl1,irfn+1 ipct2 table iegl2,irfn+1 iegd2 = abs(iegd2ipct1-iegd2ipct2) iegd2 = (iegd2 == 0 ? .001 : iegd2) irfn = (iegl3 > iegl2 ? irisefn : idecfn) iegd3 table iegr3,irfn ipct1 table iegl2,irfn+1 ipct2 table iegl3,irfn+1 iegd3 = abs(iegd3ipct1-iegd3ipct2) iegd3 = (iegd3 == 0 ? .001 : iegd3) iegd4 table iegr4,idecfn if (iegl3 <= iegl4) igoto continue ipct1 table iegl3,irfn+1 ipct2 table iegl4,irfn+1 iegd4 = abs(iegd4ipct1-iegd4ipct2) iegd4 = (iegd4 == 0 ? .001 : iegd4) continue: if (iop > 1) igoto op2 op1: i1egd1 = iegd1 i1egd2 = iegd2 i1egd3 = iegd3 i1egd4 = iegd4 i1egl1 = iegl1 i1egl2 = iegl2 i1egl3 = iegl3 i1egl4 = iegl4 i1ams = iams i1hz = ihz iop = iop + 1 iopfn = iop2fn igoto loop op2: if (iop > 2) igoto op3 i2egd1 = iegd1 i2egd2 = iegd2 i2egd3 = iegd3 i2egd4 = iegd4 i2egl1 = iegl1 i2egl2 = iegl2 i2egl3 = iegl3 i2egl4 = iegl4 i2ams = iams i2hz = ihz iop = iop + 1 iopfn = iop3fn igoto loop op3: if (iop > 3) igoto op4 i3egd1 = iegd1 i3egd2 = iegd2 i3egd3 = iegd3 i3egd4 = iegd4 i3egl1 = iegl1 i3egl2 = iegl2 i3egl3 = iegl3 i3egl4 = iegl4 i3ams = iams i3hz = ihz iop = iop + 1 iopfn = iop4fn igoto loop op4: if (iop > 4) igoto op5 i4egd1 = iegd1 i4egd2 = iegd2 i4egd3 = iegd3 i4egd4 = iegd4 i4egl1 = iegl1 i4egl2 = iegl2 i4egl3 = iegl3 i4egl4 = iegl4 i4ams = iams i4hz = ihz iop = iop + 1 iopfn = iop5fn igoto loop op5: if (iop > 5) igoto op6 i5egd1 = iegd1 i5egd2 = iegd2 i5egd3 = iegd3 i5egd4 = iegd4 i5egl1 = iegl1 i5egl2 = iegl2 i5egl3 = iegl3 i5egl4 = iegl4 i5ams = iams i5hz = ihz iop = iop + 1 iopfn = iop6fn igoto loop op6: i6egd1 = iegd1 i6egd2 = iegd2 i6egd3 = iegd3 i6egd4 = iegd4 i6egl1 = iegl1 i6egl2 = iegl2 i6egl3 = iegl3 i6egl4 = iegl4 i6ams = iams i6hz = ihz ;============================================================ timout idur,999,final ;SKIP DURING FINAL DECAY k1sus linseg i1egl4,i1egd1,i1egl1,i1egd2,i1egl2,i1egd3,i1egl3,1,i1egl3 k2sus linseg i2egl4,i2egd1,i2egl1,i2egd2,i2egl2,i2egd3,i2egl3,1,i2egl3 k3sus linseg i3egl4,i3egd1,i3egl1,i3egd2,i3egl2,i3egd3,i3egl3,1,i3egl3 k4sus linseg i4egl4,i4egd1,i4egl1,i4egd2,i4egl2,i4egd3,i4egl3,1,i4egl3 k5sus linseg i5egl4,i5egd1,i5egl1,i5egd2,i5egl2,i5egd3,i5egl3,1,i5egl3 k6sus linseg i6egl4,i6egd1,i6egl1,i6egd2,i6egl2,i6egd3,i6egl3,1,i6egl3 k1phs = k1sus k2phs = k2sus k3phs = k3sus k4phs = k4sus k5phs = k5sus k6phs = k6sus kgoto structure final: k1fin linseg 1,i1egd4,0,1,0 k1phs = i1egl4+(k1sus-i1egl4)k1fin k2fin linseg 1,i2egd4,0,1,0 k2phs = i2egl4+(k2sus-i2egl4)k2fin k3fin linseg 1,i3egd4,0,1,0 k3phs = i3egl4+(k3sus-i3egl4)k3fin k4fin linseg 1,i4egd4,0,1,0 k4phs = i4egl4+(k4sus-i4egl4)k4fin k5fin linseg 1,i5egd4,0,1,0 k5phs = i5egl4+(k5sus-i5egl4)k5fin k6fin linseg 1,i6egd4,0,1,0 k6phs = i6egl4+(k6sus-i6egl4)k6fin kgoto carrier ;==================================================================== ;DETERMINE ALGORITHM PATHWAY!!!!!!!!!!!!!!!!!!!!!!!! ;==================================================================== carrier: if (k1fin + k3fin) > 0 kgoto structure turnoff ;==================================================================== ;STRUCTURE SECTION - TELLS OPS WHETHER THEY ARE CARRIERS OR MODULATORS. ;==================================================================== structure: k1gate tablei k1phs,iampfn k2gate tablei k2phs,idevfn k3gate tablei k3phs,iampfn k4gate tablei k4phs,idevfn k5gate tablei k5phs,idevfn k6gate tablei k6phs,idevfn a6sig oscili k6gate,i6hz,1 a5sig oscili k5gate,i5hz,1 a4phs phasor i4hz a4sig tablei a4phs+a5sig+a6sig,1,1,0,1 a4sig = a4sigk4gate a3phs phasor i3hz a3sig tablei a3phs+a4sig,1,1,0,1 a3sig = a3sigk3gate a2sig init 0 a2phs phasor i2hz a2sig tablei a2phs+a2sigifeed,1,1,0,1 a2sig = a2sigk2gate a1phs phasor i1hz a1sig tablei a1phs+a2sig,1,1,0,1 a1sig = a1sigk1gate out (a1sig + a3sig) * ipkamp endin </CsInstruments> ; die Partiturereignisse werden definiert <CsScore> ;============================================================================ ; CELLO - ALGORITHM #15 ;============================================================================ ; SIMPLE SINE FUNCTION f01 0 4096 10 1 ; OPERATOR OUTPUT LEVEL TO AMP SCALE FUNCTION (DATA FROM CHOWNING/BRISTOW) f02 0 128 7 0 10 .003 10 .013 10 .031 10 .079 10 .188 10 .446 5 .690 5 1.068 5 1.639 5 2.512 5 3.894 5 6.029 5 9.263 4 13.119 29 13.119 ; RATE SCALING FUNCTION f03 0 128 7 0 128 1 ; EG RATE RISE FUNCTION FOR LVL CHANGE BETWEEN 0 AND 99 (DATA FROM OPCODE) f04 0 128 -7 38 5 22.8 5 12 5 7.5 5 4.8 5 2.7 5 1.8 5 1.3 8 .737 3 .615 3 .505 3 .409 3 .321 6 .080 6 .055 2 .032 3 .024 3 .018 3 .014 3 .011 3 .008 3 .008 3 .007 3 .005 3 .003 32 .003 ; EG RATE RISE PERCENTAGE FUNCTION f05 0 128 -7 .00001 31 .00001 4 .02 5 .06 10 .14 10 .24 10 .35 10 .50 10 .70 5 .86 4 1.0 29 1.0 ; EG RATE DECAY FUNCTION FOR LVL CHANGE BETWEEN 0 AND 99 f06 0 128 -7 318 4 181 5 115 5 63 5 39.7 5 20 5 11.2 5 7 8 5.66 3 3.98 6 1.99 3 1.34 3 .99 3 .71 5 .41 3 .15 3 .081 3 .068 3 .047 3 .037 3 .025 3 .02 3 .013 3 .008 36 .008 ; EG RATE DECAY PERCENTAGE FUNCTION f07 0 128 -7 .00001 10 .25 10 .35 10 .43 10 .52 10 .59 10 .70 10 .77 10 .84 10 .92 9 1.0 29 1.0 ; EG LEVEL TO AMP FACTOR MAPPING FUNCTION (INDEX IN RADIANS = INDEX / 2PI) ;f08 0 128 6 .001 96 .5 32 1 ;f08 0 128 -6 0 64 .0318 0 .0318 64 2.08795 f08 0 128 -7 0 10 .000477 10 .002 10 .00493 10 .01257 10 .02992 10 .07098 5 .10981 5 .16997 5 .260855 5 .39979 5 .61974 5 .95954 5 1.47425 4 2.08795 29 2.08795 ; VELOCITY TO AMP FACTOR MAPPING FUNCTION (ROUGH GUESS) f09 0 129 9 .25 1 0 ; VELOCITY SENSITIVITY SCALING FUNCTION f10 0 8 -7 0 8 1 ; FEEDBACK SCALING FUNCTION f11 0 8 -6 0 8 6 ; OPERATOR 1 PARAMETERS: f12 0 32 -2 ;OUTLVL KEYVEL EGR1 EGR2 EGR3 EGR4 EGL1 EGL2 EGL3 EGL4 99 1 52 30 25 43 98 99 98 0 ;AMS FIXED? FREQ DET RSC 0 0 1 +1 2 ; OPERATOR 2 PARAMETERS f13 0 32 -2 ;OUTLVL KEYVEL EGR1 EGR2 EGR3 EGR4 EGL1 EGL2 EGL3 EGL4 86 1 86 67 75 57 82 90 87 0 ;AMS FIXED? FREQ DET RSC 0 0 1 0 1 ; OPERATOR 3 PARAMETERS f14 0 32 -2 ;OUTLVL KEYVEL EGR1 EGR2 EGR3 EGR4 EGL1 EGL2 EGL3 EGL4 99 5 50 27 35 41 95 94 94 0 ;AMS FIXED? FREQ DET RSC 0 0 1 -1 2 ; OPERATOR 4 PARAMETERS f15 0 32 -2 ;OUTLVL KEYVEL EGR1 EGR2 EGR3 EGR4 EGL1 EGL2 EGL3 EGL4 84 2 96 19 20 54 99 92 89 0 ;AMS FIXED? FREQ DET RSC 0 0 1 +1 2 ; OPERATOR 5 PARAMETERS f16 0 32 -2 ;OUTLVL KEYVEL EGR1 EGR2 EGR3 EGR4 EGL1 EGL2 EGL3 EGL4 75 2 53 67 38 54 86 92 84 0 ;AMS FIXED? FREQ DET RSC 0 0 5 -2 2 ; OPERATOR 6 PARAMETERS f17 0 32 -2 ;OUTLVL KEYVEL EGR1 EGR2 EGR3 EGR4 EGL1 EGL2 EGL3 EGL4 54 2 53 64 48 54 70 81 52 0 ;AMS FIXED? FREQ DET RSC 0 0 1 0 2 ;====================================================================; ; Yamaha DX7 Algorithm 15 ; ; ; ; p02 = start p03 = dur p04 = pch p05 = vel ; ; p06 = panfac p07 = vibdel p08 = vibwth p09 = vibhz ; ; p10 = op1fn p11 = op2fn p12 = op3fn p13 = op4fn ; ; p14 = op5fn p15 = op6fn p16 = ampfn p17 = pkamp ; ; p18 = rsfn p19 = devfn p20 = erisfn p21 = edecfn ; ; p22 = vsfn p23 = velfn p24 = feedfn p25 = feedbk ; ; p26 = Algorithm Number (Disabled) ; ;====================================================================; t 0.000 65.000 f0 23 e </CsScore> </CsoundSynthesizer> Send bugs reports to this list. To unsubscribe, send email sympa@lists.bath.ac.uk with body "unsubscribe csound"

Date	2010-01-25 11:39
From	Andres Cabrera
Subject	[Csnd] Re: Re: Re: how to use a catalog instrument for midi
	Hi Stefan, The limitation in this case is that MIDI can only transmit two values as part of a note event (note and velocity), while csound can have many values (p-fields), so there are many cases where instruments are just not transferable directly for MIDI. You could however do some modifying and assign MIDI controllers to these, but this would involve some extra work. Cheers, Andrés On Mon, Jan 25, 2010 at 10:51 AM, Stefan Thomas wrote: > Dear Victor, > thanks for Your fast reply. > I guess it helped me very much. > For the future I would like to make the suggestion, that the instruments in > the csound-catalog should be designed for compiling as well for real-time > usage, if it is possible. > > 2010/1/25 Victor Lazzarini >> >> I think there are two basic things you need to do: >> >> 1. all variables coming from p-fields except amp(vel) and freq(note) have >> to be given constant values, then use p4 and p5 to translate vel and note >> number. >> 2. all envelopes need to be substituted by the 'r' envelopes (linen -> >> linenr) >> >> There might be other small tweaks, but these are the main things. >> >> Victor >> >> On 25 Jan 2010, at 09:03, Stefan Thomas wrote: >> >>> Dear community, >>> I would like to use the below listed csd-file for live midi-input. I've >>> copied it from the csound-catalog. >>> I tried it with the comman-line flags >>> -odac -Ma -b128 -B512 --midi-key=4 --midi-velocity-amp=5 >>> but without success. >>> Unfortunately I can't see my mistake. >>> Here is the file: >>> >>> >>> -odac -Ma -b128 -B512 --midi-key=4 --midi-velocity-amp=5 >>> >>> >>> sr = 44100 >>> kr = 4410 >>> ksmps = 10 >>> nchnls = 1 >>> >>> ;========================================================================; >>> ; Yamaha DX7 Algorithm 15 >>> ; >>> >>> ;========================================================================; >>> instr 1 >>> ihold >>> idur = abs(p3) >>> ibase = (exp((p4/12) * log(2))/log(2.71828183)) * >>> 8.175 >>> iroct = octcps(p4) >>> irbase = octpch(4.09) >>> irrange = octpch(13.06)-irbase >>> iveloc = p5 >>> iop1fn = p10 >>> iop2fn = p11 >>> iop3fn = p12 >>> iop4fn = p13 >>> iop5fn = p14 >>> iop6fn = p15 >>> iampfn = p16 >>> ipkamp = p17 >>> irsfn = p18 >>> idevfn = p19 >>> irisefn = p20 >>> idecfn = p21 >>> ivsfn = p22 >>> ivelfn = p23 >>> iveloc table iveloc,ivelfn >>> iveloc = iveloc * 1.10 >>> ifeedfn = p24 >>> ifeed table p25,ifeedfn >>> ifeed = ifeed/(2 * 3.14159) >>> idetfac = 4 >>> imap128 = 127/99 >>> irscl table (iroct-irbase)/irrange127,irsfn >>> irscl = irscl6 >>> iop = 1 >>> iopfn = iop1fn >>> loop: >>> ;---------------------------------READ OPERATOR PARAMETERS >>> ilvl table 0,iopfn >>> ivel table 1,iopfn >>> iegr1 table 2,iopfn >>> iegr2 table 3,iopfn >>> iegr3 table 4,iopfn >>> iegr4 table 5,iopfn >>> iegl1 table 6,iopfn >>> iegl2 table 7,iopfn >>> iegl3 table 8,iopfn >>> iegl4 table 9,iopfn >>> iams table 10,iopfn >>> imode table 11,iopfn >>> ifreq table 12,iopfn >>> idet table 13,iopfn >>> irss table 14,iopfn >>> ;----------------------------------INITIALIZE OPERATOR >>> ihz = (imode > 0 ? ifreq : ibase * ifreq) + >>> idet/idetfac >>> iamp = ilvl/99 >>> ivfac table ivel,ivsfn >>> >>> iegl1 = iampiegl1 >>> iegl2 = iampiegl2 >>> iegl3 = iampiegl3 >>> iegl4 = iampiegl4 >>> >>> iegl1 = iegl1(1-ivfac)+iegl1ivfaciveloc >>> iegl2 = iegl2(1-ivfac)+iegl2ivfaciveloc >>> iegl3 = iegl3(1-ivfac)+iegl3ivfaciveloc >>> iegl4 = iegl4(1-ivfac)+iegl4ivfaciveloc >>> >>> irs = irsclirss >>> iegr1 = (iegr1+irs > 99 ? 99 : iegr1+irs) >>> iegr2 = (iegr2+irs > 99 ? 99 : iegr2+irs) >>> iegr3 = (iegr3+irs > 99 ? 99 : iegr3+irs) >>> iegr4 = (iegr4+irs > 99 ? 99 : iegr4+irs) >>> >>> irfn = (iegl1 > iegl4 ? irisefn : idecfn) >>> iegd1 table iegr1,irfn >>> ;CONVERT RATE->DUR >>> ipct1 table iegl4,irfn+1 >>> ;PCT FN IS NEXT ONE >>> ipct2 table iegl1,irfn+1 >>> iegd1 = abs(iegd1ipct1-iegd1ipct2) >>> iegd1 = (iegd1 == 0 ? .001 : iegd1) >>> >>> irfn = (iegl2 > iegl1 ? irisefn : idecfn) >>> iegd2 table iegr2,irfn >>> ipct1 table iegl1,irfn+1 >>> ipct2 table iegl2,irfn+1 >>> iegd2 = abs(iegd2ipct1-iegd2ipct2) >>> iegd2 = (iegd2 == 0 ? .001 : iegd2) >>> >>> irfn = (iegl3 > iegl2 ? irisefn : idecfn) >>> iegd3 table iegr3,irfn >>> ipct1 table iegl2,irfn+1 >>> ipct2 table iegl3,irfn+1 >>> iegd3 = abs(iegd3ipct1-iegd3ipct2) >>> iegd3 = (iegd3 == 0 ? .001 : iegd3) >>> >>> iegd4 table iegr4,idecfn >>> if (iegl3 <= iegl4) igoto continue >>> ipct1 table iegl3,irfn+1 >>> ipct2 table iegl4,irfn+1 >>> iegd4 = abs(iegd4ipct1-iegd4ipct2) >>> iegd4 = (iegd4 == 0 ? .001 : iegd4) >>> >>> continue: >>> if (iop > 1) igoto op2 >>> op1: >>> i1egd1 = iegd1 >>> i1egd2 = iegd2 >>> i1egd3 = iegd3 >>> i1egd4 = iegd4 >>> i1egl1 = iegl1 >>> i1egl2 = iegl2 >>> i1egl3 = iegl3 >>> i1egl4 = iegl4 >>> i1ams = iams >>> i1hz = ihz >>> iop = iop + 1 >>> iopfn = iop2fn >>> igoto loop >>> >>> op2: if (iop > 2) igoto op3 >>> i2egd1 = iegd1 >>> i2egd2 = iegd2 >>> i2egd3 = iegd3 >>> i2egd4 = iegd4 >>> i2egl1 = iegl1 >>> i2egl2 = iegl2 >>> i2egl3 = iegl3 >>> i2egl4 = iegl4 >>> i2ams = iams >>> i2hz = ihz >>> iop = iop + 1 >>> iopfn = iop3fn >>> igoto loop >>> >>> op3: if (iop > 3) igoto op4 >>> i3egd1 = iegd1 >>> i3egd2 = iegd2 >>> i3egd3 = iegd3 >>> i3egd4 = iegd4 >>> i3egl1 = iegl1 >>> i3egl2 = iegl2 >>> i3egl3 = iegl3 >>> i3egl4 = iegl4 >>> i3ams = iams >>> i3hz = ihz >>> iop = iop + 1 >>> iopfn = iop4fn >>> igoto loop >>> >>> op4: if (iop > 4) igoto op5 >>> i4egd1 = iegd1 >>> i4egd2 = iegd2 >>> i4egd3 = iegd3 >>> i4egd4 = iegd4 >>> i4egl1 = iegl1 >>> i4egl2 = iegl2 >>> i4egl3 = iegl3 >>> i4egl4 = iegl4 >>> i4ams = iams >>> i4hz = ihz >>> iop = iop + 1 >>> iopfn = iop5fn >>> igoto loop >>> >>> op5: if (iop > 5) igoto op6 >>> i5egd1 = iegd1 >>> i5egd2 = iegd2 >>> i5egd3 = iegd3 >>> i5egd4 = iegd4 >>> i5egl1 = iegl1 >>> i5egl2 = iegl2 >>> i5egl3 = iegl3 >>> i5egl4 = iegl4 >>> i5ams = iams >>> i5hz = ihz >>> iop = iop + 1 >>> iopfn = iop6fn >>> igoto loop >>> >>> op6: >>> i6egd1 = iegd1 >>> i6egd2 = iegd2 >>> i6egd3 = iegd3 >>> i6egd4 = iegd4 >>> i6egl1 = iegl1 >>> i6egl2 = iegl2 >>> i6egl3 = iegl3 >>> i6egl4 = iegl4 >>> i6ams = iams >>> i6hz = ihz >>> ;============================================================ >>> >>> timout idur,999,final ;SKIP DURING >>> FINAL DECAY >>> k1sus linseg >>> i1egl4,i1egd1,i1egl1,i1egd2,i1egl2,i1egd3,i1egl3,1,i1egl3 >>> k2sus linseg >>> i2egl4,i2egd1,i2egl1,i2egd2,i2egl2,i2egd3,i2egl3,1,i2egl3 >>> k3sus linseg >>> i3egl4,i3egd1,i3egl1,i3egd2,i3egl2,i3egd3,i3egl3,1,i3egl3 >>> k4sus linseg >>> i4egl4,i4egd1,i4egl1,i4egd2,i4egl2,i4egd3,i4egl3,1,i4egl3 >>> k5sus linseg >>> i5egl4,i5egd1,i5egl1,i5egd2,i5egl2,i5egd3,i5egl3,1,i5egl3 >>> k6sus linseg >>> i6egl4,i6egd1,i6egl1,i6egd2,i6egl2,i6egd3,i6egl3,1,i6egl3 >>> k1phs = k1sus >>> k2phs = k2sus >>> k3phs = k3sus >>> k4phs = k4sus >>> k5phs = k5sus >>> k6phs = k6sus >>> kgoto structure >>> >>> final: >>> k1fin linseg 1,i1egd4,0,1,0 >>> k1phs = i1egl4+(k1sus-i1egl4)k1fin >>> k2fin linseg 1,i2egd4,0,1,0 >>> k2phs = i2egl4+(k2sus-i2egl4)k2fin >>> k3fin linseg 1,i3egd4,0,1,0 >>> k3phs = i3egl4+(k3sus-i3egl4)k3fin >>> k4fin linseg 1,i4egd4,0,1,0 >>> k4phs = i4egl4+(k4sus-i4egl4)k4fin >>> k5fin linseg 1,i5egd4,0,1,0 >>> k5phs = i5egl4+(k5sus-i5egl4)k5fin >>> k6fin linseg 1,i6egd4,0,1,0 >>> k6phs = i6egl4+(k6sus-i6egl4)k6fin >>> kgoto carrier >>> ;==================================================================== >>> ;DETERMINE ALGORITHM PATHWAY!!!!!!!!!!!!!!!!!!!!!!!! >>> ;==================================================================== >>> carrier: if (k1fin + k3fin) > 0 kgoto structure >>> turnoff >>> ;==================================================================== >>> ;STRUCTURE SECTION - TELLS OPS WHETHER THEY ARE CARRIERS OR MODULATORS. >>> ;==================================================================== >>> structure: >>> k1gate tablei k1phs,iampfn >>> k2gate tablei k2phs,idevfn >>> k3gate tablei k3phs,iampfn >>> k4gate tablei k4phs,idevfn >>> k5gate tablei k5phs,idevfn >>> k6gate tablei k6phs,idevfn >>> >>> a6sig oscili k6gate,i6hz,1 >>> >>> a5sig oscili k5gate,i5hz,1 >>> >>> a4phs phasor i4hz >>> a4sig tablei a4phs+a5sig+a6sig,1,1,0,1 >>> a4sig = a4sigk4gate >>> >>> a3phs phasor i3hz >>> a3sig tablei a3phs+a4sig,1,1,0,1 >>> a3sig = a3sigk3gate >>> >>> a2sig init 0 >>> a2phs phasor i2hz >>> a2sig tablei a2phs+a2sigifeed,1,1,0,1 >>> a2sig = a2sigk2gate >>> >>> a1phs phasor i1hz >>> a1sig tablei a1phs+a2sig,1,1,0,1 >>> a1sig = a1sigk1gate >>> >>> out (a1sig + a3sig) * ipkamp >>> endin >>> >>> >>> ; die Partiturereignisse werden definiert >>> >>> >>> >>> >>> ;============================================================================ >>> ; CELLO - ALGORITHM #15 >>> >>> ;============================================================================ >>> ; SIMPLE SINE FUNCTION >>> f01 0 4096 10 1 >>> ; OPERATOR OUTPUT LEVEL TO AMP SCALE FUNCTION (DATA FROM >>> CHOWNING/BRISTOW) >>> f02 0 128 7 0 10 .003 10 .013 >>> 10 .031 10 .079 10 .188 10 .446 >>> 5 .690 5 1.068 5 1.639 5 2.512 >>> 5 3.894 5 6.029 5 9.263 4 13.119 >>> 29 13.119 >>> ; RATE SCALING FUNCTION >>> f03 0 128 7 0 128 1 >>> ; EG RATE RISE FUNCTION FOR LVL CHANGE BETWEEN 0 AND 99 (DATA FROM >>> OPCODE) >>> f04 0 128 -7 38 5 22.8 5 12 5 >>> 7.5 5 4.8 5 2.7 5 1.8 5 >>> 1.3 >>> 8 .737 3 .615 3 .505 3 .409 3 >>> .321 6 .080 6 .055 2 .032 3 >>> .024 >>> 3 .018 3 .014 3 .011 3 .008 3 >>> .008 3 .007 3 .005 3 .003 32 >>> .003 >>> ; EG RATE RISE PERCENTAGE FUNCTION >>> f05 0 128 -7 .00001 31 .00001 4 .02 5 >>> .06 10 .14 10 .24 10 .35 10 >>> .50 >>> 10 .70 5 .86 4 1.0 29 1.0 >>> ; EG RATE DECAY FUNCTION FOR LVL CHANGE BETWEEN 0 AND 99 >>> f06 0 128 -7 318 4 181 5 115 5 >>> 63 5 39.7 5 20 5 11.2 5 7 >>> 8 5.66 3 3.98 6 1.99 3 1.34 3 >>> .99 3 .71 5 .41 3 .15 3 >>> .081 >>> 3 .068 3 .047 3 .037 3 .025 3 >>> .02 3 .013 3 .008 36 .008 >>> ; EG RATE DECAY PERCENTAGE FUNCTION >>> f07 0 128 -7 .00001 10 .25 10 .35 >>> 10 >>> .43 10 .52 10 .59 10 .70 10 >>> .77 >>> 10 .84 10 .92 9 1.0 29 1.0 >>> ; EG LEVEL TO AMP FACTOR MAPPING FUNCTION (INDEX IN RADIANS = INDEX / >>> 2PI) >>> ;f08 0 128 6 .001 96 .5 32 1 >>> ;f08 0 128 -6 0 64 .0318 0 .0318 64 2.08795 >>> f08 0 128 -7 0 10 .000477 10 .002 >>> 10 .00493 10 .01257 10 .02992 10 .07098 >>> 5 .10981 5 .16997 5 .260855 5 .39979 >>> 5 .61974 5 .95954 5 1.47425 4 2.08795 >>> 29 2.08795 >>> ; VELOCITY TO AMP FACTOR MAPPING FUNCTION (ROUGH GUESS) >>> f09 0 129 9 .25 1 0 >>> ; VELOCITY SENSITIVITY SCALING FUNCTION >>> f10 0 8 -7 0 8 1 >>> ; FEEDBACK SCALING FUNCTION >>> f11 0 8 -6 0 8 6 >>> >>> ; OPERATOR 1 PARAMETERS: >>> f12 0 32 -2 >>> ;OUTLVL KEYVEL EGR1 EGR2 EGR3 EGR4 EGL1 EGL2 EGL3 EGL4 >>> 99 1 52 30 25 43 98 99 98 0 >>> ;AMS FIXED? FREQ DET RSC >>> 0 0 1 +1 2 >>> >>> ; OPERATOR 2 PARAMETERS >>> f13 0 32 -2 >>> ;OUTLVL KEYVEL EGR1 EGR2 EGR3 EGR4 EGL1 EGL2 EGL3 EGL4 >>> 86 1 86 67 75 57 82 90 87 0 >>> ;AMS FIXED? FREQ DET RSC >>> 0 0 1 0 1 >>> >>> ; OPERATOR 3 PARAMETERS >>> f14 0 32 -2 >>> ;OUTLVL KEYVEL EGR1 EGR2 EGR3 EGR4 EGL1 EGL2 EGL3 EGL4 >>> 99 5 50 27 35 41 95 94 94 0 >>> ;AMS FIXED? FREQ DET RSC >>> 0 0 1 -1 2 >>> >>> ; OPERATOR 4 PARAMETERS >>> f15 0 32 -2 >>> ;OUTLVL KEYVEL EGR1 EGR2 EGR3 EGR4 EGL1 EGL2 EGL3 EGL4 >>> 84 2 96 19 20 54 99 92 89 0 >>> ;AMS FIXED? FREQ DET RSC >>> 0 0 1 +1 2 >>> >>> ; OPERATOR 5 PARAMETERS >>> f16 0 32 -2 >>> ;OUTLVL KEYVEL EGR1 EGR2 EGR3 EGR4 EGL1 EGL2 EGL3 EGL4 >>> 75 2 53 67 38 54 86 92 84 0 >>> ;AMS FIXED? FREQ DET RSC >>> 0 0 5 -2 2 >>> >>> ; OPERATOR 6 PARAMETERS >>> f17 0 32 -2 >>> ;OUTLVL KEYVEL EGR1 EGR2 EGR3 EGR4 EGL1 EGL2 EGL3 EGL4 >>> 54 2 53 64 48 54 70 81 52 0 >>> ;AMS FIXED? FREQ DET RSC >>> 0 0 1 0 2 >>> >>> ;====================================================================; >>> ; Yamaha DX7 Algorithm 15 ; >>> ; ; >>> ; p02 = start p03 = dur p04 = pch p05 = vel ; >>> ; p06 = panfac p07 = vibdel p08 = vibwth p09 = vibhz ; >>> ; p10 = op1fn p11 = op2fn p12 = op3fn p13 = op4fn ; >>> ; p14 = op5fn p15 = op6fn p16 = ampfn p17 = pkamp ; >>> ; p18 = rsfn p19 = devfn p20 = erisfn p21 = edecfn ; >>> ; p22 = vsfn p23 = velfn p24 = feedfn p25 = feedbk ; >>> ; p26 = Algorithm Number (Disabled) ; >>> ;====================================================================; >>> t 0.000 65.000 >>> f0 23 >>> e >>> >>> >>> >>> >>> >> >> >> >> Send bugs reports to this list. >> To unsubscribe, send email sympa@lists.bath.ac.uk with body "unsubscribe >> csound" > > -- Andrés Send bugs reports to this list. To unsubscribe, send email sympa@lists.bath.ac.uk with body "unsubscribe csound"

Date	2010-01-25 18:05
From	Nick Suda
Subject	[Csnd] Re: Re: Re: Re: how to use a catalog instrument for midi
	Stefan, Speaking from the perspective of one of Dr. Boulanger's students, perhaps one of the points of the devices in the catalog is to challenge you to MIDIfy them yourself. This is one of the reason why we are all required to obtain a copy; most of these instruments do not appear initially to have been designed with any user interface in mind beyond the note list, and it might not make sense to slap CCs all over the p-fields, since, in this day and age, everyone uses whatever CC for whatever parameter they want. I.E; it might have made sense, before modern developers started just using all 128 numbers for whatever they want, to set a cutoff frequency p-field to CC #74 by default, but now most people are using generic MIDI controllers instead of hardware synthesizers that don't have reassignable knobs. Cheers, Nick On Mon, Jan 25, 2010 at 6:39 AM, Andres Cabrera <mantaraya36@gmail.com> wrote: Hi Stefan, The limitation in this case is that MIDI can only transmit two values as part of a note event (note and velocity), while csound can have many values (p-fields), so there are many cases where instruments are just not transferable directly for MIDI. You could however do some modifying and assign MIDI controllers to these, but this would involve some extra work. Cheers, Andrés On Mon, Jan 25, 2010 at 10:51 AM, Stefan Thomas <kontrapunktstefan@googlemail.com> wrote: > Dear Victor, > thanks for Your fast reply. > I guess it helped me very much. > For the future I would like to make the suggestion, that the instruments in > the csound-catalog should be designed for compiling as well for real-time > usage, if it is possible. > > 2010/1/25 Victor Lazzarini <Victor.Lazzarini@nuim.ie> >> >> I think there are two basic things you need to do: >> >> 1. all variables coming from p-fields except amp(vel) and freq(note) have >> to be given constant values, then use p4 and p5 to translate vel and note >> number. >> 2. all envelopes need to be substituted by the 'r' envelopes (linen -> >> linenr) >> >> There might be other small tweaks, but these are the main things. >> >> Victor >> >> On 25 Jan 2010, at 09:03, Stefan Thomas wrote: >> >>> Dear community, >>> I would like to use the below listed csd-file for live midi-input. I've >>> copied it from the csound-catalog. >>> I tried it with the comman-line flags >>> -odac -Ma -b128 -B512 --midi-key=4 --midi-velocity-amp=5 >>> but without success. >>> Unfortunately I can't see my mistake. >>> Here is the file: >>> <CsoundSynthesizer> >>> <CsOptions> >>> -odac -Ma -b128 -B512 --midi-key=4 --midi-velocity-amp=5 >>> </CsOptions> >>> <CsInstruments> >>> sr = 44100 >>> kr = 4410 >>> ksmps = 10 >>> nchnls = 1 >>> >>> ;========================================================================; >>> ; Yamaha DX7 Algorithm 15 >>> ; >>> >>> ;========================================================================; >>> instr 1 >>> ihold >>> idur = abs(p3) >>> ibase = (exp((p4/12) * log(2))/log(2.71828183)) * >>> 8.175 >>> iroct = octcps(p4) >>> irbase = octpch(4.09) >>> irrange = octpch(13.06)-irbase >>> iveloc = p5 >>> iop1fn = p10 >>> iop2fn = p11 >>> iop3fn = p12 >>> iop4fn = p13 >>> iop5fn = p14 >>> iop6fn = p15 >>> iampfn = p16 >>> ipkamp = p17 >>> irsfn = p18 >>> idevfn = p19 >>> irisefn = p20 >>> idecfn = p21 >>> ivsfn = p22 >>> ivelfn = p23 >>> iveloc table iveloc,ivelfn >>> iveloc = iveloc * 1.10 >>> ifeedfn = p24 >>> ifeed table p25,ifeedfn >>> ifeed = ifeed/(2 * 3.14159) >>> idetfac = 4 >>> imap128 = 127/99 >>> irscl table (iroct-irbase)/irrange127,irsfn >>> irscl = irscl6 >>> iop = 1 >>> iopfn = iop1fn >>> loop: >>> ;---------------------------------READ OPERATOR PARAMETERS >>> ilvl table 0,iopfn >>> ivel table 1,iopfn >>> iegr1 table 2,iopfn >>> iegr2 table 3,iopfn >>> iegr3 table 4,iopfn >>> iegr4 table 5,iopfn >>> iegl1 table 6,iopfn >>> iegl2 table 7,iopfn >>> iegl3 table 8,iopfn >>> iegl4 table 9,iopfn >>> iams table 10,iopfn >>> imode table 11,iopfn >>> ifreq table 12,iopfn >>> idet table 13,iopfn >>> irss table 14,iopfn >>> ;----------------------------------INITIALIZE OPERATOR >>> ihz = (imode > 0 ? ifreq : ibase * ifreq) + >>> idet/idetfac >>> iamp = ilvl/99 >>> ivfac table ivel,ivsfn >>> >>> iegl1 = iampiegl1 >>> iegl2 = iampiegl2 >>> iegl3 = iampiegl3 >>> iegl4 = iampiegl4 >>> >>> iegl1 = iegl1(1-ivfac)+iegl1ivfaciveloc >>> iegl2 = iegl2(1-ivfac)+iegl2ivfaciveloc >>> iegl3 = iegl3(1-ivfac)+iegl3ivfaciveloc >>> iegl4 = iegl4(1-ivfac)+iegl4ivfaciveloc >>> >>> irs = irsclirss >>> iegr1 = (iegr1+irs > 99 ? 99 : iegr1+irs) >>> iegr2 = (iegr2+irs > 99 ? 99 : iegr2+irs) >>> iegr3 = (iegr3+irs > 99 ? 99 : iegr3+irs) >>> iegr4 = (iegr4+irs > 99 ? 99 : iegr4+irs) >>> >>> irfn = (iegl1 > iegl4 ? irisefn : idecfn) >>> iegd1 table iegr1,irfn >>> ;CONVERT RATE->DUR >>> ipct1 table iegl4,irfn+1 >>> ;PCT FN IS NEXT ONE >>> ipct2 table iegl1,irfn+1 >>> iegd1 = abs(iegd1ipct1-iegd1ipct2) >>> iegd1 = (iegd1 == 0 ? .001 : iegd1) >>> >>> irfn = (iegl2 > iegl1 ? irisefn : idecfn) >>> iegd2 table iegr2,irfn >>> ipct1 table iegl1,irfn+1 >>> ipct2 table iegl2,irfn+1 >>> iegd2 = abs(iegd2ipct1-iegd2ipct2) >>> iegd2 = (iegd2 == 0 ? .001 : iegd2) >>> >>> irfn = (iegl3 > iegl2 ? irisefn : idecfn) >>> iegd3 table iegr3,irfn >>> ipct1 table iegl2,irfn+1 >>> ipct2 table iegl3,irfn+1 >>> iegd3 = abs(iegd3ipct1-iegd3ipct2) >>> iegd3 = (iegd3 == 0 ? .001 : iegd3) >>> >>> iegd4 table iegr4,idecfn >>> if (iegl3 <= iegl4) igoto continue >>> ipct1 table iegl3,irfn+1 >>> ipct2 table iegl4,irfn+1 >>> iegd4 = abs(iegd4ipct1-iegd4ipct2) >>> iegd4 = (iegd4 == 0 ? .001 : iegd4) >>> >>> continue: >>> if (iop > 1) igoto op2 >>> op1: >>> i1egd1 = iegd1 >>> i1egd2 = iegd2 >>> i1egd3 = iegd3 >>> i1egd4 = iegd4 >>> i1egl1 = iegl1 >>> i1egl2 = iegl2 >>> i1egl3 = iegl3 >>> i1egl4 = iegl4 >>> i1ams = iams >>> i1hz = ihz >>> iop = iop + 1 >>> iopfn = iop2fn >>> igoto loop >>> >>> op2: if (iop > 2) igoto op3 >>> i2egd1 = iegd1 >>> i2egd2 = iegd2 >>> i2egd3 = iegd3 >>> i2egd4 = iegd4 >>> i2egl1 = iegl1 >>> i2egl2 = iegl2 >>> i2egl3 = iegl3 >>> i2egl4 = iegl4 >>> i2ams = iams >>> i2hz = ihz >>> iop = iop + 1 >>> iopfn = iop3fn >>> igoto loop >>> >>> op3: if (iop > 3) igoto op4 >>> i3egd1 = iegd1 >>> i3egd2 = iegd2 >>> i3egd3 = iegd3 >>> i3egd4 = iegd4 >>> i3egl1 = iegl1 >>> i3egl2 = iegl2 >>> i3egl3 = iegl3 >>> i3egl4 = iegl4 >>> i3ams = iams >>> i3hz = ihz >>> iop = iop + 1 >>> iopfn = iop4fn >>> igoto loop >>> >>> op4: if (iop > 4) igoto op5 >>> i4egd1 = iegd1 >>> i4egd2 = iegd2 >>> i4egd3 = iegd3 >>> i4egd4 = iegd4 >>> i4egl1 = iegl1 >>> i4egl2 = iegl2 >>> i4egl3 = iegl3 >>> i4egl4 = iegl4 >>> i4ams = iams >>> i4hz = ihz >>> iop = iop + 1 >>> iopfn = iop5fn >>> igoto loop >>> >>> op5: if (iop > 5) igoto op6 >>> i5egd1 = iegd1 >>> i5egd2 = iegd2 >>> i5egd3 = iegd3 >>> i5egd4 = iegd4 >>> i5egl1 = iegl1 >>> i5egl2 = iegl2 >>> i5egl3 = iegl3 >>> i5egl4 = iegl4 >>> i5ams = iams >>> i5hz = ihz >>> iop = iop + 1 >>> iopfn = iop6fn >>> igoto loop >>> >>> op6: >>> i6egd1 = iegd1 >>> i6egd2 = iegd2 >>> i6egd3 = iegd3 >>> i6egd4 = iegd4 >>> i6egl1 = iegl1 >>> i6egl2 = iegl2 >>> i6egl3 = iegl3 >>> i6egl4 = iegl4 >>> i6ams = iams >>> i6hz = ihz >>> ;============================================================ >>> >>> timout idur,999,final ;SKIP DURING >>> FINAL DECAY >>> k1sus linseg >>> i1egl4,i1egd1,i1egl1,i1egd2,i1egl2,i1egd3,i1egl3,1,i1egl3 >>> k2sus linseg >>> i2egl4,i2egd1,i2egl1,i2egd2,i2egl2,i2egd3,i2egl3,1,i2egl3 >>> k3sus linseg >>> i3egl4,i3egd1,i3egl1,i3egd2,i3egl2,i3egd3,i3egl3,1,i3egl3 >>> k4sus linseg >>> i4egl4,i4egd1,i4egl1,i4egd2,i4egl2,i4egd3,i4egl3,1,i4egl3 >>> k5sus linseg >>> i5egl4,i5egd1,i5egl1,i5egd2,i5egl2,i5egd3,i5egl3,1,i5egl3 >>> k6sus linseg >>> i6egl4,i6egd1,i6egl1,i6egd2,i6egl2,i6egd3,i6egl3,1,i6egl3 >>> k1phs = k1sus >>> k2phs = k2sus >>> k3phs = k3sus >>> k4phs = k4sus >>> k5phs = k5sus >>> k6phs = k6sus >>> kgoto structure >>> >>> final: >>> k1fin linseg 1,i1egd4,0,1,0 >>> k1phs = i1egl4+(k1sus-i1egl4)k1fin >>> k2fin linseg 1,i2egd4,0,1,0 >>> k2phs = i2egl4+(k2sus-i2egl4)k2fin >>> k3fin linseg 1,i3egd4,0,1,0 >>> k3phs = i3egl4+(k3sus-i3egl4)k3fin >>> k4fin linseg 1,i4egd4,0,1,0 >>> k4phs = i4egl4+(k4sus-i4egl4)k4fin >>> k5fin linseg 1,i5egd4,0,1,0 >>> k5phs = i5egl4+(k5sus-i5egl4)k5fin >>> k6fin linseg 1,i6egd4,0,1,0 >>> k6phs = i6egl4+(k6sus-i6egl4)k6fin >>> kgoto carrier >>> ;==================================================================== >>> ;DETERMINE ALGORITHM PATHWAY!!!!!!!!!!!!!!!!!!!!!!!! >>> ;==================================================================== >>> carrier: if (k1fin + k3fin) > 0 kgoto structure >>> turnoff >>> ;==================================================================== >>> ;STRUCTURE SECTION - TELLS OPS WHETHER THEY ARE CARRIERS OR MODULATORS. >>> ;==================================================================== >>> structure: >>> k1gate tablei k1phs,iampfn >>> k2gate tablei k2phs,idevfn >>> k3gate tablei k3phs,iampfn >>> k4gate tablei k4phs,idevfn >>> k5gate tablei k5phs,idevfn >>> k6gate tablei k6phs,idevfn >>> >>> a6sig oscili k6gate,i6hz,1 >>> >>> a5sig oscili k5gate,i5hz,1 >>> >>> a4phs phasor i4hz >>> a4sig tablei a4phs+a5sig+a6sig,1,1,0,1 >>> a4sig = a4sigk4gate >>> >>> a3phs phasor i3hz >>> a3sig tablei a3phs+a4sig,1,1,0,1 >>> a3sig = a3sigk3gate >>> >>> a2sig init 0 >>> a2phs phasor i2hz >>> a2sig tablei a2phs+a2sigifeed,1,1,0,1 >>> a2sig = a2sigk2gate >>> >>> a1phs phasor i1hz >>> a1sig tablei a1phs+a2sig,1,1,0,1 >>> a1sig = a1sigk1gate >>> >>> out (a1sig + a3sig) * ipkamp >>> endin >>> >>> </CsInstruments> >>> ; die Partiturereignisse werden definiert >>> <CsScore> >>> >>> >>> >>> ;============================================================================ >>> ; CELLO - ALGORITHM #15 >>> >>> ;============================================================================ >>> ; SIMPLE SINE FUNCTION >>> f01 0 4096 10 1 >>> ; OPERATOR OUTPUT LEVEL TO AMP SCALE FUNCTION (DATA FROM >>> CHOWNING/BRISTOW) >>> f02 0 128 7 0 10 .003 10 .013 >>> 10 .031 10 .079 10 .188 10 .446 >>> 5 .690 5 1.068 5 1.639 5 2.512 >>> 5 3.894 5 6.029 5 9.263 4 13.119 >>> 29 13.119 >>> ; RATE SCALING FUNCTION >>> f03 0 128 7 0 128 1 >>> ; EG RATE RISE FUNCTION FOR LVL CHANGE BETWEEN 0 AND 99 (DATA FROM >>> OPCODE) >>> f04 0 128 -7 38 5 22.8 5 12 5 >>> 7.5 5 4.8 5 2.7 5 1.8 5 >>> 1.3 >>> 8 .737 3 .615 3 .505 3 .409 3 >>> .321 6 .080 6 .055 2 .032 3 >>> .024 >>> 3 .018 3 .014 3 .011 3 .008 3 >>> .008 3 .007 3 .005 3 .003 32 >>> .003 >>> ; EG RATE RISE PERCENTAGE FUNCTION >>> f05 0 128 -7 .00001 31 .00001 4 .02 5 >>> .06 10 .14 10 .24 10 .35 10 >>> .50 >>> 10 .70 5 .86 4 1.0 29 1.0 >>> ; EG RATE DECAY FUNCTION FOR LVL CHANGE BETWEEN 0 AND 99 >>> f06 0 128 -7 318 4 181 5 115 5 >>> 63 5 39.7 5 20 5 11.2 5 7 >>> 8 5.66 3 3.98 6 1.99 3 1.34 3 >>> .99 3 .71 5 .41 3 .15 3 >>> .081 >>> 3 .068 3 .047 3 .037 3 .025 3 >>> .02 3 .013 3 .008 36 .008 >>> ; EG RATE DECAY PERCENTAGE FUNCTION >>> f07 0 128 -7 .00001 10 .25 10 .35 >>> 10 >>> .43 10 .52 10 .59 10 .70 10 >>> .77 >>> 10 .84 10 .92 9 1.0 29 1.0 >>> ; EG LEVEL TO AMP FACTOR MAPPING FUNCTION (INDEX IN RADIANS = INDEX / >>> 2PI) >>> ;f08 0 128 6 .001 96 .5 32 1 >>> ;f08 0 128 -6 0 64 .0318 0 .0318 64 2.08795 >>> f08 0 128 -7 0 10 .000477 10 .002 >>> 10 .00493 10 .01257 10 .02992 10 .07098 >>> 5 .10981 5 .16997 5 .260855 5 .39979 >>> 5 .61974 5 .95954 5 1.47425 4 2.08795 >>> 29 2.08795 >>> ; VELOCITY TO AMP FACTOR MAPPING FUNCTION (ROUGH GUESS) >>> f09 0 129 9 .25 1 0 >>> ; VELOCITY SENSITIVITY SCALING FUNCTION >>> f10 0 8 -7 0 8 1 >>> ; FEEDBACK SCALING FUNCTION >>> f11 0 8 -6 0 8 6 >>> >>> ; OPERATOR 1 PARAMETERS: >>> f12 0 32 -2 >>> ;OUTLVL KEYVEL EGR1 EGR2 EGR3 EGR4 EGL1 EGL2 EGL3 EGL4 >>> 99 1 52 30 25 43 98 99 98 0 >>> ;AMS FIXED? FREQ DET RSC >>> 0 0 1 +1 2 >>> >>> ; OPERATOR 2 PARAMETERS >>> f13 0 32 -2 >>> ;OUTLVL KEYVEL EGR1 EGR2 EGR3 EGR4 EGL1 EGL2 EGL3 EGL4 >>> 86 1 86 67 75 57 82 90 87 0 >>> ;AMS FIXED? FREQ DET RSC >>> 0 0 1 0 1 >>> >>> ; OPERATOR 3 PARAMETERS >>> f14 0 32 -2 >>> ;OUTLVL KEYVEL EGR1 EGR2 EGR3 EGR4 EGL1 EGL2 EGL3 EGL4 >>> 99 5 50 27 35 41 95 94 94 0 >>> ;AMS FIXED? FREQ DET RSC >>> 0 0 1 -1 2 >>> >>> ; OPERATOR 4 PARAMETERS >>> f15 0 32 -2 >>> ;OUTLVL KEYVEL EGR1 EGR2 EGR3 EGR4 EGL1 EGL2 EGL3 EGL4 >>> 84 2 96 19 20 54 99 92 89 0 >>> ;AMS FIXED? FREQ DET RSC >>> 0 0 1 +1 2 >>> >>> ; OPERATOR 5 PARAMETERS >>> f16 0 32 -2 >>> ;OUTLVL KEYVEL EGR1 EGR2 EGR3 EGR4 EGL1 EGL2 EGL3 EGL4 >>> 75 2 53 67 38 54 86 92 84 0 >>> ;AMS FIXED? FREQ DET RSC >>> 0 0 5 -2 2 >>> >>> ; OPERATOR 6 PARAMETERS >>> f17 0 32 -2 >>> ;OUTLVL KEYVEL EGR1 EGR2 EGR3 EGR4 EGL1 EGL2 EGL3 EGL4 >>> 54 2 53 64 48 54 70 81 52 0 >>> ;AMS FIXED? FREQ DET RSC >>> 0 0 1 0 2 >>> >>> ;====================================================================; >>> ; Yamaha DX7 Algorithm 15 ; >>> ; ; >>> ; p02 = start p03 = dur p04 = pch p05 = vel ; >>> ; p06 = panfac p07 = vibdel p08 = vibwth p09 = vibhz ; >>> ; p10 = op1fn p11 = op2fn p12 = op3fn p13 = op4fn ; >>> ; p14 = op5fn p15 = op6fn p16 = ampfn p17 = pkamp ; >>> ; p18 = rsfn p19 = devfn p20 = erisfn p21 = edecfn ; >>> ; p22 = vsfn p23 = velfn p24 = feedfn p25 = feedbk ; >>> ; p26 = Algorithm Number (Disabled) ; >>> ;====================================================================; >>> t 0.000 65.000 >>> f0 23 >>> e >>> >>> </CsScore> >>> </CsoundSynthesizer> >>> >>> >> >> >> >> Send bugs reports to this list. >> To unsubscribe, send email sympa@lists.bath.ac.uk with body "unsubscribe >> csound" > > -- Andrés Send bugs reports to this list. To unsubscribe, send email sympa@lists.bath.ac.uk with body "unsubscribe csound"