;+
; PROJECT:
;	HESSI
; NAME: 
;	HSI_ASPECT_MODEL
;
; PURPOSE:
;	This function returns a structure with the simulation aspect values.
;
; CATEGORY:
;
;
; CALLING SEQUENCE:
;	aspect_model_structure = hsi_aspect_model()
;
; CALLS:
;	Uses HSI_ASPECT_MODEL structure defined within HSI_STRUCT_DEF.
;
; INPUTS:
;       none explicit, only through commons;
;
; OPTIONAL INPUTS:
;	none
;
; OUTPUTS:
;       none explicit, only through commons;
;
; OPTIONAL OUTPUTS:
;	none
;
; KEYWORDS:
;	none
; COMMON BLOCKS:
;	none
;
; SIDE EFFECTS:
;	none
;
; RESTRICTIONS:
;	none
;
; PROCEDURE:
;	none
;
; MODIFICATION HISTORY:
;	Version 1, richard.schwartz@gsfc.nasa.gov, 21-apr-1999.
;	Version 2, Allow modification of default values using
;	environment variables.  Meant as a q and d test implementation.
;	15-jun-1999.
;
;-
function hsi_aspect_model
message,'MODIFIED BY EJS 11/5/99',/CONT

out = {hsi_aspect_model}
out.radius = 100.0  ; default=100

out.spin_period=4.0
out.jitter_amp=10;10.0   ; default=10
out.jitter_period=0.20 ; 4.0/20.
out.ut_phase0 = hsi_ref_time()
aspect_radius = get_logenv('aspect_radius')
aspect_jitter_amp = get_logenv('aspect_jitter_amp')
if aspect_radius ne '' then out.radius=float(aspect_radius)
if aspect_jitter_amp ne '' then out.jitter_amp=aspect_jitter_amp

message,'Setting radius='+string((out.radius))+' jitter_amp='+string(out.jitter_amp),/cont

return, out
end

; hsi_aspect_model.pro