[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

Re: [FWP] Re: about that JAPH of yours...



Rich Morin wrote:

> At 9:04 AM -0500 2/10/01, Kevin Reid wrote:
> >for$y(0..31){for(0..31){print$_&$y?$":'*'}print$/}
> 
> nice (not the formatting; the logic :-)

Here's the graphical version which that was based on, which also displays it in
a more traditional orientation:

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


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

==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe