Sine modulo pluck This instrument modulates a sine wave with the signal generated by the pluck opcode. You can optionally modulate a second time. For both you can choose between phase modulation and frequency modulation. Phase modulation usually sounds more harsh, frequency modulation usually sounds warmer. 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. The frequency of the sine and the pluck signal are the requested frequency multiplied by an integer from 1 to 5. To have the requested frequency as a basic harmonic, the greatest common divisor of these two integers should of course be 1. The envelope is that of the signal created by the pluck opcode, otherwise you are left with a dull sine when the signal of the pluck opcode has died out. Some knobs have a text field under them, these allow you to change the value (e.g. an extra p-field or a global value). 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, 2^18+1, 11, 1, 1 ifreq getFrequency p4 iamp = ((p5 > 0) ? 0dbfs*p5 : ampdbfs(p5)) if (<use_detune_modulator>==1) then imod_freq = ifreq*(<mod_freq_mult>+i(<detune_modulator>)) else imod_freq = ifreq*<mod_freq_mult> endif asig mvpPluck 1, imod_freq, <method>, i(<par1>), i(<par2>), imod_freq/i(<buffer_size><buffer_size_mod>) kenv rms asig kenv_adjust linseg 2*iamp, p3-0.1, 2*iamp, 0.1, 0 kenv = kenv*kenv_adjust if (<mod_type1>==1) then asig dcblock asig asig oscili 1, ifreq*<carrier_freq_mult>*(1+(<modulator_strength><modulator_strength_mod>)*asig), gi_cosine else aphasor phasor ifreq*<carrier_freq_mult> asig tablei aphasor+<modulator_strength>/10*asig, gi_cosine, 1, 0, 1 endif if (<use_2nd_modulation>==1) then if (<mod_type2>==1) then asig dcblock asig asig oscili 1, ifreq*<carrier_freq_mult2>*(1+(<modulator_strength2><modulator_strength2_mod>)*asig), gi_cosine else aphasor phasor ifreq*<carrier_freq_mult2> asig tablei aphasor+<modulator_strength2>/10*asig, gi_cosine, 1, 0, 1 endif endif asig = asig*kenv kleft, kright panner <pan><pan_mod> blueMixerOut asig*kleft, asig*kright carrier_freq_mult 14 221 false 1.0 5.0 1.0 1.0 150 true 16 69 mod_freq_mult 15 105 false 1.0 5.0 1.0 2.0 150 true 14 165 use_detune_modulator 239 192 false true detune_modulator 248 214 true -0.1 0.1 -0.07667382 50 true mod_type1 181 168 Freq modulation 1 Phase modulation 2 0 true modulator_strength 352 214 true 0.0 10.0 6.1585402 50 true 326 196 carrier_freq_mult2 14 378 false 1.0 5.0 1.0 3.0 150 true use_detune_modulator2 237 354 true true detune_modulator2 246 377 true -0.1 0.1 0.051070847 50 true modulator_strength2 352 377 true 0.0 10.0 7.5802307 50 true 326 358 use_2nd_modulation 14 317 false true 14 195 14 356 mod_type2 178 324 Freq modulation 1 Phase modulation 2 1 true method 529 115 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 4 true par1 532 170 true 0.0 1.0 0.6906998 60 true par2 613 170 true 0.0 1.0 0.8497038 60 true buffer_size 702 170 true 0.0 4.0 1.4021323 60 true 704 153 627 153 546 153 pan 891 151 true -1.0 1.0 0.0 60 false 910 125 pan_mod 891 230 60 529 70 17 5 533 302 pitches 536 325 7 - 10 60 modulator_strength_mod 352 281 50 buffer_size_mod 702 247 60 modulator_strength2_mod 352 445 50 ver2:3.301211834 5.0 2.0 ver2:-0.0956426263 ver2:-0.0148570389 0 2.0 0 0 ver2:1.3847708702 ver2:2.2398920059 ver2:0 ver2:0.2076893747 ver2:0.2701205015 5 - 6 true true false ver2:1.4021322727 1.0 3.0 ver2:-0.0766738206 ver2:0.0510708466 4 2.0 0 1 ver2:6.1585402489 ver2:7.5802307129 ver2:0 ver2:0.6906998158 ver2:0.8497037888 7 - 10 false false true ver2:2.982881546 1.0 3.0 ver2:0.0109748617 ver2:-0.0175663829 0 5.0 1 1 ver2:5.0425958633 ver2:1.959987402 ver2:0 ver2:0.423722893 ver2:0.12576285 6 - 9 true false true ver2:1.5760375261 4.0 2.0 ver2:-0.0131249651 ver2:0.0444051549 0 5.0 1 0 ver2:3.0541195869 ver2:2.0787565708 ver2:0.0192106962 ver2:0.8747235537 ver2:0.2670864463 5 - 9 false false false ver2:0.4332328439 5.0 5.0 ver2:0.0451593623 ver2:0.0471551493 2 4.0 1 0 ver2:1.0260252953 ver2:6.6341600418 ver2:0 ver2:0.1802133769 ver2:0.8801506162 6 - 8 false false true ver2:2.5552766323 3.0 4.0 ver2:0.0962468907 ver2:-0.0974336192 5 5.0 1 1 ver2:5.4154229164 ver2:9.8015918732 ver2:0 ver2:0.317740798 ver2:0.3634112179 5 - 8 true false false ver2:3.7801258564 5.0 2.0 ver2:-0.0873006955 ver2:0.0435814336 5 5.0 1 1 ver2:6.5057291985 ver2:2.653042078 ver2:0 ver2:0.1909299493 ver2:0.920742631 6 - 8 true false false 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 getFrequency i i ipch xin iout = (ipch < 15 ? cpspch(ipch) : ipch) xout iout mvpEnvelope k iiiii iatk, idec, isus, irel, icurve xin ifrac = (iatk+idec+irel)/p3 if ( ifrac > 1 ) then iatk = iatk / ifrac idec = idec / ifrac irel = irel / ifrac endif kenv adsr iatk, idec, isus, irel if (icurve!=0) then kenv expcurve kenv, icurve endif xout kenv 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