Wikipedysta:Wallenrod/Skrypt do mapek

Z Wikipedii

Druga wersja skryptu jest dostępna pod adresem [1]. Zaznaczam, że to jest mój pierwszy skrypt w PHP, więc pewnie jest tam mnóstwo nidociągnieć. Nie ma żadnych zabezpieczeń przed złymi danymi. J Mam nadzieję że mimo to się przyda do czegoś. Dla zainteresowanych skryptem:

<?php
header("Content-type: image/png");
$sn=$_GET['sn'];//52
$mn=$_GET['mn'];//13
$se=$_GET['se'];//21
$me=$_GET['me'];//2
$woj=strtolower($_GET['woj']);

$nminuty=($sn-49)*60+$mn;
$eminuty=($se-14)*60+$me-7;
$wy=round(454-(5+$nminuty*(454-10)/350));
$wx=round(5+$eminuty*((491-10)/601));
//echo $wy;
//var_dump($_GET);
$im = imagecreatefrompng($woj."_(EE,E_NN,N).png");
$tlo = imagecolorat($im,2,3);
$trans = imagecolortransparent($im,$tlo);
$red = imagecolorallocate($im, 255, 0, 0); 
imagefilledellipse($im, $wx, $wy, 13, 13, $red);
imagepng($im);
imagedestroy($im);
?>

To jest prosty skrypt Matlaba któremu podaję się współrzędne miejscowosci, on generuje pliczek z kropką w zaznaczonum miejscu mapki polskiej z Wikipedii, w zasadzie miałem wygenerować dużo tych mapek, ale jakoś po pierwsze to dużo zajmuje, po drugie Matlab nie obsługuje przezroczystości, więc nie ma to sensu, jeśli by to jadnak komuś było potrzebne do wykorzystania w jakimś porządniejszym generatorku, lub ma jakieś propozycje jak to napisać (najlepiej gdyb ktoś znał jakieś otwarte narzędzie do takiego czegoś), to słucham Wallenrod 23:06, 25 lut 2006 (CET)

clear, close all
I = imread('Mazowieckie.png');
% Współrzędne geograficzne skrajnych punktów Polski:
%    * 49°00' szer. geogr. N - szczyt Opołonek,
%    * 54°50' szer. geogr. N - przylądek Rozewie,
%    * 14°07' dług. geogr. E - łuk Odry koło Osinowa Dolnego,
%    * 24°08' dług. geogr. E - kolano Bugu koło Zosina.
% rozbierznosc na N wynosi więc 5 50 (czyli 350') na E 10 01 (601');


for i=1:13
    for j=1:13
        if sqrt((i-7)^2+(j-7)^2)<=6
        kolo(i,j)=1;
        else kolo(i,j)=0;
        end
    end
end

%tu podajemy współrzędne punktu
sn=52;
mn=13;
se=21;
me=02;

nminuty=(sn-49)*60+mn; 
eminuty=(se-14)*60+me-7;

wy=round(454-(5+nminuty*((454-10)/350)));
wx=round((5+eminuty*((491-10)/601)));

%w zmiennych wx,wy srodek kola we wspolrzednych x,y
%wx=50;wy=100;
for i=1:13
    for j=1:13
        wxi=wx-7+i;
        wyj=wy-7+j;
        if(kolo(i,j)==1 & wyj>0 & wyj <=454 & wxi >0 & wxi<=491)
        I(wyj,wxi,1)=255;
        I(wyj,wxi,2)=0;
        I(wyj,wxi,3)=0;
        end
    end
end
imshow(I); 
imwrite (I, 'map.png');

Wynik: