Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

GGGraffiti

by Blop (Monk)
on Aug 13, 2001 at 10:47 UTC ( #104395=obfuscated: print w/replies, xml ) Need Help??

#!/usr/bin/perl -w use#me strict;use#emacs! integer;my@cam=map{0+(eval" 0b$_")+1}map{s!(...)!'$1',!gxgxg; eval"($_)"}map{sprintf"%.9b",hex}("0", "0","0","0","0","db","db","a2","114","e2", "112","92","10","80","0" ,"30",qq@180@, "186",qq'1b6',"1a6", "003"+123, "135","1ff",q~1ff~, "91"-10, "12",qq^41^,q:93:, "e5","1b6" ,"1fe", "0",q&49&,qq;92;, "9a","30","0", q%35%, "1b6","1f8",q=0=, "1",qq#49#,"49", q!52!, "92",q{e4},"12d", "176","1b6","1b6" ,"1be" ,"1c8","b",q[48], "35","199","12f", "140", "1",qq(88),q-3e-, qq+f3+,qq*13c*, "140", "1c7","161","12c", q/55/, q;;. "10c", "124","124","125" ,q<7>, q"140", "2","122","7","1ac" ,"000","000","000" ,"000","000","000" ,"000","000" ,"000","000","000" , +## "000","000","000", qq|000| +); open$_,$0;undef$/; $_=<$_>;;s<[\ +n \s]+><>gix;my$ec=(q ~ ~x54 .qq, \n,)x25; my$in=0.0;my$out;my $klin=$^O=~m~win~ix?qq"cls": qq$clear$;while(1.){ my$ecr=$ec;;my($coL,$col)=( 19,00);my$car;for my $mv(@cam){A:{if($col==0 &&$coL==q=19=){$car= $out,last A if defined $out and$out ne qq . .;;$car=(++$|+$in< length and substr$_, $in++,1 or q- -),# last A;;;;}--$coL,-- $col;;;;$ec=~m;(?: [^\n\r]*\n){$coL}(?: [^\n\r]{0,$col})(# [^\n]?);mix;;++$col,++ $coL;;$car=defined( $1)?$1:q[ ];}$coL-=($mv <6)?1:0;$col+=(!($mv&4) ||(vec($mv,0,2)==3))?1:0;$col-=(($mv&4)||(vec($mv,0,2)== 3))?1:0;$coL+=(($mv>4)||($mv==1))?1.:0.;$out=$car if( $col==0);--$coL,--$col;$ecr=~s[((?:[^\n]*\n){$coL}) ([^\n]{0,$col})([^\n]?)][$1.$2.(q? ?x(length($2) -$col)).$car]mex;++$coL,++$col; }$ec=''. $ecr;system$klin;print $ec;} #!

Blop!
Note 1: 5.6 required. Thanks to chazzz for testing it under Windows.
Note 2: that's supposed to be a flower, on the right :) (in the output).
Update: changed a character or two, trying to make it work for windows addicts (thank you Ven'Tatsu for your remark).

Replies are listed 'Best First'.
Re: GGGraffiti
by Ven'Tatsu (Deacon) on Aug 13, 2001 at 12:35 UTC
    There is no clear under windows so it scrolls making it a bit hard to make out at times. =\
Re: GGGraffiti
by chazzz (Pilgrim) on Aug 13, 2001 at 16:40 UTC
    I can confirm this runs under ActivePerl on win32. Very nice job! This is going up on my wall :)
Re: GGGraffiti
by Anonymous Monk on Aug 17, 2001 at 22:52 UTC
    The funkiest script I've seen to date. $lw && $amelia would be proud. May your ego swell, while(1){} :)

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://104395]
Approved by root
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (3)
As of 2017-07-24 02:13 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I came, I saw, I ...
























    Results (347 votes). Check out past polls.