Pluck+phaser This is a simple instrument that uses the phaser1 or phaser2 opcode on a signal generated by the pluck opcode. The pluck opcode is in the mvpPluck UDO, which checks ipar1 and ipar2, so you don't have to worry about restrictions on these. Despite the simplicity this instrument generates very diverse and interesting sounds. 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, 65536, 11, 1, 1 ifreq getFrequency p4 iamp = ((p5 > 0) ? 0dbfs*p5 : ampdbfs(p5)) kenv mvpEnvelope i(<attack>), i(<decay>), i(<sustain>), i(<release>), 0 if (<filter_mode>==1) then ifreq = ifreq / i(<freq_mutl1>) endif asig mvpPluck iamp, ifreq, <method>, i(<par1>), i(<par2>), ifreq/i(<buffer_size><buffer_size_mod>) ; With phaser1 we get the best results if the filter frequency is bigger than the instrument frequency, ; while with phaser2 we get the best results if the filter frequency is less than the instrument frequency, ; so we multiply for phaser1 and divide for phaser2. ; This is why the frequency is only adjusted above for phaser1. if (<filter_mode>==1) then asig phaser1 asig, ifreq*i(<freq_mutl1>), <ord>, i(<feedback>) elseif (<filter_mode> > 1) then asig phaser2 asig, ifreq/i(<freq_mutl1>), <quality>, <ord>, <filter_mode>-1, <separation>, <feedback> endif asig = asig*kenv kleft, kright panner <pan><pan_mod> blueMixerOut asig*kleft, asig*kright method 33 129 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 3 true par1 33 179 true 0.0 1.0 0.30912828 60 true par2 114 179 true 0.0 1.0 0.884751 60 true buffer_size 203 179 true 0.0 4.0 2.3413565 60 true 205 162 128 162 47 162 pan 802 117 true -1.0 1.0 0.0 60 false 821 96 pan_mod 802 198 60 filter_mode 396 129 None 0 phaser1 1 phaser2 mode 1 2 phaser2 mode 2 3 1 true freq_mutl1 399 186 true 1.0 100.0 47.68179 60 true 403 169 ord 439 287 false 1.0 500.0 1.0 396.0 150 true feedback 475 186 true -1.0 1.0 -0.99038893 60 true 478 169 quality 559 186 true 0.0 2.0 1.5467572 60 true 571 169 separation 635 186 true 0.0 3.0 1.0826997 60 true 638 169 781 256 sugg_pitches 782 282 8-10 100 buffer_size_mod 203 257 60 20 11 34 95 399 292 396 95 decay 86 345 true 0.0 10.0 1.9213018 50 false sustain 139 345 true 0.0 1.0 0.5930366 50 false release 193 345 true 0.0 10.0 0.94110405 50 false attack 33 345 true 0.0 10.0 0.01 50 false 37 326 94 326 140 326 193 326 34 296 ver2:0.0099999998 ver2:2.1958596706 ver2:1.9213018417 ver2:0.8513166904 2 ver2:100 1 263.0 ver2:0 ver2:0.6568210721 ver2:0.0415289961 ver2:0.9161220789 ver2:0.9411040545 ver2:2.1531083584 3-5 ver2:0.593036592 ver2:0.0099999998 ver2:3.1489090919 ver2:1.9213018417 ver2:0.8362812996 1 ver2:74.8639984131 1 32.0 ver2:0 ver2:0.8606218696 ver2:0.6234317422 ver2:1.4636893272 ver2:0.9411040545 ver2:0.9414221644 8-10 ver2:0.593036592 ver2:0.0099999998 ver2:2.3413565159 ver2:1.9213018417 ver2:-0.9903889298 1 ver2:47.6817893982 3 396.0 ver2:0 ver2:0.3091282845 ver2:0.8847510219 ver2:1.5467572212 ver2:0.9411040545 ver2:1.0826996565 8-10 ver2:0.593036592 ver2:0.0099999998 ver2:2.1027891636 ver2:1.9213018417 ver2:0.6662824154 2 ver2:25.9515743256 4 152.0 ver2:0 ver2:0.0774962083 ver2:0.3501942754 ver2:1.3128429651 ver2:0.9411040545 ver2:2.7261450291 2-6 ver2:0.593036592 ver2:0.0099999998 ver2:0.2614716291 ver2:1.9213018417 ver2:0.938732028 2 ver2:56.1510429382 1 148.0 ver2:0 ver2:0.8295611143 ver2:0.6654490829 ver2:1.2237275839 ver2:0.9411040545 ver2:2.9838867188 2-7 ver2:0.593036592 ver2:0.0099999998 ver2:3.2882013321 ver2:1.9213018417 ver2:-0.761398077 2 ver2:47.7016677856 4 95.0 ver2:0 ver2:0.4388128519 ver2:0.1820724607 ver2:0.09396898 ver2:0.9411040545 ver2:0.0828603953 6-9 ver2:0.593036592 ver2:0.0099999998 ver2:1.376352191 ver2:1.9213018417 ver2:-0.989569664 1 ver2:17.8746929169 5 35.0 ver2:0 ver2:0.6077548862 ver2:0.8637639284 ver2:1.9364176989 ver2:0.9411040545 ver2:1.1527442932 9-12 ver2:0.593036592 ver2:0.0099999998 ver2:3.6638813019 ver2:1.9213018417 ver2:-0.916154325 2 ver2:77.9554672241 2 221.0 ver2:0 ver2:0.1690590829 ver2:0.7445607185 ver2:1.4801207781 ver2:0.9411040545 ver2:2.8421566486 3-7 ver2:0.593036592 ver2:0.0099999998 ver2:2.408166647 ver2:1.9213018417 ver2:0.5676826239 3 ver2:13.0165863037 3 40.0 ver2:0 ver2:0.9228191972 ver2:0.3353322744 ver2:1.6323305368 ver2:0.9411040545 ver2:1.591688633 2-5 ver2:0.593036592 ver2:0.0099999998 ver2:0.0519714728 ver2:1.9213018417 ver2:-0.4967355728 1 ver2:17.2486286163 2 234.0 ver2:0 ver2:0.0300751906 ver2:0.3787982464 ver2:0.276237905 ver2:0.9411040545 ver2:0.4517433643 8-10 ver2:0.593036592 ver2:0.0099999998 ver2:0.8101061583 ver2:1.9213018417 ver2:0.8029571772 2 ver2:24.2506771088 0 247.0 ver2:0 ver2:0.1126024276 ver2:0.1922247261 ver2:1.6211341619 ver2:0.9411040545 ver2:2.4761517048 2-8 ver2:0.593036592 ver2:0.0099999998 ver2:2.1497607231 ver2:1.9213018417 ver2:0.6249717474 2 ver2:6.8436498642 2 232.0 ver2:0 ver2:0.5406592488 ver2:0.5703755617 ver2:1.4500828981 ver2:0.9411040545 ver2:0.6709280014 3-6 ver2:0.593036592 ver2:0.0099999998 ver2:1.0506849289 ver2:1.9213018417 ver2:0.8784534931 2 ver2:97.397026062 5 251.0 ver2:0 ver2:0.3513122499 ver2:0.037632063 ver2:0.6306818724 ver2:0.9411040545 ver2:0.3508581817 3-8 ver2:0.593036592 ver2:0.0099999998 ver2:3.9290816784 ver2:1.9213018417 ver2:-0.9956245422 2 ver2:35.8498344421 2 46.0 ver2:0 ver2:0.8857126236 ver2:0.2528865337 ver2:1.9342093468 ver2:0.9411040545 ver2:0.5143500566 9-13 ver2:0.593036592 mvp_kVariation k iiiiiiiii itype, imin1, imax1, imin2, imax2, ipw, ispeed1, ispeed2, iphase xin if (itype==1) then ; Constant kvar = imin1 elseif (itype==2) then ; Linear kvar linseg imin1, 1/ispeed1, imax1, p3, imax1 elseif (itype==3) then ; Bilinear kvar linseg imin1, 1/ispeed1, imax1, 1/ispeed2, imin2, p3, imin2 elseif (itype==4) then ; Exponential kvar expseg imin1, 1/ispeed1, imax1, p3, imax1 elseif (itype==5) then ; Biexponential kvar expseg imin1, 1/ispeed1, imax1, 1/ispeed2, imin2, p3, imin2 else iexp = 0 if (itype>=200) then iexp = 1 itype = itype-100 iexp_sign = (imin1 > 0) ? 1 : -1 ; user should make sure they all have the same sign! imin1 = log(iexp_sign*imin1) imax1 = log(iexp_sign*imax1) imin2 = log(iexp_sign*imin2) imax2 = log(iexp_sign*imax2) endif kavg line (imin1+imax1)/2, p3, (imin2+imax2)/2 kamp line (imax1-imin1)/2, p3, (imax2-imin2)/2 if (itype==100) then ; Sine kspeed line ispeed1, p3, ispeed2 kph loopseg kspeed, 0, 0, 0, ipw, 0.5, 1-ipw, 1 kvar tablei kph, gi_cosine, 1 kvar = kamp*kvar elseif (itype==101) then ; Triangles kspeed line ispeed1, p3, ispeed2 kph phasor kspeed, iphase kvar loopsegp kph, kamp, ipw, -kamp, 1-ipw, kamp elseif (itype==102) then ; Trapezoids kspeed line ispeed1, p3, ispeed2 kph phasor kspeed, iphase kvar loopsegp kph, kamp, ipw, kamp, ipw, -kamp, 1-ipw, -kamp, 1-ipw, kamp elseif (itype==103) then ; Square kspeed line ispeed1, p3, ispeed2 kph phasor kspeed, iphase kvar loopsegp kph, kamp, ipw, kamp, 0, -kamp, 1-ipw, -kamp kvar = kvar*kamp elseif (itype==104) then ; Smooth square kspeed line ispeed1, p3, ispeed2 kph phasor kspeed, iphase kvar loopsegp kph, kamp, ipw, kamp, 0.05, -kamp, 1-ipw, -kamp, 0.05, kamp elseif (itype==105) then; Jitter kvar jitter kamp, ispeed1, ispeed2 elseif (itype==106) then; Jspline kvar jspline kamp, ispeed1, ispeed2 elseif (itype==107) then ; random hold kspeed line ispeed1, p3, ispeed2 kvar randh kamp, kspeed, 1 elseif (itype==108) then ; random hold with port kspeed line ispeed1, p3, ispeed2 kvar randh kamp, kspeed, 1 kvar tonek kvar, 20 elseif (itype==109) then ; random lines kspeed line ispeed1, p3, ispeed2 kvar randi kamp, kspeed endif kvar = kvar+kavg if (iexp==1) then kvar = iexp_sign*exp(kvar) endif endif xout kvar 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 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