PRO dustem_plot_fit_sed,st,sed, $
                         res=res,errors=errors,chi2=chi2,rchi2=rchi2, $

                         no_spec_error=no_spec_error,title=title, $

                         help=help,win=win,ps=ps, $
                         legend_xpos=legend_xpos,legend_ypos=legend_ypos,legend_offset=legend_offset, $
                         _extra=_extra

; NAME:
;    dustem_plot_fit_sed
; PURPOSE:
;    Plots a Dustem model and SED. Parameter values and error are
;    printed on plot. Used for plotting results during fit.
; CATEGORY:
;    Dustem
; CALLING SEQUENCE:
;    dustem_plot_fit_sed,st,sed,cont[,/no_spec_error][,res=][,errors=][,chi2=][,rchi2=][/help][_extra=]
; INPUTS:
;    st        = Dustem model output structure
;    sed       = Dustem model SED
;    cont      = Dustem model NIR continuum
; OPTIONAL INPUT PARAMETERS:
;    res       = fit result values. If set values are written on plot.
;    errors    = fit result errors. If set values are written on plot.
;    chi2      = fit chi^2. if set value is written on plot.
;    rchi2     = Reduced fit chi^2. if set value is written on plot.
;    _extra    = extra parameters for the plot routine
; OUTPUTS:
;    None
; OPTIONAL OUTPUT PARAMETERS:
;    None
; ACCEPTED KEY-WORDS:
;    help      = If set, print this help
; COMMON BLOCKS:
;    None
; SIDE EFFECTS:
;    SED and model are plotted
; RESTRICTIONS:
;    The dustem idl wrapper must be installed
; PROCEDURE:
;    None
; EXAMPLES
;    dustem_plot_fit_sed,st,sed,cont
; MODIFICATION HISTORY:
;    Written by J.-Ph. Bernard
;    see evolution details on the dustem cvs maintained at CESR
;    Contact J.-Ph. Bernard (Jean-Philippe.Bernard@cesr.fr) in case of problems.
;-

;stop

IF keyword_set(help) THEN BEGIN
  doc_library,'dustem_plot_fit_sed'
  goto,the_end
ENDIF

IF keyword_set(ps) THEN BEGIN

    set_plot, 'PS'
    device, filename=ps, /color, /encapsulated
ENDIF ELSE BEGIN

  set_plot,'X'
    IF keyword_set(win) then window,win
ENDELSE

fact = 1.e4*1.E20/(4.*!pi)/(3.e8/1.e-6/st.sed.wav)*1.e20/1.e7

;use_col_data_filt=70
;use_col_sed_spec=170
use_col_data_filt='blue'

;use_col_sed_spec='red'
use_col_sed_spec='grey'

IF not keyword_set(col_sed) THEN BEGIN

  ;use_col_sed_filt=250     ;red
  use_col_sed_filt='red'     ;red

ENDIF ELSE BEGIN
  use_col_sed_filt=col_sed
ENDELSE
IF not keyword_set(col_tot) THEN BEGIN

  ;use_col_tot=200
  use_col_tot='black'

ENDIF ELSE BEGIN
  use_col_tot=col_tot
ENDELSE
IF not keyword_set(line_tot) THEN BEGIN
  use_line_tot=0
ENDIF ELSE BEGIN
  use_line_tot=line_tot
ENDELSE

spec = st.sed.em_tot * fact

;ADDING PLUGIN(S) TO SPECTRUM----------------
;if n_tags(!dustem_data.sed) gt 1 then begin 

scopes=tag_names((*!dustem_scope))
IF scopes[0] NE 'NONE' THEN BEGIN
  FOR i=0L,n_tags(*!dustem_scope)-1 DO BEGIN
    IF total(strsplit((*(*!dustem_scope).(i)),'+',/extract) EQ 'ADD_SED') THEN spec+=(*(*!dustem_plugin).(i))[*,0]
  ENDFOR
ENDIF

;endif
;------------------------------------------

;stop

;use_cols=[use_col_pah,use_col_vsg,use_col_bg,use_col_cont]
;use_lines=[use_line_pah,use_line_vsg,use_line_bg,use_line_cont]

;col_off=30

;Ngrains=(*!dustem_params).grain.Ngrains
Ngrains=(*!dustem_params).Ngrains

;use_cols=long(findgen(Ngrains)/(Ngrains-1)*(255-col_off)+col_off)
use_cols=dustem_grains_colors(Ngrains,/cgplot)

use_lines=replicate(0,Ngrains)

norm = sed * 0. + 1

xr=[1,6e4]

yr=[1e-7,5e3]

;====== PLOT THE SED

IF keyword_set(title) THEN title = title ELSE title = 'Spectral Energy Distribution (Running)'

;deffo define a title variable here. The procedures are not communicating with each other. 

;cgplot,(*!dustem_data.sed).wav,(*!dustem_data.sed).values/norm,/nodata,xtit='',ytit=textoidl('Brightness/N_H (MJy/sr/H)'),tit=title,ylog=1,/xlog,xr=xr,yr=yr,/ys,/xs,position=[0.12,0.35,0.96,0.90],xtickformat='(A1)'
cgplot,(*!dustem_data.sed).wav,(*!dustem_data.sed).values/norm,/nodata,xtit='',ytit=textoidl('Brightness/N_H (MJy/sr/H)'),tit=title,ylog=1,/xlog,/ys,/xs,position=[0.12,0.35,0.96,0.90],xtickformat='(A1)',_extra=_extra

;cgplot,st.polsed.wav,Q_sed*fact,xtit='',ytit=ytitstq,tit=titstq,ylog=ylog,/xlog,xr=xr,yr=yr,/ys,/xs,position=[0.17,0.35,0.95,0.95],xtickformat='(A1)'

;this is where you will add the normalized sed

ind_filt=where((*!dustem_data.sed).filt_names NE 'SPECTRUM',count_filt)
ind_spec=where((*!dustem_data.sed).filt_names EQ 'SPECTRUM',count_spec)
;=== Plot the data
IF count_spec NE 0 THEN BEGIN
  plotsym,0,/fill

  xx=((*!dustem_data.sed).wav)[ind_spec]
  yy=((*!dustem_data.sed).values)[ind_spec]/norm[ind_spec]
  rms=3.*((*!dustem_data.sed).sigma)[ind_spec]/2./norm[ind_spec]

  cgoplot,xx,yy,psym=8,syms=0.5,color=use_col_sed_spec

  IF not keyword_set(no_spec_error) THEN BEGIN

    cgerrplot,xx,yy-rms,yy+rms,color=use_col_sed_spec

    ;err_bar,((*!dustem_data.sed).wav)(ind_spec),((*!dustem_data.sed).values)(ind_spec)/norm(ind_spec),yrms=3.*((*!dustem_data.sed).sigma)(ind_spec)/2./norm(ind_spec)

  ENDIF
ENDIF
IF count_filt NE 0 THEN BEGIN

  ;stop

  xx=((*!dustem_data.sed).wav)[ind_filt]
  yy=((*!dustem_data.sed).values)[ind_filt]/norm[ind_filt]
  rms=3.*((*!dustem_data.sed).sigma)[ind_filt]/2./norm[ind_filt]

  plotsym,0,/fill

  cgoplot,xx,yy,psym=8,color='Dodger Blue';use_col_data_filt

  ;err_bar,((*!dustem_data.sed).wav)(ind_filt),((*!dustem_data.sed).values)(ind_filt)/norm(ind_filt),yrms=3.*((*!dustem_data.sed).sigma)(ind_filt)/2./norm(ind_filt),color=use_col_data_filt

  cgerrplot,xx,yy-rms,yy+rms,color='Dodger Blue';use_col_data_filt

ENDIF
;=== Plot the computed SED
IF count_filt NE 0 THEN BEGIN
  plotsym,8

  xx=((*!dustem_data.sed).wav)[ind_filt]
  yy=sed[ind_filt]/norm[ind_filt]
  cgoplot,xx,yy,color=use_col_sed_filt,psym=8,syms=2

ENDIF
IF count_spec NE 0 THEN BEGIN
  plotsym,0

  xx=((*!dustem_data.sed).wav)[ind_spec]
  yy=sed[ind_spec]/norm[ind_spec]
  cgoplot,xx,yy,color=use_col_sed_spec,psym=8,syms=0.5

ENDIF

IF !dustem_show_plot EQ 2 THEN BEGIN

	norm = spec

ENDIF ELSE BEGIN

	norm = spec * 0. + 1

ENDELSE

FOR i=0L,Ngrains-1 DO BEGIN

  cgoplot,st.sed.wav,st.sed.(i+1)*fact/norm,color=use_cols[i],linestyle=use_lines[i]

ENDFOR

;stop

;PLOTTING OF THE PLUGIN(S)---------------
IF tag_exist(*!dustem_scope,'CONTINUUM') THEN BEGIN

  cgoplot,st.sed.wav,(*(*!dustem_plugin).continuum)[*,0],color='Navy',linestyle=3

ENDIF

IF tag_exist(*!dustem_scope,'FREEFREE') THEN BEGIN

  cgoplot,st.sed.wav,(*(*!dustem_plugin).freefree)[*,0],color='Dark Red',linestyle=3

ENDIF

IF tag_exist(*!dustem_scope,'SYNCHROTRON') THEN BEGIN

  cgoplot,st.sed.wav,(*(*!dustem_plugin).synchrotron)[*,0],color='Crimson',linestyle=3

ENDIF

cgoplot,st.sed.wav,spec/norm,color=use_col_tot,linestyle=use_line_tot

;plot the normalized data as well. 
;----------------------------------------

;==== print the legend

frmt0='(A40)'

frmt1='(1E10.2)'
frmt2='(F7.2)'

use_legend_xpos=0.50
use_legend_ypos=0.84

use_legend_offset=0.03             ;This is the offset between lines of the legend in normalized units

legend_charsize=0.86

k=0.

IF keyword_set(legend_xpos) THEN use_legend_xpos=legend_xpos
IF keyword_set(legend_ypos) THEN use_legend_ypos=legend_ypos

IF keyword_set(legend_offset) THEN use_legend_offset=legend_offset

IF !d.name NE 'PS' THEN cleanplot

IF keyword_set(res) THEN BEGIN

  Npar=n_elements(res)

  ;print,'=============='

  FOR i=0L,Npar-1 DO BEGIN

    parameter_description=(*(*!dustem_fit).param_descs)[i]
    parameter_type=dustem_parameter_description2type(parameter_description,string_name=string_name)

    str=string(string_name+' = ',format=frmt0)+string(res[i],format=frmt1)

    IF keyword_set(errors) THEN BEGIN

      str=str+textoidl(' \pm ')+string(errors(i),format=frmt1)

    ENDIF

   
    if STRUPCASE(strmid(strtrim(parameter_description,2),0,6)) eq 'DUSTEM' then begin

    xxpos=use_legend_xpos*0.07
    yypos=use_legend_ypos*0.03
    xyouts,xxpos,yypos,'Model: '+!dustem_model,color=0,/normal,charsize=legend_charsize
    xxpos=use_legend_xpos*0.7
    yypos=use_legend_ypos*1.03
    xyouts,xxpos,yypos,'--Plugins--',color=0,/normal,charsize=legend_charsize

    yypos=use_legend_ypos-(i-k)*use_legend_offset 

    xxpos=use_legend_xpos*0.26
    ii = strsplit(string_name,'_',count=countx) & ii = ii(countx-1)-1 ; Locating the last underscore to automate the extraction of the plugin's keyword

    str=string(strmid(string_name,7,ii-7)+' ('+strmid(string_name,ii+1)+') '+' = ',format=frmt0)+string(res[i],format=frmt1)

    

     IF keyword_set(errors) THEN BEGIN
       str=str+textoidl(' \pm ')+string(errors(i),format=frmt1)
     ENDIF
    xyouts,xxpos,yypos,str,color=0,/normal,charsize=legend_charsize

    endif else begin

    k+=1
    xxpos=use_legend_xpos*1.5
    yypos=use_legend_ypos*1.03
    xyouts,xxpos,yypos,'--Parameters--',color=0,/normal,charsize=legend_charsize
    yypos=use_legend_ypos-(i)*use_legend_offset 
    xxpos=use_legend_xpos*1.03
    xyouts,xxpos,yypos,str,color=0,/normal,charsize=legend_charsize    
    

    endelse

  ENDFOR

  ;stop

ENDIF
IF keyword_set(chi2) THEN BEGIN

  xxpos=1.36*use_legend_xpos
  yypos=1.13*use_legend_ypos

  xyouts,xxpos,yypos,string('chi2=',format=frmt0)+string(chi2,format=frmt2),color=0,/normal,charsize=legend_charsize

ENDIF
IF keyword_set(rchi2) THEN BEGIN

  xxpos=1.36*use_legend_xpos
  yypos=1.13*use_legend_ypos-use_legend_offset

  xyouts,xxpos,yypos,string('red. chi2=',format=frmt0)+string(rchi2,format=frmt2),color=0,/normal,charsize=legend_charsize

ENDIF

xtit=textoidl('\lambda (\mum)')

;cgplot,(*!dustem_data.sed).wav,(*!dustem_data.sed).values/sed,/nodata,xtit=xtit,ytit='Normalized',tit='',/xlog,xr=xr,/ys,/xs,yr=[0,2],ylog=0,position=[0.12,0.14,0.96,0.35],/noerase,yticks=2,ymino=2,xticklen=0.1
;stop
IF keyword_set(_extra) THEN BEGIN
  extra_kept={XRANGE:[0.,0.]}
  extra_tags=tag_names(_extra)
  ind=where(extra_tags EQ 'XRANGE',count)
  IF count NE 0 THEN extra_kept.XRANGE=_extra.(ind[0]) ;ELSE extra_kept=0
ENDIF
cgplot,(*!dustem_data.sed).wav,(*!dustem_data.sed).values/sed,_extra=extra_kept,/nodata,xtit=xtit,ytit='Normalized',tit='',/xlog,/ys,/xs,yr=[0,2],ylog=0,position=[0.12,0.14,0.96,0.35],/noerase,yticks=2,ymino=2,xticklen=0.1

;plot the normalized data as well. 

IF count_spec NE 0 THEN BEGIN
  xx=((*!dustem_data.sed).wav)[ind_spec]
  yy=((*!dustem_data.sed).values/sed)[ind_spec]
  cgoplot,xx,yy,psym=16,symsize=1,thick=2,color=use_col_sed_spec
  trois_sigma=(3.*((*!dustem_data.sed).sigma)/2./sed)[ind_spec]
  cgerrplot,xx,yy-trois_sigma,yy+trois_sigma,color=use_col_sed_spec
ENDIF
IF count_filt NE 0 THEN BEGIN
  xx=((*!dustem_data.sed).wav)[ind_filt]
  yy=((*!dustem_data.sed).values/sed)[ind_filt]
  cgoplot,xx,yy,psym=16,symsize=1,thick=2,color='Dodger Blue'
  trois_sigma=(3.*((*!dustem_data.sed).sigma)/2./sed)[ind_filt]
  cgerrplot,xx,yy-trois_sigma,yy+trois_sigma,color='Dodger Blue'
ENDIF
;stop
;cgoplot,(*!dustem_data.sed).wav,(*!dustem_data.sed).values/sed,psym=16,symsize=1,thick=2,color='Dodger Blue'
cgoplot,10^!x.crange,replicate(1.,2),color='black',linestyle=0
;cgoplot,st.sed.wav,spec/spec,color='black'
;cgerrplot,((*!dustem_data.sed).wav),((*!dustem_data.sed).values)/sed-3.*((*!dustem_data.sed).sigma)/2./sed,((*!dustem_data.sed).values)/sed+3.*((*!dustem_data.sed).sigma)/2./sed,color='Dodger Blue'

IF keyword_set(ps) THEN BEGIN
  device,/close
  set_plot,'X'
ENDIF

;stop

the_end:

END