vis/vc2d.m

   1 function vc2d(dt)\r
   2 j=0;\r
   3 t1=clock;\r
   4 %a=avifile('sfire.avi');\r
   5 for k=[10:10:1000]\r
   6     j=j+1;\r
   7     oneframe(k,dt);\r
   8     %M=getframe;\r
   9     %a=addframe(a,M);\r
  10     grid off\r
  11     %print('-djpeg',sprintf('frame%5.5i',j))\r
  12     %M(j)=getframe(gcf);\r
  13     %M(j)=getframe;\r
  14     %if mod(j,10)==0 | j< 10,\r
  15     %    savemovie(M)\r
  16     %end\r
  17         fprintf('frame %g model time %g rendering time %g s\n',j,k,etime(clock,t1))\r
  18 end\r
  19 savemovie(M)\r
  20 %a=close(a);\r
  21 end\r
  22 \r
  23 function savemovie(M)\r
  24     mf='sfire.mat';\r
  25     save(mf,'M')\r
  26     fprintf('saved to file %s\n',mf)\r
  27 end