;+
; :project:
;       STIX
;
; :name:
;       stx_l1_ql_spectrum_structures
;
; :purpose:
;       Makes structures to store quick look l1 spectra TM and serialise to fits
;
; :categories:
;       structures, telemetry
;
; :params:
;    n_samples : in, type="int"
;             Number of spectra
;
; :returns:
;    A dictionary containing the control and data structures
;
; :examples:
;    structures = stx_l05_ql_spectrum_structures(10)
;    control_struc = structures.control
;    data_struc = structures.data
;
; :history:
;       02-May-2018 – SAM (TCD) init
;
;-
function stx_l1_ql_spectra_structures, n_energies, n_times

    control = { $
        pixel_mask : bytarr(16), $
        integration_time : 0, $
        compression_scheme_spec : intarr(3), $
        compression_scheme_trigger : intarr(3) $
    }

    energies = stx_fits_energy_structure(n_energies)
    
    count = {COUNTS: lonarr(32, 32), TRIGGERS: lonarr(n_energies), CHANNEL: lonarr(n_energies), $
        DETECTOR_MASK: bytarr(32), TIME: 0.0d, TIMEDEL: 0.0}

    counts = replicate(count, n_times) 
    
    return, DICTIONARY('energy', energies, 'count', counts, 'control', control)

end