# include "fakeastro.h"

// region corresponds to the catalog
int make_2mass_measures (Catalog *catalog) {

  int Nsecfilt = GetPhotcodeNsecfilt ();

  Average *average = catalog->average;
  SecFilt *secfilt = catalog->secfilt;
  StarPar *starpar = catalog->starpar;
  Measure *measure = catalog->measure;
  
  // we have starpar.R,D, which represent the true positions at the reference epoch, FAKEASTRO_REF_EPOCH
  // the 2MASS stars are generated at locations for the 2MASS EPOCH
  time_t timeRef = ohana_date_to_sec(FAKEASTRO_REF_EPOCH);
  time_t tzero_2mass = ohana_date_to_sec(FAKEASTRO_2MASS_EPOCH);

  // tzero, timeRef are in UNIX seconds, Toffset should be in years
  double Toffset = (tzero_2mass - timeRef) / 365.25 / 86400.0;

  // use photcode to get zero point
  PhotCode *codeJ = GetPhotcodebyName ("2MASS_J");
  // PhotCode *codeH = GetPhotcodebyName ("2MASS_H");
  // PhotCode *codeK = GetPhotcodebyName ("2MASS_K");

  float ZP = MAX_MAG_2MASS + 6.5; // this is chosen to give stars at the limit a flux of 400.0 counts (crude, yes)
  float SkyCts = 1000.0; // this is chosen to make SN @ limit ~ 10.0 (

  int Nmeasure = catalog->Nmeasure;
  int NMEASURE = catalog->Nmeasure;

  int Nsec = 4; // y-band

  int i;
  for (i = 0; i < catalog->Naverage; i++) {

    if (Nmeasure >= NMEASURE) {
      NMEASURE = Nmeasure + 1000;
      REALLOCATE (catalog[0].measure, Measure, NMEASURE);
      measure = catalog[0].measure;
    }

    int Nstarpar = average[i].starparOffset;

    // make a crude JHK color for now:
    double J_PS1 = secfilt[i*Nsecfilt + Nsec].M - 1.0; // make all stars have y-J = 1.0
    if (J_PS1 > MAX_MAG_2MASS) continue; // only generate 2MASS detections for objects with J_PS1 < 16.0

    if (isnan(secfilt[i*Nsecfilt + Nsec].M)) {
      // look for a non-NAN secfilt mag and just use that (it is not super important)
      int ns;
      for (ns = 0; ns < Nsecfilt; ns++) {
	if (!isnan(secfilt[i*Nsecfilt + ns].M)) break;
      }
      if (ns == Nsecfilt) continue; // no non-nan

      J_PS1 = secfilt[i*Nsecfilt + ns].M; // pretend secfilt.M = J
      if (J_PS1 > MAX_MAG_2MASS) continue; // only generate 2MASS detections for objects with J_PS1 < 16.0
    }

    double Minst = J_PS1 - ZP; 

    double Counts = pow(10.0, -0.4*Minst);

    double SN = Counts / sqrt(SkyCts + Counts);

    // true position from src catalog
    double Rtru = starpar[Nstarpar].R;
    double Dtru = starpar[Nstarpar].D;

    // observed position is scattered from true position by:
    // * proper motion
    // * gaussian scatter (~ seeing) 
    double uR = starpar[Nstarpar].uRA; // starpar are in arcsec / year
    double uD = starpar[Nstarpar].uDEC;
    
    // uR,uD in linear (arcsec / yr)
    double dRpm = uR*Toffset;
    double dDpm = uD*Toffset;

    // uR,uD in linear arcsec
    double dRsee = ohana_gaussdev_rnd (0.0, 1.0 / SN);
    double dDsee = ohana_gaussdev_rnd (0.0, 1.0 / SN);

    double dRoff = (dRpm + dRsee) / 3600.0;
    double dDoff = (dDpm + dDsee) / 3600.0;

    double Robs = Rtru + dRoff / cos(Dtru*RAD_DEG);
    double Dobs = Dtru + dDoff;

    dvo_measure_init (&measure[Nmeasure]);

    measure[Nmeasure].R = Robs;
    measure[Nmeasure].D = Dobs;

    measure[Nmeasure].M      = J_PS1;
    measure[Nmeasure].dM     = 1.0 / SN;

    measure[Nmeasure].Sky        = SkyCts;
    measure[Nmeasure].dSky       = sqrt(SkyCts);
    measure[Nmeasure].photFlags  = 0;
    measure[Nmeasure].photFlags2 = 0;
    measure[Nmeasure].airmass = 1.0;
    measure[Nmeasure].az      = 0.0; // irrelevant
    measure[Nmeasure].Mcal    = 0.0;
    measure[Nmeasure].t       = tzero_2mass;
    measure[Nmeasure].dt      = 0.0;
    measure[Nmeasure].photcode = codeJ->code;

    measure[Nmeasure].averef   = i;
    measure[Nmeasure].objID    = average[i].objID;
    measure[Nmeasure].catID    = average[i].catID;

    measure[Nmeasure].imageID = 0;

    // This is may optionally be replaced by the internal sequence (see FilterStars.c)
    measure[Nmeasure].detID      = 0;
    Nmeasure ++;
  }

  if (VERBOSE) fprintf (stderr, "added %d 2mass entries to %d stars\n",  (int) Nmeasure, (int) catalog->Naverage);

  catalog->Nmeasure = Nmeasure;
  return TRUE;
}
