in reply to Text to animated pseudo-braille GIF

I was watching "Close Encounters of the Third Kind" last night, and this reminds me of the movie's attempt to demonstrate how we might communicate with space aliens. Another use for Perl!

I'm not really a human, but I play one on earth. flash japh
  • Comment on Re: Text to animated pseudo-braille GIF

Replies are listed 'Best First'.
Re^2: Text to animated pseudo-braille GIF
by swampyankee (Parson) on Nov 08, 2005 at 15:16 UTC

    Given that you're not really human (I read sigs....), how did you first communicate with us poor humans?

    emc

      how did you first communicate with us poor humans?

      Screaming and electro-shock. :-) My first words.....

      #!/usr/bin/perl use warnings; use strict; use Fcntl; require 'sys/soundcard.ph'; sysopen(SEQ_FH,'/dev/sequencer',O_WRONLY) or die $!; while(1){ for my $note (20,40,30,40,50){ send_midi_bytes(0xc0,123); #cool patch sound send_midi_bytes(0x90,$note,100); select(undef,undef,undef,1); } } sub send_midi_bytes { #print "@_\n"; my $device = 1; my $stuff = pack('C*', (map {&SEQ_MIDIPUTC(), $_, $device,0 } @_ ) ); my $bytes = syswrite(SEQ_FH, $stuff) or die $!; if (not $bytes) { die("Couldn't write to /dev/sequencer $!" ); } }

      I'm not really a human, but I play one on earth. flash japh
Re: Text to animated pseudo-braille GIF
by jonadab (Parson) on Nov 08, 2005 at 14:41 UTC
    For communicating with space aliens you need a MIDI module, I think. HTH.HAND.