function y = myname(l)

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

%eval(sprintf('[r g b]=loadpnm(''v%03d.ppm'');',l))
eval(sprintf('!cp v%03d.ppm.gz pork_pork.ppm.gz',l))
!gunzip -f pork_pork.ppm.gz
[r g b]=loadpnm('pork_pork.ppm');

y=.3*r + .6*g + .1*b;

