AminoacidPattern

Extension

Class Methods

.new

Mutation

Because the chains of aminoacids that constitute proteins are encoded by nucleic acids (three for one aminoacid), the modification of a single element causes characteristic shifts. This is the simplest, most trivial level of what is called "mutation".// mutations one ( var string, list, pat; string = "ggaacgggtactattatttattataaccagggc"; // mutation by replacing a single nuclein acid by another: // list = Array.fill(4, { string = string.collect({ arg char; if(0.1.coin, { $T }, {char }) }) }); // mutation by adding a single nuclein acid: list = { var new = String.new; string.size.do({ |i| new = new.add(string.at(i)); if(0.1.coin, { new.add($t) }); // mutate by shifting to t }); string = new; }.dup(4); list = list.collect({ |item| AminoacidPattern(item, 4, 0) }); pat = Pseq(list, inf); Pbind( \instrument, \amino, \degree, pat, \stepsPerOctave, 72, \dur, 0.1, \legato, 1.0 ).play; ) // or this one: ( Pbind( \instrument, \amino, \degree, x - 4 , \stepsPerOctave, 24, \dur, 0.13*3, \p, x / 20, \legato, Prand([1, 0.5, 2], inf) * 1.4, \pan, x / 10 - 1, \amp, Pbrown(0.01, 0.15, 0.05, inf) ).play; ) // a piece from 2001 //_____genes you have to enyoy slowly ( SynthDef("amino", { arg out, freq=440, sustain=1.0, pan, p, amp=0.1; var u; u = Line.kr(1, 0, sustain, doneAction:2) * SinOsc.ar(freq, SinOsc.ar(freq * p, 0, BrownNoise.kr(pi/8)) ); Out.ar(out, Pan2.ar(u, pan, amp)); }).store; ) x = AminoacidPattern.new.loadData("data/escherichia-coli".resolveRelative); ( Pbind( \instrument, \amino, \degree, x - 4 , \stepsPerOctave, 24, \dur, 0.13*3, \p, x / 20, \legato, Prand([1, 0.5, 2], inf) * 1.4, \pan, x / 10 - 1, \amp, Pbrown(0.01, 0.15, 0.05, inf) ).play; )