pro make_images

;make extended source images for website

restore,'may19_images.sav'

loadct,5
set_plot,'ps'

for n=0,3 do begin
	case n of
		0: device,filename='may19img_6-12_uv3-8.ps'
		1: device,filename='may19img_12-25_uv3-8.ps'
		2: device,filename='may19img_6-12_sc3-8.ps'
		3: device,filename='may19img_12-25_sc3-8.ps'
	endcase

	device,/color,xsize=16,ysize=16
	data=may19[*,*,n]
	dx = 1.
	dy = 1.
	xc = median(xr)
	yc = median(yr)
	roll_angle = 0.0
	dur = 'a while'
	xunits = 'arcsec'
	yunits = 'arcsec'
	time = ''
	soho = 0B
	struct={data:data,xc:xc,yc:yc,dx:dx,dy:dy,time:time,roll_angle:roll_angle,$
		dur:dur,xunits:xunits,yunits:yunits,soho:soho}
	plot_map,struct,xr=xr,yr=yr,/notitle,/limb,lmcolor=255,lmthick=3;/cont;,
	legend,[may19_params(n).date,may19_params(n).det,may19_params(n).energy],$
		box=0,textcolors=256
	device,/close
endfor

set_plot,'x'

return
end