%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
clear; close all; clc
% display results as animation
figure
a=input('unesi pocetnu tocku:')
b=input('unesi krajnju tocku:')
x=a:.1:b;
y=sin(x);
brojac=0;
for t=0:.05:7
plot(x,2*sin(x)*exp(-t));
ylim([  -2 2])
text1=sprintf('2*sin(x)*exp(-%2.2f)=2*sin(x)*%2.2f',t,exp(-t) )
text((a+b)/2,1,text1)
brojac=brojac+1;
%M(brojac)=getframe;
 drawnow
            pause(0.05)
end
%movie(M)
% % play as smooth movie 3 times at 10 frames per second 
% % note that it goes through the frames 2x initially to get ready for
% % full speed play.  So it will actually play 2x slower and 3x at full
% speed.
%  numtimes=1;
%  fps=15;
%  movie(M,numtimes,fps)




%% handle grafika, ime je dobila po drzalu (engl. drzalo), pointer na
%% graficki objekt
% get() funkcija koja trazi svojstvo objekta
% set() funkcija koja postavlja svojstvo objekta, neka svojstva se mogu
% samo citati

% svaki tip objekta ima svoju naredbu za stvaranje, 
%npr.  figure () stvara objekt slike
%      text () stvara tekstualni objekt 
%      plot () stvara istodobno vise objekata (prozor, sliku, osi ...)

% naredbom findobj dobiju se handle brojevi, drzala pojedinih objekata
close all
x=1:0.2:10;
plot(x,sin(x),'.-')
h=findobj % naredbe plot je stvorila 4 objekta
% ako nas zanima o kojim se objektima radi koristiti semo naredbu get()
get(h,'type')
%root - prozor
%figure - slika
%axes - osi
%line -  linija
% to je stvoreno koristenjem naredbe plot

%vracena_vrijednost=get(handle,'Ime svojstva'); %dohvacanje svojstva
%set(handle, 'Ime svojstva', 'Nova_vrijednost svojstva')

%set(h(4))% ispisuje sva svojstva za cetvrti handle iz proslog primjera
%Sget(h(4))

set(h(4),'Marker')%ispisuje sve vrijednosti nekog svojstva
get(h(4),'Marker')%ispisuje trenutnu vrijednost
% probati  set(h(4),'MarkerSize')


set(h(4),'Marker','s','MarkerSize',12)%upisivanje svojstava, 's'-jer je dovoljno prvo slovo
set(h(4),'LineWidth',2)

set(h(4),'YData',x.*sin(x))

grid on
set(h(3),'GridLineStyle','-')

set(h(3),'Units','normalized')

set(h(3), 'YLim',[-15, 15], 'Position',[0.1 0.2 0.5 0.5])

set(h(2),'Name', 'Primjer 1','Units','normalized', 'Position',[0.1,0.1,0.8, 0.8])


%%  graficki objekti i njihova svojstva
clear 
clc
figure(1)
x=1:0.2:10;
plot(x,sin(x),'.-')
h2=gcf % objekt slike (eng. figure)
h3=get(gcf,'CurrentAxes') %objekt osi
%h3=gca %alternativa za prethodni red
%get(h3)
set(h3,'YColor','r')%ili 
set(gca,'XColor','g')
%mozemo mijenjati svojstva
%set(h3,'YLabel','vrijednost funkcije')
 

t1=text(4,0,'sin(x)')
%set(t1, 'Editing','on') dopusta mijenjanje teksta
set(t1,'FontAngle','italic')
close all
figure(2)
%DZ nacrtajte pravilan osmerokut mnogokut, ako se broj vrhova unosi
%trokute od kojih se sastoji mnogokut obojajte raznim bojama (izmjenjujte 5 odabranih boja)
nn=input('unesi broj vrhova:')
t=0:2*pi/nn:2*pi;
m=patch(sin(t), cos(t),'g')

axis square
set(m,'Marker', 'o')
% pogledajmo sta je sad generirano 
h2=findobj
get(h2,'type')
set(h2(4),'MarkerSize',12)

h3=findobj('Marker','o')
set(h3,'Marker','x')
text(0,0,'mnogout')
hf=findobj('FontSize',10)

%DZ promjenite sve textove velicine fonta 10 na 14
 
%delete(gcf)% brisanje grafickih objekata
%clf -brisanje 

%% prikaz funkcije dviju varijabli
x=-3:0.1:3;
y=-3:0.1:3;
[X,Y]=meshgrid(x,y);%konstruira mrezu tocaka
Z=X.*exp(-X.^2-Y.^2);
surf(X,Y,Z)
mesh(X,Y,Z)
contour(X,Y,Z)
surfc(X,Y,Z)
shading interp


% jos neke dodatne opcije
f=gcf 
 
set(f,'Color','blue')
%set(f)
set(f,'Name','Slika 1')
set(f,'ToolBar','none')
 
c=colorbar
%get(c)
set(c,'XColor','white','YColor','red')
set(c,'FontSize',10)
set(gca,'FontSize',14)
set(gca,'Color','g')
set(gca,'XColor','white')
set(f,'Position',[300 300 500 400])
shading interp