Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw

A Portrait in Binary Static

by ktross (Deacon)
on Sep 23, 2005 at 20:35 UTC ( #494663=obfuscated: print w/replies, xml ) Need Help??

#!/usr/bin/perl -w # With apologies to all the giants upon whoms backs I ride use strict; $_='my $s=12;my$came l=((q( #)."\040"x($s-1))x 8)."\n",my$ myeyeshurt;eval("seek \040DATA ,0,0;") ;foreach(1..3){<DATA>}m y@mes=<DATA>;my$me;f oreach$me(@mes){$me=spri ntf("%-72s",$me),$me= ~s;\S;1;g,$me=~s;\s;0;g;}wh ile(1){print$camel;f oreach$me(@mes){my@dimensional =split(//,$me );my$ch=0;my$staticbits=0;my@stareh ard;my@japh=( q(0),q(1),"\040");for(1..$s){push@star ehard,@japh[ra nd(@japh)]}for(@starehard){$myeyeshurt= $myeyeshurt.$_}foreach$staticbits(@dimensional){if($stati cbits<$ch){unshift@starehard,@japh[rand(@japh-1)]}elsif($st aticbits>$ch){shift(@starehard)}$myeyeshurt=$myeyeshurt.$sta rehard[0],$ch=$staticbits,$_=shift(@starehard),push(@stareha rd,$_)}$myeyeshurt=$myeyeshurt."\n",@starehard=q()}system((($ ^O)eq(qq(\x4D\x53\x57\x69\x6E\x33\x32)))?qq(\x63\x6c\x73):qq(\ x63\x6c\x65\x61\x72));print$camel;print$myeyeshurt;$myeyeshurt =q(),select$,,$,,$,,0.001}';s/\s*//g;eval;q'1';__DATA__ 47`/; $_=reverse;print"\040$_$Camel\n";}';;s/\s*//g;;eval; eval ("seek\040DATA,0,0;");undef$/;$_=<DATA>;s/\s*//g;( );;s ;^.*_;;;map{eval"print\"$_\"";}/.{4}/g; __DATA__ push @_ ,'ee'..'tt',push@_,'a'..'v',push @_,'J'.. 'P', push@_,'_' (;formy$s(@_){*{;no strict' ref s';\*$s}=s ub{$s=~s,v,,,prin $s}}END {p rintchr( ),v(&s t)),o(&n er)), c(&a),e 140\24 1\041\1 \141\ 115\14 1\157 \146\ 112\1 45\15 \240 \046\ 3\13 1\35 4\16 0\26 \064 \042 3\076 \140\ 9\040\ 177\1 40\150\ 125\132 \105\051 \133\143 \000\1 00\100\050
Hint: Use a large terminal (85 wide, 50 high), and think magic eye

Replies are listed 'Best First'.
Re: A Portrait in Binary Static (sample output)
by ktross (Deacon) on Sep 23, 2005 at 21:07 UTC
    Here is some sample output, though I find it easier and more rewarding to view when the script is running:

    Update: I have placed a JavaScript on my homenode that better illustrates the expected output

    #!/usr/bin/perl -s -w sub AUTOLOAD{$_=our$AUTOLOAD,s,^.*::,,,s,_, ,,print}END{print chr 44} h(l_(P(a(u(J()),_(st())),o(n()),h(t()),_(er())),er())),c(a()),er(k())
Re: A Portrait in Binary Static
by eric256 (Parson) on Sep 23, 2005 at 21:15 UTC

    Awesome. I normaly have a hard time seeing those but that worked realy well. I'm realy just can you animate it?!? lol

    Eric Hodges
      It is animated! Kind of...

      Regardless, it's the coolest thing I've seen in a while.

Re: A Portrait in Binary Static
by nerfherder (Monk) on Sep 25, 2005 at 06:45 UTC
    WOW. You've really outdone yourself this time... pure genius.

    Brought tears to my eyes, in fact... ;-)

Re: A Portrait in Binary Static
by Anonymous Monk on Sep 25, 2005 at 07:44 UTC
    NO FREAKING WAY! That is probably the coolest thing i've ever seen on a computer! What i thought was surprizing was the fact that code in the shape of a camel does something. The fact that it is 3d is awesome. Dude, forget bill gates, you should take over or something...
Re: A Portrait in Binary Static
by polypompholyx (Chaplain) on Sep 24, 2005 at 20:38 UTC
    That's fantastic! I wish I could ktross+= $several...
Re: A Portrait in Binary Static
by talexb (Canon) on Sep 26, 2005 at 17:45 UTC

    Likewise, I'm never able to see these 'magic eye' things. This time it worked. Insane.

    Now I can't see straight. I'll come back later and correct my typos.

    Alex / talexb / Toronto

    "Groklaw is the open-source mentality applied to legal research" ~ Linus Torvalds

Re: A Portrait in Binary Static
by jbrugger (Parson) on Sep 27, 2005 at 05:49 UTC
    And at first i did not have a clue what i was looking at... Why was this so special, apart from the ascii art???.... now i looked behind the image... WOW!!!

    "We all agree on the necessity of compromise. We just can't agree on when it's necessary to compromise." - Larry Wall.
Re: A Portrait in Binary Static
by petdance (Parson) on Sep 26, 2005 at 15:03 UTC
    Extra super cool that the eye is transparent.


Re: A Portrait in Binary Static
by teamster_jr (Curate) on Sep 28, 2005 at 08:55 UTC
    I'll never see the sailboat.
      "Wow! A Schooner!" "It's not a schooner, it's a sailboat, deleted" "A schooner is a sailboat, deleted!"

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://494663]
Approved by cristian
Front-paged by chester
Discipulus is managing to update/crack his first garmin navigtor: until now just paper maps

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (8)
As of 2017-09-25 14:01 GMT
Find Nodes?
    Voting Booth?
    During the recent solar eclipse, I:

    Results (280 votes). Check out past polls.