Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight

comment on

( #3333=superdoc: print w/replies, xml ) Need Help??
A tribute to perl/Tk -- this runs under both Linux and Windows (Linux needs the Tk module installed, though).

(Note: if it runs too fast or slow, try changing the '100' in the last line to another value).

Update:  If the display looks funny (eg. you see red '+' symbols used for line-continuation), try going to User settings and use a value of 80 or higher for "Code Wrap Length".

$p = sub{$_='JA{23z11z\'2z23z42)"2)*++,z:1-.(6>F=>y3EFGEML'. 'LMMNM[ksz7Ez6I{3Qz3Mz)Qz2Kz1Iz2G{2=z2;z38z49z48|37z27z17z'. '16z25z43z33z51z7\'z71z81&zE2zK\'zU!zO\'zK)z=30(\'55-5<[aq'. 'z5=z5Ez6ErkSS>7/7\'&z91-<<y4C;D;4;<;C[kkrsb[c[cb[[y3SLSLL'. 'TMMLLEDD4=,,.,-,3D;CLL[\\\dS\Sc[[[[[[[[SZRQJIRJJIBz469BCB'. 'LSLy3ULLMNMDE3<%z81-,34#,z81$+;CCD;<CLCCLCcsz7Ez7G{7=skd['. 'd]no`z=9zE7PG@?MFL LMz=7zO7zU7zQ7zE7LY y3C<;;y4CJJz47z39{'. '49{4:z2;z3<bcRy4S[LUNNOPMDDCD;<4-%-4DD<CSbcjZcbSSZSLTLMy3'. 'LMD=>=C<<;4<Cy3DELDckky3cZZ;,4455DD<DDLLCLCS[y3k[y5Sy4M=='. '<<=<=4;D<Cbbi[Rc[Zy4STy3LED<<C<D;DCC;y7Cy7Jy3LNENF=ELC<=<'. '<=<4D<DCSbbqqirj[b[y3S[y6SLTL\y3LTL=-55,5%..5445<;CCDy4CS'. '[cZijrqjbZbZZ[RSRSSJSS;<555=5==DE<DL[[kccjc[R[y3Ly3NEM=E='. 'D=D5<;;<y6CJIy3JRZQYZQ[R[[[S[S[STSLTMOOM=65/6<DCC<Dy3Cy3LS' .'TSTy5S[[y3S[S[[SSTTMNzG8zM7{Q7z=7M ' .'DNPzI7zG6zI6zG7PPNLML S[[c[y4ckssrc' .'bjkbcZbjjby4ZaZaZZRRZSy4RSy3JI2;22+' .'3+++5-z:)&z:)\'' .'&/(&/6GGHGNNO{=7' .'WOy3' + .'Tecd' .'[ccjYaaYz49IQ|37{27z17z27z)6{36 MMN' .'FDED' +.'D>D<' .'DDCD;DC;y3CJJy4Iz47IIJRRSbZcb[ck[[[' .'[T\L' . +'TLLM' .'NFE=67>>DD<<D<<<y3C;<CLSTLSLSLSS[y3' .'S[S[' .' +[k[[' .'y4STLLMNy4M=F87665-<454%4+4443;Dy4C' .'<CCI' .'J +JQI' .'RQJQYRZR[bZbcbcjjcb[c[[S[[c\\TTy3UV' .'XOPz' .'G7 +zI' .'6PMz1: LLN??0>67(/.6-4<;CC;CCA:JBJJ' .'IJJR' .'biz +6' .'=z4;qz6=z6Gz6=kjqz6Eiy3bZRSSRC4&\'z' .';1\'' .'z;1. +' .'<<<y3Ld[[cSy4cy3S[y3STSLSSLLML<<4-4' .'454=' .'-EDL' .'DMOHN{47JJIJQRQYZYbaz4;Yby5SLLM>DML' .'LDED' .'ELDC' .'C<D<;;CCD;D<Sccrcbcy4SUy6LDE;<;<=,5' .'5>==' .'5ELD' .'DLIQYYZQbYZZb[[S[[LSy3LMMEFE>=-\'..' .'5,+,' .',,34' .';;;4;y3CD[ckz6=z5Ez6ErrskjbZ[ZSJ;3$' .',4D4' .'5--4' .'<E<F=E<y3Ly5SZRSJSRJRQJYy3JST[Sc\[c' .'T[\\' .'\LTL' .'LUNy3ME=E=<D<<;D;<CC;y7Cy6JRJSR[Z[R' .'c[[S' .'[SSU' .'MUy4LDELD=y3D<D<D=<DC;Ly4CLy5SLLUUL' .'TLy4'.'Sckb' .'rkck]z=8zO8zY8 S[sz6=z7=z6=z5Gz7=z6' .'=jrj'.'rZSS' .'R y3JSJZRRSR[SS[Sy3Ty6LM=DL=DDCLC;y' .'4CJA'.'BIBy' .'7J';while(m*y([1-9]\d\*)([a-z0])*i){ ($m,$n)=("y$1" ."$2",$2x$1);s=$m=$n=}&x( [map{my@ if; while(s /(.)//) {;if(121>($q=(ord$1)-1)){$b=int($q/8); push@if ,$q-8*$ b-2,$b-9;} else {s-(.)(.)--;push@ if,( ord($1) - 0x37, ord($2)-55)x($q-120);}}\@if;}split' '] )}; use Tk; $W= new MainWindow;$V=$W->Canvas(-height=> 300,-bg =>"#ff" ."ffef",-width=>700)->pack;$W->Button( -text=> "Exit", -command=>sub {exit},-bg=>'#ffef00')-> pack;$W ->after (99=>$p);MainLoop;sub x{my$p=$_[0];for ($v=0;$ v<@$p; +$ v++){$z=$p->[$v];$r=sprintf"#%06x",($v <2)?0:( $v<4 +)? 4243520:($v<6)?1671168_0:($v<7)?33023: 8323199 ;$w= +($v <7)?5:25;$e=(0x8a,220,387,440,151,165, 321,649 ,62 +7)[$ v];$f=(0x70,66,88,55,168,255,219,13_5, 239)[$v ]; +while (@$z){($g,$h)=splice(@$z,0,2);($i,$j)= ($e+$g, $ +f+$h); $V->createLine($e,$f,$i,$j,-width=>$w, -fill=> +$r);($e ,$f)=($i,$j);map{$V-> update}(0 .. 100 ) ; ; } + } } ; #

Edited by Chady -- restored code tags.

In reply to Ticklish Japh by liverpole

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

  • Are you posting in the right place? Check out Where do I post X? to know for sure.
  • Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
    <code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
  • Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
  • Want more info? How to link or How to display code and escape characters are good places to start.
Log In?

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

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (4)
As of 2023-09-26 06:55 GMT
Find Nodes?
    Voting Booth?

    No recent polls found