pro mac2qcr,fn,xsize,ysize,min,max
; Read an image saved by Macintosh Image and reformat it for the qcr
; filmwriter
hdr=bytarr(512)
p=bytarr(xsize,ysize)
openr,1,fn
readu,1,hdr
readu,1,p
close,1
pr=rotate(p,7)
window,1,xsize=xsize,ysize=ysize,title=fn
t_bytspl,pr,ps,min,max
ps=bytscl(ps,min=0,max=255,top=255)
tv,bytscl(ps,min=0,max=255,top=!d.n_colors)
fnout=fn+'.qcr'
openw,1,fnout
writeu,1,ps
close,1
end