Some rotations (first JAPH)

The only problem: screen size is constant. I just dont know how to determine terminal size under different OSes. Should I use curses for that?

#!/usr/bin/perl
 
                                      use strict;
                                   use Time::HiRes
                                qw(usleep);my @j=split
                             //,'just another perl hacker'
           ;my $clear =(    $^O=~/win/i?      'cls':'clear'    );my ($
+w,$h)=(80,23);my
           ($hw,$hh,$ky)    =($w/2,int$h       /2,0.5); my     $times=
+20;my @mix;my $M;my
              ($ofs,$len    ,$hl)=($hh*$w+$hw-@j/2,scalar@j    ,@j/2);
+my $pi=3.1416;sub mix
              {for ( 1..    $times){my $f=int rand @j;my $t    ;SAME: 
+$t=         int rand @j
              ;my $r=int    abs(($f-$t)       /2);goto SAME     if $r<
+5||          $j[$f]eq $j
              [$t]||($j[    $f]eq"\040"       &&$j[$t]eq" "    );unshi
+ft          @mix,[$f,$t
              ,$r];@j[$f    ,$t]=@j[$t,       $f];} 1;} sub    fill{$M
+=' 'x($w*$h);}sub show
              (@){system                                       "$clear
+";print"$M\n";usleep(
10000)}       sub line(@                                       ){subst
+r($M,$ofs,$len)=join
'',@j;}       sub letter    {my($l0,$l1       ,$a,$r,$c)=@_    ;substr
+($M
,($hh+int     (sin($a) *    $r*$ky))*$w       +$c+int(cos(     $a)*$r)
+,1)
 =$l0;substr($M,($hh-int    (sin($a)*$r       *$ky))*$w+$c-    int(cos
+($a
 )*$r),1)=$l1;} sub pair    {my($f,$t,$r)=@_; my @c=(@j[$f,    $t]); s
+how
 line fill; $j[$f]=$j[$t    ]="\040";my $xc=$hw-$hl+$r+($f     <$t?$f:
+$t)
  ;my $da=$pi/6;my $a=      $da; while($a<$pi){ line  fill     and   s
+how
                            letter(@c,$a     ,$r,$xc);$a+=
                            $da;}@j[$t,       $f]=@c}sub go
                            {pair(@$_)        for@mix;show
                               line               fill}
[download]

                                      mix and go
[download]

Comment on Some rotations (first JAPH) Select or Download Code

Replies are listed 'Best First'.

Re: Some rotations (first JAPH)
by dynamo (Chaplain) on Feb 11, 2005 at 05:41 UTC

How do I get the screen size?

If you have Term::ReadKey module installed from CPAN, you can use it to fetch the width and height in characters and in pixels:

  use Term::ReadKey;
  ($wchar, $hchar, $wpixels, $hpixels) = GetTerminalSize();
[download]

  require 'sys/ioctl.ph';
  die "no TIOCGWINSZ " unless defined &TIOCGWINSZ;
  open(TTY, "+</dev/tty") or die "No tty: $!";
  unless (ioctl(TTY, &TIOCGWINSZ, $winsize='')) {
      die sprintf "$0: ioctl TIOCGWINSZ (%08x: $!)\n", &TIOCGWINSZ;
    }
  ($row, $col, $xpixel, $ypixel) = unpack('S4', $winsize);
  print "(row,col) = ($row,$col)";
  print "  (xpixel,ypixel) = ($xpixel,$ypixel)" if $xpixel || $ypixel;
  print "\n";
[download]

[reply]
[d/l]
[select]


good chemistry is complicated, and a little bit messy -LW
	PerlMonks