if putting too much code isnt a problem - just as a "thank you" here is the whole prog.

Remarkably simple, I really like perl/Tk!

Play with it if you want, copyright is "do whatever you want with it"

alessandro 

#!/usr/bin/perl -w
# ------------------------ @alexxx2010
# ------------- Life 2D

=begin
 

=end
=cut


use Tk;
use Time::SoFar  qw( runtime runinterval figuretimes );

my ($mw,$canvas,$info,$lifeid);
my ($w,$h);
my $lc=5;


my $gen=0;
my $d;
my $syn;
my ($i,$j,$k,$l,$n,$a,$b);
my ($c,$cc);


open(F,">ca.log");
$d=`date`;
print(F "program running: $0\n");
print(F "$d starting...");


$mw = new MainWindow( -background => "black" );
($w, $h) = ($mw->screenwidth, $mw->screenheight);



#$mw->bind("<Motion>",sub {      # stop if mouse moved
$mw->bind("<KeyPress>",               # stop if keyboard press
      sub {
          $d=`date`;
          print(F " $d exiting\n"); close(F);
          exit
      });


# UNCOMMENT
#  ONCE EVERYTHING RUNS OK - DO NOT DEBUG WITH THESE LINES ON!
#$mw->FullScreen(1);
#$mw->grabGlobal;    # these last two to force FullScreen()
#$mw->focusForce;    # to correctly behave (from perlmonks)


$w+=2;$h+=2;
$mw->geometry ($w . 'x' . $h . '+-1+-1');  # to fullscreen

$w-=100;$h-=100;
print(F "\nw=$w\th=$h\ncell width $lc\n");
$canvas = $mw->Canvas(-width => $w, -height => $h, -background => "bla
+ck") -> pack(-pady=>10);
$info = $mw->Canvas(-width => $w, -height => 20, -background => "black
+") -> pack;

my ($x,$y);
my %cells;


# Init cells
my $p=0.3;

for $i(1..$w/$lc)
{
    for $j(1..$h/$lc)
    {
    if (rand()<$p)
    { $cells[0][$i][$j]=1; $cells[1][$i][$j]=1 }
    else { $cells[0][$i][$j]=0; $cells[1][$i][$j]=0 }
    }
}

runtime();

while(1)
{
    life();
    DoOneEvent();
}


exit;         # should never reach here anyway...

# ====================================================================
+=========================
#                                       SUBS
# ====================================================================
+=========================


sub life
{
    $gen++;

    $info->createRectangle(0,0,$w,20,-fill=>"black");
    $info->createText(10,10,-text=>"GEN $gen",-anchor=>"w", -fill=>"wh
+ite");
    $info->update;

    updatecells();

    showcells();

    $sin = runinterval(1);
    print(F "\tTime since then $sin\n-----\n");   # extract it with  p
+erl -wne 'if(/:(\d*)\n/){print "$1\n"}' ca.log >a.dat
}


sub updatecells
{
    if(($gen % 2)==1){ $c=0; $cc=1} else {$c=1;$cc=0}

    for $i(1..$w/$lc)
    {
    for $j(1..$h/$lc)
    {
        $n=0;
        for $k($i-1..$i+1) { 
        for $l($j-1..$j+1) {
            if (($i!=$k) or ($j!=$l))
            {
            if($k<1){$k=$w/$lc}; if($l<1){$l=$h/$lc}
            if($k>$w/$lc){$k=1}; if($l>$h/$lc){$l=1}
            $n += $cells[$c][$k][$l];
            }
        }}
        
        if($cells[$c][$i][$j]==1)
        { if(($n==2) or ($n==3)) { $cells[$cc][$i][$j]=1 } else { $cel
+ls[$cc][$i][$j]=0 } }
        else
        { if($n==3)    { $cells[$cc][$i][$j]=1 } else { $cells[$cc][$i
+][$j]=0 } }
    }
    }

    print(F "GEN $gen\n\tcells updated\t");

}


sub showcells
{
    my($u,$v);

    if(($gen % 2)==1){$c=0} else {$c=1}

    $canvas->delete('all');

    $u=$w/$lc; $v=$h/$lc;

    for $i(1..$u)
    {
    $a=($i-1)*$lc+1; 
    for $j(1..$v)
    {
        $b=($j-1)*$lc+1;
        if ($cells[$c][$i][$j]==1)
        {$canvas->createRectangle($a,$b,$a+$lc,$b+$lc,-fill=>"white")}
#        else
#        {$canvas->createRectangle($a,$b,$a+$lc,$b+$lc,-fill=>"black")
+}
    }
    }
    print(F "\tcells drawn\n");
}

[download]

In reply to Re^3: Perl/Tk without events by alexxxm
in thread Perl/Tk without events by alexxxm

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.