Untitled


        sub mkf {
                $mw->resizable(0,0);
                $mw->geometry(($s*$n+105).'x'.($s*$n+105));
                my ($y1,$y2,$x1,$x2,$col)=(0,$s,0,$s,'grey');
                for my $i(0..$n-1) {
                        $y1+=$s; $y2+=$s; $x1=0; $x2=$s;
                        for my $j(0..$n-1) {
                                $x1+=$s; $x2+=$s;
                                $rec[$i][$j]=$cv->createRectangle($x1,$y1,$x2,$y2,-fill=>$col,);
                                #$pes[$i][$j]=$cv->createImage($x1+25,$y1+25,-image=>$image) if $col eq 'brown' && $i!=4 && $i!=5;
                                $cv->createText($x1+10,$y1+10,-text=>"$i, $j");
                                $cv->bind($rec[$i][$j],"<Button-1>", [\&ill,$i,$j]);
                                $pes[$i][$j]=$cv->createImage($x1+37,$y1+37,-image=>$imgb) if ($i==3 && $j==4 || $i==4 && $j==3);
                                $pes[$i][$j]=$cv->createImage($x1+37,$y1+37,-image=>$imgw) if ($i==3 && $j==3 || $i==4 && $j==4);
                        }

                }
        }