Quotile is based on a small Perl program I created for morphing drums.
Download the
Perl Version
Example:
#!/perl/bin
use DrumCoder;
# |.......|.......|.......|.......
# |...|...|...|...|...|...|...|...
my $pattern1 =<<"EOF";
RC: 8-----------8-----888------88888
OH: --9---------------9-------------
CH: 66666---6-------6---6---6-----6-
CP: ----8---------8-----------------
BD: 8-------8-----------------8-----
EOF
# |.......|.......|.......|.......
# |...|...|...|...|...|...|...|...
my $pattern2 =<<"EOF";
RC: -8-----8-------8----------------
OH: ------8---9-------99-----9------
CH: 6---6---6--666--6---6-666666-6-6
CP: --------88--------------8-----8-
BD: 8-----8-------------8-8---------
EOF
record $pattern1;
record $pattern1;
record $pattern1;
record crossfade $pattern1, $pattern2, .1;
record crossfade $pattern1, $pattern2, .2;
record crossfade $pattern1, $pattern2, .3;
record crossfade $pattern1, $pattern2, .4;
record crossfade $pattern1, $pattern2, .6;
record crossfade $pattern1, $pattern2, .7;
record crossfade $pattern1, $pattern2, .8;
record $pattern1;
record $pattern1;
record stretch $pattern1, .1;
record stretch $pattern1, .2;
record stretch $pattern1, .3;
write_score();