% urtavla, väggur med sekund-, minut- och timvisare
  clear, clf
  R=30;  LS=27; LM=23; LT=17;                           % visarnas längder
  fi=0:2*pi/60:2*pi; 
  plot(0,0,'o', R*cos(fi), R*sin(fi), 'Linewidth',3)
  axis square, hold on, drawnow                         % rita genast
  sx=0; sy=0; mx=0; my=0; tx=0; ty=0;
  dv=2*pi/60; olds=100;
  set(gcf,'DoubleBuffer','on')                          % undvik blinkningar
  while 1==1                                            % bryt med control-C
    tid=fix(clock); t=tid(4); m=tid(5); s=tid(6); 
    if s~=olds
      plot([0 sx],[0 sy],'w', [0 mx],[0 my],'w', [0 tx],[0 ty],'w')
      sx=LS*sin(dv*s); sy=LS*cos(dv*s); mx=LM*sin(dv*m); my=LM*cos(dv*m);
      v=2*pi*t/12+dv*m/12; tx=LT*sin(v); ty=LT*cos(v); 
      plot(0,0,'o'), 
      plot([0 sx],[0 sy],'g', [0 mx],[0 my],'r', [0 tx],[0 ty],'b')
      drawnow, olds=s;
    end
  end


