pro make_2imgs_javamovie, outfil, imgf1, imgf2, _extra=_extra

nframes=n_elements(imgf1)>n_elements(imgf2)

f1=extract_filename(imgf1)
f2=extract_filename(imgf2)
t1=yyyymmdd2cal(strmid(f1,0,15), form=11)
t2=yyyymmdd2cal(strmid(f2,0,15), form=11)
rt1=t1(fix(findgen(nframes)/nframes*nlm(t1)))
rtai1=anytim2tai(rt1)
rt2=t2(fix(findgen(nframes)/nframes*nlm(t2)))
rtai2=anytim2tai(rt2)
trange=[min([t1,t2]), max([t1,t2])]
rtai0=anytim2tai(trange(0))+findgen(nframes)/nframes*time_sub(trange(1), trange(0))

c1=0.35
c2=0.35
c0=(1.-(c1+c2))>0
ct=c1+c2+c0
c0=c0/ct
c1=c1/ct
c2=c2/ct

rtai=rtai0*c0+rtai1*c1+rtai2*c2
rt=anytim2cal(rtai, form=11)



for j=0, nlm(rt)-1 do begin
   dtim1=abs(time_sub(t1, rt(j)))
   dtim2=abs(time_sub(t2, rt(j)))
   case j of
      0: begin
         ss1=min(where(dtim1 eq min(dtim1)))
         ss2=min(where(dtim2 eq min(dtim2)))
      end
      else: begin
         ss1=[ss1,min(where(dtim1 eq min(dtim1)))]
         ss2=[ss2,min(where(dtim2 eq min(dtim2)))]
      end
   endcase
endfor;j

yjsmovie_2imgs, outfil, imgf1(ss1),imgf2(ss2), _extra=_extra

end