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