Changeset 226 for trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/buildcmd.pro
- Timestamp:
- 03/16/07 10:22:26 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/buildcmd.pro
r172 r226 5 5 ; 6 6 ; @file_comments 7 ; This function send back a string which contain the reading command 7 ; This function send back a string which contain the reading command 8 8 ; and drawing's parameters. 9 9 ; … … 11 11 ; 12 12 ; @keyword BOXZOOM 13 ; Vector indicating the geographic zone on which we want to cut the map. 14 ; If BOXZOOM has : 13 ; Vector indicating the geographic zone on which we want to cut the map. 14 ; If BOXZOOM has : 15 15 ; 1 element : The extraction is made on [lon1, lon2, lat1, lat2, 0.,boxzoom[0]] 16 16 ; 2 elements: The extraction is made on [lon1, lon2, lat1, lat2, boxzoom[0],boxzoom[1]] 17 17 ; 4 elements: The extraction is made on [Boxzoom, 0, max([gdept, gdepw])] 18 18 ; 5 elements: The extraction is made on [Boxzoom[0:3], 0, Boxzoom[4]] 19 ; 6 elements: The extraction is made on Boxzoom 19 ; 6 elements: The extraction is made on Boxzoom 20 20 ; Where lon1, lon2,lat1,lat2 are global variables defined at the last domdef! 21 21 ; … … 54 54 numdessinout = smallout[2]-1 55 55 ; 56 options = extractatt(top_uvalue, 'options') 56 options = extractatt(top_uvalue, 'options') 57 57 optionsflag = extractatt(top_uvalue, 'optionsflag') 58 58 portrait = (strtrim(optionsflag[where(options EQ 'Portrait/Landscape'), 0], 1))[0] … … 83 83 ; Search of options 84 84 ; 85 options = extractatt(top_uvalue, 'options') 85 options = extractatt(top_uvalue, 'options') 86 86 optionsflag = extractatt(top_uvalue, 'optionsflag') 87 87 flags = optionsflag[*, numdessinin] … … 133 133 widcmd = strtrim(widcmd, 2) 134 134 IF widcmd[0] EQ '' THEN widcmd = 'zzz' 135 135 136 136 cutcmd, widcmd[0], toread, numberofread, prefix, nameexp, ending 137 137 ; … … 158 158 ; we complet the reading command 159 159 oldrdcmd = extractatt(top_uvalue, 'currentreadcmd') 160 nl = n_elements(oldrdcmd) 160 nl = n_elements(oldrdcmd) 161 161 oldrdcmd[nl-1] = oldrdcmd[nl-1] + ' $' 162 162 readcmd[i] = prefix + readcmd[i] … … 164 164 ENDELSE 165 165 ; exit if we have to read other fields... 166 if alreadyread+1 NE numberofread-1 THEN BEGIN 166 if alreadyread+1 NE numberofread-1 THEN BEGIN 167 167 *top_uvalue[1, findline(top_uvalue, 'currentreadcmd')] = readcmd 168 168 *top_uvalue[1, findline(top_uvalue, 'alreadyread')] = alreadyread+1 … … 171 171 ENDIF 172 172 ; we finalize the reading command 173 IF ending NE '' THEN BEGIN 174 nl = n_elements(readcmd) 173 IF ending NE '' THEN BEGIN 174 nl = n_elements(readcmd) 175 175 readcmd[nl-1] = readcmd[nl-1] + ' $' 176 176 readcmd = [temporary(readcmd), ending] … … 186 186 tgnm = strlowcase(tag_names(exextra)) 187 187 indtmp = where(tgnm EQ 'box' OR tgnm EQ 'boxzoom', cnt) 188 IF cnt EQ 1 THEN BEGIN 188 IF cnt EQ 1 THEN BEGIN 189 189 boxextra = exextra.(indtmp[0]) 190 190 exextra = extractstru(exextra, ['box', 'boxzoom']) 191 ENDIF 191 ENDIF 192 192 extra = mixstru(exextra, extra) 193 193 sextra = struct2string(extra) … … 214 214 'vector':BEGIN 215 215 ; for the vectors, there is 2 components. we read u when alreadyvector 216 ; is a inte rger and v when alreadyvector is a interger+0.5216 ; is a integer and v when alreadyvector is a integer+0.5 217 217 if floor(alreadyvector)+1 EQ 0 then begin 218 218 if floor(alreadyvector) EQ alreadyvector then begin … … 226 226 ENDIF ELSE BEGIN 227 227 oldrdcmd = extractatt(top_uvalue, 'currentreadcmd') 228 nl = n_elements(oldrdcmd) 228 nl = n_elements(oldrdcmd) 229 229 oldrdcmd[nl-1] = oldrdcmd[nl-1] + ' $' 230 230 readcmd[i] = prefix + readcmd[i] … … 235 235 numberofread-1:BEGIN 236 236 ; we finalize the reading command 237 IF ending NE '' THEN BEGIN 238 nl = n_elements(readcmd) 237 IF ending NE '' THEN BEGIN 238 nl = n_elements(readcmd) 239 239 readcmd[nl-1] = readcmd[nl-1] + ' $' 240 240 readcmd = [temporary(readcmd), ending] … … 252 252 numberofread-0.5:BEGIN 253 253 ; we finalize the reading command 254 IF ending NE '' THEN BEGIN 255 nl = n_elements(readcmd) 254 IF ending NE '' THEN BEGIN 255 nl = n_elements(readcmd) 256 256 readcmd[nl-1] = readcmd[nl-1] + ' $' 257 257 readcmd = [temporary(readcmd), ending] … … 301 301 ENDIF ELSE BEGIN 302 302 oldrdcmd = extractatt(top_uvalue, 'currentreadcmd') 303 nl = n_elements(oldrdcmd) 303 nl = n_elements(oldrdcmd) 304 304 oldrdcmd[nl-1] = oldrdcmd[nl-1] + ' $' 305 305 readcmd[i] = prefix + readcmd[i] … … 307 307 ENDELSE 308 308 ; 309 if alreadyover+1 NE numberofread-1 THEN BEGIN 309 if alreadyover+1 NE numberofread-1 THEN BEGIN 310 310 ; we still need to read some files... 311 311 *top_uvalue[1, findline(top_uvalue, 'currentreadcmd')] = readcmd … … 315 315 ENDIF 316 316 ; we finalize the reading command 317 IF ending NE '' THEN BEGIN 318 nl = n_elements(readcmd) 317 IF ending NE '' THEN BEGIN 318 nl = n_elements(readcmd) 319 319 readcmd[nl-1] = readcmd[nl-1] + ' $' 320 320 readcmd = [temporary(readcmd), ending] … … 362 362 ; For [plots in z, box must have by default 0,profmax 363 363 if strpos(type, 'z') NE -1 then BEGIN 364 ; If more than 1 level is selected: 364 ; If more than 1 level is selected: 365 365 widget_control, widget_info(base, find_by_uname = 'dthlv1'), get_value = niv1 366 366 niv1 = niv1.combobox_index
Note: See TracChangeset
for help on using the changeset viewer.