X-Google-Language: GERMAN,ASCII
X-Google-Thread: f7c81,3c6ff9ff2506cb39
X-Google-Attributes: gidf7c81,public
X-Google-ArrivalTime: 2001-10-05 09:15:08 PST
Path: 
 archiver1.google.com!news1.google.com!sn-xit-02!supernews.com!newsfeed.direct.ca!look.ca!news.maxwell.syr.edu!news-was.dfn.de!news-mue1.dfn.de!news-stu1.dfn.de!news1.shuttle.de!news2.shuttle.de!bento.mitch.h.shuttle.de!yggdrasil.mitch.h.shuttle.de!not-for-mail
From: "Christian Garbs [Master Mitch]" <mitch@mitch.h.shuttle.de>
Newsgroups: de.alt.rec.ascii-art
Subject: Re: pinguin
Date: 5 Oct 2001 17:46:55 +0200
Organization: www.itsnotmygoddamnplanetunderstandmonkeyboy.org
Lines: 69
Message-ID: <9pkklf$1h1$1@yggdrasil.mitch.h.shuttle.de>
References: <9pjpdl$81r$1@piggy.rz.tu-ilmenau.de>
 <90689390575a17067936672c4ed7916d@marvin.sub-etha.org>
NNTP-Posting-Host: yggdrasil.mitch.h.shuttle.de
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 8bit
X-Trace: bento.mitch.h.shuttle.de 1002297602 8067 192.168.0.104 (5 Oct 2001
 16:00:02 GMT)
X-Complaints-To: news@mitch.h.shuttle.de
NNTP-Posting-Date: 5 Oct 2001 16:00:02 GMT
X-Accept-Language: de, en
X-LinuxCounter: Registered Linux User 158702 at http://counter.li.org
X-Virus: Hi! I'm a header virus! Copy me into yours and join the fun!
User-Agent: tin/1.4.5-20010409 ("One More Nightmare") (UNIX) (Linux/2.2.19
 (i586))
Xref: archiver1.google.com de.alt.rec.ascii-art:2260

David Dahlberg <D-Mail@gmx.net> wrote:
> "Jens Kammler" <zero.privat@goldmail.de> schrieb:

>>das hab ich irgendwann mal gefunden.. und wollte es
>>nur mal zeigen. Ich glaube aber es wurde nicht wirk-
>>lich per Hand gemacht... *g*

> Ist ja auch nicht umbedingt das, was man unter ASCII-Art versteht. Das
> Bild ist erst durch einf�rben des Codes entstanden. Irgentwann ist
> hier allerdings schon mal ein gecodetes Kamel gepostet worden...

Kamel? Perl? Das da?

--snip--
#!/usr/bin/perl -w                                      # camel code
use strict;

                                           $_='ev
                                       al("seek\040D
           ATA,0,                  0;");foreach(1..3)
       {<DATA>;}my               @camel1hump;my$camel;
  my$Camel  ;while(             <DATA>){$_=sprintf("%-6
9s",$_);my@dromedary           1=split(//);if(defined($
_=<DATA>)){@camel1hum        p=split(//);}while(@dromeda
 ry1){my$camel1hump=0      ;my$CAMEL=3;if(defined($_=shif
        t(@dromedary1    ))&&/\S/){$camel1hump+=1<<$CAMEL;}
       $CAMEL--;if(d   efined($_=shift(@dromedary1))&&/\S/){
      $camel1hump+=1  <<$CAMEL;}$CAMEL--;if(defined($_=shift(
     @camel1hump))&&/\S/){$camel1hump+=1<<$CAMEL;}$CAMEL--;if(
     defined($_=shift(@camel1hump))&&/\S/){$camel1hump+=1<<$CAME
     L;;}$camel.=(split(//,"\040..m`{/J\047\134}L^7FX"))[$camel1h
      ump];}$camel.="\n";}@camel1hump=split(/\n/,$camel);foreach(@
      camel1hump){chomp;$Camel=$_;y/LJF7\173\175`\047/\061\062\063\
      064\065\066\067\070/;y/12345678/JL7F\175\173\047`/;$_=reverse;
       print"$_\040$Camel\n";}foreach(@camel1hump){chomp;$Camel=$_;y
        /LJF7\173\175`\047/12345678/;y/12345678/JL7F\175\173\0 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__   \124
               \1   50\145\040\165\163\145\040\157\1 46\040\1  41\0
                    40\143\141  \155\145\1 54\040\1   51\155\  141
                    \147\145\0  40\151\156 \040\141    \163\16 3\
                     157\143\   151\141\16  4\151\1     57\156
                     \040\167  \151\164\1   50\040\      120\1
                     45\162\   154\040\15    1\163\      040\14
                     1\040\1   64\162\1      41\144       \145\
                     155\14    1\162\       153\04        0\157
                      \146\     040\11     7\047\         122\1
                      45\15      1\154\1  54\171          \040
                      \046\         012\101\16            3\16
                      3\15           7\143\15             1\14
                      1\16            4\145\163           \054
                     \040            \111\156\14         3\056
                    \040\         125\163\145\14         4\040\
                    167\1        51\164\1  50\0         40\160\
                  145\162                              \155\151
                \163\163                                \151\1
              57\156\056
--snip--

Alles zwischen den --snips-- in eine Datei packen und die dann
ausf�hren. Von stdin l�uft das nicht.

so long,
Mitch
-- 
....Christian.Garbs.....................................http://www.cgarbs.de
Why waste time learning when ignorance is instantaneous?
                                                (Hobbes)