X-Google-Language: POLISH,Latin2
X-Google-Thread: 1045ba,5a96da35ca1f6001
X-Google-Attributes: gid1045ba,public
X-Google-ArrivalTime: 2001-01-18 06:42:08 PST
Path: 
 supernews.google.com!sn-xit-03!supernews.com!logbridge.uoregon.edu!newsswitch.lcs.mit.edu!sunqbc.risq.qc.ca!news1.ebone.net!news.ebone.net!news.ipartners.pl!news.man.poznan.pl!poznan.rmf.pl!news.rmf.pl!agh.edu.pl!newsfeed.silweb.pl!hawk.it.pl!Shodan!steev
From: Slawomir Szczyrba <steev@hot.pl>
Newsgroups: pl.rec.ascii-art
Subject: Re: Stereogramy
Date: 18 Jan 2001 14:05:23 GMT
Organization: Baba Yaga Inc.
Lines: 105
Message-ID: <slrn96du13.1j7.steev@hot.pl>
References: <9445bu$i0d$3@okapi.ict.pwr.wroc.pl> <slrn96barq.5eu.steev@hot.pl>
 <3a65b1f8@news.vogel.pl> <slrn96bdb4.aq7.qrczak@qrnik.zagroda>
 <944ls5$h63$1@okapi.ict.pwr.wroc.pl> <slrn96deqj.rt.steev@hot.pl>
 <slrn96dslh.af8.Mariusz.Kruk@epsilon.rdc.pl>
Reply-To: steev@hot.pl
NNTP-Posting-Host: dlp-rybnik-as1-as3.saturn.pl
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-2
Content-Transfer-Encoding: 8bit
X-Info: Sygnaturka i pierwsza linia postu =?iso-8859-2?Q?s=B1?= generowane
 losowo.
X-Geek: GCS/CM d- s++:++ a? C+++ UH++++ P++ L++ W N++ w++ PGP- tv b+++@ D+
 e+++
X-RLU: #165379
User-Agent: slrn/0.9.6.3+ (Linux)
Xref: supernews.google.com pl.rec.ascii-art:1479

Ave Mariusz Kruk! :
>>Je�li masz dost�p do awk'a, to s�u�� skryptem, kt�ry generuje
>>takie cusie.
> Oddawaj ! Sofort ! URL !!!
> 
Nie oddam! Sam pisa�em! :>

Skrypt :

=[stereogram.awk]==============================================================

function wypisz(    i,j) 
{
 for (i=0; i<25; i++) {
  for (j=0; j<80; j++) { printf("%c",TLO[i,j]);} 
  printf("\n");
 } 
}

function init(    i,j)
{
 system("clear");
# znaczki=".,;'\":=!@#$%^&*-+~`|";
# znaczki="`';,.:^*\"-~|=+";
# znaczki=";:*\"-|=+";
# znaczki="`';,.:^~-+�ע������?\\\"";
# znaczki=";:-+�׭���?/\\\"";
# znaczki=":;|!+=-`'^~�����\"";
# znaczki="`';,.:^~-+�ע������\""; 
 znaczki="abcdefghijklmnopqrstuvwxyz"; 

 srand(systime());
 for (i=0; i<25; i++) {
  for (j=0; j<10; j++) {PASEK[i,j]=substr(znaczki,rand()*length(znaczki)+1,1);}
  for (j=0; j<800; j++) { TLO[i,j]=PASEK[i,j % 10]; } 
 }
}

function punkt(i,j)
{
 if (DANE[i,j] == "#") { return 1; } else { return 0; }  
} 

BEGIN { licznik=0; }

{
 split($0,DANEW,"");
 for (i=0;i<80;i++) { DANE[licznik,i]=DANEW[i+1]; }
 licznik++;
}

END {
 init();
 
 for (i=0;i<25;i++) {
  for (j=0;j<80;j++) {
   if (punkt(i,j)) { for (k=0; k<90; k+=10) TLO[i,j+k]=TLO[i,j+k+1]; }
  }
 } 
 wypisz();
}

=============================================================[stereogram.awk]=

Plik wej�ciowy wygl�da np. tak :

=[dane]=======================================================================

               ##################           ######     ######     ######
               ##################           ######     ######     ######
               ##################          ######     ######     ######  
               ##################          ######     ######     ######
               ######      ######         ######     ######     ######
               ######      ######         ######     ######     ######
               ######      ######        ######     ######     ######
               ######      ######        ######     ######     ######
               ######      ######       ######     ######     ######
               ######      ######       ######     ######     ######
               ##################      ######     ######     ######
               ##################      ######     ######     ######
               ##################     ######     ######     ######
               ##################     ######     ######     ######
               ######                ######     ######     ######
               ######                ######     ######     ######
               ######               ######     ######     ######
               ######               ######     ######     ######
               ######              ######     ######     ######
               ######              ######     ######     ######
               ######             ######     ######     ######
               ######             ######     ######     ######

=======================================================================[dane]=

uruchamiamy przez:  awk -f stereogram.awk dane > stereogram.txt

Wyniki s� �rednie, bo program by� tworzony (pod pascalem :) dla RDS�w
w trybie graficznym. Przy rozdzielczo�ci 640x480 wynik prezenuje si�
�wietnie, przy 80x25 tak sobie :)

S�awek
-- 
  ________ - Jak ostre sa zakrety na drogach w Wachocku?
_/ __/ __/ - ze kierowca jak zakreca widzi tyl swojego samochodu.
 \__ \__ \_______________________________________________________________
 /___/___/ S�awomir Szczyrba                              steev(AT)hot.pl