;-------------------------------------------------------------------------

pro fits::read,file

 if n_elements(file) ne 1 then return ;-- enter at least one file name
 check=findfile(file,count=count)     ;-- check that file exists
 if count eq 0 then return
 data=mrdfits(file)                   ;-- call Astronomy library FITS reader
 self->set,data                       ;-- insert data into itself
 self.filename=file                   ;-- save filename in property 
 return

end

;-----------------------------------------------------------------------
function fits::get,filename

 filename=self.filename             ;-- copy filename in variable
 image=self->data::get()            ;-- call DATA's GET method to return data
 return,image 

end
;-------------------------------------------------------------------------

pro fits__define
 
 void={fits,filename:'', inherits data}
 return 

end