%Az alábbi script egy interaktív kötögetõs játék váza.
%Ahhoz hogy a játék mûködjön a kódot (érdemes megérteni,) ki kell
%egészíteni és módosítani! Jó mulatást! 

%Tölts le egy kötögetõs játékhoz tartozó képet az internetrõl és mentsd el
%ezen fájl mellé. (pl.: search in google for connect points game) Cseréld
%le az imageName változó értékét a fájlod nevére.
imageName = 'smurf.jpg'; %a legtöbb kiterjesztés elfogadott (png,jpg,...)

img = imread(imageName); %A kép beolvasása és eltárolása az img nevû változóba, ami egy mátrix

imshow(img) %Létrehoz egy ablakot és megjeleníti benne a képet
hold on; %megtartja a képet, hogy rá tudjunk rajzolni

nofPoints = 66; %Add meg itt, hogy hány pontot kell a felhasználó klikkeljen ahhoz hogy elkészüljön a kép!

%Hozz létre egy változót (mátrixot), amelybe a felhasználó által kattintott
%pontokat helyezzük el. Pl.: egy nofPoints x 2 méretû csupa 0-ból álló
%mátrix megfelel. A mátrix sorai egy pontnak fognak megfelelni.
points = zeros(nofPoints,2);

%FOR ciklus ami nofPoints-szor kell lefusson
for i=1:nofPoints
    p = ginput(1); %ez a sor bekér egy pontot a felhasználótól

    %tárold el ezt a pontot az elõbb létrehozott mátrix megfelelõ sorába
    %(éppen abba a sorba ami a for ciklus futó indexe)
    %(add értékül a p-t a mátrix megfelelõen hivatkozott sorának)
    points(i,:) = p;

    %hívd meg a plot utasítást úgy, hogy a már kattintott pontokat összekösse
    %a p mátrix megfelelõ oszlopai az x és y koordináták.    
    %plot(points(1:i,1),points(1:i,2))
    
    %Ha már fut a játék, akkor kicsit izgalmasabbá teheted
    %Érd el, hogy minden kattintásnál véletlenszerû színû legyen az
    %eddig kirajzolt figura (nézd meg a plot utasítás dokumentációját és
    %használj egy 0-1 közötti 3 elemû random vektort mint színspecifikáció)
    plot(points(1:i,1),points(1:i,2),'Color',rand(1,3),'LineWidth',4)

%FOR ciklus vége
end