pro hessi_window, window, date_created
;
; This file is used to construct the hessi windows over a single 
; germanium detector.  There are 5 materials, Be, Al, Fe, & Ni & C, in each segment, and
; 4 segments.  The units of length for each material is mils.
; Here we specify a noshutter window plus a main window with shutter combination.
;

date_created = '2-nov-97'
z = [4, 13, 26, 28, 6]  ;beryllium, aluminum, iron, nickel, carbon
window_str={  frac:0.90, db:0.0, da:30.0, df:0.0, dn:0.0, dc:0.0 }
window_par=replicate( window_str, 4 )
window_par.frac = [0.90, 0.07, 0.025, 0.005]
window_par.db   = [fltarr(3), 20.0]
window_par.da   = [30.0+fltarr(3), 0.0]


window = replicate({ type:'noshutter', z: z, par:window_par},3) 

window_par.db = [20.0+fltarr(4)]
window_par.da = [10.0+fltarr(2), fltarr(2)]

window(1).type = 'main'
window(1).z    = z
window(1).par  = window_par

window_par.db = [20.0+fltarr(3), 100.0]
window_par.da = [100.0+fltarr(3), 3.0]

window(2).type = 'shutter'
window(2).z    = z
window(2).par  = window_par
end