add J2000, PCScorr and more

bta_print_header/Makefile

@@ -1,7 +1,7 @@
 # run `make DEF=...` to add extra defines
 PROGRAM := bta_print_header
 LDFLAGS := -fdata-sections -ffunction-sections -Wl,--gc-sections -Wl,--discard-all
-LDFLAGS += -lusefull_macros
+LDFLAGS += -lusefull_macros -lm -lerfa
 SRCS := $(wildcard *.c)
 DEFINES := $(DEF) -D_GNU_SOURCE -D_XOPEN_SOURCE=1111
 OBJDIR := mk

bta_print_header/am.c

@@ -0,0 +1,75 @@
+static int main(int argc, char *argv[]) __attribute((unused));
+static void usage(void) __attribute((unused));
+#define inline
+#include "airmass.inc"
+#undef inline
+
+#include "bta_site.h"
+
+void calc_airmass(
+            // in
+            double daynum,	// Day number from beginning of year, 0 = midnight Jan 1
+            double h0,// Relative humidity in percent
+            double p0,		// local pressure in mmHg
+            double t0,		// temperature in kelvins
+            double z,		// zenith distance in degr
+            // out
+            double *am,		// AIRMASS
+            double *acd,	// column density
+            double *wcd,	// water vapor column density
+            double *wam		// water vapor airmass
+    ){
+    int i;
+    double colz, col0, cosyearfrac, sinz, rmsl, bigrmsl,
+        rjunk, coslatsq, lambda=5500., alt=TELALT,
+        lat=TELLAT, betapoly[5]={-0.0065107, -4.5403e-06,
+        3.6599e-07, -2.2174e-09, 7.9392e-12}, r1poly[11]={17.204, 8.9155e-03,
+        -3.6420e-03, 2.5617e-05, 2.4796e-07, -1.2774e-08, 1.3017e-10,
+        2.0151e-12, -2.6985e-14, -1.0397e-16, 1.4849e-18}, hvec[(NTLEVELS+1)]=
+        {0., 11000., 20000., 32000., 47000., 52000., 61000., 79000., 88743.};
+    p0 *= 101325. / 760.;
+    relhumid = h0 / 100.;
+    sinz=sin(z*DEG2RAD);
+    cee=CONSTC*(2.87566E-4+134.12/(lambda*lambda)+3.777E8*pow(lambda, -4.));
+    cosyearfrac=cos((daynum-202.)*(360.*DEG2RAD/365.));
+    coslatsq=cos(lat*DEG2RAD);
+    coslatsq*=coslatsq;
+    rmsl=sqrt(((POLAR*POLAR*POLAR*POLAR)+(EQUATOR*EQUATOR*EQUATOR*EQUATOR-
+        POLAR*POLAR*POLAR*POLAR)*coslatsq)/((POLAR*POLAR)+(EQUATOR*EQUATOR-
+        POLAR*POLAR)*coslatsq));
+    bigrmsl=(-STANDARDR02)/rmsl;
+   /* Calculate bigrvec, the bigr at the bottom of each temperature layer */
+    *bigrvec=(-STANDARDR02)/(rmsl+alt);
+    rjunk=r1poly[10];
+    for (i=9;i>=0;i--) rjunk=rjunk*lat+((i%2) ? r1poly[i]*cosyearfrac :
+        r1poly[i]);
+    bigrvec[1]=(-STANDARDR02)/(rmsl+rjunk*1000.);
+    for (i=2;i<(NTLEVELS+1);i++) bigrvec[i]=hvec[i]+bigrmsl;
+
+   /* Set up our temperature profile for the troposphere/lower stratosphere */
+    *betavec=betapoly[4];
+    for (i=3;i>=0;i--) *betavec=*betavec*lat+((i%2) ? betapoly[i]*cosyearfrac :
+        betapoly[i]);
+    *betavec*=(-rmsl/bigrvec[1]);
+    *tvec=t0;
+    tvec[1]=t0+*betavec*(bigrvec[1]-*bigrvec);
+    betavec[1]=(tvec[2]-tvec[1])/(bigrvec[2]-bigrvec[1]);
+
+   /* Compute the density at the bottom of each temperature layer */
+    *rhovec=p0/(AIRCONSTANT*t0);
+    for (i=0;i<(NTLEVELS-1);i++) rhovec[i+1]=frho(bigrvec[i+1]-bigrvec[i],
+        rhovec[i], tvec[i], betavec[i]);
+
+    const6=musquare(*rhovec)*sinz*sinz/(*bigrvec*(*bigrvec));    /* for z */
+    colz=qromb(columndensityint, *bigrvec, bigrvec[NTLEVELS], 1.E-8);
+    const6=0.;  /* equivalent to setting z = 0. */
+    col0=qromb(columndensityint, *bigrvec, bigrvec[NTLEVELS], 1.E-8);
+    *am = colz/col0; *acd = 0.1*colz;
+    if(h0 < 0.1){ *wcd = 0.; *wam = 0.; return;}
+    const7=relhumid/(bigrvec[2]-bigrvec[1]);
+    const6=musquare(*rhovec)*sinz*sinz/(*bigrvec*(*bigrvec));    /* for z */
+    colz=qromb(vaporcolumndensityint, *bigrvec, bigrvec[2], 1.E-8);
+    const6=0.;  /* equivalent to setting z = 0. */
+    col0=qromb(vaporcolumndensityint, *bigrvec, bigrvec[2], 1.E-8);
+    *wcd = 0.1*colz; *wam = colz/col0;
+}

bta_print_header/bta_print.c

@@ -1,6 +1,6 @@
 /*
  * This file is part of the btaprinthdr project.
- * Copyright 2022 Edward V. Emelianov <edward.emelianoff@gmail.com>.
+ * Copyright 2022 Edward V. Emelianov <edward.emelianoff@gmail.com>, Vladimir S. Shergin <vsher@sao.ru>.
  *
  * This program is free software: you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
@@ -16,15 +16,68 @@
  * along with this program.  If not, see <http://www.gnu.org/licenses/>.
  */
 
+#include <math.h>
 #include <stdio.h>
 #include <stdlib.h>
 #include <sys/stat.h>
 #include <time.h>
 #include <usefull_macros.h>
+#include <erfa.h>
+#include <erfam.h>
 
 #include "bta_print.h"
 #include "bta_shdata.h"
+#include "bta_site.h"
 
+// rad to time sec
+#ifndef ERFA_DR2S
+#define ERFA_DR2S 1.3750987083139757010431557155385240879777313391975e4
+#endif
+// seconds of time in full circle
+#define S24  (24.*3600.)
+
+const double longitude = TELLONG * 3600.;
+const double Fi = TELLAT * 3600.;
+
+const double cos_fi=0.7235272793;
+const double sin_fi=0.6902957888;
+
+/*
+const double cos_fi = 0.723527277857;    // Cos of SAO latitude
+const double sin_fi = 0.690295790366;    // Sin  ---  ""  -----
+*/
+
+/**
+ * convert apparent coordinates (nowadays) to mean (JD2000)
+ * appRA, appDecl in seconds
+ * r, d in seconds
+ */
+void calc_mean(double appRA, double appDecl, double *r, double *dc){
+    double ra=0., dec=0., utc1, utc2, tai1, tai2, tt1, tt2, fd, eo, ri;
+    int y, m, d, H, M;
+    DBG("appRa: %g'', appDecl'': %g", appRA, appDecl);
+    appRA *= ERFA_DS2R;
+    appDecl *= ERFA_DAS2R;
+#define ERFA(f, ...) do{if(f(__VA_ARGS__)){WARNX("Error in " #f); goto rtn;}}while(0)
+    // 1. convert system JDate to UTC
+    ERFA(eraJd2cal, JDate, 0., &y, &m, &d, &fd);
+    fd *= 24.;
+    H = (int)fd;
+    fd = (fd - H)*60.;
+    M = (int)fd;
+    fd = (fd - M)*60.;
+    ERFA(eraDtf2d, "UTC", y, m, d, H, M, fd, &utc1, &utc2);
+    ERFA(eraUtctai, utc1, utc2, &tai1, &tai2);
+    ERFA(eraTaitt, tai1, tai2, &tt1, &tt2);
+    eraAtic13(appRA, appDecl, tt1, tt2, &ri, &dec, &eo);
+    ra = eraAnp(ri + eo);
+    ra *= ERFA_DR2S;
+    dec *= ERFA_DR2AS;
+#undef ERFA
+rtn:
+    if(r) *r = ra;
+    if(dc) *dc = dec;
+}
 
 static char buf[1024];
 char *time_asc(double t){
@@ -73,9 +126,9 @@ static int printhdr(int fd, const char *key, const char *val, const char *cmnt){
         key = tk;
     }
     if(cmnt){
-        snprintf(tmp, 81, "%-8s= %-21s / %s", key,  val, cmnt);
+        snprintf(tmp, 80, "%-8s= %-21s / %s", key,  val, cmnt);
     }else{
-        snprintf(tmp, 81, "%-8s= %s", key, val);
+        snprintf(tmp, 80, "%-8s= %s", key, val);
     }
     size_t l = strlen(tmp);
     tmp[l] = '\n';
@@ -87,10 +140,89 @@ static int printhdr(int fd, const char *key, const char *val, const char *cmnt){
     return 0;
 }
 
+static void calc_AZ(double alpha, double delta, double stime, double *az, double *zd){
+    double ha = (stime - alpha) * 15.;
+    if(ha < 0.) ha += ERFA_TURNAS;
+    ha *= ERFA_DAS2R;
+    double A, alt;
+    eraHd2ae(ha, delta*ERFA_DAS2R, TELLAT*ERFA_DD2R, &A, &alt);
+    if(az) *az = (A - M_PI) * ERFA_DR2AS; // BTA counts Az from south, not north
+    if(zd) *zd = (M_PI_2 - alt) * ERFA_DR2AS;
+}
+
+extern void calc_airmass(
+    // in
+    double daynum,	// Day number from beginning of year, 0 = midnight Jan 1
+    double relhumid,// Relative humidity in percent
+    double p0,		// local pressure in mmHg
+    double t0,		// temperature in kelvins
+    double z,		// zenith distance in degr
+    // out
+    double *am,		// AIRMASS
+    double *acd,	// column density
+    double *wcd,	// water vapor column density
+    double *wam		// water vapor airmass
+);
+
+
+#if 0
+//double coeff[8] = { -97.4, 13.0, -11.7, -3.6, -6.2, -279.9, -33.3, 8.2};
+void pos_corr (double Delta, double A, double Z, double P,
+           double *pcA, double *pcZ) {
+   double ar, dr, zr, pr;
+
+   dr = Delta;
+   ar = A;
+   zr = Z;
+   pr = P;
+double *coeff = (double*)sdt->pc_coeff;
+      *pcA = coeff[0] + coeff[1]/tan(zr) + coeff[2]/sin(zr) -
+         coeff[3]*sin(ar)/tan(zr) + coeff[4]*cos(dr)*cos(pr)/sin(zr);
+
+      *pcZ = coeff[5] + coeff[6]*sin(zr) + coeff[7]*cos(zr) +
+         coeff[3]*cos(ar) + coeff[4]*cos_fi*sin(ar);
+
+}
+
+void calc_AZP(double alpha, double delta, double stime,
+          double *az, double *zd, double *pa){
+    double sin_t,cos_t, sin_d,cos_d, sin_z,cos_z, sin_p,cos_p;
+    double t, d, z, a, p , x, y;
+
+    t = (stime - alpha) * 15.;
+    red("st=%g, alpha=%g, delta=%g, t=%g\n", stime/3600., alpha/3600., delta/3600., t/3600./15.);
+    if (t < 0.)
+       t += ERFA_TURNAS;
+    t *= ERFA_DAS2R;
+    d = delta * ERFA_DAS2R;
+    sincos(t, &sin_t, &cos_t);
+    sincos(d, &sin_d, &cos_d);
+
+    cos_z = cos_fi * cos_d * cos_t + sin_fi * sin_d;
+    z = acos(cos_z);
+    sin_z = sqrt(1. - cos_z*cos_z);
+
+    y = cos_d * sin_t;
+    x = cos_d * sin_fi * cos_t - cos_fi * sin_d;
+    a = atan2(y, x);
+
+    sin_p = sin_t * cos_fi / sin_z;
+    cos_p = (sin_fi * cos_d - sin_d * cos_fi * cos_t) / sin_z;
+    p = atan2(sin_p, cos_p);
+    if (p < 0.0)
+       p += 2.0*M_PI;
+double pca, pcz;
+pos_corr(d, a, z, p, &pca, &pcz);
+red("pca=%g, pcz=%g; tel_cor_A=%g, tel_cor_Z=%g\n", pca, pcz, tel_cor_A, tel_cor_Z);
+    *zd = z * ERFA_DR2AS;
+    *az = a * ERFA_DR2AS;
+    *pa = p * ERFA_DR2AS;
+}
+#endif
+
 #define WRHDR(k, v, c)  do{if(printhdr(fd, k, v, c)){goto returning;}}while(0)
 int print_header(_U_ const char *path){
     int ret = FALSE;
-    double dtmp;
     char val[23], comment[71];
 #define COMMENT(...) do{snprintf(comment, 70, __VA_ARGS__);}while(0)
 #define VAL(fmt, x) do{snprintf(val, 22, fmt, x);}while(0)
@@ -107,16 +239,36 @@ int print_header(_U_ const char *path){
     }
     fchmod(fd, 0644);
     WRHDR("TELESCOP", "'BTA 6m telescope'", "Telescope name");
-    WRHDR("ORIGIN", "'SAO RAS'", "Organization responsible for the data");
+    WRHDR("ORIGIN", "'SAO RAS, Russia'", "Organization responsible for the data");
-    dtmp = S_time-EE_time;
+    VALD(TELLAT);
-    COMMENT("Sidereal time, seconds: %s", time_asc(dtmp));
+    COMMENT("Telescope lattitude (degr): %s", angle_asc(TELLAT*3600.));
-    VALD(dtmp);
+    WRHDR("SITELAT", val, comment);
+    VALD(TELLONG);
+    COMMENT("Telescope longitude (degr): %s", angle_asc(TELLONG*3600.));
+    WRHDR("SITELONG", val, comment);
+    VAL("%.1f", TELALT);
+    WRHDR("SITEALT", val, "Telescope altitude (m)");
+    double sidtm = S_time-EE_time;
+    if(sidtm < 0.) sidtm += S24;
+    else if(sidtm > S24){
+        int x = (int)(sidtm / S24);
+        sidtm -= S24 * (double)x;
+    }
+    COMMENT("Sidereal time, seconds: %s", time_asc(sidtm));
+    VALD(sidtm);
     WRHDR("ST", val, comment);
     COMMENT("Universal time, seconds: %s", time_asc(M_time));
     VALD(M_time);
     WRHDR("UT", val, comment);
     VALD(JDate);
     WRHDR("JD", val, "Julian date");
+    {time_t t_now = time(NULL);
+    struct tm *tm_ut = gmtime(&t_now);
+    double l = ERFA_DTY; int y = 1900 + tm_ut->tm_year;
+    if((0 == y%400) || ((0 == y%4)&&(0 != y%100))) l += 1.;
+    double dtmp = y + (double)tm_ut->tm_yday / l;
+    VALD(dtmp);
+    WRHDR("EQUINOX", val, "Coordinates epoch");}
     switch(Tel_Focus){
         default:
         case Prime:
@@ -127,13 +279,59 @@ int print_header(_U_ const char *path){
             VALS("Nasmyth2");  break;
     }
     WRHDR("FOCUS", val, "Observation focus");
+    char *telmode = "Undefined";
+    if(Tel_Hardware == Hard_Off) telmode = "Off";
+    else if(Tel_Mode != Automatic) telmode = "Manual";
+    else{
+        switch (Sys_Mode){
+            default:
+            case SysStop    :  telmode = "Stopping";  break;
+            case SysWait    :  telmode = "Waiting";   break;
+            case SysPointAZ :
+            case SysPointAD :  telmode = "Pointing";  break;
+            case SysTrkStop :
+            case SysTrkStart:
+            case SysTrkMove :
+            case SysTrkSeek :  telmode = "Seeking";   break;
+            case SysTrkOk   :  telmode = "Tracking";  break;
+            case SysTrkCorr :  telmode = "Correction";break;
+            case SysTest    :  telmode = "Testing";   break;
+        }
+    }
+    VALS(telmode);
+    WRHDR("TELMODE", val, "Telescope working mode");
+
     VAL("%.2f", val_F);
     WRHDR("VAL_F", val, "Focus value of telescope (mm)");
-#define RA(ra, dec, text, pref) do{VALD(ra*15./3600.); COMMENT(text " R.A. (degr): %s", angle_asc(15.*ra)); WRHDR(pref "RA", val, comment); \
+    double a2000, d2000;
-        VALD(dec/3600.); COMMENT(text " Decl (degr): %s", angle_asc(dec)); WRHDR(pref "DEC", val, comment);}while(0)
+    calc_mean(InpAlpha, InpDelta, &a2000, &d2000);
-    RA(CurAlpha, CurDelta, "Current object", "");
+    VALD(a2000 * 15. / 3600.);
-    RA(SrcAlpha, SrcDelta, "Source", "S_");
+    COMMENT("Input R.A. for J2000 (deg): %s", time_asc(a2000));
-    RA(val_Alp, val_Del, "Telescope", "T_");
+    WRHDR("RA_INP0", val, comment);
+    VALD(d2000 / 3600.);
+    COMMENT("Input Decl. for J2000 (deg): %s", angle_asc(d2000));
+    WRHDR("DEC_INP0", val, comment);
+    calc_mean(CurAlpha, CurDelta, &a2000, &d2000);
+    VALD(a2000 * 15. / 3600.);
+    COMMENT("Telescope R.A. for J2000 (deg): %s", time_asc(a2000));
+    WRHDR("RA_0", val, comment);
+    VALD(d2000 / 3600.);
+    COMMENT("Telescope Decl. for J2000 (deg): %s", angle_asc(d2000));
+    WRHDR("DEC_0", val, comment);
+#define RA(ra, dec, text, pref) do{VALD(ra*15./3600.); COMMENT(text " R.A. (degr): %s", time_asc(ra)); WRHDR("RA" pref, val, comment); \
+        VALD(dec/3600.); COMMENT(text " Decl (degr): %s", angle_asc(dec)); WRHDR("DEC" pref, val, comment);}while(0)
+    RA(InpAlpha, InpDelta, "Input", "_INP");
+    RA(CurAlpha, CurDelta, "Current object", "_OBJ");
+    RA(SrcAlpha, SrcDelta, "Source", "_SRC");
+    RA(val_Alp, val_Del, "Telescope", "");
+#undef RA
+#define AZ(a, z, text, pref) do{VALD(a/3600.); COMMENT(text " Az (degr): %s", angle_asc(a)); WRHDR("A" pref, val, comment); \
+    VALD(z/3600.); COMMENT(text " ZD (degr): %s", angle_asc(z)); WRHDR("Z" pref, val, comment);}while(0)
+    AZ(InpAzim, InpZdist, "Input", "_INP");
+    AZ(tag_A, tag_Z, "Current object", "_OBJ");
+    AZ(val_A, val_Z, "Telescope", "");
+#undef AZ
+/*
     VALD(tag_A/3600.);
     COMMENT("Target Az (degr): %s", angle_asc(tag_A));
     WRHDR("TARG_A", val, comment);
@@ -146,25 +344,133 @@ int print_header(_U_ const char *path){
     VALD(val_Z/3600.);
     COMMENT("Telescope ZD (degr): %s", angle_asc(val_Z));
     WRHDR("Z", val, comment);
+    */
+    double t = sidtm * ERFA_DS2R - val_Alp * ERFA_DS2R;
+    if(t < 0) t += 2*M_PI;
+    double P = ERFA_DR2D * eraHd2pa(t, val_Del * ERFA_DAS2R, TELLAT * ERFA_DD2R);
+    if(P < 0.) P += 360.;
+    VALD(P);
+    COMMENT("Parallactic angle (degr): %s", angle_asc(P*3600.));
+    WRHDR("PARANGLE", val, comment);
     VALD(tag_P/3600.);
-    COMMENT("Target rotation angle (degr): %s", angle_asc(tag_P));
+    COMMENT("Target par. angle (degr): %s", angle_asc(tag_P));
-    WRHDR("TARG_R", val, comment);
+    WRHDR("TAGANGLE", val, comment);
     VALD(val_P/3600.);
-    COMMENT("Telescope rotation angle (degr): %s", angle_asc(val_P));
+    COMMENT("Current P2 rot. angle (degr): %s", angle_asc(val_P));
     WRHDR("ROTANGLE", val, comment);
     VALD(val_D/3600.);
     COMMENT("Dome Az (degr): %s", angle_asc(val_D));
     WRHDR("DOME_A", val, comment);
+    if(Sys_Mode==SysTrkSeek||Sys_Mode==SysTrkOk||Sys_Mode==SysTrkCorr||Sys_Mode==SysTrkStart||Sys_Mode==SysTrkMove){
+        double curA,curZ,srcA,srcZ;
+        double corAlp,corDel,corA,corZ;
+        corAlp = CurAlpha-SrcAlpha;
+        corDel = CurDelta-SrcDelta;
+        if(corAlp >  23*3600.) corAlp -= 24*3600.;
+        if(corAlp < -23*3600.) corAlp += 24*3600.;
+        calc_AZ(SrcAlpha, SrcDelta, S_time, &srcA, &srcZ);
+        calc_AZ(CurAlpha, CurDelta, S_time, &curA, &curZ);
+        corA = curA-srcA;
+        corZ = curZ-srcZ;
+        VALD(corAlp);
+        WRHDR("RACORR", val, "RA correction (current - source)");
+        VALD(corDel);
+        WRHDR("DECCORR", val, "DEC correction (current - source)");
+        VALD(corA);
+        WRHDR("ACORR", val, "A correction (current - source)");
+        VALD(corZ);
+        WRHDR("ZCORR", val, "Z correction (current - source)");
+    }
+/*
+    double az,zd;//,pa;
+    calc_AZ(val_Alp, val_Del, sidtm, &az, &zd);
+    green("calc_AZ: AZ=%g, ZD=%g\n", az/3600., zd/3600.);
+    calc_AZx(val_Alp, val_Del, sidtm, &az, &zd);
+    green("calc_AZx: AZ=%g, ZD=%g\n", az/3600., zd/3600.);
+    calc_AZP(val_Alp, val_Del, sidtm, &az, &zd, &pa);
+    green("AZ=%g, ZD=%g, PA=%g; sidtm=%g\n", az/3600.,zd/3600.,pa/3600., sidtm/3600.);
+*/
+    if(UsePCorr) VALS("true"); else VALS("false");
+    WRHDR("USEPCORR", val, "P.corr.sys.: K0..K7 (real = measured - PCS)");
+    if(UsePCorr){
+        char kx[3];
+        const char *descr[8] = {
+            "A0 - PCS Azimuth zero",
+            "L - PCS horizontal axe inclination",
+            "k - PCS collimation error",
+            "F - PCS lattitude error of vert. axe",
+            "dS - PCS time error",
+            "Z0 - PCS zenith zero",
+            "d - PCS tube bend [sin(Z)]",
+            "d1 - PCS tube bend [cos(Z)]"
+        };
+        for(int i = 0; i < 8; ++i){
+            VAL("%.2f", PosCor_Coeff[i]);
+            snprintf(kx, 3, "K%d", i);
+            WRHDR(kx, val, descr[i]);
+        }
+#if 0
+        // SKN:
+        // dA = K0 + K1/tg(Z) + K2/sin(Z) - K3*sin(A)/tg(Z) + K4 *cos(delta)*cos(P)/sin(Z)
+        // dZ = K5 + K6*sin(Z) + K7*cos(Z) + K3*cos(A) + K4*cos(phi)*sin(A)
+        double A = val_A * ERFA_DAS2R, Z = val_Z * ERFA_DAS2R;
+        double sinZ, cosZ, sinA, cosA, tgZ = tan(Z);
+        sincos(Z, &sinZ, &cosZ);
+        sincos(A, &sinA, &cosA);
+        double dA = PosCor_Coeff[0] + PosCor_Coeff[1]/tgZ + PosCor_Coeff[2]/sinZ -
+                    PosCor_Coeff[3]*sinA/tgZ +
+                    PosCor_Coeff[4]*cos(CurDelta*ERFA_DAS2R)*cos(P*ERFA_DD2R)/sinZ;
+        double dZ = PosCor_Coeff[5] + PosCor_Coeff[6]*sinZ + PosCor_Coeff[7]*cosZ +
+                    PosCor_Coeff[3]*cosA + PosCor_Coeff[4]*cos_fi*sinA;
+        red("dA=%g, dZ=%g; tel_cor_A=%g, tel_cor_Z=%g\n", dA, dZ, tel_cor_A, tel_cor_Z);
+#endif
+        VAL("%.1f", pos_cor_A);
+        WRHDR("PCSDA_O", val, "Pointing correction for object A (arcsec)");
+        VAL("%.1f", pos_cor_Z);
+        WRHDR("PCSDZ_O", val, "Pointing correction for object Z (arcsec)");
+        VAL("%.1f", tel_cor_A);
+        WRHDR("PCSDA_T", val, "Pointing correction for telescope A (arcsec)");
+        VAL("%.1f", tel_cor_Z);
+        WRHDR("PCSDZ_T", val, "Pointing correction for telescope Z (arcsec)");
+    }
+    VAL("%.1f", refract_Z);
+    WRHDR("REFR_O", val, "Refraction for object position (arcsec)");
+    VAL("%.1f", tel_ref_Z);
+    WRHDR("REFR_T", val, "Refraction for telescope position (arcsec)");
+    {double refa, refb, tz = tan(val_Z*ERFA_DAS2R);
+    eraRefco(val_B*1.33322, val_T1, val_Hmd/100., 0.45, &refa, &refb);
+    double dz = (refa*tz + refb*tz*tz*tz)*ERFA_DR2AS;
+    VAL("%.2f", dz);
+    WRHDR("REFR_T_E", val, "RREFR_T by ERFA eraRefco()");}
+
 #define T(hdr, t, text) do{VAL("%.1f", t); COMMENT(text " temperature (degC)"); WRHDR(hdr, val, comment);}while(0)
     T("OUTTEMP", val_T1, "Outern");
     T("DOMETEMP", val_T2, "In-dome");
     T("MIRRTEMP", val_T3, "Mirror");
+#undef T
     VAL("%.1f", val_B);
     WRHDR("PRESSURE", val, "Atm. pressure (mmHg)");
     VAL("%.1f", val_Wnd);
     WRHDR("WIND", val, "Wind speed (m/s)");
-    VAL("%.0f", val_Hmd);
+    VAL("%.1f", val_Hmd);
     WRHDR("HUMIDITY", val, "Relative humidity (%)");
+    /*
+     * Airmass calculation
+     * by Reed D. Meyer
+     */
+    {double am, acd, wcd, wam;
+    time_t t_now = time(NULL);
+    struct tm *tm_loc;
+    tm_loc = localtime(&t_now);
+    calc_airmass(tm_loc->tm_yday, val_Hmd, val_B, val_T1+273.15, val_Z/3600., &am, &acd, &wcd, &wam);
+    VALD(am);
+    WRHDR("AIRMASS", val, "Air mass by Reed D. Meyer");
+    VALD(wam);
+    WRHDR("WVAM", val, "Water vapour air mass by Reed D. Meyer");
+    VALD(acd);
+    WRHDR("ATMDENS", val, "Atm. column density by Reed D. Meyer (g/cm^2)");
+    VALD(wcd);
+    WRHDR("WVDENS", val, "WV column density by Reed D. Meyer (g/cm^2)");}
     ret = TRUE;
 returning:
     close(fd);

bta_print_header/bta_site.h

@@ -0,0 +1,38 @@
+/*
+ * This file is part of the btaprinthdr project.
+ * Copyright 2025 Edward V. Emelianov <edward.emelianoff@gmail.com>.
+ *
+ * This program is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation, either version 3 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program.  If not, see <http://www.gnu.org/licenses/>.
+ */
+
+#pragma once
+
+/*
+ * SAO longitude 41 26 29.175
+ * SAO latitude 43 39 12.7
+ * SAO altitude 2070
+ * BTA focal ratio 24.024 m
+ */
+#ifndef TELLAT
+    #define TELLAT  (43.6535278)
+#endif
+#ifndef TELLONG
+    #define TELLONG (41.4414375)
+#endif
+#ifndef TELALT
+    #define TELALT (2070.0)
+#endif
+#ifndef TELFOCUS
+    #define TELFOCUS (24.024)
+#endif

bta_print_header/btaprinthdr.creator.user

@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <!DOCTYPE QtCreatorProject>
-<!-- Written by QtCreator 4.11.0, 2022-07-13T19:25:15. -->
+<!-- Written by QtCreator 13.0.0, 2024-05-30T12:57:55. -->
 <qtcreator>
  <data>
   <variable>EnvironmentId</variable>
@@ -8,7 +8,7 @@
  </data>
  <data>
   <variable>ProjectExplorer.Project.ActiveTarget</variable>
-  <value type="int">0</value>
+  <value type="qlonglong">0</value>
  </data>
  <data>
   <variable>ProjectExplorer.Project.EditorSettings</variable>
@@ -28,7 +28,7 @@
      <value type="QByteArray" key="CurrentPreferences">QmlJSGlobal</value>
     </valuemap>
    </valuemap>
-   <value type="int" key="EditorConfiguration.CodeStyle.Count">2</value>
+   <value type="qlonglong" key="EditorConfiguration.CodeStyle.Count">2</value>
    <value type="QByteArray" key="EditorConfiguration.Codec">KOI8-R</value>
    <value type="bool" key="EditorConfiguration.ConstrainTooltips">false</value>
    <value type="int" key="EditorConfiguration.IndentSize">4</value>
@@ -37,6 +37,8 @@
    <value type="bool" key="EditorConfiguration.MouseHiding">true</value>
    <value type="bool" key="EditorConfiguration.MouseNavigation">true</value>
    <value type="int" key="EditorConfiguration.PaddingMode">1</value>
+   <value type="int" key="EditorConfiguration.PreferAfterWhitespaceComments">0</value>
+   <value type="bool" key="EditorConfiguration.PreferSingleLineComments">false</value>
    <value type="bool" key="EditorConfiguration.ScrollWheelZooming">true</value>
    <value type="bool" key="EditorConfiguration.ShowMargin">false</value>
    <value type="int" key="EditorConfiguration.SmartBackspaceBehavior">1</value>
@@ -45,29 +47,56 @@
    <value type="int" key="EditorConfiguration.TabKeyBehavior">0</value>
    <value type="int" key="EditorConfiguration.TabSize">8</value>
    <value type="bool" key="EditorConfiguration.UseGlobal">true</value>
+   <value type="bool" key="EditorConfiguration.UseIndenter">false</value>
    <value type="int" key="EditorConfiguration.Utf8BomBehavior">2</value>
    <value type="bool" key="EditorConfiguration.addFinalNewLine">true</value>
    <value type="bool" key="EditorConfiguration.cleanIndentation">false</value>
    <value type="bool" key="EditorConfiguration.cleanWhitespace">true</value>
+   <value type="QString" key="EditorConfiguration.ignoreFileTypes">*.md, *.MD, Makefile</value>
    <value type="bool" key="EditorConfiguration.inEntireDocument">false</value>
+   <value type="bool" key="EditorConfiguration.skipTrailingWhitespace">true</value>
+   <value type="bool" key="EditorConfiguration.tintMarginArea">true</value>
   </valuemap>
  </data>
  <data>
   <variable>ProjectExplorer.Project.PluginSettings</variable>
   <valuemap type="QVariantMap">
+   <valuemap type="QVariantMap" key="AutoTest.ActiveFrameworks">
+    <value type="bool" key="AutoTest.Framework.Boost">true</value>
+    <value type="bool" key="AutoTest.Framework.CTest">false</value>
+    <value type="bool" key="AutoTest.Framework.Catch">true</value>
+    <value type="bool" key="AutoTest.Framework.GTest">true</value>
+    <value type="bool" key="AutoTest.Framework.QtQuickTest">true</value>
+    <value type="bool" key="AutoTest.Framework.QtTest">true</value>
+   </valuemap>
+   <valuemap type="QVariantMap" key="AutoTest.CheckStates"/>
+   <value type="int" key="AutoTest.RunAfterBuild">0</value>
+   <value type="bool" key="AutoTest.UseGlobal">true</value>
    <valuelist type="QVariantList" key="ClangCodeModel.CustomCommandLineKey"/>
    <value type="bool" key="ClangCodeModel.UseGlobalConfig">true</value>
+   <valuemap type="QVariantMap" key="ClangTools">
+    <value type="bool" key="ClangTools.AnalyzeOpenFiles">true</value>
+    <value type="bool" key="ClangTools.BuildBeforeAnalysis">true</value>
+    <value type="QString" key="ClangTools.DiagnosticConfig">Builtin.DefaultTidyAndClazy</value>
+    <value type="int" key="ClangTools.ParallelJobs">4</value>
+    <value type="bool" key="ClangTools.PreferConfigFile">true</value>
+    <valuelist type="QVariantList" key="ClangTools.SelectedDirs"/>
+    <valuelist type="QVariantList" key="ClangTools.SelectedFiles"/>
+    <valuelist type="QVariantList" key="ClangTools.SuppressedDiagnostics"/>
+    <value type="bool" key="ClangTools.UseGlobalSettings">true</value>
+   </valuemap>
   </valuemap>
  </data>
  <data>
   <variable>ProjectExplorer.Project.Target.0</variable>
   <valuemap type="QVariantMap">
+   <value type="QString" key="DeviceType">Desktop</value>
    <value type="QString" key="ProjectExplorer.ProjectConfiguration.DefaultDisplayName">Desktop</value>
    <value type="QString" key="ProjectExplorer.ProjectConfiguration.DisplayName">Desktop</value>
    <value type="QString" key="ProjectExplorer.ProjectConfiguration.Id">{91347f2c-5221-46a7-80b1-0a054ca02f79}</value>
-   <value type="int" key="ProjectExplorer.Target.ActiveBuildConfiguration">0</value>
+   <value type="qlonglong" key="ProjectExplorer.Target.ActiveBuildConfiguration">0</value>
-   <value type="int" key="ProjectExplorer.Target.ActiveDeployConfiguration">0</value>
+   <value type="qlonglong" key="ProjectExplorer.Target.ActiveDeployConfiguration">0</value>
-   <value type="int" key="ProjectExplorer.Target.ActiveRunConfiguration">0</value>
+   <value type="qlonglong" key="ProjectExplorer.Target.ActiveRunConfiguration">0</value>
    <valuemap type="QVariantMap" key="ProjectExplorer.Target.BuildConfiguration.0">
     <value type="QString" key="ProjectExplorer.BuildConfiguration.BuildDirectory">/tmp/bgd/C/bta_control_net-x86_64/bta_print_header</value>
     <valuemap type="QVariantMap" key="ProjectExplorer.BuildConfiguration.BuildStepList.0">
@@ -75,14 +104,10 @@
       <valuelist type="QVariantList" key="GenericProjectManager.GenericMakeStep.BuildTargets">
        <value type="QString">all</value>
       </valuelist>
-      <value type="bool" key="GenericProjectManager.GenericMakeStep.Clean">false</value>
-      <value type="QString" key="GenericProjectManager.GenericMakeStep.MakeArguments"></value>
-      <value type="QString" key="GenericProjectManager.GenericMakeStep.MakeCommand"></value>
-      <value type="bool" key="GenericProjectManager.GenericMakeStep.OverrideMakeflags">false</value>
       <value type="bool" key="ProjectExplorer.BuildStep.Enabled">true</value>
       <value type="QString" key="ProjectExplorer.ProjectConfiguration.Id">GenericProjectManager.GenericMakeStep</value>
      </valuemap>
-     <value type="int" key="ProjectExplorer.BuildStepList.StepsCount">1</value>
+     <value type="qlonglong" key="ProjectExplorer.BuildStepList.StepsCount">1</value>
      <value type="QString" key="ProjectExplorer.ProjectConfiguration.DefaultDisplayName">Сборка</value>
      <value type="QString" key="ProjectExplorer.ProjectConfiguration.DisplayName">Сборка</value>
      <value type="QString" key="ProjectExplorer.ProjectConfiguration.Id">ProjectExplorer.BuildSteps.Build</value>
@@ -92,117 +117,60 @@
       <valuelist type="QVariantList" key="GenericProjectManager.GenericMakeStep.BuildTargets">
        <value type="QString">clean</value>
       </valuelist>
-      <value type="bool" key="GenericProjectManager.GenericMakeStep.Clean">true</value>
-      <value type="QString" key="GenericProjectManager.GenericMakeStep.MakeArguments"></value>
-      <value type="QString" key="GenericProjectManager.GenericMakeStep.MakeCommand"></value>
-      <value type="bool" key="GenericProjectManager.GenericMakeStep.OverrideMakeflags">false</value>
       <value type="bool" key="ProjectExplorer.BuildStep.Enabled">true</value>
       <value type="QString" key="ProjectExplorer.ProjectConfiguration.Id">GenericProjectManager.GenericMakeStep</value>
      </valuemap>
-     <value type="int" key="ProjectExplorer.BuildStepList.StepsCount">1</value>
+     <value type="qlonglong" key="ProjectExplorer.BuildStepList.StepsCount">1</value>
      <value type="QString" key="ProjectExplorer.ProjectConfiguration.DefaultDisplayName">Очистка</value>
      <value type="QString" key="ProjectExplorer.ProjectConfiguration.DisplayName">Очистка</value>
      <value type="QString" key="ProjectExplorer.ProjectConfiguration.Id">ProjectExplorer.BuildSteps.Clean</value>
     </valuemap>
     <value type="int" key="ProjectExplorer.BuildConfiguration.BuildStepListCount">2</value>
     <value type="bool" key="ProjectExplorer.BuildConfiguration.ClearSystemEnvironment">false</value>
+    <valuelist type="QVariantList" key="ProjectExplorer.BuildConfiguration.CustomParsers"/>
+    <value type="bool" key="ProjectExplorer.BuildConfiguration.ParseStandardOutput">false</value>
     <valuelist type="QVariantList" key="ProjectExplorer.BuildConfiguration.UserEnvironmentChanges"/>
     <value type="QString" key="ProjectExplorer.ProjectConfiguration.DisplayName">По умолчанию</value>
     <value type="QString" key="ProjectExplorer.ProjectConfiguration.Id">GenericProjectManager.GenericBuildConfiguration</value>
    </valuemap>
-   <value type="int" key="ProjectExplorer.Target.BuildConfigurationCount">1</value>
+   <value type="qlonglong" key="ProjectExplorer.Target.BuildConfigurationCount">1</value>
    <valuemap type="QVariantMap" key="ProjectExplorer.Target.DeployConfiguration.0">
     <valuemap type="QVariantMap" key="ProjectExplorer.BuildConfiguration.BuildStepList.0">
-     <value type="int" key="ProjectExplorer.BuildStepList.StepsCount">0</value>
+     <value type="qlonglong" key="ProjectExplorer.BuildStepList.StepsCount">0</value>
      <value type="QString" key="ProjectExplorer.ProjectConfiguration.DefaultDisplayName">Развёртывание</value>
      <value type="QString" key="ProjectExplorer.ProjectConfiguration.DisplayName">Развёртывание</value>
      <value type="QString" key="ProjectExplorer.ProjectConfiguration.Id">ProjectExplorer.BuildSteps.Deploy</value>
     </valuemap>
     <value type="int" key="ProjectExplorer.BuildConfiguration.BuildStepListCount">1</value>
+    <valuemap type="QVariantMap" key="ProjectExplorer.DeployConfiguration.CustomData"/>
+    <value type="bool" key="ProjectExplorer.DeployConfiguration.CustomDataEnabled">false</value>
     <value type="QString" key="ProjectExplorer.ProjectConfiguration.Id">ProjectExplorer.DefaultDeployConfiguration</value>
    </valuemap>
-   <value type="int" key="ProjectExplorer.Target.DeployConfigurationCount">1</value>
+   <value type="qlonglong" key="ProjectExplorer.Target.DeployConfigurationCount">1</value>
-   <valuemap type="QVariantMap" key="ProjectExplorer.Target.PluginSettings"/>
    <valuemap type="QVariantMap" key="ProjectExplorer.Target.RunConfiguration.0">
-    <value type="QString" key="Analyzer.Perf.CallgraphMode">dwarf</value>
-    <valuelist type="QVariantList" key="Analyzer.Perf.Events">
-     <value type="QString">cpu-cycles</value>
-    </valuelist>
-    <valuelist type="QVariantList" key="Analyzer.Perf.ExtraArguments"/>
-    <value type="int" key="Analyzer.Perf.Frequency">250</value>
-    <valuelist type="QVariantList" key="Analyzer.Perf.RecordArguments">
-     <value type="QString">-e</value>
-     <value type="QString">cpu-cycles</value>
-     <value type="QString">--call-graph</value>
-     <value type="QString">dwarf,4096</value>
-     <value type="QString">-F</value>
-     <value type="QString">250</value>
-    </valuelist>
-    <value type="QString" key="Analyzer.Perf.SampleMode">-F</value>
     <value type="bool" key="Analyzer.Perf.Settings.UseGlobalSettings">true</value>
-    <value type="int" key="Analyzer.Perf.StackSize">4096</value>
-    <value type="bool" key="Analyzer.QmlProfiler.AggregateTraces">false</value>
-    <value type="bool" key="Analyzer.QmlProfiler.FlushEnabled">false</value>
-    <value type="uint" key="Analyzer.QmlProfiler.FlushInterval">1000</value>
-    <value type="QString" key="Analyzer.QmlProfiler.LastTraceFile"></value>
     <value type="bool" key="Analyzer.QmlProfiler.Settings.UseGlobalSettings">true</value>
-    <valuelist type="QVariantList" key="Analyzer.Valgrind.AddedSuppressionFiles"/>
-    <value type="bool" key="Analyzer.Valgrind.Callgrind.CollectBusEvents">false</value>
-    <value type="bool" key="Analyzer.Valgrind.Callgrind.CollectSystime">false</value>
-    <value type="bool" key="Analyzer.Valgrind.Callgrind.EnableBranchSim">false</value>
-    <value type="bool" key="Analyzer.Valgrind.Callgrind.EnableCacheSim">false</value>
-    <value type="bool" key="Analyzer.Valgrind.Callgrind.EnableEventToolTips">true</value>
-    <value type="double" key="Analyzer.Valgrind.Callgrind.MinimumCostRatio">0.01</value>
-    <value type="double" key="Analyzer.Valgrind.Callgrind.VisualisationMinimumCostRatio">10</value>
-    <value type="bool" key="Analyzer.Valgrind.FilterExternalIssues">true</value>
-    <value type="QString" key="Analyzer.Valgrind.KCachegrindExecutable">kcachegrind</value>
-    <value type="int" key="Analyzer.Valgrind.LeakCheckOnFinish">1</value>
-    <value type="int" key="Analyzer.Valgrind.NumCallers">25</value>
-    <valuelist type="QVariantList" key="Analyzer.Valgrind.RemovedSuppressionFiles"/>
-    <value type="int" key="Analyzer.Valgrind.SelfModifyingCodeDetection">1</value>
     <value type="bool" key="Analyzer.Valgrind.Settings.UseGlobalSettings">true</value>
     <value type="bool" key="Analyzer.Valgrind.ShowReachable">true</value>
-    <value type="bool" key="Analyzer.Valgrind.TrackOrigins">true</value>
+    <value type="QList&lt;int&gt;" key="Analyzer.Valgrind.VisibleErrorKinds"></value>
-    <value type="QString" key="Analyzer.Valgrind.ValgrindExecutable">valgrind</value>
+    <valuelist type="QVariantList" key="CustomOutputParsers"/>
-    <valuelist type="QVariantList" key="Analyzer.Valgrind.VisibleErrorKinds">
-     <value type="int">0</value>
-     <value type="int">1</value>
-     <value type="int">2</value>
-     <value type="int">3</value>
-     <value type="int">4</value>
-     <value type="int">5</value>
-     <value type="int">6</value>
-     <value type="int">7</value>
-     <value type="int">8</value>
-     <value type="int">9</value>
-     <value type="int">10</value>
-     <value type="int">11</value>
-     <value type="int">12</value>
-     <value type="int">13</value>
-     <value type="int">14</value>
-    </valuelist>
     <value type="int" key="PE.EnvironmentAspect.Base">2</value>
     <valuelist type="QVariantList" key="PE.EnvironmentAspect.Changes"/>
-    <value type="QString" key="ProjectExplorer.CustomExecutableRunConfiguration.Executable"></value>
+    <value type="bool" key="PE.EnvironmentAspect.PrintOnRun">false</value>
+    <value type="QString" key="PerfRecordArgsId">-e cpu-cycles --call-graph dwarf,4096 -F 250</value>
+    <value type="QString" key="ProjectExplorer.ProjectConfiguration.DisplayName"></value>
     <value type="QString" key="ProjectExplorer.ProjectConfiguration.Id">ProjectExplorer.CustomExecutableRunConfiguration</value>
     <value type="QString" key="ProjectExplorer.RunConfiguration.BuildKey"></value>
-    <value type="QString" key="RunConfiguration.Arguments"></value>
+    <value type="bool" key="ProjectExplorer.RunConfiguration.Customized">false</value>
-    <value type="bool" key="RunConfiguration.Arguments.multi">false</value>
-    <value type="QString" key="RunConfiguration.OverrideDebuggerStartup"></value>
-    <value type="bool" key="RunConfiguration.UseCppDebugger">false</value>
     <value type="bool" key="RunConfiguration.UseCppDebuggerAuto">true</value>
-    <value type="bool" key="RunConfiguration.UseMultiProcess">false</value>
-    <value type="bool" key="RunConfiguration.UseQmlDebugger">false</value>
     <value type="bool" key="RunConfiguration.UseQmlDebuggerAuto">true</value>
-    <value type="QString" key="RunConfiguration.WorkingDirectory"></value>
-    <value type="QString" key="RunConfiguration.WorkingDirectory.default"></value>
    </valuemap>
-   <value type="int" key="ProjectExplorer.Target.RunConfigurationCount">1</value>
+   <value type="qlonglong" key="ProjectExplorer.Target.RunConfigurationCount">1</value>
   </valuemap>
  </data>
  <data>
   <variable>ProjectExplorer.Project.TargetCount</variable>
-  <value type="int">1</value>
+  <value type="qlonglong">1</value>
  </data>
  <data>
   <variable>ProjectExplorer.Project.Updater.FileVersion</variable>

bta_print_header/btaprinthdr.files

@@ -1,7 +1,10 @@
+airmass.inc
+am.c
 bta_print.c
 bta_print.h
 bta_shdata.c
 bta_shdata.h
+bta_site.h
 cmdlnopts.c
 cmdlnopts.h
 main.c