Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
PerlMonks  

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

Comment on A Portrait in Binary Static
Download Code
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 amazed.....now 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 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 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 petdance (Parson) on Sep 26, 2005 at 15:03 UTC
    Extra super cool that the eye is transparent.

    xoxo,
    Andy

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 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?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://494663]
Approved by cristian
Front-paged by chester
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (6)
As of 2014-12-21 10:09 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (104 votes), past polls