reson


    Aug 23 2007 | 10:18 pm
    hi,
    did somebody try to emulate GRM RESON ?
    if yes could you share it ?
    or point me in the right direction to do it ?
    thx ?
    f./

    • Aug 28 2007 | 9:55 pm
      hi,
      i finally did it with [resonators]
      i have 2 questions.
      1- do you know how to distribute partials when creating models with clusters ?
      i mean i would like have a parameters from -1. to 1. to distribute partials like distrib curve in the riginal GRM RESON.
      2- is it the best way to set each data (freq, gain, reson) of a model
      i did it like this, but i have a big flow.
      thx.
      f./
    • Aug 29 2007 | 6:32 pm
      i would choose bandpass/bandraise filters
      using the [biquad~] object with a high Q
      instead of your [resonators~]
      for what you called distribution you might want
      to look into [pow] ...
      -110
    • Aug 29 2007 | 7:30 pm
      I am interested in this too...
      How exactly would you use pow to create a distribution?
      I think the intent (please correct me if I am wrong) is to
      create some freq distribution that you would then give to
      resonator. The end result would be to enhance an incoming
      audio source and make it spectraly more interesting.
      If one used biquad, would that not mean you would be limited
      to one band?
    • Aug 29 2007 | 7:34 pm
      oh thx.
      i supposed my message was totally stupid...
      so, yes biquad why not but it's only one band.
      no ?
      do you have an example ?
      for pow, i try itry but i can't...
      poor old brain.
      ;-)
      f./
      >
      >
      > the [biquad~] object with a high Q
      > instead of your [resonators~]
      >
      > [pow] ...
      >
      >
      > -110
      > --
      > http://vst-mac.info/
      >
    • Aug 29 2007 | 7:52 pm
      Quote: Anthony Palomba wrote on Wed, 29 August 2007 13:30
      ----------------------------------------------------
      > I am interested in this too...
      > How exactly would you use pow to create a distribution?
      pow 1 leaves linear as is.
      pow 2 gives you a quadratic curve, so that you can make
      a list of values like 20,40,80 ...
      pow 1.5 gives you something in between.
      you can also use [*], [/], [+], [-], [cos], [expr log], [expr exp] ...
      > I think the intent (please correct me if I am wrong) is to
      > create some freq distribution that you would then give to
      > resonator. The end result would be to enhance an incoming
      > audio source and make it spectraly more interesting.
      not sure if we should call a bank of resonators (GRM reson) enhancing the input. the input basically only triggers what we hear as "filter resonance". one could argue that it is still the same signal, but otoh it completely lost any phase info isnt it.
      :)
      > If one used biquad, would that not mean you would be limited
      > to one band?
      for 50 bandpasses you need 50 biquads
      for 100 ... you get the idea.
    • Aug 29 2007 | 7:52 pm
      for now i'm here.
      heeeeelp. :-)
      my head is burning...
    • Aug 29 2007 | 7:53 pm
      Use vexpr with the message scalarmode 1.
      loadmess 1. 2. 3. 4. 5. 6. 7. 8. etc. into the third inlet of
      vexpr $f1*$f3*pow(($f3$f4,$f2)
      where $f1 is the fundamental freq., $f3 is the 1. 2. 3. (read: partials...)
      list, $f4 is a equal to max($f3), and $f2 is the exponential skew. If you
      want to do it the way GRM does with -1 -> +1 range, it's probably something
      to do with a power of 2, e.g. pow(2,$f1*$f2) where $f2 is a scaling factor
      (try 2?) and $f1 is the coefficient.
      Away from my computer, but it looks like it eyeballs.
      Peter McCulloch
      On 8/29/07, Anthony Palomba wrote:
      >
      >
      > I am interested in this too...
      > How exactly would you use pow to create a distribution?
      > I think the intent (please correct me if I am wrong) is to
      > create some freq distribution that you would then give to
      > resonator. The end result would be to enhance an incoming
      > audio source and make it spectraly more interesting.
      > If one used biquad, would that not mean you would be limited
      > to one band?
      >
    • Aug 29 2007 | 7:55 pm
      ah now i forgot to add the patch ...
      max v2;
      and i also wanted to say, biquad takes signal input - good for further manipulation of the frequency and bandwith.
      GRM reson for example has randomisation when i remeber right.
      -110
    • Aug 29 2007 | 9:12 pm
    • Aug 29 2007 | 10:30 pm
      ok.
      i did this.
      how is it possible to change the curve to get lowest values getting
      high slower than the highest ?
      for example when the curve is 0.8 i would like have the first value
      closer to the fundamental.
      and
      how to get the same reverse curve when going from 0. to -1 ?
      thx for your time.
      ----------------------
    • Aug 30 2007 | 8:24 am
      ... by reversing the input and/or changing the scale of the input before you expr pow it.
    • Aug 30 2007 | 10:34 pm
      I originally was thinking about trying to add partials to
      an audio signal by specifying some freq distribution and
      then adding those to the mix. The intent would be to give the
      sound more character. So in the end, would I be better off
      trying to add partials with resonator~ or biquad~? Or should I
      use something entirely different?
    • Aug 31 2007 | 12:11 am
      finally i did something like this.
      methode empirique...
    • Aug 31 2007 | 12:14 am
    • Aug 31 2007 | 8:05 am
      You may also like to have a look at Tristan Jehan's
      mapper object - it does more or less what your patch
      does in a single object :)
      cheers
      Roger
      --- fp wrote:
      >
      > finally i did something like this.
      >
      > methode empirique...
      >
      > #P window setfont "Sans Serif" 9.;
      > #P window linecount 1;
      > #P newex 520 282 34 196617 zl len;
      > #P message 172 249 48 196617 set 1 $1;
      > #P newex 522 359 29 196617 t b f;
      > #N vpatcher 14 59 296 229;
      > #P window setfont "Sans Serif" 9.;
      > #P newex 24 57 48 196617 loadbang;
      > #P message 24 77 70 196617 scalarmode 1;
      > #P newex 164 71 51 196617 zl ecils 1;
      > #P newex 122 51 51 196617 zl slice 1;
      > #P newex 97 97 136 196617 vexpr ($f1-$f2)/($f3-$f2);
      > #P inlet 122 31 15 0;
      > #P outlet 97 119 15 0;
      > #P connect 6 0 5 0;
      > #P fasten 1 0 2 0 127 48 102 48;
      > #P fasten 5 0 2 0 29 94 102 94;
      > #P connect 2 0 0 0;
      > #P connect 1 0 3 0;
      > #P fasten 3 0 2 1 127 92 165 92;
      > #P connect 3 1 4 0;
      > #P fasten 4 1 2 2 210 95 228 95;
      > #P pop;
      > #P newobj 221 103 35 196617 p 0-1;
      > #P newex 668 515 78 196617 pack 0. 20000.;
      > #P newex 668 534 73 196617 prepend range;
      > #P newex 522 324 75 196617 loadmess 0.72;
      > #P user multiSlider 172 266 47 126 -1. 1. 1 2681 47
      > 1 0 1 0 30 0;
      > #M frgb 0 0 0;
      > #M brgb 182 168 132;
      > #M rgb2 127 127 127;
      > #M rgb3 0 0 0;
      > #M rgb4 37 52 91;
      > #M rgb5 74 105 182;
      > #M rgb6 112 158 18;
      > #M rgb7 149 211 110;
      > #M rgb8 187 9 201;
      > #M rgb9 224 62 37;
      > #M rgb10 7 114 128;
      > #P newex 221 495 38 196617 t b l;
      > #P newex 221 514 27 196617 f;
      > #P newex 221 533 38 196617 zl join;
      > #P newex 221 476 38 196617 zl join;
      > #P newex 276 165 51 196617 zl ecils 1;
      > #P newex 238 145 51 196617 zl slice 1;
      > #P message 50 41 244 196617 100 125 234 456 567 678
      > 789 890 908 950 1000;
      > #P flonum 522 342 35 9 0 0 0 3 0 0 0 221 221 221 222
      > 222 222 0 0 0;
      > #P newex 443 382 108 196617 vexpr pow($f1\,$f2);
      > #P newex 374 421 79 196617 vexpr $f1*$f2;
      > #P newex 443 402 37 196617 zl rev;
      > #P newex 221 421 79 196617 vexpr $f1*$f2;
      > #N vpatcher 511 477 1111 877;
      > #P window setfont "Sans Serif" 9.;
      > #P newex 50 251 84 196617 zl join;
      > #P newex 50 231 27 196617 f;
      > #P flonum 138 115 62 9 0 0 0 3 0 0 0 221 221 221 222
      > 222 222 0 0 0;
      > #P newex 107 157 27 196617 + 0.;
      > #P newex 107 196 27 196617 t b l;
      > #P newex 138 50 115 196617 bondo 3;
      > #P newex 138 88 114 196617 / 1.;
      > #P newex 138 69 62 196617 !- 0.;
      > #P newex 107 177 156 196617 zl group;
      > #P newex 107 134 41 196617 * 100.;
      > #P newex 77 87 40 196617 uzi;
      > #P comment 201 116 46 196617 interval;
      > #P inlet 138 27 15 0;
      > #P inlet 242 27 15 0;
      > #P inlet 77 65 15 0;
      > #P inlet 190 27 15 0;
      > #P outlet 50 273 15 0;
      > #P connect 12 0 15 0;
      > #P connect 15 0 16 0;
      > #P connect 16 0 0 0;
      > #P fasten 4 0 15 1 143 47 72 47;
      > #P connect 2 0 6 0;
      > #P connect 3 0 6 1;
      > #P connect 6 2 7 0;
      > #P connect 7 0 13 0;
      > #P connect 13 0 8 0;
      > #P connect 8 0 12 0;
      > #P fasten 4 0 13 1 143 47 129 47;
      > #P connect 12 1 16 1;
      > #P connect 4 0 11 0;
      > #P connect 11 0 9 0;
      > #P connect 9 0 10 0;
      > #P connect 10 0 14 0;
      > #P connect 14 0 7 1;
      > #P connect 1 0 11 1;
      > #P connect 11 1 9 1;
      > #P connect 3 0 11 2;
      > #P connect 11 2 10 1;
      > #P fasten 3 0 8 1 247 48 258 48;
      > #P pop;
      > #P newobj 221 84 240 196617 p;
      > #P number 373 66 42 9 0 0 0 3 0 0 0 221 221 221 222
      > 222 222 0 0 0;
      > #P number 297 66 42 9 0 0 0 3 0 0 0 221 221 221 222
      > 222 222 0 0 0;
      > #P button 221 66 15 0;
      > #P number 449 66 35 9 2 0 65 3 0 0 0 221 221 221 222
      > 222 222 0 0 0;
      > #P comment 297 50 24 196617 min;
      > #P comment 373 51 29 196617 max;
      > #P comment 449 51 35 196617 distri;
      > #P comment 297 34 100 196617 frequency;
      > #P newex 221 125 27 196617 t b l;
      > #P message 443 274 70 196617 scalarmode 1;
      > #P newex 374 391 34 196617 * -1.;
      > #P newex 221 372 163 196617 if $f1 >= 0 then $f1
      > else out2 $f1;
      > #P newex 374 454 116 196617 vexpr ($f2-($f2*$f1));
      > #P message 221 271 14 196617 0;
      > #P newex 221 451 128 196617 vexpr ((1-$f2)*$f1)+$f2;
      > #P flonum 221 292 35 9 -1. 1. 3 3 0 0 0 221 221 221
      > 222 222 222 0 0 0;
      > #P user multiSlider 221 552 469 160 0. 1. 10 2681 47
      > 0 0 2 0 0 0;
      > #M frgb 0 0 0;
      > #M brgb 255 255 255;
      > #M rgb2 127 127 127;
      > #M rgb3 0 0 0;
      > #M rgb4 37 52 91;
      > #M rgb5 74 105 182;
      > #M rgb6 112 158 18;
      > #M rgb7 149 211 110;
      > #M rgb8 187 9 201;
      > #M rgb9 224 62 37;
      > #M rgb10 7 114 128;
      > #P comment 80 268 91 196617 distribution curve;
      > #P comment 559 342 38 196617 factor;
      > #P connect 3 0 38 0;
      > #P connect 38 0 32 0;
      > #P connect 15 0 16 0;
      > #P connect 16 0 19 0;
      > #P connect 19 0 36 0;
      > #P connect 36 0 10 0;
      > #P connect 10 0 5 0;
      > #P connect 5 0 3 0;
      > #P connect 3 0 7 0;
      > #P connect 32 0 7 0;
      > #P connect 9 0 20 0;
      > #P connect 7 0 20 0;
      > #P connect 20 0 4 0;
      > #P connect 4 0 28 0;
      > #P fasten 6 0 28 0 379 473 226 473;
      > #P connect 28 0 31 0;
      > #P connect 31 0 30 0;
      > #P connect 30 0 29 0;
      > #P connect 34 0 2 0;
      > #P connect 29 0 2 0;
      > #P connect 10 1 26 0;
      > #P connect 26 0 30 1;
      > #P connect 27 1 28 1;
      > #P connect 31 1 29 1;
      > #P connect 26 1 27 0;
      > #P connect 23 0 20 1;
      > #P connect 17 0 19 1;
      > #P connect 27 0 4 1;
      > #P connect 18 0 19 2;
      > #P connect 7 1 8 0;
      > #P connect 9 0 22 0;
      > #P connect 8 0 22 0;
      > #P connect 9 0 6 0;
      > #P connect 22 0 6 0;
      > #P fasten 10 0 9 0 226 269 448 269;
      > #P connect 27 0 23 0;
      > #P connect 9 0 23 0;
      > #P fasten 37 0 23 0 527 379 448 379;
      > #P connect 23 0 21 0;
      > #P connect 21 0 22 1;
      > #P connect 15 0 19 3;
      > #P connect 27 0 6 1;
      > #P connect 27 0 39 0;
      > #P connect 33 0 24 0;
      > #P connect 24 0 37 0;
      > #P connect 37 1 23 1;
      > #P fasten 26 0 35 0 243 189 673 189;
      > #P connect 35 0 34 0;
      > #P fasten 27 1 35 1 322 189 741 189;
      > #P window clipboard copycount 40;
      >
      > --
      > ------------------------
      > - www.pan-etc.net -
      > ------------------------
      >
    • Sep 04 2007 | 7:49 pm
      here's what i did finally.
      i know it's not perfect...
      ...but it works. :-)
      any advices to optimize are welcome.
      thx.
      f./
    • Sep 05 2007 | 3:46 pm
      There are a lot of objects that are missing. Can you save it as a collective?
    • Sep 05 2007 | 4:01 pm
    • Sep 05 2007 | 4:06 pm
      anyway here's the collective:
      >
      > There are a lot of objects that are missing. Can you save it as a
      > collective?