Re: Sierpinski's Triangle - Tk

[zentara]

UPDATED MAR 18,2004

Ok I asked on comp.lang.perl.tk and found out how to get the postscript to output. Your code is creating "invisble rectangles". So to get ps output, make these changes"

$canvas->createRectangle(
int $x, int $y, int $x, int $y,
                         -outline=>undef,
                         -fill=>'white' );

#to (or any variation), you need an outline color and size

$canvas->createRectangle(
int $x, int $y, int $x+1, int $y+1,
                         -outline=>'lightgreen',
                         -fill=>'white' );

<END UPDATE>

You should be able to save the Tk Canvas to a postscript file, then you can convert it to any format you want. It should look something like this, but after a quick try, I don't have it quite right.

$main->Button(
    -text    => "Save",
    -command => sub {
         my @capture=();
         my ($x0,$y0,$x1,$y1)=$canvas->bbox('all');
         @capture=('-x'=>$x0,'-y'=>$y0,-height=>$y1-$y0,-width=>$x1-$x
+0);
         $canvas -> postscript(-colormode=>'gray',
                   -file=>$0.'.ps',@capture);
                }
    )->pack;



MainLoop;