% Function : shift the fundamental pitch of the GCI display using the mouse.
%    pcshf will shift the p0 up or down by clicking the mouse.
%
%    pcshf.m is a call_function executed by "pitch_sh" on figure(Pset_f).

 %------------------------------% 
 % change the fundamental pitch %
 %------------------------------%

 val=get(pitch_sh,'Value');
 set(pitch_pts,'String',num2str(val));

 % shift fundamental pitch
 p01=val;

 figure(Pcontour_f);
 ax=gci1(1:length(gci1)-1);
 plot(ax,diff(gci1),'k'); hold on;
 plot(ax,ones(1,length(ax))*p01,'b.'); hold off;
 axis([gci1(1) max(gci1) 0.5*p01 1.5*p01 ]);
 title('Pitch Contour (black line) and Fundamental Pitch Period (blue line)');