diff options
Diffstat (limited to 'funtools/funtest/unwcs.in')
| -rw-r--r-- | funtools/funtest/unwcs.in | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/funtools/funtest/unwcs.in b/funtools/funtest/unwcs.in new file mode 100644 index 0000000..f8cc6e3 --- /dev/null +++ b/funtools/funtest/unwcs.in @@ -0,0 +1,12 @@ +local +double dval1, dval2; +FITSHead wcs; +int offscl; +int init=0; +end + +if( !init++ ) FunInfoGet(fun, FUN_WCS, &wcs, 0); +wcs2pix(wcs, (double)cur->ra, (double)cur->dec, &dval1, &dval2, &offscl); +cur->nx:J:1:1024 = (int)(dval1+0.5); +cur->ny:J:1:1024 = (int)(dval2+0.5); + |