Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
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

Replies are listed 'Best First'.
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?
[erix]: the annoying thing is that during setup of the 'foreign table' you have to specify all the columns. But that is reasonably automatable (just reading header line, and contruct the needed CREATE FOREIGN TABLE' statement)
[erix]: it may be easier to just slurp your fils into regular tables. Has other infrastructure advantages also (indexes, constraints etc)

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (12)
As of 2018-02-23 15:31 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    When it is dark outside I am happiest to see ...














    Results (302 votes). Check out past polls.

    Notices?