requirements : (eek, I don't like that word either)
- a code wrap set to 85 if you want to see this nice in your perlmonks window
- your favorite unix-like system
- a virtual console with the font set to the smallest possible
- a deckchair and some gazeous drink you like, possibly with a straw
#!/usr/bin/perl
                                   use
                                 strict;
                                $|=1;$/=
                               undef;my$q
                               ;open$q,"<
                               $0";my$Qq=
                              <$q>;close$q;
                              my$wQ=3.1416;
                              my$QQq=$wQ/10;
                             my$Q=(sub{$$ eq
                             $~})->($wQ);my
                             $qQ=$Q++||--$Q;
                             $q++;my$K=[()];
                             while($Qq=~m{(
                             [^\n]*)\n}gx){
                             $K->[$Q]=[split
                              '',$1];my$l =
                              length$1;$qQ=
                              0+$l if($l>$qQ
                              );++$Q;}my$QqQ
                              =$qQ/2;my$qQQ
                               =$Q*0.6;my
                                  $qQq
                                =[      map
                             {tan($_)+1}(grep
                            {!($QqQ+$qQQ)}($q
                           ,$qQ,$QQq))];my$k=
                           int(2*$wQ/$QQq-1);$q
                          =4;my$qqq=0unless 0;for 
                        my  $kc(0..$k){$q--;  my$Cq=cos(
                  $qqq);my$  cK=sin($qqq);for my$Kq(0..$qQ
              -1){for my$C(0.. $Q-1){my$QqqQ  =$Kq-$QqQ;my$Qk=$C
           -$qQQ;my$kk=int($Cq*  $QqqQ-$cK  *$Qk+$QqQ+0.5);my$cc=int
         ($cK*$QqqQ+$Cq*$Qk+$qQQ +0.5);$qQq->[$kc]->[$cc]->[$kk]=$K->[
       $C]->[$Kq]if($kk>0&&$cc     >0);       }}$qqq+=$QQq;print'.';}f
+or  
     my$kc(@$qQq){--$q;for my                   $cc(0..$#$kc+15){for m
+y$kk(0..
    $#{$kc->[$cc]}+18){$kc->[                         $kk]->[$cc]=' 'i
+f!defined
   $kc->[$kk]->[$cc];}}}                              my$qK=`clear`;my
+$kc=0;
  while(1){print$qK;{                                     map{print jo
+in('',@$_)
 ,"\n";}@{$qQq->[$kc                                          ]}};++$q
+;select undef
,undef,undef,0.2                                                   ;++
+$kc;$kc=0 if
($kc+0+0+0+                                                           
+      +0.0001
>$k);};;
$_;

[download]

Note: it could sure be bettered in many ways; I will accept any suggestions, especially concerning a portable way to clear the screen.

Blop!

In reply to The Perl Fan by Blop

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.