function [r,g,b] = myname(l)

dis('loadframe.m: generating frame %d from rgb frames; double check .3,.5,.2',l)

eval(sprintf('!/mann/a/a/bigu/bin/djpeg images/v%04d.jpg > deleteme_deleteme.ppm',l))

[r,g,b] = loadpnm('deleteme_deleteme.ppm');

if nargout==1
  y=.3*r + .5*g + .2*b;
  r=y;
end%if

