While looking for the pgmin UDO today, I noticed it wasn't in the
repository! This must've not been re-added from a while back when the
repository was lost.
Anyway, I've restored the UDO and example .csd. Appended to this email
will also be the unified .csd for archiving purposes.
-David
<CsoundSynthesizer>
<CsInstruments>
sr = 44100
kr = 441
ksmps = 100
nchnls = 2
massign 1, 1
pgmassign -1, -1
/* change soundfont here */
gi2 sfload "/Library/Audio/Sounds/Banks/synthgms.sf2"
gipres init 1
gkpres init 1
sfilist gi2
sfplist gi2
sfpassign 0, gi2
;//
opcode pgmin, kk, 0
kstatus, kchan, kdata1, kdata2 midiin
if (kstatus == 192 && kchan == 1) then
kpgm = kdata1
else
endif
xout kpgm, kchan
endop
;//
/*--- ---*/
instr 1
ifreq cpsmidi
iamp ampmidi 2
inum notnum
ivel veloc
kfreq init 1
kvol ctrl7 1, 7, -2, 8
gipres = i(gkpres)
; printk2 gipres
kamp linsegr 1, 1, 1, 0.618, 0 ; adjust the release time to suit the
sample set
a1,a2 sfplay ivel, inum, kamp*(iamp+kvol), kfreq, gipres, 0
outs a1,a2
endin
/*--- ---*/
instr 2
kmodw ctrl7 1, 1, 0, 2
kpgm, kchan pgmin
gkpres = kpgm
if (kmodw >= 1) then
printks "\nPreset index: %i\n\n", 2, kpgm+1
else
endif
endin
/*--- ---*/
</CsInstruments>
<CsScore>
i1 0 3600
i2 0 3600
e
</CsScore>
</CsoundSynthesizer>
Send bugs reports to this list.
To unsubscribe, send email
sympa@... with body "unsubscribe csound"
