Skip to content

Instantly share code, notes, and snippets.

<pre><code>
----------begin_max5_patcher----------
119107.3oM68lziqijktfqiGv6+fJG0KqLScCEzLNmcmKbIWyyyt7Lp5BJQJ
IJQQJQRMV3c2T.MPu3s6suA5c8+gdU+WoPi9uQajFkbI4TTjZ1ugmHiqqARJ
yNS1wN124b92+u9e4Wdps1BIimB82B8OB8K+x+N5S9E6Oy5S9k0evu7zHgEc
TDLruvmTklq0dvSey46LkVXZ+4JZBhsET6s4aTmNRapohjo88AV+wxh1WN5Y
7qPBlMWM9RMWNVBObdx9YE5ec82OVvrSeY0deWWpiI9Rf.J5HDeKDfjlv5uL
1+KDFg38ayvboh8S7osGWxpaFV1e3+8+q+Wr9K5Oe69PGnOG5.fjgDSGffO4
zApygNvvvYSFnnXu8jgNZiFIoZ9Q5PUSowFgL0BM0.MbCY1W1Hj8f+u86pf+
VnWzlqZQpPegTnJoqFG8kcFJzS52Ug+sXZppnoWnpRBs0DzE+cUx+VcCoPB5
<pre><code>
----------begin_max5_patcher----------
2153.3oc4bktiaaCD92a.x6.gQ9UwVWN7PTp.AHu.8InnXgVaYakpCCI4jca
Q6ydoHk7dZtiRHkCbABVYKKoYlONWblQ4ue+6tZws02k0tf7qjemb0U+s9LW
YNW+YtZ7DWsnL8tUEoslKbQU1Wqu8yKtd325xtqyb98o+IootKUeh6+KBSQW
RL+63U11ceQl4ROdp5CcEYcc2uOyxCKVP9iweq5PYdk9WMTU7nyZuIyogwSm
u17f0L1OKUGe76S6VsKuZ6MMYq5rT.XvR50jDP0e.3Q8GXrkTxeXto+48uq+
n9v0nQjME0Z1ZZx40jE2lVs8Qx69zlzxrtrlaxpRu09DnuJX.uNXvdMvH5HO
rotoL0fBQtvGf0iHwpj9CRpGfmSovTjWkMYP6TJH7IfIBmJHfQAIVXvAgO.f
xr11zsYuDAnKulvizVILI0KlIrIXlvwfBTd+AkvCnvp5xxrptWhBs6yqHc6x
<pre><code>
----------begin_max5_patcher----------
11196.3oc68s0jairblOONB+e.VwrNNdW0bq6UAGdbH68k8k8GfCaGJnXita
NhjfGR1RpGGd9su.HKPwVpYgDsxDfDyXqyH0WqJ+prxaUd4+5u8u4mdyGJ+R
w92j8Ol8um8S+z+U0m4mZ9b0elep8S7SuY87urX078MeiuYcw98yuu3MuM9E
OT7kCMegEkqJ2kImE+i332w9COspn4a43mp7wCqJNb3osEvh+l2j8e190173
5kap9pMKm5jOK7C07okse5k217Kt7C+5MFs73u+syOr3gkat+86JVb.Vhboe
l8sYRYtYl3sYAe8+UolIx9Oa9g9u+a+ap+6p+5sjiExYCNXn7o.CoP1fBRYv
V+24BBPi4GNr6wkjPoxdPoRURJUVSUUTpR1PiRKEj5lhOWs1e+49ut7vr0ke
ZYQ169T4pLQ16Z9n6VtpHa+1xxO9z9OVTQMka1Oa8VyweAqVtoXQ4iaN7riY
<pre><code>
----------begin_max5_patcher----------
1074.3oc2Z11aZCCDG+0To9cHJR6MSrN+PhILMsuHaSn.XntBhQIl9fpV+rO
GaRKkUbNhNVi5avJNAe9+ub24yFd7xKFDOUeurJN5aQ+LZvfGs8Lv0WcOCZ5
XP7576msJux8fwEx6zSuId3t6Yj2ab8+4mdtO8VyJow7vFoeniqTKKxWEG86
lmnX6ZUg8YbCIqoW0b2HYG9uvedv1jalcspX4jR4Lie7nBwUjgQobdcCa7Uo
1OYWQdY7qLOrxY7338Loed4rI006et7h5Vayvdl9YA0Oi1+z+F8JidVdY6XX
XW.h.BPFkV2HHNrbZ.ggNPrrvnsT4LAjD..IYTVOBHphnjiyhioc5ancZHsy
xXds6TMuKZ+YaVkeqb9DqIsi9jbioTMcqwmwbvKxePb8slLSudsrvq0X+c1g
uNgwlg6e330pkW+qhXvzJIXxzTtyGgk38X7WPNIbQvWiqz2cBBLn+PBk50z3
<pre><code>
----------begin_max5_patcher----------
2628.3oc4bs0baaiE9Y2Y5+ALZ5ScU0Pbg21oOj939ancGOPTvxHghTgWrrS
mM+1WPbntXGQPPYHJlzGhbHEEN37gCN2A+6e9mta1x7mEkyP+azeht6t+Vcm
6z2q4N2s+F2MaC+4jTdo9AmkI1ku7iyl29cUhmqz2mur7vMyqqREUUurU.i8
LYl5g9u6+5r5MxL0CnGP796JWoGG0f+awrCC0VdUxixr02WHRpfQCGGtvaNx
G6sveNh50bAgrv6HAJqdIUS5YyNglvrBHp9t+ue9mZ9q5OymVrO0D6GyzbuW
vsf6q2rTT70Ci6l7UZJQNPa45lqalUs24g7rpG3I5G6U2rT9E8MwjiO72fbp
wKimNaNZ1Co47SQwlgHiuAXz+nP17TmCfImAfCCLAvz3FLMlA3bvE.vjKFfq
xWuVM1GmcEJVrRTbuHiuL80f36ULKz7tLrFFhh70..a+mihb1FQYIes3a2lk
<pre><code>
----------begin_max5_patcher----------
2148.3oc2ZsziiaiD9bGf7ePvXOsviG9PTOBxgbXur.YwBjaKFLX.sEsaMQV
Tghtc6IX6e6aQRIYI2xVZZK0HXcCqmjtp5qJVuX+m+3O7vh0xmEkK79IuO48
vC+I7jGrOy7jGpevCK1yedSFuzNvEaj62Kx0KVV8Rs3Ys8EJ9l+3fPulmk07
xBtdyio469hRrQ6nCMHbEZoG12djgLmHvQuOWOo7C6SyyDZK8v0OsTeJSXIz
hVCTdPWORT8iSSrCSt9qe.SVXe3+8G+AyY3zx6WPejmmTvyK0BkPdKQMDYkN
Zv6gnRCmAQsHkmK8TR49QHmuOpTp+aWN0xc6.JV+q5nj9TgvIGKRAL3LS2ij
5SirZzHpUF8qO9FjzBthuW.1PeQjyW6dKpeX.2GLbGV16Ekk7chWqtkEhbOP
ZkpDPtKHWGotMLQhosfILxgSjqhSjQaQzKTfd6PQt3H7S7ZjnbqCFd45PPY5
<pre><code>
----------begin_max5_patcher----------
4281.3oc6cszaiibD97r.6+ABiM.I6NqQ+9QPPvjC4PtljaaVLfVh1C2UlTg
hddrKx+8P1cSIYOTjkIKJSpYv.OxjpM6t+X00qtpt98u8ad0U2j+wjcWE8mi
9onW8peu5Nuxcu567pla7pqtO9iq1Duy0vqVke+8IYkW85vWVl7wR2W72yVG
8OS18vlCeW5Z22jeyu7iTod+s2FWt5coY281hjUk9dWajWSdcD0XT0e5uhQt
lD8yM+UYObeZ1ljR2vf1b2ckeZShqWt5nFl+PYSKIt69+91uo9ypOd83mo+s
0qi9TxlM4eH597xz7rn0IkUSk7hn72mTDU7XTXSZVxp7Gxb+wrVwFYWXCmxc
XihRbeJcevEySvId85pgeTZVTdQ5coYwahtsH99Jxr1l4bRmTE1vLVwOZlOW
IK92eHOZ2m1Ulb+tn7aip9badQ8zOIY8Mwq90WGU9tj8WEktKZW0yIpL2c+7
[a,sr]=audioread('messageinabottlemono.wav');
b = a(882000:1323000,1);
audiowrite('messageinabottle1.wav',b,44100);
sliceofsignal = b';
resultsloweddown = vocoder(sliceofsignal,250,500);
resultspedup = vocoder(resultsloweddown,500,250);
audiowrite('messageinabottle2.wav',resultspedup,44100);
function [finalvector] = vocoder(inputvector,speedupfactor,slowdownfactor,time)%#codegen
%vocoder takes in 3 inputs, a vector and 2 speed factors returns a vector
% vector input has 1 row and a bunch of columns
%that has been slowed down or sped up
if nargin == 3
time=0; % total time to process
end
hopin=speedupfactor; % hop length for input
hopout=slowdownfactor; % hop length for output