Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

a JAPH-donut

by leons (Pilgrim)
on Jan 12, 2001 at 15:11 UTC ( #51348=obfuscated: print w/ replies, xml ) Need Help??

This draws a JAPH-donut ... I hope you like it ;-)

#!/usr/bin/perl -w use strict; my ($pi,$r,$str)=( atan2(1,1)*4,21,"just". " another perl hacker "); my $s=$r;$_[$_]=" "x(4*$r+1 )."\n" for(0..(2*$r+1));while ($s-=.5){next if($s<int(.5*$r ));foreach(0..359){my($x,$y)= (int(.5+(2*$r)+(2*$s*cos(($pi /180)*$_))),int(.5+$r+($s*sin (($pi/180) *$_)))); substr( $_[$y],$x,1)=substr($str, ($x%length($str)),1); }} print"@_";
Comments are very welcome

Comment on a JAPH-donut
Download Code
Re: a JAPH-donut
by extremely (Priest) on Jan 13, 2001 at 07:52 UTC
    Gah! that is huge. =) Stretch yer terminals to about 85x43 before running it.

    --
    $you = new YOU;
    honk() if $you->love(perl)

Re: a JAPH-donut
by chromatic (Archbishop) on Jan 17, 2001 at 10:18 UTC
    Now if you could only make real doughnut holes generate real doughnuts....

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://51348]
Approved by root
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (6)
As of 2014-08-21 08:29 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (128 votes), past polls