mysz=200

_a=bytarr(256)  &  _b=bytarr(256)  &  _c=bytarr(256)
openr,11,'/home/cordyn/color_idl/qual.rgb'
readu,11,_a  &  readu,11,_b  &  readu,11,_c  &  close,11


filenms = [ '99_07_17_17_33_rawmk4.gif', $
'99_07_17_17_48_rawmk4.gif', $
'99_07_17_18_11_rawmk4.gif', $
'99_07_17_18_34_rawmk4.gif', $
'99_07_17_18_52_rawmk4.gif', $
'99_07_17_19_12_rawmk4.gif', $
'99_07_17_19_34_rawmk4.gif', $
'99_07_17_19_53_rawmk4.gif', $
'99_07_17_20_12_rawmk4.gif', $
'99_07_17_20_34_rawmk4.gif' ]

szf=size(filenms)
print,szf

pixx=szf(1)*mysz / 2
pixy=szf(1)*mysz / 5

set_plot,'z'
device,set_resolution=[pixx,pixy+50],set_colors=256,z_buffering=0


for jj=0,2-1,1 do begin ;{
    for ii=0,5-1,1 do begin ;{
	xpos=ii*mysz
	ypos=(1-jj)*(mysz +50)
	kk=jj*5+ii
	read_gif,filenms(kk),img
	sname=strmid(filenms(kk),9, 5)
	simg=congrid(img,mysz,mysz)
	tv,simg,xpos,ypos
	xyouts,xpos+20,ypos+30,'Jul 17, '+sname+' UT',/dev,charsize=1.5
    endfor ;}
endfor ;}



 giffy=tvrd()
 write_gif,'99d198mk4.gif',giffy,_a,_b,_c

 set_plot,'x'
 window,xsize=pixx,ysize=pixy+50
 tvlct,_a,_b,_c
 tv,giffy



end