- scltrak ©
[..] La fonction [scl] sol_xyzescl
Code
int sol_xyze_xpl(){
scltracefa(§, ƒ, ∅);
scltracefc("scl-%s (%s) : %s\n\n", sclver(), sclsec(), temps_char(0));
int annee, mois, jour, heure, minute, seconde;
temps(&annee, &mois, &jour, &heure, &minute, &seconde);
double JDa = date_jj(annee, mois, jour, heure, minute, (double)seconde, 1);
// Calcul sur 1 mois
mois++; if(mois>12){ annee++; mois=1; }
double JDe = date_jj(annee, mois, jour, heure, minute, (double)seconde, 1);
int tn=(int)10E3;
double *jj=newtablin(tn, JDa, JDe);
double *solxe_m=new double[tn], *solye_m=new double[tn],
*solze_m=new double[tn];
sol_xyze(tn, jj, solxe_m, solye_m, solze_m);
std::string imgname=std::string(ƒ)+".svg",
imgpath="./srt/"+imgname;
graf3_dis(imgpath.c_str(), 0, ∅, ∅, ∅,
"snake", tn, solxe_m, solye_m, solze_m, ∅,
"colorline", "qhult",
"box", "on", "subtitlex", imgname.c_str(),
/*"linespec", "-l",*/ "linespeca", "-a", ∅);
// Libr. memoire
/*free(*/delete[] jj/*)*/; jj=∅; // [SCL_AF_000091]
/*free(*/delete[] solxe_m/*)*/; solxe_m=∅; // [SCL_AF_000091]
/*free(*/delete[] solye_m/*)*/; solye_m=∅; // [SCL_AF_000091]
/*free(*/delete[] solze_m/*)*/; solze_m=∅; // [SCL_AF_000091]
scltracefe(§, ƒ, ∅);
return 0;
}
/* ƒ décorée par
le 23-03-2025 16:16:40 */
Sortie
[>..\xpl\src\scltrak.xpl.cpp.sol_xyze_xpl]
scl-25.03 (gwin64) : 23-03-2025 16:16:40
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
<< END OF DISLIN / VERSION 11.3.2 <<
<< Date : 23.03.2025 Time : 16:16:40 Pageformat: DA4L <<
<< Vectors : 21897 Warnings: 0 Fileformat: SVG <<
<< Metafile: ./srt/sol_xyze_xpl.svg <<
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
[<..\xpl\src\scltrak.xpl.cpp.sol_xyze_xpl]