Changeset 509 for trunk/SRC/ToBeReviewed

Timestamp:

12/19/19 10:27:05 (5 years ago)

Author:

smasson

Message:

commit old minor bugfix

File:

• trunk/SRC/ToBeReviewed/PLOTS/DIVERS/placecolor.pro (modified) (1 diff)

trunk/SRC/ToBeReviewed/PLOTS/DIVERS/placecolor.pro

@@ -39 +39 @@
 ;
 ;-
-PRO placecolor, pos, _EXTRA=ex
+PRO placecolor, pos, _EXTRA = ex
 ;
   compile_opt idl2, strictarrsubs
 ;
 @cm_4ps
-   IF NOT keyword_set(key_forgetold) THEN BEGIN
+  IF NOT keyword_set(key_forgetold) THEN BEGIN
 @updatenew
-   ENDIF
+  ENDIF
 ;
-   xsave = !x
-   ysave = !y
-   psave = !p
+  xsave = !x
+  ysave = !y
+  psave = !p
 ;
-   reinitplt, /z, /invert
-   pos=1.*pos
-   mipgsz = min(page_size, max = mapgsz)
-   if key_portrait eq 1 then begin
-      pos[0]=pos[0]/mipgsz
-      pos[1]=pos[1]/mapgsz
-      pos[2]=pos[2]/mipgsz
-      pos[3]=pos[3]/mapgsz
-   endif else begin
-      pos[0]=pos[0]/mapgsz
-      pos[1]=pos[1]/mipgsz
-      pos[2]=pos[2]/mapgsz
-      pos[3]=pos[3]/mipgsz
-   ENDELSE
+  reinitplt, /z, /invert
+  pos = 1.*pos
+  mipgsz = min(page_size, max = mapgsz)
+  if key_portrait eq 1 then begin
+    pos[0] = pos[0]/mipgsz
+    pos[1] = pos[1]/mapgsz
+    pos[2] = pos[2]/mipgsz
+    pos[3] = pos[3]/mapgsz
+  endif else begin
+    pos[0] = pos[0]/mapgsz
+    pos[1] = pos[1]/mipgsz
+    pos[2] = pos[2]/mapgsz
+    pos[3] = pos[3]/mipgsz
+  ENDELSE
 ;
-   def_myuniquetmpdir
+  def_myuniquetmpdir
 ;
-   IF lmgr(/demo) EQ 1 THEN BEGIN
+  IF lmgr(/demo) EQ 1 THEN BEGIN
 ; if we are in demo mode, we cannot save the parameters in a temporary file...
 @cm_demomode_used
 ;
-      colnumb = colorbarparam.colnumb
-      clbinf = colorbarparam.clbinf
-      clbsup = colorbarparam.clbsup
-      clbdiv = colorbarparam.clbdiv
+    colnumb = colorbarparam.colnumb
+    clbinf = colorbarparam.clbinf
+    clbsup = colorbarparam.clbsup
+    clbdiv = colorbarparam.clbdiv
 ;
-   ENDIF ELSE BEGIN
-      file = myuniquetmpdir + '4colorbar.dat'
-      IF file_test(file) THEN BEGIN
-         restore, file
-         if size(ex, /type) EQ 8 then BEGIN
-            if (where(tag_names(ex) EQ 'MIN'))[0] NE -1 then clbinf = ex.MIN
-            if (where(tag_names(ex) EQ 'MAX'))[0] NE -1 then clbsup = ex.MAX
-            if (where(tag_names(ex) EQ 'DIVISIONS'))[0] NE -1 then clbdiv = ex.DIVISIONS
-         ENDIF
+  ENDIF ELSE BEGIN
+    file = myuniquetmpdir + '4colorbar.dat'
+    IF file_test(file) THEN BEGIN
+      restore, file
+      if size(ex, /type) EQ 8 then BEGIN
+        if (where(tag_names(ex) EQ 'MIN'))[0] NE -1 then clbinf = ex.MIN
+        if (where(tag_names(ex) EQ 'MAX'))[0] NE -1 then clbsup = ex.MAX
+        if (where(tag_names(ex) EQ 'DIVISIONS'))[0] NE -1 then clbdiv = ex.DIVISIONS
+      ENDIF
+    ENDIF
 ;
-         COLORBAR, COLOR = 0, DIVISIONS = clbdiv, DISCRET = colnumb $
-          , cb_color = 0, POSITION = pos, MAX = clbsup $
-          , MIN = clbinf, cb_charsize = !p.charsize $
-          , _extra = ex
-      ENDIF
-   ENDELSE
+    COLORBAR, COLOR = 0, DIVISIONS = clbdiv, DISCRET = colnumb $
+              , cb_color = 0, POSITION = pos, MAX = clbsup $
+              , MIN = clbinf, cb_charsize = !p.charsize $
+              , _extra = ex
+  ENDELSE
 ;
-   !x = xsave
-   !y = ysave
-   !p = psave
+  !x = xsave
+  !y = ysave
+  !p = psave
 ;
-   return
+  return
 end