pro make_all_jpegs, Directory=Directory,letter=letter If (not keyword_set(Directory)) then Directory='/a/pippin01/Volumes/u08/lsst/CPanalysis/2005-05-10/ShackHartman/' If (not keyword_set(letter)) then letter=['a'] If (not keyword_set(pixels)) then pixels='whole_array' letters=N_elements(letter) num_of_files=100 for letter_ind=0,letters-1 do begin for file_number=1,num_of_files-1 do begin if (file_number lt 10) then begin filename=Directory+'raw/hr5132'+$ letter(letter_ind)+'_'+string(file_number,format='(I1)')+$ '_raw.fits' jpegname=Directory+'jpegs/hr5132'+$ letter(letter_ind)+'_00'+string(file_number,format='(I1)')+$ pixels+'.jpg' endif if file_number ge 10 and file_number lt 100 then begin filename=Directory+'raw/hr5132'+$ letter(letter_ind)+'_'+string(file_number,format='(I2)')+$ '_raw.fits' jpegname=Directory+'jpegs/hr5132'+$ letter(letter_ind)+'_0'+string(file_number,format='(I2)')+$ pixels+'.jpg' endif if file_number ge 100 and file_number lt 1000 then begin filename=Directory+'jpegs/hr5132'+$ letter(letter_ind)+'_'+string(file_number,format='(I3)')+$ '_raw.fits' jpegname=Directory+'jpegs/hr5132'+$ letter(letter_ind)+'_'+string(file_number,format='(I3)')+$ pixels+'.jpg' endif print,FORMAT='(%"%s\t\t%d")',letter(letter_ind),file_number fits_read,filename,image image=image(220:840,160:780) image=bytscl(image,min=20,max=5000) image=congrid(image,768,768) write_jpeg,jpegname,image,quality=100 endfor endfor end