pro mksrf,flnm,ifr,invert=invert
;
; Make sun raster file from existing display
;
print,' '
print,'Making sun raster file...'
tvlct,r,g,b,/get
tvrdvar = tvrd()
if keyword_set(invert) then begin 
  rdinvert = rotate(tvrdvar,7) 
  write_srf,flnm,rdinvert,r,g,b
; write_srf,flnm,rdinvert
endif else begin
  write_srf,flnm,tvrdvar,r,g,b
; write_srf,flnm,tvrdvar
endelse
print,'Wrote sun raster file ',flnm
ifr = ifr+1
return
end