Changeset 386

Timestamp:

12/03/08 14:26:28 (15 years ago)

Author:

smasson

Message:

3 small bugfix

Location:

trunk/SRC

Files:

• ToBeReviewed/GRILLE/decoupeterre.pro (modified) (2 diffs)
• ToBeReviewed/TRIANGULATION/section.pro (modified) (1 diff)
• Utilities/routine_name.pro (modified) (1 diff)

trunk/SRC/ToBeReviewed/GRILLE/decoupeterre.pro

@@ -244 +244 @@
         AND ny EQ 1 AND keyword_set(realsection):BEGIN
         bottom = total(mask, 3)
-        good = where(bottom NE 0 AND bottom NE nz+1)
+        good = where(bottom NE 0 AND bottom NE nz)
         bottom = lindgen(nx)+(bottom)*nx
         IF good[0] NE -1 THEN BEGIN
@@ -256 +256 @@
         AND nx EQ 1 AND keyword_set(realsection):BEGIN
         bottom = total(mask, 3)
-        good = where(bottom NE 0 AND bottom NE nz+1)
+        good = where(bottom NE 0 AND bottom NE nz)
         bottom = lindgen(ny)+(bottom)*ny
         IF good[0] NE -1 THEN BEGIN

trunk/SRC/ToBeReviewed/TRIANGULATION/section.pro

@@ -73 +73 @@
     0:localbox = [boxzoom2d, minprof, profdefault]
     1:localbox = [boxzoom2d, minprof, boxzoom[0]]
-    2:localbox = [boxzoom2d, boxzoom[0]]
+    2:localbox = [boxzoom2d, boxzoom]
     4:if strpos(type, 'z') NE -1 THEN $
       localbox = [boxzoom2d, minprof, profdefault] ELSE localbox = boxzoom2d

trunk/SRC/Utilities/routine_name.pro

@@ -47 +47 @@
 ;
   help,  /traceback, output = name
+
+  IF !d.name EQ 'WIN' THEN BEGIN
+    name[0] = '% ' + name[0]
+    FOR i = 1, n_elements(name)-1 DO BEGIN
+      IF strmid(name[i], 0, 1) EQ ' ' THEN name[i] = '%' + name[i]
+    ENDFOR
+  ENDIF
+
   name = strtrim(name, 1)       ; we remove blanks at the beginning of lines and
 ;                               we put elements of the vector stuck ones with