% klocka, väggur med sekund-, minut- och timvisare
  clear, clf
  R=30;  LS=27; LM=23; LT=17;                           % visarnas längder
  fi=0:pi/60:2*pi; 
  plot(0,0,'o', R*cos(fi), R*sin(fi), 'Linewidth',2), axis square, hold on
  sx=0; sy=0; mx=0; my=0; tx=0; ty=0;
  dv=2*pi/60; olds=100;
  while 1==1                                            % bryt med control-C
    tid=fix(clock); t=tid(4); m=tid(5); s=tid(6); 
    if s~=olds
      plotus([0 sx],[0 sy],'w'), plotus([0 mx],[0 my],'w')
      plotus([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); 
      plotus(0,0,'o'), plotus([0 sx],[0 sy],'g')
      plotus([0 mx],[0 my],'r'), plotus([0 tx],[0 ty],'b'), olds=s;
    end
  end


