Re: Gridding options

["J.D. Smith" <jdsmith(at)astro.cornell.edu>]

Ben Tupper wrote:
> (Sorry, JD, it does have loopity-loops.  You can flick a worm into the
> air... but that doesn't mean it knows how to fly!  I'm still trying to
> figure out what .....
> 
****************************************
tt=total(a[(((dy=((di=lindgen(((n=nx<ny)),nx+ny-1)))/n))*(nx gt ny?1:nx)+ $
              (nx gt ny?1:-1)*((dx=di mod n))*(nx-1))>0<(nx*ny-1)]* $
           (dy ge dx AND (dy-dx) lt nx>ny),1)
****************************************
> 
> means.   Maybe I need to drink less/more coffee. )

It's written in an ancient IDL runic language lost in the dark ages (1993). 
Simply run it on an array "a" after defining the dimensions "nx" and "ny" and
all will be clear.

JD

-- 
 J.D. Smith                             /*\    WORK: (607) 255-6263
 Cornell University Dept. of Astronomy  \*/	     (607) 255-5842
 304 Space Sciences Bldg.               /*\     FAX: (607) 255-5875  
 Ithaca, NY 14853                       \*/