Changeset 118 for trunk/SRC/Interpolation/cutpar.pro

Timestamp:

06/27/06 17:47:06 (18 years ago)

Author:

pinsard

Message:

add $ in Calendar, Grid, Interpolation, Obsolete and Postscript *.pro files, add svn:keywords Id to all these files, some improvements in header

File:

• trunk/SRC/Interpolation/cutpar.pro (modified) (2 diffs, 1 prop)

trunk/SRC/Interpolation/cutpar.pro

@@ -8 +8 @@
 ; res = cutpar(x0, y0, x1, y1, x2, y2, x3, y3, n)
 ;
-;       @param x0,y0  {in}{required} 1d arrays of p elements, giving the edge positions. The
+; @param x0 {in}{required}
+; @param y0 {in}{required} 
+; @param x1 {in}{required}
+; @param y1 {in}{required} 
+; @param x2 {in}{required}
+; @param y2 {in}{required} 
+; @param x3 {in}{required}
+; @param y3 {in}{required} 
+; 1d arrays of p elements, giving the edge positions. The
 ;       edges must be given as in plot to traw the parallelogram. (see
 ;       example).
-;       @param n {in}{required} each parallelogram will be cutted in n^2 pieces
 ;
-; @keyword         /endpoints see outputs
+; @param n {in}{required} each parallelogram will be cutted in n^2 pieces
 ;
-; @keyword         /onsphere to specify that the points are located on a
+; @keyword /endpoints see outputs
+;
+; @keyword /onsphere to specify that the points are located on a
 ;         sphere. In this case, x and y corresponds to longitude and
 ;         latitude in degrees.
 ;
 ; @returns
-;        -defaut: 3d array(2,n^2,p) giving the center position of each
+;        - defaut: 3d array(2,n^2,p) giving the center position of each
 ;        piece of the parallelograms
-;        -/endpoints: 3d array(2,(n+1)^2,p) giving the edge positions
+;        - /endpoints: 3d array(2,(n+1)^2,p) giving the edge positions
 ;        of each piece of the parallelograms
 ;
@@ -29 +38 @@
 ; @examples 
 ;
-; x0 = [2,6,2]
-; y0 = [0,2,6]
-; x1 = [3,8,4]
-; y1 = [4,4,6]
-; x2 = [1,6,4]
-; y2 = [5,6,8]
-; x3 = [0,4,2]
-; y3 = [1,4,8]
-; n = 4
-; splot, [0,10], [0,10], xstyle = 1, ystyle = 1,/nodata
-; for i=0,2 do oplot, [x0[i],x1[i],x2[i],x3[i],x0[i]],[y0[i],y1[i],y2[i],y3[i],y0[i]]
-; res=cutpar(x0, y0, x1, y1, x2, y2, x3, y3, n)
-; for i=0,2 do oplot, [res[0,*,i]], [res[1,*,i]], color = 20+10*i, psym = 1, thick = 3
+; IDL> x0 = [2,6,2]
+; IDL> y0 = [0,2,6]
+; IDL> x1 = [3,8,4]
+; IDL> y1 = [4,4,6]
+; IDL> x2 = [1,6,4]
+; IDL> y2 = [5,6,8]
+; IDL> x3 = [0,4,2]
+; IDL> y3 = [1,4,8]
+; IDL> n = 4
+; IDL> splot, [0,10], [0,10], xstyle = 1, ystyle = 1,/nodata
+; IDL> for i=0,2 do oplot, [x0[i],x1[i],x2[i],x3[i],x0[i]],[y0[i],y1[i],y2[i],y3[i],y0[i]]
+; IDL> res=cutpar(x0, y0, x1, y1, x2, y2, x3, y3, n)
+; IDL> for i=0,2 do oplot, [res[0,*,i]], [res[1,*,i]], color = 20+10*i, psym = 1, thick = 3
 ;
 ; @history
 ;           S. Masson (smasson\@lodyc.jussieu.fr)
 ;           July 5th, 2002
+;
+; @version $Id$
+;
 ;-
 FUNCTION cutpar, x0, y0, x1, y1, x2, y2, x3, y3, n, endpoints = endpoints, onsphere = onsphere