Updating the non-OOP plotting routine.

Ilyes Choubani
1 parent d90f1b78
Showing 2 changed files with 160 additions and 294 deletions Show diff stats
src/idl/dustemwrap_plot.pro
src/idl/dustemwrap_plot_noobj.pro
@@ -438,7 +438,7 @@ if test_m then begin
     ;This block needs to be replicated inside the dustem_plot_dataset routine
-    if !run_pol and tag_exist(*!dustem_show,'qsed') then begin
+    if !run_pol      then begin
         ;position arrays for plot and normalized graph
-PRO dustemwrap_plot_noobj,p_dim,st, $
-                    dustem_sed,SED_spec, $
-                    dustem_qsed,Q_spec, $
-                    dustem_used,U_spec, $
-                    dustem_polsed,P_spec, $
-                    dustem_polfrac,SP_spec, $
-                    dustem_psi_em,PSI_spec, $
-                    dustem_ext,EXT_spec, $
-                    dustem_qext,QEXT_spec, $
-                    dustem_uext,UEXT_spec, $
-                    dustem_polext,POLEXT_spec, $
-                    dustem_fpolext,SPEXT_spec, $
-                    dustem_psi_ext,PSIEXT_spec, $
-                    _extra=_extra,help=help
+PRO dustemwrap_plot_noobj, p_dim,                            $
+                           st = st,                          $
+                           dustem_sed = dustem_sed,          $
+                           SED_spec = SED_spec,              $
+                           dustem_qsed = dustem_qsed,        $
+                           Q_spec = Q_spec,                  $  
+                           dustem_used = dustem_used,        $
+                           U_spec = U_spec,                  $
+                           dustem_polsed = dustem_polsed,    $
+                           P_spec = P_spec,                  $ 
+                           dustem_polfrac = dustem_polfrac,  $
+                           SP_spec = SP_spec,                $
+                           dustem_psi_em = dustem_psi_em,    $
+                           PSI_spec = PSI_spec,              $
+                           dustem_ext = dustem_ext,          $
+                           EXT_spec = EXT_spec,              $
+                           dustem_qext = dustem_qext,        $
+                           QEXT_spec = QEXT_spec,            $
+                           dustem_uext = dustem_uext,        $
+                           UEXT_spec = UEXT_spec,            $
+                           dustem_polext = dustem_polext,    $
+                           POLEXT_spec = POLEXT_spec,        $
+                           dustem_fpolext = dustem_fpolext,  $
+                           SPEXT_spec = SPEXT_spec,          $
+                           dustem_psi_ext = dustem_psi_ext,  $
+                           PSIEXT_spec = PSIEXT_spec,        $
+                           _extra = _extra,                    $
+                           help = help
 ;+
 ; NAME:
@@ -102,7 +116,7 @@ if not keyword_set(dustem_sed) and isa((*!dustem_data).sed) then begin ;better t
   dustem_sed = dustem_compute_sed(p_dim,st=st,SED_spec=SED_spec)
-  if !run_pol && !run_lin then begin
+  if !run_pol && !run_lin and tag_exist(*!dustem_show,'qsed') then begin
      dustem_polsed = dustem_compute_polsed(p_dim,st=st,P_spec=P_spec,SP_spec=SP_spec,dustem_polfrac=dustem_polfrac)
      toto = dustem_compute_stokes(p_dim,st=st,Q_spec=Q_spec,U_spec=U_spec,PSI_spec=PSI_spec,dustem_psi_em=dustem_psi_em) 
      dustem_qsed = toto[0]
@@ -115,7 +129,7 @@ endif
 if not keyword_set(dustem_ext) and isa((*!dustem_data).ext) then begin
     dustem_ext = dustem_compute_ext(p_dim,st=st,EXT_spec=EXT_spec)
-    if !run_pol && !run_lin then begin
+    if !run_pol && !run_lin and tag_exist(*!dustem_show,'qext') then begin
       dustem_polext = dustem_compute_polext(p_dim,st=st,polext_spec=POLEXT_spec,spext_spec=SPEXT_spec,dustem_fpolext=dustem_fpolext)
@@ -154,23 +168,40 @@ new_mouchard.rchi2=(*!dustem_fit).rchi2
 mouchard=[mouchard,new_mouchard]
 !iteration_mouchard=ptr_new(mouchard)
-;LIST OF TESTS THAT NEED TO BE RAN SO THAT THE PLOTTING OF THE MODEL SPECTRA OCCURS
+;===========Initializing tests
+test_sed = isa((*!dustem_data).sed) 
+test_ext = isa((*!dustem_data).ext)
-test_sed = isa((*!dustem_show).sed)
-test_ext = isa((*!dustem_show).ext)
+;===========Bunch of tests that are not important now but that
+;might be in future releases. To adjust the layout of the dashboard for instance
 if !run_pol then begin
-    test_polext = isa((*!dustem_show).polext)
-    test_polsed = isa((*!dustem_show).polsed)
-    test_polfrac = isa((*!dustem_show).polfrac)
-    test_fpolext = isa((*!dustem_show).fpolext)
-    test_psi_em = isa((*!dustem_show).psi_em)
-    test_psi_ext = isa((*!dustem_show).psi_ext)
-    test_qsed = isa((*!dustem_show).qsed)
-    test_used = isa((*!dustem_show).used)
-    test_qext = isa((*!dustem_show).qext)
-    test_uext = isa((*!dustem_show).uext)
-    test_m = test_sed or test_polsed or test_polfrac or test_qsed or test_used or test_psi_em
-    test_x = test_ext or test_polext or test_fpolext or test_qext or test_uext or test_psi_ext
+    if tag_exist(*!dustem_show,'qsed') then begin ;testing to account for the fact that the user can activate the !run_pol keyword without knowing
+    ;ie: using a dust model with polarization w/o polarization data present...
+        test_polsed = isa((*!dustem_show).polsed)
+        test_polfrac = isa((*!dustem_show).polfrac)
+        test_qsed = isa((*!dustem_show).qsed)
+        test_used = isa((*!dustem_show).used)
+        test_psi_em = isa((*!dustem_show).psi_em)
+    endif
+    
+    if tag_exist(*!dustem_show,'qext') then begin
+        test_polext = isa((*!dustem_show).polext)
+        test_psi_ext = isa((*!dustem_show).psi_ext)
+        test_fpolext = isa((*!dustem_show).fpolext)
+        test_qext = isa((*!dustem_show).qext)
+        test_uext = isa((*!dustem_show).uext)
+    endif
+    
+    if tag_exist(*!dustem_show,'qsed') then test_m = test_sed or test_polsed $
+                                                  or test_polfrac or test_qsed $
+                                                  or test_used or test_psi_em
+    if tag_exist(*!dustem_show,'qext') then test_x = test_ext or test_polext $
+                                                  or test_fpolext or test_qext $
+                                                  or test_uext or test_psi_ext
+                                                  
+    if ~tag_exist(*!dustem_show,'qsed') then test_m = test_sed
+    if ~tag_exist(*!dustem_show,'qext') then test_x = test_ext 
+                                        
 endif else begin
     test_m = test_sed 
     test_x = test_ext 
@@ -185,31 +216,35 @@ frmt1=&#39;(1E10.2)&#39;
 frmt2='(10F10.2)'
 ;Instead of setting the extra tags for plotting in dustemcgwin, we'll place them in this (parent) procedure. 
-tgnms_extra = tag_names(_extra)
+;tgnms_extra = tag_names(_extra)
 dustem_set_plot_range,test_sed, test_ext,_extra= _extra
+;change starts form here!!!!
+
+
+;===========Retrieving some data relevant to the plotting
 if isa((*!dustem_fit).current_param_errors) then begin
-    errors = (*(*!dustem_fit).current_param_errors)
+    errors = (*(*!dustem_fit).current_param_errors) ;* (*(*!dustem_fit).param_init_values) ;multiplied internally in dustem_mpfit. Should maybe be changed.
 endif else begin
-    errors = (*(*!dustem_fit).param_init_values)*0. 
+    errors = (*(*!dustem_fit).param_init_values)*0.;+la_undef();Initialized to 0 instead of la_undef() 
 ENDELSE 
 if isa((*!dustem_fit).chi2) then begin
     chi2 = (*!dustem_fit).chi2    
 endif else begin
-    chi2 = la_undef()
+    chi2 = la_undef();maybe not the best initialization 
 endelse 
 if isa((*!dustem_fit).rchi2) then begin
     rchi2 = (*!dustem_fit).rchi2    
 endif else begin
-    rchi2 = la_undef()
+    rchi2 = la_undef();maybe not the best initialization 
 endelse 
-;==== These are arameters for window positioning
-if !run_pol then BEGIN
+;===========Window positionning parameters
+if !run_pol and tag_exist(*!dustem_show,'qsed') then BEGIN
     wdelta_x=60
     main_wxsize=910
     main_wysize=658
@@ -248,12 +283,8 @@ TVLCT, 255, 255, 255, 254 ; White color
 if test_m then begin
     ;Generating emission window and saving window ID
-    IF !d.name NE 'PS' THEN BEGIN
-        IF !run_pol THEN BEGIN
-            window,0, xsize=main_wxsize,ysize=main_wysize,title='DUSTEMWRAP '+!dustem_version.version+' (EMISSION)',xpos=0,ypos=0
-        ENDIF else BEGIN
-            window,0,xsize=main_wxsize,ysize=main_wysize,title='DUSTEMWRAP '+!dustem_version.version+' (EMISSION)',xpos=0, ypos=0;, wback='grey';,wobject=winobj_m
-        ENDELSE
+    IF !d.name NE 'PS' THEN BEGIN  ;What if we're trying to create a ps file with the exact display of the dashboard?  
+        window,0, xsize=main_wxsize,ysize=main_wysize,title='DUSTEMWRAP '+!dustem_version.version+' (EMISSION)',xpos=0,ypos=0 
     ENDIF
     ;Plotting model string (legend)
@@ -286,7 +317,7 @@ if test_m then begin
     ;Displaying fixed part
     ;cgtext, xxpos, yypos,'Runs : ',color=0,/normal,charsize = 1.35,/addcmd & cmdind_m+=1
     cgtext, xxpos, yypos,'Iteration : ',color=0,/normal,charsize = 1.35 
-    ;Displaying refreshed part (first run . This is the command that will be replaced)
+    ;Displaying refreshed part 
     cgtext, xxpos + widthtext*1.35 + 0.015 , yypos,strtrim(!dustem_iter.act,2),color=0,/normal,charsize = 1.0 
     ;plotting of (mostly) fixed data for rchi2
@@ -302,7 +333,7 @@ if test_m then begin
     ;Getting the width of the refresh.ed string
     cgtext, xxpos, yypos,strtrim(string(chi2,format=frmt2),2),color=0,/normal,charsize=-1,width=thiswidth 
     widthtot+= thiswidth;varying width        
-    ;saving the command string width to replace it
+   
     xxpos = 1.0 - widthtot - 0.03
@@ -310,7 +341,7 @@ if test_m then begin
     ;Displaying fixed part
     cgtext, xxpos, yypos,textoidl('\chi^{2} : '),color=0,/normal,charsize = 1.0 
-    ;Displaying refreshed part (first run . This is the command that will be replaced)
+    
     cgtext, xxpos + widthtext , yypos,strtrim(string(chi2,format=frmt2),2),color=0,/normal,charsize = 1.0 
@@ -334,10 +365,10 @@ if test_m then begin
     ;Displaying fixed part
     cgtext, xxpos, yypos,textoidl('r_{\chi^{2}} : '),color=0,/normal,charsize = 1.35 
-    ;Displaying refreshed part (first run . This is the command that will be replaced)
-    cgtext, xxpos + widthtext , yypos,strtrim(string(rchi2,format=frmt2),2),color=0,/normal,charsize = 1.0 
-    ;saving the command id to replace it 
+    
+    cgtext, xxpos + widthtext , yypos,strtrim(string(rchi2,format=frmt2),2),color=0,/normal,charsize = 1.0 
+   
     ;Plotting of the title of the dashboard (plot(s))
@@ -359,7 +390,7 @@ if test_m then begin
     if !dustem_end EQ 1 then cgtext, xxpos , yypos,tit+' (FINAL RUN)',color=0,/normal,charsize = 1.6,alignment=0.5
-   if !run_pol then begin
+   if !run_pol and tag_exist(*!dustem_show,'qsed') then begin
         ;,wback='grey'
         ;position arrays for plot and normalized graph
@@ -398,119 +429,41 @@ if test_m then begin
     endelse
-    ;Plotting of sed data axes (whether or not data is present)
-    plotsym,0,/fill ;you might need to execute this again. hmm...
-;stop
-
-    ;This is not the right test the user might want to show the prediction for sed and fit the stokes parameters
-    if ~test_sed then begin ; SED data is not present (For completeness) # This is only valid when !run_pol=1
-        
-        dustem_plot_dataset, st, dataset='SED', /nodata, position=p_sed, _extra=_extra 
-        dustem_plot_dataset, st, dataset='SED', /nodata, /norm, position=np_sed, _extra=_extra 
-
-    endif else begin ;SED exists
-           ;this plots the observed SED
-           dustem_plot_dataset, st, dataset='SED', position=p_sed, _extra=_extra
-           ;this plots the predicted spectrum and predicted SED
-           dustem_plot_dataset, st, dustem_sed,SED_spec, dataset='SED', /refresh ,position=p_sed, _extra=_extra 
-           ;This plots an empty normalized plot
-           dustem_plot_dataset, st, dataset='SED',/norm, position=np_sed, _extra=_extra ;I think nodata can also be used too
-           ;This plots the normalized observed SED - best fit
-           dustem_plot_dataset, st, dustem_sed,SED_spec, dataset='SED', /norm, /refresh,position=np_sed, _extra=_extra 
-    endelse
+    plotsym,0,/fill
-
-      if !run_pol then begin ;then goto, end_m
+    ;block for the collective plotting of the datasets - copied as is
+    if !run_pol and tag_exist(*!dustem_show,'qsed') then begin
+        ;This part can be adjusted for future releases if the user wants to plot 
+        ;specific datasets 
-        if ~test_qsed then begin ;Qsed is not present
-            
-            dustem_plot_dataset, st, dataset='QSED', /nodata, position=p_qsed, _extra=_extra 
-            dustem_plot_dataset, st, dataset='QSED', /nodata, /norm, position=np_qsed, _extra=_extra 
+        ;lists because elements have different dimensions and/or we want entire arrays as elements
+        dustem_interp = list(dustem_sed,dustem_polfrac,dustem_qsed,dustem_used,dustem_psi_em,dustem_polsed) ;DustEmWrap SED predictions
+        dustem_spec = list(SED_spec,SP_spec,Q_spec,U_spec,PSI_spec,P_spec) ;DustEM spectra predictions
+        extra_spec = list(0,SED_spec,0,0,0,0) ;extra spectra that the dataset needs in order to be plotted. 
+        ;This (extra_spec use) actually should not be generalized since the only case we need an extra spectrum is when plotting the polarization fraction.
+        position = list(list(p_sed,np_sed),list(p_spsed),list(p_qsed,np_qsed),list(p_used,np_used),list(p_psised),list(p_psed,np_psed))
-        endif else begin ;Qsed data is present
-                
-            ;Plotting of postive values if they exist (if hidden data is present it is plotted if not an empty plot is rendered)
-            dustem_plot_dataset, st, dataset='QSED', position=p_qsed,/positive_only, _extra=_extra 
-            ;Refreshing the positive_only plot ONLY if there is data. If not do nothing
-            dustem_plot_dataset, st, dustem_qsed,Q_spec, dataset='QSED',/positive_only, /refresh ,position=p_qsed, _extra=_extra 
-            
-             
-            dustem_plot_dataset, st, dataset='QSED', position=p_qsed, /addcmd,/negative_only, _extra=_extra 
-            ;Refreshing the negative_only plot ONLY if there is data. If not do nothing
-            dustem_plot_dataset, st, dustem_qsed,Q_spec,dataset='QSED',/negative_only, /refresh ,position=p_qsed, _extra=_extra
-            
-            
-            dustem_plot_dataset, st, dataset='QSED',/norm, position=np_qsed, _extra=_extra  ;I think nodata can also be uqsed too
-            dustem_plot_dataset, st, dustem_qsed,Q_spec,dataset='QSED', /norm, /refresh,position=np_qsed, _extra=_extra 
-               
-      endelse
-      
-         
-              
-        if ~test_used then begin ;used is not present
-            
-            dustem_plot_dataset, st, dataset='USED', /nodata, position=p_used, _extra=_extra 
-            dustem_plot_dataset, st, dataset='USED', /nodata, /norm, position=np_used, _extra=_extra 
-            
-        endif else begin ;used data is present
-                       
-            ;Plotting of postive values if they exist (if hidden data is present it is plotted if not an empty plot is rendred)
-            dustem_plot_dataset, st, dataset='USED', position=p_used,/positive_only, _extra=_extra 
-            ;Refreshing the positive_only plot ONLY if there is data. If not do nothing
-            dustem_plot_dataset, st, dustem_used,U_spec, dataset='USED',/positive_only, /refresh ,position=p_used, _extra=_extra 
-            
-            dustem_plot_dataset, st, dataset='USED', position=p_used, winid=winid_m,/negative_only, _extra=_extra 
-            ;Refreshing the negative_only plot ONLY if there is data. If not do nothing
-            dustem_plot_dataset, st, dustem_used,U_spec, dataset='USED',/negative_only, /refresh ,position=p_used, _extra=_extra 
-            
-            dustem_plot_dataset, st, dataset='USED',/norm, position=np_used, _extra=_extra ;I think nodata can also be uused too
-            dustem_plot_dataset, st, dustem_used,U_spec, dataset='USED', /norm, /refresh,position=np_used, _extra=_extra 
-              
-      endelse
-      
-      if ~test_psi_em then begin ; psi_em data is not present (For completeness) # This is only valid when !run_pol=1
-          
-          dustem_plot_dataset, st, dataset='psi_em', /nodata, position=p_psised, /addcmd, winid=winid_m, _extra=_extra
-
-      endif else begin ;psi_em exists
-         
-        dustem_plot_dataset, st, dataset='psi_em', position=p_psised, _extra=_extra 
-        dustem_plot_dataset, st, dustem_psi_em,PSI_spec, dataset='psi_em', /refresh ,position=p_psised, _extra=_extra
-                   
-      endelse
+        ;these don't have to be lists
+        datasets = ['SED','POLFRAC','QSED','USED','PSI_EM','POLSED']
+        ;but these can be combined using a list but we're leaving it as is for the moment...
+        positiveonly = [0,0,1,1,0,0] ;used for q and u
+        negativeonly = [0,0,1,1,0,0] ;used for q and u
+    ENDIF ELSE BEGIN
+    
+        dustem_interp = list(dustem_sed) ;DustEmWrap SED predictions . 
+        dustem_spec = list(SED_spec) ;DustEM spectra predictions
+        position = list(p_sed,np_sed);list(list(p_sed,np_sed)) ; I think I need this ...
+        ;position_n =list(np_sed) 
+        datasets = ['SED']
+        ;replace by one keyword?
+        positiveonly=[0] ;kept it for completeness. Also this loop reminds me that JP also wants the user to be able to display one dataset. 
+        negativeonly=[0]
+    ENDELSE
-      
-      if ~test_polsed then begin ; polsed data is not present (For completeness) # This is only valid when !run_pol=1
-          
-          dustem_plot_dataset, st, dataset='polsed', /nodata, position=p_psed, _extra=_extra 
-          dustem_plot_dataset, st, dataset='polsed', /nodata, /norm, position=np_psed, _extra=_extra
-
-      endif else begin 
-      
-        dustem_plot_dataset, st, dataset='polsed', position=p_psed, _extra=_extra
-        dustem_plot_dataset, st, dustem_polsed,P_spec, dataset='polsed', /refresh ,position=p_psed, _extra=_extra 
-      
-        dustem_plot_dataset, st, dataset='polsed',/norm, position=np_psed, _extra=_extra ;I think nodata can also be upolsed too
-        dustem_plot_dataset, st, dustem_polsed,P_spec, dataset='polsed', /norm, /refresh,position=np_psed, _extra=_extra
-            
-      endelse      
-      
-      
-      if ~test_polfrac then begin ; polfrac data is not present (For completeness) # This is only valid when !run_pol=1
-          
-          dustem_plot_dataset, st, dataset='polfrac', /nodata, position=p_spsed, _extra=_extra
-
-      endif else begin ;polfrac exists
-
-
-         dustem_plot_dataset, st, dataset='polfrac', position=p_spsed, _extra=_extra 
-         dustem_plot_dataset, st, dustem_polfrac,SP_spec,SED_spec, dataset='polfrac', /refresh ,position=p_spsed, _extra=_extra 
-
-      endelse  
-      
-
-    ENDIF
-    
+    ; PLOTTING OF DATA THAT IS UNCHAED  
+    dustem_plot_dataset, st, dataset=datasets, position=position,positive_only=positiveonly,negative_only=negativeonly, _extra=_extra
+    ; REFRESHING DATA - to plot the refreshed data for the first time.
+    dustem_plot_dataset, st, dustem_interp,dustem_spec,extra_spec=extra_spec,dataset=datasets,positive_only=positiveonly,negative_only=negativeonly, /refresh ,position=position, _extra=_extra
 ENDIF 
@@ -519,8 +472,10 @@ ENDIF
 ;stop
 if test_x then begin
     ;Generating extinction window and saving window ID
-    if !run_pol then window,1,xsize=main_wxsize,ysize=main_wysize,title='DUSTEMWRAP '+!dustem_version.version+' (EXTINCTION)' else window,1,xsize=main_wxsize,ysize=main_wysize,title='DUSTEMWRAP '+!dustem_version.version+' (EXTINCTION)';, wback='grey';,wobject=winobj_m
+    ;the 'PS' condition pertaining to fawlty debugging is not present here...
+    window,1,xsize=main_wxsize,ysize=main_wysize,title='DUSTEMWRAP '+!dustem_version.version+' (EXTINCTION)' 
+                      
     ;Plotting model string (legend)
     xxpos = 0.015
@@ -551,11 +506,10 @@ if test_x then begin
     ;Displaying fixed part
     ;cgtext, xxpos, yypos,'Runs : ',color=0,/normal,charsize = 1.35,/addcmd & cmdind_x+=1
     cgtext, xxpos, yypos,'Iteration : ',color=0,/normal,charsize = 1.35
-    ;Displaying refreshed part (first run . This is the command that will be replaced)
-    cgtext, xxpos + widthtext + 0.015 , yypos,strtrim(!dustem_iter.act,2),color=0,/normal,charsize = 1.0
-    ;saving the command id to replace it
+    cgtext, xxpos + widthtext + 0.015 , yypos,strtrim(!dustem_iter.act,2),color=0,/normal,charsize = 1.0
+    
     ;plotting of (mostly) fixed data for rchi2
     ;Since the format of the strings is specified, the length/width of the string in thex direction is fixed. 
@@ -569,7 +523,6 @@ if test_x then begin
     ;Getting the width of the refresh.ed string
     cgtext, xxpos, yypos,strtrim(string(chi2,format=frmt2),2),color=0,/normal,charsize=-1,width=thiswidth
     widthtot+= thiswidth;varying width        
-    ;saving the command string width to replace it
     xxpos = 1.0 - widthtot - 0.03
@@ -578,14 +531,9 @@ if test_x then begin
     ;Displaying fixed part
     cgtext, xxpos, yypos,textoidl('\chi^{2} : '),color=0,/normal,charsize = 1.0
-    ;Displaying refreshed part (first run . This is the command that will be replaced)
     cgtext, xxpos + widthtext , yypos,strtrim(string(chi2,format=frmt2),2),color=0,/normal,charsize = 1.0
-    ;saving the command id to replace it
-      
-    
-    
     ;plotting of (mostly) fixed data for rchi2
     ;Getting the width of the unrefreshed string
@@ -604,10 +552,9 @@ if test_x then begin
     ;Displaying fixed part
     cgtext, xxpos, yypos,textoidl('r_{\chi^{2}} : '),color=0,/normal,charsize = 1.35
-    ;Displaying refreshed part (first run . This is the command that will be replaced)
+   
     cgtext, xxpos + widthtext , yypos,strtrim(string(rchi2,format=frmt2),2),color=0,/normal,charsize = 1.0
-    ;saving the command id to replace it
-    
+  
    ;plotting of title 
     tit=!dustem_plot_range.title_x
@@ -624,7 +571,7 @@ if test_x then begin
     if !dustem_end EQ 1 then cgtext, xxpos , yypos,tit+' (FINAL RUN)',color=0,/normal,charsize = 1.6,alignment=0.5
-    if !run_pol then begin
+    if !run_pol  and tag_exist(*!dustem_show,'qext') then begin
         ;position arrays for plot and normalized graph
@@ -662,125 +609,42 @@ if test_x then begin
     endelse
-    ;Plotting of sed data axes (whether or not data is present)
-    plotsym,0,/fill ;you might need to execute this again. hmm...
-
-
-    ;This is not the right test the user might want to show the prediction for sed and fit the stokes parameters
-    if ~test_ext then begin ; EXT data is not present (For completeness) # This is only valid when !run_pol=1
-        
-        dustem_plot_dataset, st, dataset='EXT', /nodata, position=p_ext, _extra=_extra 
-        dustem_plot_dataset, st, dataset='EXT', /nodata, /norm, position=np_ext, _extra=_extra
-
-    endif else begin ;EXT exists
-      
-        dustem_plot_dataset, st, dataset='EXT', position=p_ext, _extra=_extra
-        dustem_plot_dataset, st, dustem_ext,EXT_spec, dataset='EXT', /refresh ,position=p_ext, _extra=_extra 
-        
-        dustem_plot_dataset, st, dataset='EXT',/norm, position=np_ext, _extra=_extra ;I think nodata can also be used too
-        
-        dustem_plot_dataset, st, dustem_ext,EXT_spec, dataset='EXT', /norm, /refresh,position=np_ext, _extra=_extra 
-               
-    endelse
-    
-      if !run_pol then begin 
-        
-        if ~test_qext then begin ;Qext is not present
-            
-            dustem_plot_dataset, st, dataset='QEXT', /nodata, position=p_qext, _extra=_extra 
-            dustem_plot_dataset, st, dataset='QEXT', /nodata, /norm, position=np_qext, _extra=_extra 
-        
-        endif else begin ;Qext data is present
-                    
-            ;Plotting of postive values if they exist (if hidden data is present it is plotted if not an empty plot is rendered)
-            dustem_plot_dataset, st, dataset='QEXT', position=p_qext,/positive_only, _extra=_extra 
-            ;Refreshing the positive_only plot ONLY if there is data. If not do nothing
-            
-            dustem_plot_dataset, st, dustem_qext,QEXT_spec, dataset='QEXT',/positive_only, /refresh ,position=p_qext, _extra=_extra 
-            
-            dustem_plot_dataset, st, dataset='QEXT', position=p_qext,/negative_only, _extra=_extra
-            ;Refreshing the negative_only plot ONLY if there is data. If not do nothing
-            dustem_plot_dataset, st, dustem_qext,QEXT_spec,dataset='QEXT',/negative_only, /refresh ,position=p_qext, _extra=_extra
-        
-            dustem_plot_dataset, st, dataset='QEXT',/norm, position=np_qext, _extra=_extra ;I think nodata can also be uqsed too
-            dustem_plot_dataset, st, dustem_qext,QEXT_spec,dataset='QEXT', /norm, /refresh,position=np_qext, _extra=_extra
-
-      endelse
-          ;stop        
-        if ~test_uext then begin ;uext is not present
-            
-            dustem_plot_dataset, st, dataset='UEXT', /nodata, position=p_uext, _extra=_extra
-            dustem_plot_dataset, st, dataset='UEXT', /nodata, /norm, position=np_uext, _extra=_extra 
-        
-        endif else begin ;uext data is present
-            
-            ;stop
-                ;Plotting of postive values if they exist (if hidden data is present it is plotted if not an empty plot is rendred)
-                dustem_plot_dataset, st, dataset='UEXT', position=p_uext,/positive_only, _extra=_extra
-                
-                ;Refreshing the positive_only plot ONLY if there is data. If not do nothing
-                dustem_plot_dataset, st, dustem_uext,UEXT_spec, dataset='UEXT',/positive_only, /refresh ,position=p_uext, _extra=_extra 
-                
-              
-                dustem_plot_dataset, st, dataset='UEXT', position=p_uext,/negative_only, _extra=_extra 
-                ;Refreshing the negative_only plot ONLY if there is data. If not do nothing
-                dustem_plot_dataset, st, dustem_uext,UEXT_spec, dataset='UEXT',/negative_only, /refresh ,position=p_uext, _extra=_extra
-                
-                
-                dustem_plot_dataset, st, dataset='UEXT',/norm, position=np_uext, _extra=_extra ;I think nodata can also be uused too
-                dustem_plot_dataset, st, dustem_uext,UEXT_spec, dataset='UEXT', /norm, /refresh,position=np_uext, _extra=_extra 
-            
-                      
-      endelse
-      
-      if ~test_psi_ext then begin ; psi_ext data is not present (For completeness) # This is only valid when !run_pol=1
-          
-          dustem_plot_dataset, st, dataset='PSI_EXT', /nodata, position=p_psiext, _extra=_extra  
+    plotsym,0,/fill ; what's the reason behind this?
-      endif else begin ;psi_ext exists
-
-              dustem_plot_dataset, st, dataset='psi_ext', position=p_psiext, _extra=_extra 
-              dustem_plot_dataset, st, dustem_psi_ext,PSIEXT_spec, dataset='psi_ext', /refresh ,position=p_psiext, _extra=_extra 
-              
-              
-      endelse
+    if !run_pol and tag_exist(*!dustem_show,'qext') then begin
+        ;This part can be adjusted for future releases if the user wants to plot 
+        ;specific datasets 
-      
-      if ~test_polext then begin ; polext data is not present (For completeness) # This is only valid when !run_pol=1
-          
-          dustem_plot_dataset, st, dataset='polext', /nodata, position=p_pext, _extra=_extra 
-          dustem_plot_dataset, st, dataset='polext', /nodata, /norm, position=np_pext, _extra=_extra 
-
-      endif else begin ;polext exists
-
-        dustem_plot_dataset, st, dataset='polext', position=p_pext, _extra=_extra 
-        dustem_plot_dataset, st, dustem_polext,POLEXT_spec, dataset='polext', /refresh ,position=p_pext, _extra=_extra 
-         
-        dustem_plot_dataset, st, dataset='polext',/norm, position=np_pext, _extra=_extra  ;I think nodata can also be upolsed too
-        dustem_plot_dataset, st, dustem_polext,POLEXT_spec, dataset='polext', /norm, /refresh,position=np_pext, _extra=_extra 
-        
-      endelse      
-      
-      
-      if ~test_fpolext then begin ; fpolext data is not present (For completeness) # This is only valid when !run_pol=1
-          
-          dustem_plot_dataset, st, dataset='fpolext', /nodata, position=p_spext, _extra=_extra  
-          
-
-      endif else begin ;fpolext exists
-
+        ;lists because elements have different dimensions and/or we want entire arrays as elements
+        dustem_interp = list(dustem_ext,dustem_fpolext,dustem_qext,dustem_uext,dustem_psi_ext,dustem_polext) ;DustEmWrap SED predictions
+        dustem_spec = list(EXT_spec,SPEXT_spec,QEXT_spec,UEXT_spec,PSIEXT_spec,POLEXT_spec) ;DustEM spectra predictions
+        extra_spec = list(0,EXT_spec,0,0,0,0) ;extra spectra that the dataset needs in order to be plotted. 
+        ;This (extra_spec use) actually should not be generalized since the only case we need an extra spectrum is when plotting the polarization fraction.
+        position = list(list(p_ext,np_ext),list(p_spext),list(p_qext,np_qext),list(p_uext,np_uext),list(p_psiext),list(p_pext,np_pext))
-        dustem_plot_dataset, st, dataset='fpolext', position=p_spext, _extra=_extra 
-        dustem_plot_dataset, st, dustem_fpolext,SPEXT_spec,EXT_spec, dataset='fpolext', /refresh ,position=p_spext, _extra=_extra
-
-
-      endelse  
+        ;these don't have to be lists
+        datasets = ['EXT','FPOLEXT','QEXT','UEXT','PSI_EXT','POLEXT']
+        ;but these can be combined using a list but we're leaving it as is for the moment...
+        positiveonly = [0,0,1,1,0,0] ;used for q and u
+        negativeonly = [0,0,1,1,0,0] ;used for q and u
+    ENDIF ELSE BEGIN
+    
+        dustem_interp = list(dustem_ext) ;DustEmWrap EXT predictions . 
+        dustem_spec = list(EXT_spec) ;DustEM spectra predictions
+        position = list(p_ext,np_ext);list(list(p_sed,np_sed)) ; I think I need this ...
+        ;position_n =list(np_sed) 
+        datasets = ['EXT']
+        ;replace by one keyword?
+        positiveonly=[0] ;kept it for completeness. Also this loop reminds me that JP also wants the user to be able to display one dataset. 
+        negativeonly=[0]
+    ENDELSE
-
-    ENDIF
-        
-     
+    ; PLOTTING OF DATA THAT IS UNCHAED 
+    dustem_plot_dataset, st, dataset=datasets, position=position,positive_only=positiveonly,negative_only=negativeonly, _extra=_extra
+    
+    ; REFRESHING DATA - to plot the refreshed data for the first time.
+    dustem_plot_dataset, st, dustem_interp,dustem_spec,extra_spec=extra_spec,dataset=datasets,positive_only=positiveonly,negative_only=negativeonly, /refresh ,position=position, _extra=_extra
 ENDIF 
@@ -788,19 +652,21 @@ ENDIF
 if !dustem_end then !dustem_end = -1 ;so that the last iteration is only plotted once.
 ;PLOTTING OF THE PARAMETERS
-IF !d.name NE 'PS' THEN BEGIN
+
+IF !d.name NE 'PS' THEN BEGIN ;What happens when we want to create a ps file of the exact content of the parameters' window?
     window,2,xpos=param_wxpos,ypos=param_wypos,xsize=param_wxsize,ysize=param_wysize,title='DUSTEMWRAP '+!dustem_version.version+' (PARAMETERS)' ; keeping the same y dimension of the emission/extinction plot? 
 ENDIF
-dustem_plot_dataset, st, p_dim, errors,dataset='PARAMETERS',_extra=_extra ;& cmdind_prms+=1
-dustem_plot_dataset, st,  p_dim,errors,dataset='PARAMETERS',/refresh, _extra=_extra 
+
+dustem_plot_dataset, st, p_dim, errors,dataset=['PARAMETERS'],_extra=_extra 
+dustem_plot_dataset, st,  p_dim,errors,dataset=['PARAMETERS'],/refresh, _extra=_extra 
 ;PLOTTING OF THE PLUGINS
 IF (tag_names(*!dustem_plugin))(0) NE 'NONE' THEN BEGIN  
     IF !d.name NE 'PS' THEN BEGIN
         window,3,xpos=plugin_wxpos,ypos=plugin_wypos,xsize=plugin_wxsize,ysize=plugin_wysize,title='DUSTEMWRAP '+!dustem_version.version+' (PLUGINS)' ; keeping the same y dimension of the emission/extinction plot? 
     ENDIF
-    dustem_plot_dataset, st, p_dim, errors,dataset='PLUGINS',_extra=_extra ;& cmdind_prms+=1
-    dustem_plot_dataset, st, p_dim, errors,dataset='PLUGINS', /refresh , winid=winid_plgns, _extra=_extra 
+    dustem_plot_dataset, st, p_dim, errors,dataset=['PLUGINS'],_extra=_extra ;& cmdind_prms+=1
+    dustem_plot_dataset, st, p_dim, errors,dataset=['PLUGINS'], /refresh , winid=winid_plgns, _extra=_extra 
 ENDIF