Changeset 37 for trunk/ToBeReviewed/PLOTS/DIVERS/placecolor.pro

Timestamp:

05/02/06 16:55:58 (18 years ago)

Author:

pinsard

Message:

upgrade of PLOTS/DIVERS according to cerbere.lodyc.jussieu.fr: /usr/home/smasson/SAXO_RD/ : files

File:

• trunk/ToBeReviewed/PLOTS/DIVERS/placecolor.pro (copied) (copied from trunk/PLOTS/DIVERS/placecolor.pro) (1 diff)

trunk/ToBeReviewed/PLOTS/DIVERS/placecolor.pro

@@ -39 +39 @@
 ;------------------------------------------------------------
 ;------------------------------------------------------------
-pro placecolor,pos,_extra = ex
-@common
+pro placecolor, pos, _extra = ex
 ;------------------------------------------------------------
+; include commons
+@cm_4ps
+   IF NOT keyword_set(key_forgetold) THEN BEGIN
+@updatenew
+   ENDIF
+;---------------------
+;
    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]/petitfeuille    
-      pos[1]=pos[1]/grandfeuille    
-      pos[2]=pos[2]/petitfeuille    
-      pos[3]=pos[3]/grandfeuille    
+      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]/grandfeuille    
-      pos[1]=pos[1]/petitfeuille    
-      pos[2]=pos[2]/grandfeuille    
-      pos[3]=pos[3]/petitfeuille    
-   endelse
-   if keyword_set(divisions) eq 0 then divisions=colorbardiv
-   if keyword_set(max) eq 0 then max=colorbarsup
-   if keyword_set(min) eq 0 then min=colorbarinf
-   COLORBAR, COLOR=0, DIVISIONS=divisions, DISCRET=couleur, cb_color = 0, $
-    POSITION=pos, MAX=max, MIN=min, cb_charsize=!p.charsize, _extra = ex
-
+      pos[0]=pos[0]/mapgsz    
+      pos[1]=pos[1]/mipgsz    
+      pos[2]=pos[2]/mapgsz    
+      pos[3]=pos[3]/mipgsz    
+   ENDELSE
+;
+   def_myuniquetmpdir
+;
+   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
+;
+   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
+;
+         COLORBAR, COLOR = 0, DIVISIONS = clbdiv, DISCRET = colnumb $
+          , cb_color = 0, POSITION = pos, MAX = clbsup $
+          , MIN = clbinf, cb_charsize = !p.charsize $
+          , _extra = ex
+      ENDIF
+   ENDELSE
+;
    !x = xsave
    !y = ysave