% generates mpeg sequence from the original data

for k=10:19
  A=loadframe(k);
  eval(sprintf('savepnm(''v%03d.pgm'',A)',k))
end%for

!/mas/vision/bigu/steve/howto/mpeg/mpeg.shell 310 240 10 fire-exit.mpg v???.pgm
!mpeg_play -dither gray fire-exit.mpg

