pro tvfit,a,n,title
;  tvscl a in a window of just the right size
s=size(a)
if n_params() eq 1 then begin
  window,1,xsize=s(1),ysize=s(2)
endif
if n_params() eq 2 then begin
  window,n,xsize=s(1),ysize=s(2)
endif
if n_params() eq 3 then begin
  window,n,xsize=s(1),ysize=s(2),title=title
endif
tvscl,a
return
end