;--------------------movie maker from NEMO images using ImageMagick--------------------------

PRO TARANTINO, dDay, dMonth, dYear
pathroot = '/home/olenapo/nemodir/NEMOMATLAB/UNIX/NEMO_CATALOG/'
home_dir = strcompress(pathroot+'/MOVIEMAKER')
proYear = dYear
proMonth = dMonth
proDay = dDay

   IF (proDay lt 10) THEN iday_string='0'+string(proDay,format='(i1)') ELSE $
   iday_string=string(proDay,format='(i2)')
   IF (proMonth lt 10) THEN imonth_string='0'+string(proMonth,format='(i1)') ELSE $
   imonth_string=string(proMonth,format='(i2)')
   iyear_string = string(proYear,format='(i4)')
   
   print, iyear_string + '/', + imonth_string + '/', + iday_string
     DIRPATH = strcompress(pathroot+iyear_string+'/'+imonth_string+'/'+iday_string)
     FULLDIRPATH = strcompress(DIRPATH+'/Event*')
     print, 'FILE PATH: ', FULLDIRPATH
     NAMES_ARRAY = FILE_SEARCH(FULLDIRPATH,/FULLY_QUALIFY_PATH)
     n_cat=n_elements(NAMES_ARRAY)
   check = STRMID(NAMES_ARRAY, 22, 10)
 if (check(0) eq 'NEMOMATLAB') then begin
     dirnames = strarr(n_cat)
     for i=0,n_cat-1 do begin
         temp=STRSPLIT(NAMES_ARRAY[i],'/',/EXTRACT)
         dirnames[i]=temp[9]
     endfor
 
     for i=0,n_cat-1 do begin
         EventDir = strcompress(DIRPATH+'/Event'+string(i+1),/remove_all)
          pushd, EventDir
          spawn, 'convert -delay 40 *FD.png ANIMATED_FD.gif'
          spawn, 'convert -delay 40 *RD.png ANIMATED_RD.gif'
          spawn, 'convert -delay 40 *DIM_AREA.png ANIMATED_DIMAREA.gif'
          spawn, 'convert -delay 40 *DIM_LOC.png ANIMATED_DIM_LOC.gif'
          spawn, 'convert -delay 40 *DIMMING.png ANIMATED_DIMMING.gif'
       popd
     endfor

 endif

END

;===============================================================================
;*************************SCRIPT*FOR*MOVIES************************************
;===============================================================================
; still to chek Julian days converter  A.M.

    print, 'I am making movies for the latest 5 days detections...'
    Today_Julian = SYSTIME( /JULIAN , /UTC)
    detect_days = 5 
    for i=0,detect_days-1 do begin
    	 Day_Jul = Today_Julian - (detect_days-1-i)
	 CALDAT, Day_Jul, Month1, Day1, Year1 
         TARANTINO, Day1, Month1, Year1
    endfor
    
END