Changeset 10958 for trunk/pswarp/test/simple.image.op

Timestamp:

Jan 7, 2007, 4:14:29 PM (20 years ago)

Author:

eugene

Message:

working version with locally-linear map

File:

• trunk/pswarp/test/simple.image.op (modified) (3 diffs)

trunk/pswarp/test/simple.image.op

@@ +1 @@
+
+$NX = 2048
+$NY = 2048
 
 macro go
   mkref
   mksrc
-#  exec pswarp -file src.fits out.fits ref.fits
+  exec pswarp -file src.fits out ref.fits
 end
 
 macro mkref
-  mcreate ref 512 512
+  mcreate ref $NX $NY
   keyword ref CTYPE1 -w "RA---TAN"
   keyword ref CTYPE2 -w "DEC--TAN"
   keyword ref CRVAL1 -wf 0.0
   keyword ref CRVAL2 -wf 0.0
-  keyword ref CRPIX1 -wf 256
-  keyword ref CRPIX2 -wf 256
+  keyword ref CRPIX1 -wf {$NX/2}
+  keyword ref CRPIX2 -wf {$NY/2}
 
   keyword ref CDELT1 -wf {1/3600}
@@ -27 +30 @@
 
 macro mksrc
-  mcreate src 512 512
-  for i 0 512 64
-    for j 0 512 64
+  mcreate src $NX $NY
+  for i 0 $NX 64
+    for j 0 $NY 64
       zap src $i $j 1 1 -v 1
     end
@@ -38 +41 @@
   keyword src CRVAL1 -wf 0.0
   keyword src CRVAL2 -wf 0.0
-  keyword src CRPIX1 -wf 256
-  keyword src CRPIX2 -wf 256
+  keyword src CRPIX1 -wf {$NX/2}
+  keyword src CRPIX2 -wf {$NY/2}
 
   keyword src CDELT1 -wf {1/3600}