% tvsclx.m:      x-window tvscl functionality by using xv             Steve Mann
%
% tvsclx(A)
% does something like savepnm('deleteme_deleteme.pgm',chnan255(A))
% and runs xv
%
% tvsclx(A,'deletemeA.pgm') % saves in filename deletemeA.pgm, then displays

function steve(variable,filename) % returns nothing

if nargin==1
  filename='deleteme_deleteme.pgm';
end%if

eval(sprintf('savepnm(''%s'',chnan255(variable))',filename))
eval(sprintf('!xv %s &',filename))