Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

Comment on

( #3333=superdoc: print w/ replies, xml ) Need Help??
Alright, this might be considered a follow-up to Spiraling Death: not a boustrophedon. in a way, since it has a similar idea, but this is a whole new story. Besides having this nice egg-shape (in a square font it would be a circle though), it produces some interesting real time calculated output. No rocket-science calcs, but anyway... if it wasn't calculated, it would probably look more even. :)

I would also like to thank domm for teaching me one of the tricks I use.

#!/usr/bin/perl ######### use strict; #####$japh="#### ###yrs#){if(#$e#J### ##me70";}unshif);d$u### ##;v,\x3@/180#){$dt#}ijs## ##+e0##14#pos[$y]37yat@eat## ##+8\)p.=$]##'#'););###adla### ##|2#o3#;yet#nt#"$_@dsn=-=#smA## #$,.p=x$nfi$jprint;ap\aue##ie#n# #;rh;+$[#i"){_=#37#-=&thtbxi3a{po# ##=p#_;s)r#9$#ly#$leti#0i.nstn7t@h## #)7")so#p,(x$maletter;tni;""t#tfa=t# ##ja7$n1h/r$;t$38rint-$)sen$xar##(d;## #a3#3ops/1{na,#p&elect#x;u#tm3)i#-,=h# #ajj;i#{xoid1;;seef,0fti"sb=_e;("##ac# ##p$#c$#t');#,"{dE0000N.#m,ue#;;;fa$th## #t#a8*#,ifs@e)en_000000D0u$#s#<f}(#i'#e# $b=40;$0=',';while($b--){for( $_=0; $_ < 6.28;$_+=3.14/180){my$x=int abs 20+$b/2* cos;my$y=int abs 20+$b/2*sin;next if($y< 23&&$y>16);next if($0=~/,$x-$y,/);$0 .= "$x-$y," ;seek(DATA,$y*41+$x,0);$a.= chr ord~~<DATA>;}}$a=~s/(#|__.*)/ /g;eval$a; #a(p2s,1l;*#nrmu_0000005,e1bra}&#"bdaom# ##h"=2!#p.5),ini,}00__;u;lst"9ot$#n#7r## #$#h.*x)#"5txe\tdfednn}i,r#bpr}#si#### #d#$=/(,s'21f$lte#busn#t(=s.eipxt'=py# ###(#62$x#n/+i#$#tel$(r###4rmos#a,)P## #@m#mmf#s=\428h,enil$s#32iefu##'#### ##y#.<ai,o#,"1/3(#x#"7;na;ob(ams{e## #,m,a_i#]$a//#.3=+_$thc}ss$b#J@r(# #ea/i$d)y#ptatilps(d@r[tds='d$@# ##ni/d;$/1$,]@(hcaey$ri3#=,ahp## ##idth$0+m+m[sop$#(a73#'ptpo## ##l;ip(f=2/aid$+2/77'.lals## ##$"$laji_$(rof;)#ti#a#,## ##,r#ps$"#(#,//#=jH$## ###mekhcaerof;cax### ####aid$,y$,#### ########## __DATA__
Important(?) notes:
  • If you are on Windows (or a Mac?), you must save the file with UNIX line endings or it will not work. Most text editors provide this capability, or something like this node might help.
  • The right side must be space padded so all lines are equally long (as long as the longest ones in the middle). No longer lines either. I could just copy from the preview, save and run, so this might not be an issue, but I don't know if you D/L code instead. :)
  • After some discussion with sm3g we concluded that the script should be run with perl program-name - this is how I run my programs, and due to this failing it will work better that way. It is my testing, not perl. :) Thank you!
  • Update: sm3g apparently had to make some minor changes to get this to work on his? her? platform, also try that advice if something seems wrong. :) Thanks for the help! The script is a little picky...
  • If you can read all of the code without deparsing in any way, you really, really scare me :)

Any comments would be very appreciated, if you have them. :) And solutions too, if anyone feels up to it?

Have fun!


You have moved into a dark place.
It is pitch black. You are likely to be eaten by a grue.

In reply to 'Cos it's a Sin :) by Dog and Pony

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":



  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • Outside of code tags, you may need to use entities for some characters:
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.
  • Log In?
    Username:
    Password:

    What's my password?
    Create A New User
    Chatterbox?
    and the web crawler heard nothing...

    How do I use this? | Other CB clients
    Other Users?
    Others exploiting the Monastery: (13)
    As of 2014-07-28 13:38 GMT
    Sections?
    Information?
    Find Nodes?
    Leftovers?
      Voting Booth?

      My favorite superfluous repetitious redundant duplicative phrase is:









      Results (199 votes), past polls