// clear data ---------------------------------------------------------------
void __fastcall TPlot::Clear(void)
{
AnsiString s;
double ep[]={2010,1,1,0,0,0};
int i;
trace(3,"Clear\n");
Week=NObs=0;
for (i=0;i<2;i++) {
freesolbuf(SolData+i);
free(SolStat[i].data);
SolStat[i].n=0;
SolStat[i].data=NULL;
}
freeobs(&Obs);
freenav(&Nav,0xFF);
delete [] IndexObs;
delete [] Az;
delete [] El;
IndexObs=NULL;
Az=NULL;
El=NULL;
SolFiles[0]->Clear();
SolFiles[1]->Clear();
ObsFiles->Clear();
NavFiles->Clear();
NObs=0;
SolIndex[0]=SolIndex[1]=ObsIndex=0;
for (i=0;i<3;i++) {
TimeEna[i]=0;
}
TimeStart=TimeEnd=epoch2time(ep);
BtnAnimate->Down=false;
if (PlotType>PLOT_NSAT) {
UpdateType(PLOT_TRK);
}
if (!ConnectState) {
initsolbuf(SolData ,0,0);
initsolbuf(SolData+1,0,0);
Caption=Title!=""?Title:s.sprintf("%s ver.%s",PRGNAME,VER_RTKLIB);
}
else {
initsolbuf(SolData ,1,RtBuffSize+1);
initsolbuf(SolData+1,1,RtBuffSize+1);
}
UpdateTime();
UpdatePlot();
}
// clear solution --------------------------------------------------------------
void __fastcall TPlot::ClearSol(void)
{
int i;
for (i=0;i<2;i++) {
freesolbuf(SolData+i);
free(SolStat[i].data);
SolStat[i].n=0;
SolStat[i].data=NULL;
}
SolFiles[0]->Clear();
SolFiles[1]->Clear();
SolIndex[0]=SolIndex[1]=0;
}
// read solutions -----------------------------------------------------------
void __fastcall TPlot::ReadSol(TStrings *files, int sel)
{
solbuf_t sol={0};
AnsiString s;
gtime_t ts,te;
double tint;
int i,n=0;
char *paths[MAXNFILE]={""};
trace(3,"ReadSol: sel=%d\n",sel);
if (files->Count<=0) return;
ReadWaitStart();
for (i=0;i<files->Count&&n<MAXNFILE;i++) {
paths[n++]=files->Strings[i].c_str();
}
TimeSpan(&ts,&te,&tint);
ShowMsg(s.sprintf("reading %s...",paths[0]));
ShowLegend(NULL);
if (!readsolt(paths,n,ts,te,tint,0,&sol)) {
ShowMsg(s.sprintf("no solution data : %s...",paths[0]));
ShowLegend(NULL);
ReadWaitEnd();
return;
}
freesolbuf(SolData+sel);
SolData[sel]=sol;
if (SolFiles[sel]!=files) {
SolFiles[sel]->Assign(files);
}
Caption="";
ReadSolStat(files,sel);
for (i=0;i<2;i++) {
if (SolFiles[i]->Count==0) continue;
Caption=Caption+SolFiles[i]->Strings[0]+(SolFiles[i]->Count>1?"... ":" ");
}
BtnSol12->Down=False;
if (sel==0) BtnSol1->Down=true;
else BtnSol2->Down=true;
if (sel==0||SolData[0].n<=0) {
time2gpst(SolData[sel].data[0].time,&Week);
UpdateOrigin();
}
SolIndex[0]=SolIndex[1]=ObsIndex=0;
if (PlotType>PLOT_NSAT) {
UpdateType(PLOT_TRK);
}
else {
UpdatePlotType();
}
FitTime();
if (AutoScale&&PlotType<=PLOT_SOLA) {
FitRange(1);
}
else {
SetRange(1,YRange);
}
UpdateTime();
UpdatePlot();
ReadWaitEnd();
}
