FUNCTION eis_get_string_raster , ra

; We need - 
; acronym
; title - we'll generate that here
; author
; date - current
; nLines

;
; Title
;
ra_title = eis_generate_raster_title(ra)
format_title = STRJOIN(['(A-24,A-' , STRCOMPRESS(STRLEN(ra.title),/REMOVE_ALL) , ')'])
;
; Date
;
date = STRTRIM(anytim2utc(systim(),/STIME,/DATE),2)
;
; Volume
;
volume = eis_raster_volume(ra)
;
; Data windows
;
dw_string = STRJOIN(STRTRIM(ra.dataWindows[0:ra.nWindows - 1] ,2) , ',')
dw_strlen = STRCOMPRESS(STRLEN(dw_string),/REMOVE_ALL)
format_dw = STRJOIN(['(A-24,A-' , dw_strlen , ')'])
;
; Exposure times
;
ex_string = STRJOIN(STRTRIM(ra.exposures[0:ra.nExp - 1]       ,2) , ',')
ex_strlen = STRCOMPRESS(STRLEN(ex_string),/REMOVE_ALL)
format_ex = STRJOIN(['(A-24,A-' , ex_strlen , ')'])
;
; Delay times
;
de_string = STRJOIN(STRTRIM(ra.delays[0:ra.nExp - 1]          ,2) , ',')
de_strlen = STRCOMPRESS(STRLEN(de_string),/REMOVE_ALL)
format_de = STRJOIN(['(A-24,A-' , de_strlen , ')'])

;
; Top Level
;
r     = STRARR(25)
tags  = TAG_NAMES(ra)
; OK, here we go
r[0 ] = 'EIS_RASTER_START'
r[1 ] = STRING(format='(A-24,I-6)'  , tags[00] , ra.id         )
r[2 ] = STRING(format='(A-24,A-20)' , tags[02] , ra.acronym    )
r[3 ] = STRING(format='(A-24,A-160)', tags[03] , ra.title      )
r[4 ] = STRING(format='(A-24,A-20)' , tags[04] , ra.author     )
r[5 ] = STRING(format='(A-24,A-20)' , tags[05] , date          )
r[6 ] = STRING(format='(A-24,I-2)'  , tags[06] , ra.rastertype )
r[7 ] = STRING(format='(A-24,I-6)'  , tags[07] , ra.scan_fm_nsteps )
r[8 ] = STRING(format='(A-24,I-6)'  , tags[08] , ra.scan_fm_stepsize )
r[9 ] = STRING(format='(A-24,I-6)'  , tags[09] , ra.sns_nexps )
r[10] = STRING(format='(A-24,I-6)'  , tags[10] , ra.sns_duration )
r[11] = STRING(format='(A-24,I-2)'  , tags[11] , ra.nWindows )
r[12] = STRING(format=format_dw     , tags[13] , dw_string)
r[13] = STRING(format='(A-24,I-20)' , tags[14] , ra.windHeight)
r[14] = STRING(format='(A-24,I-20)' , tags[15] , ra.windWidth)
r[15] = STRING(format='(A-24,I-1)'  , tags[16] , ra.slitIndex)
r[16] = STRING(format='(A-24,I-1)'  , tags[17] , ra.nExp)
r[17] = STRING(format=format_ex     , tags[18] , ex_string)
r[18] = STRING(format=format_ex     , tags[19] , de_string)
r[19] = STRING(format='(A-24,I-2)'  , tags[20] , ra.compression )
r[20] = STRING(format='(A-24,I-2)'  , tags[21] , ra.split)
r[21] = STRING(format='(A-24,I-20)' , tags[22] , ra.duration)
r[22] = STRING(format='(A-24,I-20)' , tags[23] , volume)
r[23] = STRING(format='(A-24,I-6)'  , tags[24] , ra.ll_id)
r[24] = 'EIS_RASTER_END'

RETURN , TRANSPOSE(STRTRIM( r , 2))

END