Pluck This is a basic instrument using the pluck opcode. The pluck opcode is in a UDO called mvpPluck, that adjusts the parameters if necessary, so you can twiddle around with the parameters without caring about the restrictions. It does not allow you to choose a custom table. You can specify a release time, which is necessary if the note ends before the signal dies out by itself. I added an experimental feature: you can silence the begin of the instrument, which takes away the transients at the very beginning, producing a more monotonous but often still beautiful sound. Of course you have to take into account in your score that if you use this feature, the signal will start a little later. Usage: p4: pitch or frequency p5: in decibels below 0dbfs if 0 or negative, otherwise amplitude as fraction of 0dbfs (0-1) gi_cosine ftgen 0, 0, 65536, 11, 1, 1 ifreq = cpspch(p4) iamp = ((p5 > 0) ? 0dbfs*p5 : ampdbfs(p5))*1.4 asig mvpPluck iamp, ifreq, <method>, i(<par1>)<par1_mod>, i(<par2>)<par2_mod>, ifreq/(i(<buffer_size>)<buffer_size_mod>) kleft, kright panner <pan><pan_mod> if (<silence_begin>!=0) then isilence_length = i(<silence_length>)<silence_length_mod> istart = isilence_length + i(<attack_after_silence>) kenv linseg 0, isilence_length, 0, i(<attack_after_silence>), 1, p3-istart-<release>, 1, <release>, 0 else kenv linseg 1, p3-<release>, 1, <release>, 0 endif kleft = kleft*kenv kright = kright*kenv blueMixerOut asig*kleft, asig*kright method 18 90 Simple averaging 1 Stretched averaging 2 Simple drum (par 1) 3 Stretched drum (par 1, 2) 4 Weighted averaging (par 1, 2) 5 1st order recursive filter 6 0 true par1 19 145 true 0.0 1.0 0.081290476 60 true par2 99 145 true 0.0 1.0 0.09501993 60 true buffer_size 188 145 true 0.0 4.0 1.3687252 60 true 190 126 buffer size 115 126 par 2 35 126 par 1 pan 459 137 true -1.0 1.0 0.0 60 false 478 111 Pan pan_mod 459 218 60 silence_begin 23 295 Silence begin false true 131 329 Attack attack_after_silence 120 348 true 0.0 0.3 0.15186237 60 true 48 330 Length silence_length 37 349 true 0.0 0.3 0.04797499 60 true silence_length_mod 37 428 60 24 17 <html><font size="+3">Pluck</font></html> par1_mod 19 225 60 par2_mod 99 225 60 buffer_size_mod 188 225 60 release 288 145 false 0.0 0.5 0.12290563 60 true 297 126 release panner kk k ; sin/cos taper, constant power. kPanpos xin kPanpos = kPanpos/2 kPanpos = kPanpos * 3.14159265359 * .5 kLeft = sqrt(2) / 2 * (cos(kPanpos) - sin(kPanpos)) kRight = sqrt(2) / 2 * (cos(kPanpos) + sin(kPanpos)) xout kLeft,kRight mvpPluck a ikiiii iamp, kfreq, imethod, ipar1, ipar2, ibufsize xin if (imethod==2) then ipar1 = 1 ipar2 = 0 elseif (imethod==4) then ipar2 = 1 elseif (imethod==5) then isum = ipar1+ipar2 if ((isum)>1) then ipar1 = ipar1 / (isum*1.0001) ipar2 = ipar2 / (isum*1.0001) endif endif asig pluck iamp, kfreq, ibufsize, 0, imethod, ipar1, ipar2 xout asig