Changeset 37822 for branches/eam_branches/ipp-pv3-20140717-merge/Ohana/src/mosastro/src/fakefield.c

Timestamp:

Jan 12, 2015, 12:29:24 PM (12 years ago)

Author:

eugene

Message:

merge changes from trunk

Location:

branches/eam_branches/ipp-pv3-20140717-merge/Ohana

Files:

• . (modified) (1 prop)
• src/mosastro/src/fakefield.c (modified) (2 diffs)

branches/eam_branches/ipp-pv3-20140717-merge/Ohana/src/mosastro/src/fakefield.c

@@ -22 +22 @@
 
   /* bore site center guess */
-  strcpy (field.project.ctype, "DEC--TAN");
-  field.project.crpix1 = 0;
-  field.project.crpix2 = 0;
+  InitCoords (&field.project, "DEC--TAN");
   
   /* set TP plate scale */
@@ -30 +28 @@
   field.project.cdelt2 = 1.0/3600.0;
 
-  /** allow guess at field rotation?? **/
-  field.project.pc1_1  = 1;
-  field.project.pc2_2  = 1;
-  field.project.pc1_2  = 0;
-  field.project.pc2_1  = 0;
-  field.project.Npolyterms = 1;
-
   /** distort only has power in polyterms **/
-  strcpy (field.distort.ctype, "DEC--PLY");
-  field.distort.crval1 = 0.0;
-  field.distort.crval2 = 0.0;
-  field.distort.crpix1 = 0.0;
-  field.distort.crpix2 = 0.0;
-  field.distort.cdelt1 = 1.0;
-  field.distort.cdelt2 = 1.0;
-  
-  field.distort.pc1_1  = 1;
-  field.distort.pc2_2  = 1;
-  field.distort.pc1_2  = 0;
-  field.distort.pc2_1  = 0;
-
-  /* how do we handle renormalization? (fixed at 1000 pixels??) */
-  field.distort.Npolyterms = 3;
-  for (i = 0; i < 7; i++) {
-    field.distort.polyterms[i][0] = 0;
-    field.distort.polyterms[i][1] = 0;
-  }
+  InitCoords (&field.distort, "DEC--PLY");
 
   return (1);