- Timestamp:
- 03/19/07 11:17:59 (17 years ago)
- Location:
- trunk/SRC
- Files:
-
- 19 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/Documentation/xmldoc/faqsaxo.xml
r188 r230 292 292 You won't see online help update if you are working with the official distribution because of <varname>!HELP_PATH</varname>. To override this problem, when you are in <filename class="directory"><replaceable>SAXO_basedirectory</replaceable>/SAXO_DIR/SRC/Documentation/xmldoc/</filename>, you can call online help like this : 293 293 <screen format="linespecific"> 294 <prompt> IDL</prompt> <userinput><command>ONLINE_HELP</command>,<option>book="../idldoc_assistant_output/idldoc-lib.adp"</option></userinput>294 <prompt>&promptidl;</prompt> <userinput><command>ONLINE_HELP</command>,<option>book="../idldoc_assistant_output/idldoc-lib.adp"</option></userinput> 295 295 </screen> 296 296 </para> -
trunk/SRC/Grid/changemsk.pro
r163 r230 3 3 ;------------------------------------------------------------ 4 4 ; 5 ; @file_comments add land points on a 2D land-sea mask 5 ; @file_comments 6 ; add land points on a 2D land-sea mask 6 7 ; 7 8 ; @categories 8 9 ; Grid 9 10 ; 10 ; @param TAB {in}{required} a 2D land-sea mask, with 1 on sea and 0 on land 11 ; @param TAB {in}{required} 12 ; a 2D land-sea mask, with 1 on sea and 0 on land 11 13 ; 12 14 ; @keyword CELLSIZE -
trunk/SRC/Matrix/different.pro
r163 r230 4 4 ;+ 5 5 ; 6 ; @file_comments 6 ; @file_comments 7 7 ; calculate the different elements of 2 matrix of positive whole numbers. 8 8 ; … … 10 10 ; Calculation 11 11 ; 12 ; @param a {in}{required} arrays of positive integers, which need 12 ; @param a {in}{required} 13 ; arrays of positive integers, which need 13 14 ; not be sorted. Duplicate elements are ignored, as they have no 14 15 ; effect on the result 15 16 ; 16 ; @param b {in}{required} see a 17 ; @param b {in}{required} 18 ; see a 17 19 ; 18 ; @returns tableau 20 ; @returns 21 ; tableau 19 22 ; 20 ; @restrictions The empty set is denoted by an array with the first element equal to 23 ; @restrictions 24 ; The empty set is denoted by an array with the first element equal to 21 25 ; -1. 22 26 ; 23 ; @restrictions These functions will not be efficient on sparse sets with wide 27 ; @restrictions 28 ; These functions will not be efficient on sparse sets with wide 24 29 ; ranges, as they trade memory for efficiency. The HISTOGRAM function 25 30 ; is used, which creates arrays of size equal to the range of the … … 28 33 ; @examples 29 34 ; 30 ; a = [2,4,6,8]31 ; b = [6,1,3,2]32 ; different(a,b) = [ 4, 8] ; Elements in A but not in B35 ; IDL> a = [2,4,6,8] 36 ; IDL> b = [6,1,3,2] 37 ; IDL> different(a,b) = [ 4, 8] ; Elements in A but not in B 33 38 ; 34 ; @history http://www.dfanning.com/tips/set_operations.html 39 ; @history 40 ; http://www.dfanning.com/tips/set_operations.html 35 41 ; 36 ; @version $Id$ 42 ; @version 43 ; $Id$ 37 44 ; 38 45 ;- … … 40 47 ;------------------------------------------------------------ 41 48 ;------------------------------------------------------------ 42 FUNCTION different, a, b 49 FUNCTION different, a, b 43 50 ; 44 51 compile_opt idl2, strictarrsubs -
trunk/SRC/Matrix/extrac2.pro
r163 r230 54 54 ; @returns 55 55 ; a matrix 1,2,3 or 4d extract from input array 56 ; -1 in case of mistake 56 57 ; 57 58 ; @restrictions 58 ; -1 in case of mistake59 59 ; 60 60 ; @examples -
trunk/SRC/Picture/imdisp.pro
r163 r230 460 460 ;map_grid 461 461 ; 462 ; @history Liam.Gumley\@ssec.wisc.edu 462 ; @history 463 ; Liam.Gumley\@ssec.wisc.edu 463 464 ; http://cimss.ssec.wisc.edu/~gumley 464 465 ; … … 479 480 ; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. 480 481 ; 481 ; @version $Id$ 482 ; @version 483 ; $Id$ 482 484 ; 483 485 ;- -
trunk/SRC/Picture/saveimage.pro
r163 r230 15 15 ; 8-bit or 24-bit output files are done automatically. 16 16 ; 17 ; @categories Input/Output. 17 ; @categories 18 ; Input/Output 18 19 ; 19 20 ; @param FILE {in}{required}{default=format GIF} … … 48 49 ; If set, use the color cube method to quantize colors when 49 50 ; creating 8-bit output which is read from a 24-bit display. 50 ; This may improve the accuracy of colors in the output image, 51 ; This may improve the accuracy of colors in the output image, 51 52 ; especially white. 52 53 ; … … 57 58 ; The output file is overwritten if it exists. 58 59 ; 59 ; @restrictions60 60 ; requires IDL 5.0 or higher (square bracket array syntax). 61 61 ; … … 70 70 ; IDL> saveimage, 'hurric.gif' 71 71 ; 72 ; @history Liam.Gumley@ssec.wisc.edu 72 ; @history 73 ; Liam.Gumley@ssec.wisc.edu 73 74 ; http://cimss.ssec.wisc.edu/~gumley 74 75 ; … … 87 88 ; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. 88 89 ; 89 ; @version $Id$ 90 ; @version 91 ; $Id$ 90 92 ; 91 93 ;- -
trunk/SRC/Picture/showimage.pro
r186 r230 36 36 ; IDL> showimage, filepath('rose.jpg', subdir='examples/data') 37 37 ; 38 ; @history Liam.Gumley\@ssec.wisc.edu 38 ; @history 39 ; Liam.Gumley\@ssec.wisc.edu 39 40 ; http://cimss.ssec.wisc.edu/~gumley 40 41 ; … … 53 54 ; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. 54 55 ; 55 ; @version $Id$ 56 ; @version 57 ; $Id$ 56 58 ; 57 59 ;- -
trunk/SRC/Postscript/closeps.pro
r136 r230 11 11 ; (number automatically found to be 1 larger that any of the existing ps file) 12 12 ; 13 ; @keyword INFOWIDGET 14 ; A long integer giving the id of the information widget (created by openps) 13 ; @keyword INFOWIDGET {type=long integer} 14 ; id of the information widget (created by 15 ; <a href="./openps.html">openps</a> 15 16 ; that we have to destroy at the end of closeps (when the postscript is done). 16 17 ; 17 ; @uses cm_4ps 18 ; @uses 19 ; cm_4ps 18 20 ; 19 ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr) 21 ; @history 22 ; Sebastien Masson (smasson\@lodyc.jussieu.fr) 20 23 ; 21/12/98 21 24 ; June 2005: Sebastien Masson, english version with new commons 22 25 ; 23 ; @version $Id$ 26 ; @version 27 ; $Id$ 24 28 ; 25 29 ;- -
trunk/SRC/Postscript/openps.pro
r186 r230 25 25 ; @keyword KEEP_PFONT 26 26 ; activate to suppress the modification of !p.font 27 ; (by default we force 27 ; (by default we force !p.font = 0 to make smaller postscripts) 28 28 ; 29 29 ; @keyword PORTRAIT … … 50 50 ; June 2005: Sebastien Masson, cleaning, english version with new commons 51 51 ; 52 ; @version $Id$ 52 ; @version 53 ; $Id$ 53 54 ; 54 55 ;- -
trunk/SRC/Postscript/printps.pro
r223 r230 36 36 ; 37 37 ; 38 ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr) 38 ; @history 39 ; Sebastien Masson (smasson\@lodyc.jussieu.fr) 39 40 ; 21/12/98 40 41 ; 25/8/19999 utilisation des widgets … … 42 43 ; June 2005: Sebastien Masson: cleaning, English version with new commons 43 44 ; 44 ; @version $Id$ 45 ; @version 46 ; $Id$ 45 47 ; 46 48 ;- … … 200 202 ; visualize and/or print and/or archive. It can also refer 201 203 ; to a gzipped postscript file. If needed, this name will 202 ; be completed by .ps and/or .gz 203 ; 204 ; @uses cm_4ps 204 ; be completed by .ps and/or .gz. 205 ; 206 ; @uses 207 ; cm_4ps 205 208 ; 206 209 ; @examples 207 210 ; IDL> printps 208 211 ; 209 ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr) 212 ; @history 213 ; Sebastien Masson (smasson\@lodyc.jussieu.fr) 210 214 ; 21/12/98 211 215 ; 25/8/19999 utilisation des widgets … … 213 217 ; June 2005: Sebastien Masson: cleaning, English version with new commons 214 218 ; 215 ; @version $Id$ 219 ; @version 220 ; $Id$ 216 221 ; 217 222 ;- -
trunk/SRC/ToBeReviewed/HOPE/read_hope.pro
r226 r230 261 261 ; 262 262 ; @returns 263 ; -1 if typein and varnamein are undefine (this is the widget263 ; -1 if typein and varnamein are undefined (this is the widget 264 264 ; version) 265 265 ; -
trunk/SRC/ToBeReviewed/PLOTS/DESSINE/bar_plot.pro
r163 r230 1 1 ;+ 2 ; 3 ; @file_comments 2 ; 3 ; @file_comments 4 4 ; Create a bar graph, or overplot on an existing one. 5 5 ; 6 ; @categories 6 ; @categories 7 7 ; Graphics 8 8 ; … … 65 65 ; on the same graph. 66 66 ; 67 ; @keyword OUTLINE 67 ; @keyword OUTLINE 68 68 ; If set, this keyword specifies that an outline should be 69 69 ; drawn around each bar. 70 70 ; 71 ; @keyword OVERPLOT 71 ; @keyword OVERPLOT 72 72 ; If set, this keyword specifies that the bar plot should be 73 73 ; overplotted on an existing graph. … … 77 77 ; the background color. 78 78 ; 79 ; @keyword ROTATE 79 ; @keyword ROTATE 80 80 ; If set, this keyword indicates that horizontal rather than 81 81 ; vertical bars should be drawn. The bases of horizontal bars 82 82 ; are on the left, "Y" axis and the bars extend to the right. 83 83 ; 84 ; @examples By using the overplotting capability, it is relatively easy to create 84 ; @examples 85 ; By using the overplotting capability, it is relatively easy to create 85 86 ; stacked bar charts, or different groups of bars on the same graph. 86 87 ; … … 118 119 ; this could easily be changed.) 119 120 ; 120 ; @history August 1990, T.J. Armitage, RSI, initial programming. Replacement 121 ; @history 122 ; August 1990, T.J. Armitage, RSI, initial programming. Replacement 121 123 ; for PLOTBAR and OPLOTBAR routines written by William Thompson. 122 124 ; … … 125 127 ; spacing the bars slightly. 126 128 ; 129 ; @version 127 130 ; $Id$ 128 131 ; -
trunk/SRC/ToBeReviewed/PLOTS/DIVERS/barrecouleur.pro
r226 r230 52 52 ; Used to pass your keywords 53 53 ; 54 ; @restrictions pass all argument we want thanks to _extra 54 ; @restrictions 55 ; pass all argument we want thanks to _extra 55 56 ; 56 57 ; @history … … 61 62 ; $Id$ 62 63 ; 63 ; @todo seb: mettre les keyword et les param 64 ; @todo 65 ; seb: mettre les keyword et les param 64 66 ;- 65 67 ;------------------------------------------------------------ -
trunk/SRC/ToBeReviewed/STRING/getwrd.pro
r163 r230 4 4 ; @file_comments 5 5 ; Return the n'th word from a text string. 6 ; 6 ; 7 7 ; @categories 8 ; String 8 9 ; 9 ; @param TXTSTR {in}{required} 10 ; @param TXTSTR {in}{required} {type=string or array of strings} 10 11 ; text string to extract from. 11 12 ; The first element is used if txt is an array. 12 13 ; 13 ; @param NTH {in}{required} 14 ; @param NTH {in}{required} {type=integer} {default=0} 14 15 ; word number to get (first = 0 = def) 15 16 ; 16 ; @param MTH {in}{ required}17 ; @param MTH {in}{optional} {type=integer} 17 18 ; optional last word number to get. 18 19 ; 19 20 ; @keyword LOCATION 20 21 ; = l. Return word n string location. 21 ; 22 ; 22 23 ; @keyword DELIMITER 23 24 ; = d. Set word delimiter (def = space & tab). 24 ; 25 ; 25 26 ; @keyword LAST 26 27 ; means n is offset from last word. So n=0 gives … … 30 31 ; @keyword NOTRIM 31 32 ; suppresses whitespace trimming on ends. 32 ; 33 ; 33 34 ; @keyword NWORDS 34 35 ; = n. Returns number of words in string. 35 ; 36 ; @returns wrd = returned word or words. 36 ; 37 ; @returns 38 ; wrd = returned word or words. 37 39 ; 38 40 ; @uses 39 41 ; getwrd_com 40 ; 42 ; 41 43 ; @restrictions 42 44 ; If a NULL string is given (txt="") then the last string … … 71 73 ;- 72 74 ;------------------------------------------------------------- 73 74 75 76 75 77 FUNCTION getwrd, TXTSTR, NTH, MTH, help=hlp, location=ll,$ 76 78 delimiter=delim, notrim=notrim, last=last, nwords=nwords 77 79 78 80 common getwrd_com, txtstr0, nwds, loc, len 79 81 80 82 if (n_params(0) lt 1) or keyword_set(hlp) then begin 81 83 print," Return the n'th word from a text string." … … 103 105 return, -1 104 106 endif 105 107 106 108 if n_params(0) lt 2 then nth = 0 ; Def is first word. 107 109 IF N_PARAMS(0) LT 3 THEN MTH = NTH ; Def is one word. 108 110 109 111 if strlen(txtstr[0]) gt 0 then begin 110 112 ddel = ' ' ; Def del is a space. … … 118 120 X = tb NE TST ; Non-delchar (=words). 119 121 X = [0,X,0] ; 0s at ends. 120 122 121 123 Y = (X-SHIFT(X,1)) EQ 1 ; Diff=1: word start. 122 124 Z = WHERE(SHIFT(Y,-1) EQ 1) ; Word start locations. 123 125 Y2 = (X-SHIFT(X,-1)) EQ 1 ; Diff=1: word end. 124 126 Z2 = WHERE(SHIFT(Y2,1) EQ 1) ; Word end locations. 125 127 126 128 txtstr0 = txtstr[0] ; Move string to common. 127 129 NWDS = long(TOTAL(Y)) ; Number of words. … … 135 137 endif 136 138 endelse 137 139 138 140 nwords = nwds ; Set nwords 139 141 140 142 if keyword_set(last) then begin ; Offset from last. 141 143 lst = nwds - 1 … … 149 151 im = im < lst ; to be last. 150 152 ll = loc[in] ; Nth word start. 151 return, strtrim(strmid(txtstr0,ll,loc[im]-loc[in]+len[im]), 2) 153 return, strtrim(strmid(txtstr0,ll,loc[im]-loc[in]+len[im]), 2) 152 154 endif 153 155 154 156 N = ABS(NTH) ; Allow nth<0. 155 157 IF N GT NWDS-1 THEN RETURN,'' ; out of range, null. … … 157 159 IF NTH LT 0 THEN GOTO, NEG ; Handle nth<0. 158 160 IF MTH GT NWDS-1 THEN MTH = NWDS-1 ; Words to end. 159 161 160 162 if keyword_set(notrim) then begin 161 163 RETURN, STRMID(TXTSTR0,ll,LOC[MTH]-LOC[NTH]+LEN[MTH]) … … 163 165 RETURN, strtrim(STRMID(TXTSTR0,ll,LOC[MTH]-LOC[NTH]+LEN[MTH]), 2) 164 166 endelse 165 167 166 168 NEG: if keyword_set(notrim) then begin 167 169 RETURN, STRMID(TXTSTR0,ll,9999) … … 169 171 RETURN, strtrim(STRMID(TXTSTR0,ll,9999), 2) 170 172 endelse 171 173 172 174 END -
trunk/SRC/ToBeReviewed/TRIANGULATION/definetri.pro
r186 r230 48 48 ; 49 49 ; @param DOWNWARD {in}{optional} 50 ; When downward is undefineall rectangles are cut in using the upward50 ; When DOWNWARD is undefined all rectangles are cut in using the upward 51 51 ; diagonal. 52 ; D ownwardis a vector which contains the rectangles numbers which are cut in52 ; DOWNWARD is a vector which contains the rectangles numbers which are cut in 53 53 ; using the downward diagonal. 54 54 ; The rectangle number is defined by the index (in a nx*ny vector) of the -
trunk/SRC/Utilities/createpro.pro
r229 r230 88 88 ; compile it 89 89 resolve_routine, shortfilename 90 help,ex,/structure 91 print,' ex = ',ex 90 92 ; execute it 91 93 call_procedure, shortfilename, _extra = ex -
trunk/SRC/Utilities/report.pro
r226 r230 38 38 ; @returns 39 39 ; -1 if the keyword QUESTION is not activated 40 ; If the keyword is activated, return 1 for yes and 0 for no.40 ; If the keyword QUESTION is activated, return 1 for yes and 0 for no. 41 41 ; 42 42 ; @examples -
trunk/SRC/Utilities/xfile.pro
r223 r230 65 65 ; we open the file in a widget 66 66 xdisplayfile, pfile[i-1], _extra = ex 67 ENDIF ELSE ras = report( 'filedoes not exist ...')67 ENDIF ELSE ras = report(filename + ' does not exist ...') 68 68 ; 69 69 ; -
trunk/SRC/Utilities/xhelp.pro
r224 r230 98 98 ENDELSE 99 99 FREE_LUN, unit ;free the file unit. 100 ENDIF ELSE ras = report( 'filedoes not exist ...')100 ENDIF ELSE ras = report(filename + ' does not exist ...') 101 101 102 102 return
Note: See TracChangeset
for help on using the changeset viewer.