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

eval(sprintf('[r g b]=loadpnm(''pic%03d.ppm'');',l))

if nargout==1
  dis('loadframe.m: generating frame %d from rgb; double check .3,.5,.2',l)
  r=.3*r + .5*g + .2*b;
end%if

if nargout==2
  error('loadframe: 2 output arguments not supported')
end%if

