### A Portrait in Binary Static

by ktross (Deacon)
 on Sep 23, 2005 at 20:35 UTC 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
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 (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
h(l_(P(a(u(J()),_(st())),o(n()),h(t()),_(er())),er())),c(a()),er(k())
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.

xoxo,
Andy

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!"

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 examining the Monastery: (3)
As of 2021-05-18 06:03 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
Perl 7 will be out ...

Results (174 votes). Check out past polls.

Notices?