|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Andrew Ustinchik 2:450/142.10 13 Feb 2002 23:18:50
To : All
Subject : и снова Тк (может по нему есть отдельная эха :-) ?
--------------------------------------------------------------------------------
вырыл тут примерчик.. прикольно... и поучительно...
--------------------------------------------------------------------
use Tk;$"=tkinit(-bg,
'black');map{s/\s+//g
;$,=$]<<1+1+1;$\=$/=1
;$I=\$,
;$l=\$/
;map {( $\== 1+
1+1 )?( ($I, $l
)=( $l, $I) ):(
$$I=$$I >>1) ;(
$$l=$]) if($\==
1<<1+1) ; $k=1; map{$~= 1; map{
map{if( $_){$i= $" -> Frame(
-he,$$I, -wi,$$l, -bg, qq !tan!);
for(1..9) {form$i (-t=>$k* $]/9*$_,
-l=>$~* $]/9*$_ );update
$"}}$~++ }split'' }unpack
("B32", pack"N", $_);$k++}
split'l' ;$\++;} split'I';
}join'', <DATA>; foreach$>
(children$")
{if(grep
/ [45][50]}/
,$> -> formInfo
('-left')) {$"->repeat
($]<<7,[ \&v,$>]);}}
MainLoop ;sub v{$_[0]
->configure( -bg,'#'.&e.&e.&e
);}sub e{ return sprintf
("%2.2x",int rand(255));}
__DATA__
5509120l0l 0l0l0l0l22 893892l0l0 l0 l0
l0l1817395 2l0l0l0l0l 0l84235328 I65 536
l0 l1 63 84 l0 l0l0 l1l0
l2 l0 l0 l0 l0 l0 l0l0l 0l
0l4194 32 0l 0l8388640I 73 728 l0
l65536 l0 l1 7891328l0l 16 8 51
012l0l 16 77 8308l0 l6 56
00 l0 l1 789 132 8l 0l
0l 0l 17 895 424 l0 l1
34 23 51 36l 0l1 70 55
80 8l0l1024I0 l0l 0l0 l0 l0
l1 048576l0l0 l0l 52 42 88
-----------------------------------------------------------------------
копирайты тока утеряны... :-(
тока окошко поширше сделайте, если чего...
С уважением - Дядюшка AU.
np: глюки... кругом одни глюки...
... One man and his NoteBook, registered Linux user #256924
--- Быстро и эффективно ввожу в состояние запоя. Материал заказчика.
* Origin: Дети появляются в pезультате элементаpной забывчивост (2:450/142.10)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
