{
   "author" : "julian.rohrhuber",
   "name" : "Re: Dissonator with Steno",
   "ancestor_list" : [],
   "description" : "Here is a remix in the language Steno.",
   "labels" : [
      "effect",
      "code fork",
      "dissonant",
      "ring modulator",
      "psychoacoustic",
      "language"
   ],
   "is_private" : null,
   "id" : "1-4Zv",
   "code" : "Quarks.install(\"Steno\");\r\n\r\nt = Steno.push;\r\n\r\n(\r\nt.filter(\\d, {\r\n\t|in|\r\n\tvar mix = 1.0;\r\n\tvar filterfreqs = Array.geom(23, 60, 2**(1/3));\r\n\tvar rq = ((2**(1/3)) - 1) / (2**(1/6));\r\n\tvar width = 2**(1/6);\r\n\tvar fmin = filterfreqs / width;\r\n\tvar fmax = filterfreqs * width;\r\n\tvar g = { |f| 2.27 * (f**0.477) };\r\n\tvar snd, mod;\r\n\tsnd = in;\r\n\tsnd = BPF.ar(snd, filterfreqs, rq);\r\n\tmod = SinOsc.ar(0.5 * g.value((0.2*fmin) + (0.8*fmax)));\r\n\tmod = (1 - mix) + (mix * mod);\r\n\tsnd = snd * mod;\r\n\tsnd = Splay.ar(snd) * 20;\r\n})\r\n)\r\n\r\n\r\nt.quelle(\\a, { Blip.ar(SinOsc.kr(Rand(0.2, 1)).exprange(Rand(2, 4), ExpRand(5, 100))) });\r\n\r\n--adad addd ad addd add ada"
}