Stories
Slash Boxes
Comments
NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.

All the Perl that's Practical to Extract and Report

use Perl Log In

Log In

[ Create a new account ]

TorgoX (1933)

TorgoX
  sburkeNO@SPAMcpan.org
http://search.cpan.org/~sburke/

"Il est beau comme la retractilité des serres des oiseaux rapaces [...] et surtout, comme la rencontre fortuite sur une table de dissection d'une machine à coudre et d'un parapluie !" -- Lautréamont

Journal of TorgoX (1933)

Friday November 05, 2004
06:23 PM

Clock of the Long Now

[ #21734 ]
Dear Log,

So I ran a little program to generate MIDI files for the daily chimes for all ten thousand years of the Clock of the Long Now. I made one file for each year.

Oboy! It added up to about 270MB, and it takes a full year and nine months to listen to it all.

Though I'm particularly fond of January 07003 (which is on the Eno CD), I'm sure there's other sweet spots in those ten thousand years.

The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.
 Full
 Abbreviated
 Hidden
More | Login | Reply
Loading... please wait.
  • I think I might make a little cronjob to download each "day" and play it back. I think http://interglacial.com/d/clock?format=midi&daycount=1 [interglacial.com] is correct, no? Although I could just use your Perl module too ...
    • Here's my cronjob:

      perl LongNowChimes.pm `date +%F` 1 /tmp/`date +%F`.mid; open /tmp/`date +%F`.mid

      Also, I am using MIDI patch 11 (vibraphone in QT synth) and I lowered everything on octave.

      Eh, hang it, it's evolved into a Perl script, as everything does.

      #!/usr/local/bin/perl
      use strict;
      use warnings;
       
      use LongNowChimes;
      use File::Spec::Functions;
      use Mac::Files;
      use Mac::Glue;
       
      my $player = new Mac::Glue 'QuickTime Player';
       
      my($y, $m, $d) = ((localtime)[5, 4, 3]);
      $y += 1900;
      $m++;
       
      my