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.