Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

Re: Sierpinski's Triangle - Tk

by zentara (Archbishop)
on Mar 17, 2004 at 17:00 UTC ( [id://337412]=note: print w/replies, xml ) Need Help??


in reply to Sierpinski's Triangle - Tk

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;

I'm not really a human, but I play one on earth. flash japh

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://337412]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others lurking in the Monastery: (4)
As of 2024-05-27 15:48 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found