function tictoc(m,base,hax,labstr)
% plots a pie chart type "clock" in axes HAX.  
% 
% TICTOC(M,BASE,HAX)
%
% M is the current "time" to be indicated
% BASE normalizes M, i.e. the plotted wedge occupies M/BASE*360 degrees
% clockwise from "noon"
%
% John Wilkin 27 Aug 97

axes(hax);
h = pie([(base-m)/base m/base]);
set(h(1),'facecolor','w');
set(h(3),'facecolor','b');
t = findobj(h,'type','text');
set(t,'String',' ');
if nargin == 4
  ht = text(0,-1.7,labstr);set(ht,'HorizontalAlignment','center')
end

