//
// Modes
// 0 big city
//
TCHAR *OracleFormatDistance(const TCHAR *name,const TCHAR *ntype,const double dist,const double brg,const short mode) {
static TCHAR ttmp[150];
double dist_over=0, dist_near=0;
switch(mode) {
case 0: // big city
default:
dist_over=1500;
dist_near=3000;
break;
}
// 5km west of the city <abcd>
if (dist>dist_near) {
_stprintf(ttmp,_T("%.0f %s %s %s %s <%s>"),
dist*DISTANCEMODIFY, Units::GetDistanceName(), DegreesToText(brg), MsgToken(1711),ntype,name); // of
return ttmp;
}
// near
if (dist>dist_over) {
_stprintf(ttmp,_T("%s %s <%s>"),MsgToken(1712), ntype,name); // Near
return ttmp;
}
_stprintf(ttmp,_T("%s %s <%s>"),MsgToken(1713), ntype,name); // Over
return ttmp;
}
void WhereAmI(void) {
TCHAR toracle[400];
TCHAR ttmp[100];
double dist,brg;
wcscpy(toracle,_T(""));
int j=FindNearestFarVisibleWayPoint(GPS_INFO.Longitude,GPS_INFO.Latitude,50000);
if (!ValidNotResWayPoint(j)) goto _after_nearestwp;
DistanceBearing( WayPointList[j].Latitude,WayPointList[j].Longitude,
GPS_INFO.Latitude,GPS_INFO.Longitude,&dist,&brg);
_tcscat(toracle,_T("The Oracle answered:\n\n"));
_tcscat(toracle,_T("You are "));
// nn km south
if (dist>2000) {
if (ISPARAGLIDER)
_stprintf(ttmp,_T("%.1f %s %s "), dist*DISTANCEMODIFY, Units::GetDistanceName(), DegreesToText(brg));
else
_stprintf(ttmp,_T("%.0f %s %s "), dist*DISTANCEMODIFY, Units::GetDistanceName(), DegreesToText(brg));
_tcscat(toracle,ttmp);
}
// over/below
_stprintf(ttmp,_T("%s "),AltDiffToText(GPS_INFO.Altitude, WayPointList[j].Altitude));
_tcscat(toracle,ttmp);
// waypoint name
_stprintf(ttmp,_T("<%s>"), WayPointList[j].Name);
_tcscat(toracle,ttmp);
_stprintf(toracle,_T("%s\n%s"),toracle,_T(".... and much more!"));
goto _end;
_after_nearestwp:
wsprintf(toracle,_T("%s"), _T("NO WAYPOINT NEAR YOU"));
_end:
MessageBoxX(hWndMainWindow, toracle, _T("WHERE AM I ?"), MB_OK|MB_ICONQUESTION, true);
}
void WhereAmI::run(void) {
#ifdef TESTBENCH
StartupStore(_T("Oracle : start to find position") NEWLINE);
#endif
PeriodClock _time;
_time.Update();
ResetNearestTopology();
LockTerrainDataGraphics();
const vectorObj center = {
MapWindow::GetPanLongitude(),
MapWindow::GetPanLatitude()
};
rectObj bounds = {
center.x, center.y,
center.x, center.y
};
for(int i = 0; i < 10; ++i) {
double X, Y;
FindLatitudeLongitude(center.y, center.x, i*360/10, 30*1000, &Y, &X );
bounds.minx = std::min(bounds.minx, X);
bounds.maxx = std::max(bounds.maxx, X);
bounds.miny = std::min(bounds.miny, Y);
bounds.maxy = std::max(bounds.maxy, Y);
}
for (int z=0; z<MAXTOPOLOGY; z++) {
if (TopoStore[z]) {
// See also CheckScale for category checks! We should use a function in fact.
if ( TopoStore[z]->scaleCategory == 10 ||
(TopoStore[z]->scaleCategory >= 70 && TopoStore[z]->scaleCategory <=100)) {
TopoStore[z]->SearchNearest(bounds);
}
}
}
TCHAR ttmp[100];
double dist,wpdist,brg;
NearestTopoItem *item=NULL;
bool found=false, over=false, saynear=false, needmorewp=false, secondwpdone=false;
#if TESTBENCH
if (NearestBigCity.Valid)
StartupStore(_T("... NEAREST BIG CITY <%s> at %.0f km brg=%.0f\n"),
NearestBigCity.Name,NearestBigCity.Distance/1000,NearestBigCity.Bearing);
if (NearestCity.Valid)
StartupStore(_T("... NEAREST CITY <%s> at %.0f km brg=%.0f\n"),
NearestCity.Name,NearestCity.Distance/1000,NearestCity.Bearing);
if (NearestSmallCity.Valid)
StartupStore(_T("... NEAREST TOWN <%s> at %.0f km brg=%.0f\n"),
NearestSmallCity.Name,NearestSmallCity.Distance/1000,NearestSmallCity.Bearing);
if (NearestWaterArea.Valid)
StartupStore(_T("... NEAREST WATER AREA <%s> at %.0f km brg=%.0f\n"),
NearestWaterArea.Name,NearestWaterArea.Distance/1000,NearestWaterArea.Bearing);
#endif
_stprintf(toracle,_T("%s\n\n"), MsgToken(1724)); // YOUR POSITION:
if (NearestBigCity.Valid) {
_tcscat(toracle, OracleFormatDistance(NearestBigCity.Name,MsgToken(1714),
NearestBigCity.Distance, NearestBigCity.Bearing,0)); // the city
_tcscat(toracle, _T("\n"));
}
if (NearestCity.Valid && NearestSmallCity.Valid) {
if ( (NearestCity.Distance - NearestSmallCity.Distance) <=3000)
item=&NearestCity;
else
item=&NearestSmallCity;
} else {
if (NearestCity.Valid)
item=&NearestCity;
else if (NearestSmallCity.Valid)
item=&NearestSmallCity;
}
if (item) {
dist=item->Distance;
brg=item->Bearing;
if (dist>1500) {
//
// 2km South of city
//
_stprintf(ttmp,_T("%.0f %s %s %s "), dist*DISTANCEMODIFY, Units::GetDistanceName(), DegreesToText(brg),
MsgToken(1715)); // of the city
_tcscat(toracle,ttmp);
} else {
//
// Over city
//
_stprintf(ttmp,_T("%s "),MsgToken(1716)); // Over the city
_tcscat(toracle,ttmp);
over=true;
}
_stprintf(ttmp,_T("<%s>"), item->Name);
_tcscat(toracle,ttmp);
found=true;
}
// Careful, some wide water areas have the center far away from us even if we are over them.
// We can only check for 2-5km distances max.
if (NearestWaterArea.Valid) {
if (found) {
if (NearestWaterArea.Distance<2000) {
if (over) {
//
// Over city and lake
//
_stprintf(ttmp,_T(" %s %s"), MsgToken(1717),NearestWaterArea.Name); // and
_tcscat(toracle,ttmp);
saynear=true;
} else {
//
// 2km South of city
// over lake
//
_stprintf(ttmp,_T("\n%s %s"), MsgToken(1718),NearestWaterArea.Name); // over
_tcscat(toracle,ttmp);
saynear=true;
}
} else {
if (NearestWaterArea.Distance<6000) {
if (over) {
//
// Over city
// near lake
//
_stprintf(ttmp,_T("\n%s %s"), MsgToken(1719),NearestWaterArea.Name); // near to
_tcscat(toracle,ttmp);
} else {
//
// 2km South of city
// near lake
//
_stprintf(ttmp,_T("\n%s %s"), MsgToken(1718),NearestWaterArea.Name); // over
_tcscat(toracle,ttmp);
}
}
// else no mention to water area, even if it is the only item. Not accurate!
}
} else {
if (NearestWaterArea.Distance>2000) {
brg=NearestWaterArea.Bearing;
//
// 2km North of lake
//
_stprintf(ttmp,_T("%.0f %s %s "), NearestWaterArea.Distance*DISTANCEMODIFY, Units::GetDistanceName(), DegreesToText(brg));
_tcscat(toracle,ttmp);
_stprintf(ttmp,_T("%s <%s>"), MsgToken(1711),NearestWaterArea.Name); // of
_tcscat(toracle,ttmp);
} else {
//
// Over lake
//
_stprintf(ttmp,_T("%s <%s>"), MsgToken(1718),NearestWaterArea.Name); // over
_tcscat(toracle,ttmp);
over=true;
}
found=true;
}
}
_tcscat(toracle,_T("\n"));
// find nearest turnpoint & nearest Landable
unsigned idx_nearest_airport = 0;
unsigned idx_nearest_unknown = 0;
{
double dist_airport = std::numeric_limits<double>::max();
double dist_unknown = std::numeric_limits<double>::max();
for(unsigned i=NUMRESWP; i<WayPointList.size(); ++i) {
if(WayPointList[i].Style == STYLE_THERMAL) continue;
DistanceBearing(GPS_INFO.Latitude, GPS_INFO.Longitude,
WayPointList[i].Latitude, WayPointList[i].Longitude,
&(WayPointCalc[i].Distance), &(WayPointCalc[i].Bearing));
if(WayPointCalc[i].Distance > 70000) continue; // To Far
if(WayPointCalc[i].WpType == WPT_AIRPORT) {
if(WayPointCalc[i].Distance < dist_airport) {
dist_airport = WayPointCalc[i].Distance;
idx_nearest_airport = i;
}
}
if(WayPointCalc[i].Distance < dist_unknown) {
dist_unknown = WayPointCalc[i].Distance;
idx_nearest_unknown = i;
}
}
}
int j = idx_nearest_unknown;
if (!ValidNotResWayPoint(j)) goto _end;
found=true;
_dowp:
DistanceBearing(
WayPointList[j].Latitude,WayPointList[j].Longitude,
GPS_INFO.Latitude, GPS_INFO.Longitude,
&wpdist,&brg);
TCHAR wptype[100];
switch(WayPointList[j].Style) {
case STYLE_AIRFIELDGRASS:
case STYLE_GLIDERSITE:
_stprintf(wptype,_T("%s "), MsgToken(1720)); // the airfield of
break;
case STYLE_OUTLANDING:
_stprintf(wptype,_T("%s "), MsgToken(1721)); // the field of
needmorewp=true;
break;
case STYLE_AIRFIELDSOLID:
_stprintf(wptype,_T("%s "), MsgToken(1722)); // the airport of
break;
default:
_tcscpy(wptype,_T(""));
needmorewp=true;
break;
}
if ( (_tcslen(wptype)==0) && WayPointCalc[j].IsLandable) {
if (WayPointCalc[j].IsAirport) {
_stprintf(wptype,_T("%s "), MsgToken(1720)); // the airfield of
needmorewp=false;
} else {
_stprintf(wptype,_T("%s "), MsgToken(1721)); // the field of
needmorewp=true;
}
} else {
if (_tcslen(wptype)==0 ) {
_tcscpy(wptype,_T(""));
needmorewp=true;
}
}
// nn km south
if (wpdist>2000) {
//
// 2km South of city
// and/over lake
// 4 km SW of waypoint
_stprintf(ttmp,_T("\n%.0f %s %s "), wpdist*DISTANCEMODIFY, Units::GetDistanceName(), DegreesToText(brg));
_tcscat(toracle,ttmp);
_stprintf(ttmp,_T("%s %s<%s>"), MsgToken(1711),wptype,WayPointList[j].Name); // of
_tcscat(toracle,ttmp);
} else {
if (found) {
if (over) {
if (saynear) {
//
// 2km South of city
// over lake
// near waypoint
// ----
// Over city and lake
// near waypoint
_stprintf(ttmp,_T("\n%s %s<%s>"), MsgToken(1719),wptype,WayPointList[j].Name); // near to
_tcscat(toracle,ttmp);
} else {
// Over city
// near lake and waypoint
_stprintf(ttmp,_T(" %s %s<%s>"), MsgToken(1717),wptype,WayPointList[j].Name); // and
_tcscat(toracle,ttmp);
}
} else {
_stprintf(ttmp,_T("\n%s %s<%s>"), MsgToken(1719),wptype,WayPointList[j].Name); // near to
_tcscat(toracle,ttmp);
}
} else {
//
// Near waypoint (because "over" could be wrong, we have altitudes in wp!)
//
_stprintf(ttmp,_T("%s %s<%s>"), MsgToken(1723),wptype,WayPointList[j].Name); // Near to
_tcscat(toracle,ttmp);
}
}
if (!needmorewp) goto _end;
if (secondwpdone) goto _end;
j=idx_nearest_airport;
if (!ValidNotResWayPoint(j)) goto _end;
secondwpdone=true;
goto _dowp;
_end:
UnlockTerrainDataGraphics();
#ifdef ULLIS_PRIVATE_FEATURES
_stprintf(ttmp,_T("\n\nin %i ft (MSL)"), (int)( GPS_INFO.Altitude*TOFEET)); // in height
_tcscat(toracle,ttmp);
#endif
// VERY SORRY - YOUR POSITION IS UNKNOWN!
if (!found) _stprintf(toracle,_T("\n\n%s\n\n%s"), MsgToken(1725),MsgToken(1726));
CharUpper(toracle);
#ifdef TESTBENCH
StartupStore(_T("Oracle : Result found in %d ms") NEWLINE, _time.Elapsed());
#endif
}
// This is called by the Draw thread
// This is still a draft, to find out what's best to tell and how.
// It should be recoded once the rules are clear.
void WhereAmI(void) {
TCHAR toracle[500];
TCHAR ttmp[100];
double dist,wpdist,brg;
NearestTopoItem *item=NULL;
bool found=false, over=false, saynear=false, needmorewp=false, secondwpdone=false;
#if TESTBENCH
if (NearestBigCity.Valid)
StartupStore(_T("... NEAREST BIG CITY <%s> at %.0f km brg=%.0f\n"),
NearestBigCity.Name,NearestBigCity.Distance/1000,NearestBigCity.Bearing);
if (NearestCity.Valid)
StartupStore(_T("... NEAREST CITY <%s> at %.0f km brg=%.0f\n"),
NearestCity.Name,NearestCity.Distance/1000,NearestCity.Bearing);
if (NearestSmallCity.Valid)
StartupStore(_T("... NEAREST TOWN <%s> at %.0f km brg=%.0f\n"),
NearestSmallCity.Name,NearestSmallCity.Distance/1000,NearestSmallCity.Bearing);
if (NearestWaterArea.Valid)
StartupStore(_T("... NEAREST WATER AREA <%s> at %.0f km brg=%.0f\n"),
NearestWaterArea.Name,NearestWaterArea.Distance/1000,NearestWaterArea.Bearing);
#endif
_stprintf(toracle,_T("%s\n\n"), gettext(_T("_@M1724_"))); // YOUR POSITION:
if (NearestBigCity.Valid) {
_tcscat(toracle, OracleFormatDistance(NearestBigCity.Name,gettext(_T("_@M1714_")),
NearestBigCity.Distance, NearestBigCity.Bearing,0)); // the city
_tcscat(toracle, _T("\n"));
}
if (NearestCity.Valid && NearestSmallCity.Valid) {
if ( (NearestCity.Distance - NearestSmallCity.Distance) <=3000)
item=&NearestCity;
else
item=&NearestSmallCity;
} else {
if (NearestCity.Valid)
item=&NearestCity;
else
if (NearestSmallCity.Valid)
item=&NearestSmallCity;
}
if (item) {
dist=item->Distance;
brg=item->Bearing;
if (dist>1500) {
//
// 2km South of city
//
_stprintf(ttmp,_T("%.0f %s %s %s "), dist*DISTANCEMODIFY, Units::GetDistanceName(), DegreesToText(brg),
gettext(_T("_@M1715_"))); // of the city
_tcscat(toracle,ttmp);
} else {
//
// Over city
//
_stprintf(ttmp,_T("%s "),gettext(_T("_@M1716_"))); // Over the city
_tcscat(toracle,ttmp);
over=true;
}
_stprintf(ttmp,_T("<%s>"), item->Name);
_tcscat(toracle,ttmp);
found=true;
}
// Careful, some wide water areas have the center far away from us even if we are over them.
// We can only check for 2-5km distances max.
if (NearestWaterArea.Valid) {
if (found) {
if (NearestWaterArea.Distance<2000) {
if (over) {
//
// Over city and lake
//
_stprintf(ttmp,_T(" %s %s"), gettext(_T("_@M1717_")),NearestWaterArea.Name); // and
_tcscat(toracle,ttmp);
saynear=true;
} else {
//
// 2km South of city
// over lake
//
_stprintf(ttmp,_T("\n%s %s"), gettext(_T("_@M1718_")),NearestWaterArea.Name); // over
_tcscat(toracle,ttmp);
saynear=true;
}
} else {
if (NearestWaterArea.Distance<6000) {
if (over) {
//
// Over city
// near lake
//
_stprintf(ttmp,_T("\n%s %s"), gettext(_T("_@M1719_")),NearestWaterArea.Name); // near to
_tcscat(toracle,ttmp);
} else {
//
// 2km South of city
// near lake
//
_stprintf(ttmp,_T("\n%s %s"), gettext(_T("_@M1718_")),NearestWaterArea.Name); // over
_tcscat(toracle,ttmp);
}
}
// else no mention to water area, even if it is the only item. Not accurate!
}
} else {
if (NearestWaterArea.Distance>2000) {
brg=NearestWaterArea.Bearing;
//
// 2km North of lake
//
_stprintf(ttmp,_T("%.0f %s %s "), NearestWaterArea.Distance*DISTANCEMODIFY, Units::GetDistanceName(), DegreesToText(brg));
_tcscat(toracle,ttmp);
_stprintf(ttmp,_T("%s <%s>"), gettext(_T("_@M1711_")),NearestWaterArea.Name); // of
_tcscat(toracle,ttmp);
} else {
//
// Over lake
//
_stprintf(ttmp,_T("%s <%s>"), gettext(_T("_@M1718_")),NearestWaterArea.Name); // over
_tcscat(toracle,ttmp);
over=true;
}
found=true;
}
}
_tcscat(toracle,_T("\n"));
int j=FindNearestFarVisibleWayPoint(GPS_INFO.Longitude,GPS_INFO.Latitude,70000,WPT_UNKNOWN);
if (!ValidNotResWayPoint(j)) goto _end;
found=true;
_dowp:
DistanceBearing(
WayPointList[j].Latitude,WayPointList[j].Longitude,
GPS_INFO.Latitude, GPS_INFO.Longitude,
&wpdist,&brg);
TCHAR wptype[100];
switch(WayPointList[j].Style) {
case 2:
case 4:
_stprintf(wptype,_T("%s "), gettext(_T("_@M1720_"))); // the airfield of
break;
case 3:
_stprintf(wptype,_T("%s "), gettext(_T("_@M1721_"))); // the field of
needmorewp=true;
break;
case 5:
_stprintf(wptype,_T("%s "), gettext(_T("_@M1722_"))); // the airport of
break;
default:
_tcscpy(wptype,_T(""));
needmorewp=true;
break;
}
if ( (_tcslen(wptype)==0) && WayPointCalc[j].IsLandable) {
if (WayPointCalc[j].IsAirport) {
_stprintf(wptype,_T("%s "), gettext(_T("_@M1720_"))); // the airfield of
needmorewp=false;
} else {
_stprintf(wptype,_T("%s "), gettext(_T("_@M1721_"))); // the field of
needmorewp=true;
}
} else {
if (_tcslen(wptype)==0 ) {
_tcscpy(wptype,_T(""));
needmorewp=true;
}
}
// nn km south
if (wpdist>2000) {
//
// 2km South of city
// and/over lake
// 4 km SW of waypoint
_stprintf(ttmp,_T("\n%.0f %s %s "), wpdist*DISTANCEMODIFY, Units::GetDistanceName(), DegreesToText(brg));
_tcscat(toracle,ttmp);
_stprintf(ttmp,_T("%s %s<%s>"), gettext(_T("_@M1711_")),wptype,WayPointList[j].Name); // of
_tcscat(toracle,ttmp);
} else {
if (found) {
if (over) {
if (saynear) {
//
// 2km South of city
// over lake
// near waypoint
// ----
// Over city and lake
// near waypoint
_stprintf(ttmp,_T("\n%s %s<%s>"), gettext(_T("_@M1719_")),wptype,WayPointList[j].Name); // near to
_tcscat(toracle,ttmp);
} else {
// Over city
// near lake and waypoint
_stprintf(ttmp,_T(" %s %s<%s>"), gettext(_T("_@M1717_")),wptype,WayPointList[j].Name); // and
_tcscat(toracle,ttmp);
}
} else {
_stprintf(ttmp,_T("\n%s %s<%s>"), gettext(_T("_@M1719_")),wptype,WayPointList[j].Name); // near to
_tcscat(toracle,ttmp);
}
} else {
//
// Near waypoint (because "over" could be wrong, we have altitudes in wp!)
//
_stprintf(ttmp,_T("%s %s<%s>"), gettext(_T("_@M1723_")),wptype,WayPointList[j].Name); // Near to
_tcscat(toracle,ttmp);
}
}
if (!needmorewp) goto _end;
if (secondwpdone) goto _end;
j=FindNearestFarVisibleWayPoint(GPS_INFO.Longitude,GPS_INFO.Latitude,70000,WPT_AIRPORT);
if (!ValidNotResWayPoint(j)) goto _end;
secondwpdone=true;
goto _dowp;
_end:
// VERY SORRY - YOUR POSITION IS UNKNOWN!
if (!found) wsprintf(toracle,_T("\n\n%s\n\n%s"), gettext(_T("_@M1725_")),gettext(_T("_@M1726_")));
ConvToUpper(toracle);
MessageBoxX(hWndMainWindow, toracle, gettext(_T("_@M1690_")), MB_OK|MB_ICONQUESTION, true);
}