diff options
Diffstat (limited to 'funtools/funtest/wcs.in')
-rw-r--r-- | funtools/funtest/wcs.in | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/funtools/funtest/wcs.in b/funtools/funtest/wcs.in new file mode 100644 index 0000000..4464246 --- /dev/null +++ b/funtools/funtest/wcs.in @@ -0,0 +1,12 @@ +/* ./funcalc -f wcs.in $S foo.fits */ +local +double dval1, dval2; +void *wcs; +int init=0; +end + +if( !init++ ) FunInfoGet(fun, FUN_WCS, &wcs, 0); +pix2wcs(wcs, (double)cur->x, (double)cur->y, &dval1, &dval2); +cur->RA:D = dval1; +cur->Dec:D = dval2; + |