Hlavní navigace

Názor k článku Nový Root a soutěž o ceny (4) od Miroslav 'miEro' Rudišin - $ wget -qO - http://www.root.cz/data/soutez-4.gif | convert -compress...

  • Článek je starý, nové názory již nelze přidávat.
  • 21. 1. 2005 11:21

    Miroslav 'miEro' Rudišin (neregistrovaný)

    $ wget -qO - http://www.root.cz/data/soutez-4.gif | convert -compress none - miff:- | perl -e '@d=<>;for($i=0;$i<600;$i++){push@v,[unpack"C*",substr($d[$#d],14+$i*780,780)];}for($j=0;$j<780;$j+=30){$l=-1;for($i=0;$i<600;$i++){if($v[$i][$j]){if($l<0){$l=$i}}elsif($l>=0){$h{$i-$l}=[$j,$l];$l=-1;}}}map{($j,$i)=@{$h{$_}};map{$l=$_;map{$o[$l].=($v[$i+$l*5][$j+$_*5]-1)?"*":" "}0..5}0..6}sort keys %h;map{$l=$_;map{print substr($_,$l*78,78),"\n"}@o}0..3'

    OCR si dopiste sami... :-)