Commit d4f8829f1f999f66789785d17bc3c486dca6511d
1 parent
53548c91
Exists in
master
small cleaning
Showing
1 changed file
with
6 additions
and
66 deletions
Show diff stats
src/idl/dustemwrap_plot.pro
| 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 | 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 | ;This is also necessary for the plotting of the results of the fit (Last iteration) | 4 | ;This is also necessary for the plotting of the results of the fit (Last iteration) |
| 6 | IF not keyword_set(st) THEN BEGIN | 5 | IF not keyword_set(st) THEN BEGIN |
| @@ -67,9 +66,8 @@ ENDIF ELSE BEGIN ;st is provided | @@ -67,9 +66,8 @@ ENDIF ELSE BEGIN ;st is provided | ||
| 67 | endif | 66 | endif |
| 68 | 67 | ||
| 69 | ENDELSE | 68 | ENDELSE |
| 70 | -;stop | ||
| 71 | 69 | ||
| 72 | -;if ~windowavailable(cgquery()) then begin | 70 | + |
| 73 | 71 | ||
| 74 | ;LIST OF TESTS THAT NEED TO BE RAN SO THAT THE PLOTTING OF THE MODEL SPECTRA OCCURS | 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,33 +553,8 @@ if test_m then begin | ||
| 555 | 553 | ||
| 556 | 554 | ||
| 557 | ENDIF | 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 | cgcontrol, winid_m, execute=1 | 557 | cgcontrol, winid_m, execute=1 |
| 584 | - ;cgcontrol, winid_m, execute=0 | ||
| 585 | 558 | ||
| 586 | ENDIF | 559 | ENDIF |
| 587 | 560 | ||
| @@ -836,8 +809,8 @@ if test_x then begin | @@ -836,8 +809,8 @@ if test_x then begin | ||
| 836 | endelse | 809 | endelse |
| 837 | endelse | 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 | if ~test_qext then begin ;Qext is not present | 815 | if ~test_qext then begin ;Qext is not present |
| 843 | 816 | ||
| @@ -982,45 +955,12 @@ if test_x then begin | @@ -982,45 +955,12 @@ if test_x then begin | ||
| 982 | 955 | ||
| 983 | ENDIF | 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 | cgcontrol, winid_x, execute=1 | 958 | cgcontrol, winid_x, execute=1 |
| 1008 | - ;cgcontrol, winid_m, execute=0 | 959 | + |
| 1009 | 960 | ||
| 1010 | ENDIF | 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 | IF ~iswinprms THEN BEGIN;(NEXT RUNS) | 964 | IF ~iswinprms THEN BEGIN;(NEXT RUNS) |
| 1025 | 965 | ||
| 1026 | winid_prms = !dustemcgwin_id.prms | 966 | winid_prms = !dustemcgwin_id.prms |
| @@ -1042,7 +982,7 @@ ENDELSE | @@ -1042,7 +982,7 @@ ENDELSE | ||
| 1042 | 982 | ||
| 1043 | 983 | ||
| 1044 | ;DISPLAY OF PLUGINS HAS A SMALL ISSUE | 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 | IF ~iswinplgns THEN BEGIN;(NEXT RUNS) | 987 | IF ~iswinplgns THEN BEGIN;(NEXT RUNS) |
| 1048 | 988 |