Changeset 231 for trunk/SRC/ToBeReviewed/PLOTS/DIVERS/placecolor.pro

Timestamp:

03/19/07 18:15:51 (17 years ago)

Author:

pinsard

Message:

improvements/corrections of some *.pro headers

File:

• trunk/SRC/ToBeReviewed/PLOTS/DIVERS/placecolor.pro (modified) (8 diffs)

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

@@ -1 @@
-;------------------------------------------------------------
-;------------------------------------------------------------
-;------------------------------------------------------------
 ;+
 ;
@@ -14 +11 @@
 ;
 ; @param POS
-; Vector composed by 4 elements giving coordinates of the left bottom 
+; Vector composed by 4 elements giving coordinates of the left bottom
 ; corner and of the right up one -in cm- in which we want to do the color bar
 ;
-; @keyword _extra
-; used to pass your keywords
+; @keyword _EXTRA
+; Used to pass keywords
 ;
 ; @uses
@@ -34 +31 @@
 ;
 ;-
-;------------------------------------------------------------
-;------------------------------------------------------------
-;------------------------------------------------------------
+;
 pro placecolor, pos, _extra = ex
-;------------------------------------------------------------
-; include commons
 ;
   compile_opt idl2, strictarrsubs
@@ -47 +40 @@
 @updatenew
    ENDIF
-;---------------------
 ;
    xsave = !x
@@ -57 +49 @@
    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    
+      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    
+      pos[0]=pos[0]/mapgsz
+      pos[1]=pos[1]/mipgsz
+      pos[2]=pos[2]/mapgsz
+      pos[3]=pos[3]/mipgsz
    ENDELSE
 ;
@@ -75 +67 @@
 ;
       colnumb = colorbarparam.colnumb
-      clbinf = colorbarparam.clbinf 
+      clbinf = colorbarparam.clbinf
       clbsup = colorbarparam.clbsup
       clbdiv = colorbarparam.clbdiv
@@ -82 +74 @@
       file = myuniquetmpdir + '4colorbar.dat'
       IF file_test(file) THEN BEGIN
-         restore, file        
-         if size(ex, /type) EQ 8 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
@@ -99 +91 @@
    !y = ysave
    !p = psave
-;------------------------------------------------------------
+;
    return
 end