[MacPerl] Exercise in shrinkage

[kpreid@ibm.net (Kevin Reid)]

#!perl -w
use Mac::Windows;use constant B=>new RGBColor(0,0,0);sub S(){256}
END {$win->dispose if $win}($win=new MacWindow new Rect(50,50,58+S,
 58+S), 'Sierpinski', 1, rDocProc + 6, 1)->sethook(redraw => sub {
  for (my $x = 0; $x < S; $x++) {for (my $y = 0; $y < S; $y++) {
  Mac::QuickDraw::SetCPixel $x+$y/2+4, S-$y+2, B unless ($x&$y)
}}}); Mac::Events::WaitNextEvent while $win->window;

-- 
 Kevin Reid: |    Macintosh:      
  "I'm me."  | Think different.

===== Want to unsubscribe from this list?
===== Send mail with body "unsubscribe" to macperl-request@macperl.org