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');

r=r(11:480,6:637);
g=g(11:480,6:637);
b=b(11:480,6:637);

%r=undsamavg(r);
%g=undsamavg(g);
%b=undsamavg(b);

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

