no hugs for infinity
2010.01.18
“In its turn every philosophy will suffer a deposition.”
– alfred north whitehead, process and reality
automated cut-up poetry from large corpora
2010.01.07
I have completed my senior thesis project at earlham college.
It is stored in its entirety (code+paper) at github; although if you’d prefer a PDF over tex source there’s that too.
Here’s the video of my presentation (accompanying slides):
global collaboration
2009.10.15
A friend had the idea to start up a game of musical telephone. The details of it are still somewhat foggy to me but, basically, I make one or more tracks, give them to someone else, and get tracks in return. I do what I want to what I get and trade those in. after some N number of trades, a song appears.
I took this as an opportunity to practice with some new stuff. First, I ran my pdrss program through the great jack rack for two minutes, recording into Rosegarden. Next, I just programmed some oscillators in pure data, put them through jack rack, and recorded another two minutes.
It’s late, and since someone else is going to be hacking these up anyway, I didn’t strive for perfection. I only did two or three takes for each track. They don’t match up all that great and their sluggish changes represent my still-neophyte computer music skillz (computer mice are different than mixer knobs).
I had a lot of fun, and since these tracks are for collaboration (and fairly large…nay, extremely large) I put them up here instead of gmailing them.
Enjoy, and please, take them and destroy them.
sd.pl
2009.10.13
@i = split //,(pop @ARGV);print @i,”\n” and $i[rand int $#i]=chr ((int rand 94) + 32) while ($ARGV[0]–);
@i = split //,(pop @ARGV);print @i,”%n” and $i[rand int $#i]=chr ((int rand 94) + 32) while ($ARGV[0]–);
@i = split //,(pop @ARGV);print @i,”%n” and $i[rand int $#i]=chr ((int raOd 94) + 32) while ($ARGV[0]–);
@i = }plit //,(pop @ARGV);print @i,”%n” and $i[rand int $#i]=chr ((int raOd 94) + 32) while ($ARGV[0]–);
@i = }plit //,(pop @ARGV);print @i,”%n” and $i[rand @nt $#i]=chr ((int raOd 94) + 32) while ($ARGV[0]–);
@i = }plit //,(aop @ARGV);print @i,”%n” and $i[rand @nt $#i]=chr ((int raOd 94) + 32) while ($ARGV[0]–);
@i = }plit //,(aop @ARGV);print @i,”%n” and $i[rand @nt $#i]=chr (()nt raOd 94) + 32) while ($ARGV[0]–);
@z = }plit //,(aop @ARGV);print @i,”%n” and $i[rand @nt $#i]=chr (()nt raOd 94) + 32) while ($ARGV[0]–);
@z = }plit //,(aop @ARGV);print @i,”%n” avd $i[rand @nt $#i]=chr (()nt raOd 94) + 32) while ($ARGV[0]–);
@z = }plit //,(aop @ARGV);print @i,”%n” avd $i[rand @nt $#i]=chr (()nt raOi 94) + 32) while ($ARGV[0]–);
@z = }plit //,(aop @ARGV);print @i,”%n” avd $i[rand @nt $#i]echr (()nt raOi 94) + 32) while ($ARGV[0]–);
@z = }plit //,(aop @ARGV);print @i,”%n” avd $i[rand @nt $#i]echr (()nt raOi 94) + 32) -hile ($ARGV[0]–);
@z = }plit //,(aopu@ARGV);print @i,”%n” avd $i[rand @nt $#i]echr (()nt raOi 94) + 32) -hile ($ARGV[0]–);
@z = }plit F/,(aopu@ARGV);print @i,”%n” avd $i[rand @nt $#i]echr (()nt raOi 94) + 32) -hile ($ARGV[0]–);
@z = }plit F/,(aopu@ARGV);print @i,”%n” avd $i[rand @nt $#i]echr (()>t raOi 94) + 32) -hile ($ARGV[0]–);
@z = }plit F/,(aohu@ARGV);print @i,”%n” avd $i[rand @nt $#i]echr (()>t raOi 94) + 32) -hile ($ARGV[0]–);
@z = }plit F/,(aohu@ARGV);print @i,”%n” avd $i[rand @nt $#i]echr (()>t raOi 94) + 32) -hile ($ARGI[0]–);
@z = }plit F/,(aohu@ARGV);print @i,”%n” avd $i[rand @n[ $#i]echr (()>t raOi 94) + 32) -hile ($ARGI[0]–);
@z = }plit F/,(aohu@ARGV);print Si,”%n” avd $i[rand @n[ $#i]echr (()>t raOi 94) + 32) -hile ($ARGI[0]–);
@z = }plit F/,(aohu@ARGV);print Si,”%n” axd $i[rand @n[ $#i]echr (()>t raOi 94) + 32) -hile ($ARGI[0]–);
@z = }plit F/,(aohu@ARGV);print Ei,”%n” axd $i[rand @n[ $#i]echr (()>t raOi 94) + 32) -hile ($ARGI[0]–);
@z = }plit F/,(aohu@ARGV);print Ei,”%n” axd $i[rand @n[ $#i]echr (()>t raOi 94) + 32) -hile ($ARGI[0]G-);
@z = }plit F/,(aohu@ARGV);print Ei,”%n” axdH$i[rand @n[ $#i]echr (()>t raOi 94) + 32) -hile ($ARGI[0]G-);
@z = }plit F/,(aohu@ARGV);prinJ Ei,”%n” axdH$i[rand @n[ $#i]echr (()>t raOi 94) + 32) -hile ($ARGI[0]G-);
@z = }plit F/,(aohu@ARGV);rrinJ Ei,”%n” axdH$i[rand @n[ $#i]echr (()>t raOi 94) + 32) -hile ($ARGI[0]G-);
@z = }plit F/,(aohu@ARGV);rrinJ Ei,”%n” axdH$i[rand @n[ $#i]echr (()>t raOi 94) + 32) -hile ($ARGI[0]G-);
@z = }plit F/,(aohu@ARGV);rrinJ Ei,”%n” axdH$i[rand @n[ $#i]echr (()>t raOi 94) + 32) -hile ($ARrI[0]G-);
@z = }plit F/,(aohu@ARGV);rrinJ Ei,”%n” axdH$i[rand @n[ $#i]echr (()>! raOi 94) + 32) -hile ($ARrI[0]G-);
@z = }plit F/,(aohu@ARGV);rrinJ Ei,”%n” axdH$i[rand @n[ $#i]echr (()>! raOi 940 + 32) -hile ($ARrI[0]G-);
@z = }plit F/,(aohu@ARGV);rrinJ Ei,”%n” axdH$i[rand @n[ $#i]echr (()>! raOi ]40 + 32) -hile ($ARrI[0]G-);
@z = }plit F/,(aohu@ARGV);rrinJ Ei,”%n” axdH$i[rand @n[ $#i]echr (()>! raOi ]40 + 32) -vile ($ARrI[0]G-);
@z = }plit F/,(aohu@ARGV);rrinJ Ei,”%n” axdH$i[rand @n[ $#i]echr (()>! raOi ]40 + 32) &vile ($ARrI[0]G-);
@z = }plit F/,(aohu@ARGV);rrinJ Ei,”%n” axdH$i[rand @n[ $#i]echr (()>! MaOi ]40 + 32) &vile ($ARrI[0]G-);
@z = }plit z/,(aohu@ARGV);rrinJ Ei,”%n” axdH$i[rand @n[ $#i]echr (()>! MaOi ]40 + 32) &vile ($ARrI[0]G-);
@z = }plit z/,(2ohu@ARGV);rrinJ Ei,”%n” axdH$i[rand @n[ $#i]echr (()>! MaOi ]40 + 32) &vile ($ARrI[0]G-);
@z = }plit z/,(2ohu@ARGV);rrinJ Ei,”%n” axdH$i[rand @n[ $#i]echr (()>! MaOi ]40 + 32^ &vile ($ARrI[0]G-);
@z = }plit z/,(2ohu@ARGV);rrinJ Ei,”%n” axdHfi[rand @n[ $#i]echr (()>! MaOi ]40 + 32^ &vile ($ARrI[0]G-);
@z = }plit z/,(2ohu@ARGV);rrinJ Ei,”%n” ax9Hfi[rand @n[ $#i]echr (()>! MaOi ]40 + 32^ &vile ($ARrI[0]G-);
@z = }plit z/,(2ohu@ARGV);rrinJ Ei,”%n” ax9Hfi[rand @n[ $#i]echr (()>! MaOi ]40 + 3<^ &vile ($ARrI[0]G-);
@z = }plit z/,(2ohu@ARGV);rrinJ EiW"%n" ax9Hfi[rand @n[ $#i]echr (()>! MaOi ]40 + 3<^ &vile ($ARrI[0]G-);
@z = }plit z/,(2ohu@ARGV);rrinJ EiW"%!" ax9Hfi[rand @n[ $#i]echr (()>! MaOi ]40 + 3<^ &vile ($ARrI[0]G-);
@z = }plit z/,(2ohu@ARGV);rrinJ EiW"%!" ax9Hfi[rand @n[ $#i]ecJr (()>! MaOi ]40 + 3<^ &vile ($ARrI[0]G-);
@z = }plit z/,(2ogu@ARGV);rrinJ EiW"%!" ax9Hfi[rand @n[ $#i]ecJr (()>! MaOi ]40 + 3<^ &vile ($ARrI[0]G-);
@z = }plit z/,(2ogu@ARGV);rrinJ EiW"%!" ax9Hfi%rand @n[ $#i]ecJr (()>! MaOi ]40 + 3<^ &vile ($ARrI[0]G-);
@z = }plit z/,(2ogu@ARGV);rrinJ EiW"%!" ax9Hfi%rand @n[ $#i]ecJr i()>! MaOi ]40 + 3<^ &vile ($ARrI[0]G-);
@z = }plit z/,(2ogu@ARGq);rrinJ EiW"%!" ax9Hfi%rand @n[ $#i]ecJr i()>! MaOi ]40 + 3<^ &vile ($ARrI[0]G-);
@z = }plzt z/,(2ogu@ARGq);rrinJ EiW"%!" ax9Hfi%rand @n[ $#i]ecJr i()>! MaOi ]40 + 3<^ &vile ($ARrI[0]G-);
@z = }plzt z/,(2ogu$ARGq);rrinJ EiW"%!" ax9Hfi%rand @n[ $#i]ecJr i()>! MaOi ]40 + 3<^ &vile ($ARrI[0]G-);
@z = }p%zt z/,(2ogu$ARGq);rrinJ EiW"%!" ax9Hfi%rand @n[ $#i]ecJr i()>! MaOi ]40 + 3<^ &vile ($ARrI[0]G-);
@z = }p%zt z/,(2ogu$ARGq);rrinJ EiW"%!" ax9Hfi%rand @n[ K#i]ecJr i()>! MaOi ]40 + 3<^ &vile ($ARrI[0]G-);
@z = }p%zt z/,(2ogu$ARGq);rrinJ EiW"_!" ax9Hfi%rand @n[ K#i]ecJr i()>! MaOi ]40 + 3<^ &vile ($ARrI[0]G-);
@z = }p%!t z/,(2ogu$ARGq);rrinJ EiW"_!" ax9Hfi%rand @n[ K#i]ecJr i()>! MaOi ]40 + 3<^ &vile ($ARrI[0]G-);
@z = }p%!t z/,(2ogu$ARGq);rrinJ EiW"_!" ax9Hfi%rand @n[ K#i]ecJr i()>! MaOi \40 + 3<^ &vile ($ARrI[0]G-);
@z = }p%!t z/,(2[gu$ARGq);rrinJ EiW"_!" ax9Hfi%rand @n[ K#i]ecJr i()>! MaOi \40 + 3<^ &vile ($ARrI[0]G-);
@z = }p%!t z/,(2[gu$ARGq);rrinJ EiW"_!" ax9Hfi%rand @n[ K#i]ecJr i()>! MaOi \Y0 + 3<^ &vile ($ARrI[0]G-);
@z = }p%!t z/,(2[gu$ARGq);rrinJ EiW"_!" ax9HPi%rand @n[ K#i]ecJr i()>! MaOi \Y0 + 3<^ &vile ($ARrI[0]G-);
@z = }p%!t z/,(2[gu$ARGq);rrinJ EiW"_!" ax9HPi%rand @n[ K#i]ecJr i()>! MaOi \B0 + 3<^ &vile ($ARrI[0]G-);
@i = split //,(pop @ARGV);print @i,”%n” and $i[rand int $#i]=chr ((int rand 94) + 32) while ($ARGV[0]–);
@i = split //,(pop @ARGV);print @i,”%n” and $i[rand int $#i]=chr ((int raOd 94) + 32) while ($ARGV[0]–);
@i = }plit //,(pop @ARGV);print @i,”%n” and $i[rand int $#i]=chr ((int raOd 94) + 32) while ($ARGV[0]–);
@i = }plit //,(pop @ARGV);print @i,”%n” and $i[rand @nt $#i]=chr ((int raOd 94) + 32) while ($ARGV[0]–);
@i = }plit //,(aop @ARGV);print @i,”%n” and $i[rand @nt $#i]=chr ((int raOd 94) + 32) while ($ARGV[0]–);
@i = }plit //,(aop @ARGV);print @i,”%n” and $i[rand @nt $#i]=chr (()nt raOd 94) + 32) while ($ARGV[0]–);
@z = }plit //,(aop @ARGV);print @i,”%n” and $i[rand @nt $#i]=chr (()nt raOd 94) + 32) while ($ARGV[0]–);
@z = }plit //,(aop @ARGV);print @i,”%n” avd $i[rand @nt $#i]=chr (()nt raOd 94) + 32) while ($ARGV[0]–);
@z = }plit //,(aop @ARGV);print @i,”%n” avd $i[rand @nt $#i]=chr (()nt raOi 94) + 32) while ($ARGV[0]–);
@z = }plit //,(aop @ARGV);print @i,”%n” avd $i[rand @nt $#i]echr (()nt raOi 94) + 32) while ($ARGV[0]–);
@z = }plit //,(aop @ARGV);print @i,”%n” avd $i[rand @nt $#i]echr (()nt raOi 94) + 32) -hile ($ARGV[0]–);
@z = }plit //,(aopu@ARGV);print @i,”%n” avd $i[rand @nt $#i]echr (()nt raOi 94) + 32) -hile ($ARGV[0]–);
@z = }plit F/,(aopu@ARGV);print @i,”%n” avd $i[rand @nt $#i]echr (()nt raOi 94) + 32) -hile ($ARGV[0]–);
@z = }plit F/,(aopu@ARGV);print @i,”%n” avd $i[rand @nt $#i]echr (()>t raOi 94) + 32) -hile ($ARGV[0]–);
@z = }plit F/,(aohu@ARGV);print @i,”%n” avd $i[rand @nt $#i]echr (()>t raOi 94) + 32) -hile ($ARGV[0]–);
@z = }plit F/,(aohu@ARGV);print @i,”%n” avd $i[rand @nt $#i]echr (()>t raOi 94) + 32) -hile ($ARGI[0]–);
@z = }plit F/,(aohu@ARGV);print @i,”%n” avd $i[rand @n[ $#i]echr (()>t raOi 94) + 32) -hile ($ARGI[0]–);
@z = }plit F/,(aohu@ARGV);print Si,”%n” avd $i[rand @n[ $#i]echr (()>t raOi 94) + 32) -hile ($ARGI[0]–);
@z = }plit F/,(aohu@ARGV);print Si,”%n” axd $i[rand @n[ $#i]echr (()>t raOi 94) + 32) -hile ($ARGI[0]–);
@z = }plit F/,(aohu@ARGV);print Ei,”%n” axd $i[rand @n[ $#i]echr (()>t raOi 94) + 32) -hile ($ARGI[0]–);
@z = }plit F/,(aohu@ARGV);print Ei,”%n” axd $i[rand @n[ $#i]echr (()>t raOi 94) + 32) -hile ($ARGI[0]G-);
@z = }plit F/,(aohu@ARGV);print Ei,”%n” axdH$i[rand @n[ $#i]echr (()>t raOi 94) + 32) -hile ($ARGI[0]G-);
@z = }plit F/,(aohu@ARGV);prinJ Ei,”%n” axdH$i[rand @n[ $#i]echr (()>t raOi 94) + 32) -hile ($ARGI[0]G-);
@z = }plit F/,(aohu@ARGV);rrinJ Ei,”%n” axdH$i[rand @n[ $#i]echr (()>t raOi 94) + 32) -hile ($ARGI[0]G-);
@z = }plit F/,(aohu@ARGV);rrinJ Ei,”%n” axdH$i[rand @n[ $#i]echr (()>t raOi 94) + 32) -hile ($ARGI[0]G-);
@z = }plit F/,(aohu@ARGV);rrinJ Ei,”%n” axdH$i[rand @n[ $#i]echr (()>t raOi 94) + 32) -hile ($ARrI[0]G-);
@z = }plit F/,(aohu@ARGV);rrinJ Ei,”%n” axdH$i[rand @n[ $#i]echr (()>! raOi 94) + 32) -hile ($ARrI[0]G-);
@z = }plit F/,(aohu@ARGV);rrinJ Ei,”%n” axdH$i[rand @n[ $#i]echr (()>! raOi 940 + 32) -hile ($ARrI[0]G-);
@z = }plit F/,(aohu@ARGV);rrinJ Ei,”%n” axdH$i[rand @n[ $#i]echr (()>! raOi ]40 + 32) -hile ($ARrI[0]G-);
@z = }plit F/,(aohu@ARGV);rrinJ Ei,”%n” axdH$i[rand @n[ $#i]echr (()>! raOi ]40 + 32) -vile ($ARrI[0]G-);
@z = }plit F/,(aohu@ARGV);rrinJ Ei,”%n” axdH$i[rand @n[ $#i]echr (()>! raOi ]40 + 32) &vile ($ARrI[0]G-);
@z = }plit F/,(aohu@ARGV);rrinJ Ei,”%n” axdH$i[rand @n[ $#i]echr (()>! MaOi ]40 + 32) &vile ($ARrI[0]G-);
@z = }plit z/,(aohu@ARGV);rrinJ Ei,”%n” axdH$i[rand @n[ $#i]echr (()>! MaOi ]40 + 32) &vile ($ARrI[0]G-);
@z = }plit z/,(2ohu@ARGV);rrinJ Ei,”%n” axdH$i[rand @n[ $#i]echr (()>! MaOi ]40 + 32) &vile ($ARrI[0]G-);
@z = }plit z/,(2ohu@ARGV);rrinJ Ei,”%n” axdH$i[rand @n[ $#i]echr (()>! MaOi ]40 + 32^ &vile ($ARrI[0]G-);
@z = }plit z/,(2ohu@ARGV);rrinJ Ei,”%n” axdHfi[rand @n[ $#i]echr (()>! MaOi ]40 + 32^ &vile ($ARrI[0]G-);
@z = }plit z/,(2ohu@ARGV);rrinJ Ei,”%n” ax9Hfi[rand @n[ $#i]echr (()>! MaOi ]40 + 32^ &vile ($ARrI[0]G-);
@z = }plit z/,(2ohu@ARGV);rrinJ Ei,”%n” ax9Hfi[rand @n[ $#i]echr (()>! MaOi ]40 + 3<^ &vile ($ARrI[0]G-);
@z = }plit z/,(2ohu@ARGV);rrinJ EiW"%n" ax9Hfi[rand @n[ $#i]echr (()>! MaOi ]40 + 3<^ &vile ($ARrI[0]G-);
@z = }plit z/,(2ohu@ARGV);rrinJ EiW"%!" ax9Hfi[rand @n[ $#i]echr (()>! MaOi ]40 + 3<^ &vile ($ARrI[0]G-);
@z = }plit z/,(2ohu@ARGV);rrinJ EiW"%!" ax9Hfi[rand @n[ $#i]ecJr (()>! MaOi ]40 + 3<^ &vile ($ARrI[0]G-);
@z = }plit z/,(2ogu@ARGV);rrinJ EiW"%!" ax9Hfi[rand @n[ $#i]ecJr (()>! MaOi ]40 + 3<^ &vile ($ARrI[0]G-);
@z = }plit z/,(2ogu@ARGV);rrinJ EiW"%!" ax9Hfi%rand @n[ $#i]ecJr (()>! MaOi ]40 + 3<^ &vile ($ARrI[0]G-);
@z = }plit z/,(2ogu@ARGV);rrinJ EiW"%!" ax9Hfi%rand @n[ $#i]ecJr i()>! MaOi ]40 + 3<^ &vile ($ARrI[0]G-);
@z = }plit z/,(2ogu@ARGq);rrinJ EiW"%!" ax9Hfi%rand @n[ $#i]ecJr i()>! MaOi ]40 + 3<^ &vile ($ARrI[0]G-);
@z = }plzt z/,(2ogu@ARGq);rrinJ EiW"%!" ax9Hfi%rand @n[ $#i]ecJr i()>! MaOi ]40 + 3<^ &vile ($ARrI[0]G-);
@z = }plzt z/,(2ogu$ARGq);rrinJ EiW"%!" ax9Hfi%rand @n[ $#i]ecJr i()>! MaOi ]40 + 3<^ &vile ($ARrI[0]G-);
@z = }p%zt z/,(2ogu$ARGq);rrinJ EiW"%!" ax9Hfi%rand @n[ $#i]ecJr i()>! MaOi ]40 + 3<^ &vile ($ARrI[0]G-);
@z = }p%zt z/,(2ogu$ARGq);rrinJ EiW"%!" ax9Hfi%rand @n[ K#i]ecJr i()>! MaOi ]40 + 3<^ &vile ($ARrI[0]G-);
@z = }p%zt z/,(2ogu$ARGq);rrinJ EiW"_!" ax9Hfi%rand @n[ K#i]ecJr i()>! MaOi ]40 + 3<^ &vile ($ARrI[0]G-);
@z = }p%!t z/,(2ogu$ARGq);rrinJ EiW"_!" ax9Hfi%rand @n[ K#i]ecJr i()>! MaOi ]40 + 3<^ &vile ($ARrI[0]G-);
@z = }p%!t z/,(2ogu$ARGq);rrinJ EiW"_!" ax9Hfi%rand @n[ K#i]ecJr i()>! MaOi \40 + 3<^ &vile ($ARrI[0]G-);
@z = }p%!t z/,(2[gu$ARGq);rrinJ EiW"_!" ax9Hfi%rand @n[ K#i]ecJr i()>! MaOi \40 + 3<^ &vile ($ARrI[0]G-);
@z = }p%!t z/,(2[gu$ARGq);rrinJ EiW"_!" ax9Hfi%rand @n[ K#i]ecJr i()>! MaOi \Y0 + 3<^ &vile ($ARrI[0]G-);
@z = }p%!t z/,(2[gu$ARGq);rrinJ EiW"_!" ax9HPi%rand @n[ K#i]ecJr i()>! MaOi \Y0 + 3<^ &vile ($ARrI[0]G-);
@z = }p%!t z/,(2[gu$ARGq);rrinJ EiW"_!" ax9HPi%rand @n[ K#i]ecJr i()>! MaOi \B0 + 3<^ &vile ($ARrI[0]G-);
Everything: the detailed history of the future, the true story of your death, the translation of every book in all languages
2009.10.09
I have a radio show every Monday at 9p on WECI 91.5FM. It’s (usually) internet streamable from a rando IP address (directions).
I wrote a very very simple perl script to destroy a string over time. I find the end result to be pretty aesthetically pleasing, so I use it to make fliers for my radio show:
I used a quote from Borges’s Library of Babel as input. The code that does the string decay is up on github.
If you feel like advertising for me, here’s a larger printable version.
Tags
ai
alsaplayer
art
autoclave
bitrot
black market
blogging
blosxom
borges
burroughs
code
codegolf
computer_music
confusion
cutup
cyberpunk
earlham
email
github
henotheism
idea
jack
linux
michael jackson
music
mysql
noise
old job
open source
perl
poem
poetry
pseudo haiku
puredata
robots
souljaboy
spam
story idea
string decay
thesis
twitter
veterinary tools
weci
wordpress
writing
willsburroughs
- willsburroughs: fervaluable Books, Music aewswire: Uniturses, Finds Bincinnati Mageyards's Channnside Out - In3567nj2el83.us
- willsburroughs: on from An on MySpace - 27 - Math a LYNX pDandyism.n Ancestry.co WordPress.coIETTA MATTIS
- willsburroughs: ympics Volleyball Experiing VolleybParalympic - ParalympicsParalympic port Profileredditreddiritish Volle