Slash Boxes
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)


"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.
More | Login | Reply
Loading... please wait.
  • I think I might make a little cronjob to download each "day" and play it back. I think [] is correct, no? Although I could just use your Perl module too ...
    • Here's my cronjob:

      perl `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.

      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;