november 5th

[teamster_jr]

hi all,
ok, so i'm many months early. but i thought this was kind of cool - it may make a nice console screensaver with a tiny bit of reworking (i'll post that as a reply later). (but not nearly as cool as blokhed's Mandelbrot flythrough - all hail blokhed!).
it's a bit large so it's here:

               $
              _=q  
             '*n=s 
            ub{push
           @f,{a,$_[
          0],b,$_[1],
         j,$_[2],l,$_[
        3],c,31+rand(6)
       ,i,25}};n(18,18);
       n(17,-19,75,15);n
       (17,0,25,7);*y=su
       b{%a=%{$_[0]};$a{
       i}-($a{a}*$a{t}-5
       *$a{t}*$a{t})};*x
       =sub{$_[0]->{j}+$
       _[0]->{b}*$_[0]->
       {t}};*p=sub{$a=sh
       ift;$|=printf"\e[
       %d;%dH\e[1;%dm.\e
       [m\e[H",&y($a),&x
       ($a),$a{c}};$|=$c
       =1;while($c){$d=$
       c=0;print"\ec";$T
       +=1;for(@f){if($_
       ->{i}){if(($_->{a
       }-10*$_->{t})<0){
       delete$f[$d];for$
       z(1..4){push@{$f[
       $d]},{a,$z%2?5:-5
       ,b,$z>2?5:-5,i,&y
       ($_),j,&x($_),c,$
       _->{c}}}}else{if(
       $T>$_->{l}){$c=p(
       $_);$_->{t}+=.1}}
      }else{for(@{$_}){$c 
    =p($_)if(&y($_)<22&&&x(
  $_)>0);$_->{t}+=.1}}$d++}se 
lect$q,$q,$q,.1}';s#\s##g;eval

you can add more of them by calling this at the begining (obv after *n has been set).
(it's a bit clearer if you reshape the code!):

# n(vertical vel, horiz vel, x, start time)

hope you like it - again apologies to windows users but it's vt escape heavy - i really should start writing alternatives for them.
take it easy.
al ps. Apologies for the terrible ascii art!!!!

[sleepingsquirrel]

I'm assuming that November 5th is refering to this holiday?

[teamster_jr]

yep, apologies for the anglocentric title!
but yes, you too can have a chance to go oooh! aaah!
al