Changeset 371 for trunk/SRC/Interpolation/cutpar.pro
- Timestamp:
- 08/07/08 11:32:02 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/Interpolation/cutpar.pro
r327 r371 42 42 ; @examples 43 43 ; 44 ; IDL> x0 = [2,6,2]45 ; IDL> y0 = [0,2,6]46 ; IDL> x1 = [3,8,4]47 ; IDL> y1 = [4,4,6]48 ; IDL> x2 = [1,6,4]49 ; IDL> y2 = [5,6,8]50 ; IDL> x3 = [0,4,2]51 ; IDL> y3 = [1,4,8]52 ; IDL> n = 453 ; IDL> splot, [0,10], [0,10], xstyle = 1, ystyle = 1,/nodata54 ; 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]]55 ; IDL> res=cutpar(x0, y0, x1, y1, x2, y2, x3, y3, n)56 ; IDL> for i=0,2 do oplot, [res[0,*,i]], [res[1,*,i]], color = 20+10*i, psym = 1, thick = 344 ; IDL> x0 = [2,6,2] 45 ; IDL> y0 = [0,2,6] 46 ; IDL> x1 = [3,8,4] 47 ; IDL> y1 = [4,4,6] 48 ; IDL> x2 = [1,6,4] 49 ; IDL> y2 = [5,6,8] 50 ; IDL> x3 = [0,4,2] 51 ; IDL> y3 = [1,4,8] 52 ; IDL> n = 4 53 ; IDL> splot, [0,10], [0,10], xstyle = 1, ystyle = 1,/nodata 54 ; 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]] 55 ; IDL> res=cutpar(x0, y0, x1, y1, x2, y2, x3, y3, n) 56 ; IDL> for i=0,2 do oplot, [res[0,*,i]], [res[1,*,i]], color = 20+10*i, psym = 1, thick = 3 57 57 ; 58 58 ; @history
Note: See TracChangeset
for help on using the changeset viewer.