OV-GSO-DC / dustem-wrapper_idl

Commit d4f8829f1f999f66789785d17bc3c486dca6511d

Authored by Ilyes Choubani
1 parent 53548c91
Exists in master

small cleaning

Showing 1 changed file with 6 additions and 66 deletions   Show diff stats
Inline Side-by-side
src/idl/dustemwrap_plot.pro
  Diff comments   View file @d4f8829
1 1 PRO dustemwrap_plot,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
2 2  
3   -;stop
4 3  
5 4 ;This is also necessary for the plotting of the results of the fit (Last iteration)
6 5 IF not keyword_set(st) THEN BEGIN
... ... @@ -67,9 +66,8 @@ ENDIF ELSE BEGIN ;st is provided
67 66 endif
68 67  
69 68 ENDELSE
70   -;stop
71 69  
72   -;if ~windowavailable(cgquery()) then begin
  70 +
73 71  
74 72 ;LIST OF TESTS THAT NEED TO BE RAN SO THAT THE PLOTTING OF THE MODEL SPECTRA OCCURS
75 73  
... ... @@ -555,33 +553,8 @@ if test_m then begin
555 553  
556 554  
557 555 ENDIF
558   -
559   - ; end_m:
560   -
561   - ;cgcontrol, update=1
562   -; varrr=cgquery(dimensions=dim_m) ;be careful because the dim_m array can be multi-dimensional because of the presence of two windows.
563   -; cgcontrol, update=1
564   -; cgcontrol, resize=[dim_m(0),dim_m(1)]
565   -;
566   - ;cgcontrol, resize=1
567   -; cgcontrol,update=1
568   -; cgcontrol,update=1
569   -
570   -; cgcontrol, resize=[!D.X_SIZE,!D.Y_SIZE]
571   -
572   - ;cgcontrol, update=1
573   - ;cgcontrol, update=0
574   -
575   -
576   - ; cgcontrol, update=1
577   -
578   -
579   -
580   -
581   - ;varr=cgquery(dimensions=dim_m,objectref=winobj_m)
582   - ;stop
  556 +
583 557 cgcontrol, winid_m, execute=1
584   - ;cgcontrol, winid_m, execute=0
585 558  
586 559 ENDIF
587 560  
... ... @@ -836,8 +809,8 @@ if test_x then begin
836 809 endelse
837 810 endelse
838 811  
839   - ;if ~!run_pol then begin;I don't think the order of the ;goto, end_x
840   - if !run_pol then begin ;then goto, end_x
  812 +
  813 + if !run_pol then begin
841 814  
842 815 if ~test_qext then begin ;Qext is not present
843 816  
... ... @@ -982,45 +955,12 @@ if test_x then begin
982 955  
983 956 ENDIF
984 957  
985   - ; end_x:
986   -
987   - ;cgcontrol, update=1
988   -; varrr=cgquery(dimensions=dim_m) ;be careful because the dim_m array can be multi-dimensional because of the presence of two windows.
989   -; cgcontrol, update=1
990   -; cgcontrol, resize=[dim_m(0),dim_m(1)]
991   -;
992   - ;cgcontrol, resize=1
993   -; cgcontrol,update=1
994   -; cgcontrol,update=1
995   -
996   -; cgcontrol, resize=[!D.X_SIZE,!D.Y_SIZE]
997   -
998   - ;cgcontrol, update=1
999   - ;cgcontrol, update=0
1000   -
1001   -
1002   - ; cgcontrol, update=1
1003   -
1004   -
1005   - ;varr=cgquery(dimensions=dim_m,objectref=winobj_m)
1006   - ;stop
1007 958 cgcontrol, winid_x, execute=1
1008   - ;cgcontrol, winid_m, execute=0
  959 +
1009 960  
1010 961 ENDIF
1011 962  
1012 963  
1013   -;Plotting of the parameter and plugin values / This will have to be placed after the extinction block which hasn't been
1014   -;written yet.
1015   -
1016   -;This block will be different because it does not depend on wether dustemwrap is used in polarization or not
1017   -
1018   -
1019   -;stop
1020   -;Plotting the parameter window
1021   -;cgcontrol, execute=0
1022   -
1023   -
1024 964 IF ~iswinprms THEN BEGIN;(NEXT RUNS)
1025 965  
1026 966 winid_prms = !dustemcgwin_id.prms
... ... @@ -1042,7 +982,7 @@ ENDELSE
1042 982  
1043 983  
1044 984 ;DISPLAY OF PLUGINS HAS A SMALL ISSUE
1045   -IF (tag_names(*!dustem_plugin))(0) NE 'NONE' THEN BEGIN ;this will display an empty window when the plugin is only calle with a fixed value.
  985 +IF (tag_names(*!dustem_plugin))(0) NE 'NONE' THEN BEGIN
1046 986  
1047 987 IF ~iswinplgns THEN BEGIN;(NEXT RUNS)
1048 988  
... ...