pro tvpics,nfile,array=array,revers=revers,colortab=colortab

if(n_params(0) lt 1 ) then begin
print,'Usage: tvpics,nfile,array=array,/revers,colortab=colortab'
return
end
if nfile eq '' then return
nfil=(findfile(nfile))(0)
if nfil eq '' then begin
print,'File ''',nfile,''' not found'
return
end

if query_image(nfil) eq 1 then array=read_image(nfil,rr,gg,bb) else begin
 print,'Unknow file format'
 return
end
if total(rr+gg+bb) eq 0 then colortab=3
if n_elements(colortab) gt 0 then loadct,colortab(0) else tvlct,rr,gg,bb

nn=size(array)
i=nn(1)&j=nn(2)& b24=0
if nn(0) eq 3 then case 3 of
   nn(1): begin& i=nn(2)&j=nn(3)&b24=1&end
   nn(2): begin& i=nn(1)&j=nn(3)&b24=2&end
   else : begin& i=nn(1)&j=nn(2)&b24=3&end
  endcase

if keyword_set(revers) and b24 eq 0 then array=reverse(array,2)

 window,/free,title=nfil,xs=i,ys=j,ret=2
 if b24 ne 0 then tv,array,true=b24 else tv,array

end