Changeset 74 for trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/buildcmd.pro

Timestamp:

05/23/06 15:45:47 (18 years ago)

Author:

smasson

Message:

debug xxx and cie + clean data file + rm perldoc_idl

File:

• trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/buildcmd.pro (modified) (4 diffs)

trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/buildcmd.pro

@@ -61 +61 @@
     'plt':procedure = 'plt'
     'pltz':procedure = 'pltz'
-    'pltz_diag':procedure = 'pltz'
+    'pltz diag up':procedure = 'pltz'
+    'pltz diag dn':procedure = 'pltz'
     'pltt':procedure = 'pltt'
-    'pltt_diag':procedure = 'pltt'
+    'pltt diag up':procedure = 'pltt'
+    'pltt diag dn':procedure = 'pltt'
     'xy':procedure = 'plt'
     'xz':procedure = 'pltz'
@@ -126 +128 @@
 ;
   widget_control, txtcmdid, get_value = widcmd
+  widcmd =  strtrim(widcmd, 2)
   IF widcmd[0] EQ '' THEN widcmd = 'zzz'
   
@@ -357 +360 @@
   endif
   box = box+']'
-  IF strpos(type, '_diag') NE -1 THEN BEGIN
+  IF strpos(type, ' diag up') NE -1 THEN BEGIN
     sendpoints = '[' + strtrim(boxzoom[0], 1) + ', ' + strtrim(boxzoom[2], 1) + $
                 ', ' + strtrim(boxzoom[1], 1) + ', ' + strtrim(boxzoom[3], 1) + ']'
   ENDIF
+  IF strpos(type, ' diag dn') NE -1 THEN BEGIN
+    sendpoints = '[' + strtrim(boxzoom[0], 1) + ', ' + strtrim(boxzoom[3], 1) + $
+                ', ' + strtrim(boxzoom[1], 1) + ', ' + strtrim(boxzoom[2], 1) + ']'
+  ENDIF
 ;---------------
 ; on determine typein
 ;---------------
-    IF strpos(type, '_diag') NE -1 THEN typein = ''''+strmid(type, 0, 4)+'''' $
+    IF strpos(type, ' diag ') NE -1 THEN typein = ''''+strmid(type, 0, 4)+'''' $
     ELSE typein = ''''+type+''''
 ;---------------
@@ -375 +382 @@
 ;------------------------------------------------------------
   Cmd = [readCmd, procedure+ ', field $' $
-         , '    , boxzoom = '+box+', typein='+typein+', small='+ssmall+' $']
+         , '    , boxzoom = '+box+', /findalways, typein='+typein+', small='+ssmall+' $']
   IF drawvecteur then Cmd = [Cmd, '    , vecteur = {u: fieldu,v: fieldv} $']
   IF drawover then Cmd = [Cmd, '    , contour = fieldover $']