+// draw heading vector
+ int speedKts = static_cast<int>(model->getDoubleValue("velocities/speed-kts"));
+ if (speedKts > 1) {
+ glLineWidth(1.0);
+
+ const double dt = 15.0 / (3600.0); // 15 seconds look-ahead
+ double distanceM = speedKts * SG_NM_TO_METER * dt;
+
+ SGGeod advance;
+ double az2;
+ SGGeodesy::direct(pos, hdg, distanceM, advance, az2);
+
+ drawLine(p, project(advance));
+ }
+
+ // draw callsign / speed
+ char buffer[1024];
+ ::snprintf(buffer, 1024, "%s\n%dkts",
+ model->getStringValue("name", "<>"),
+ speedKts);
+
+ MapData* d = getOrCreateDataForKey((void*) model);
+ d->setText(buffer);
+ d->setLabel(model->getStringValue("name", "<>"));
+ d->setPriority(speedKts > 2 ? 30 : 10); // low priority for slow moving ships
+ d->setOffset(MapData::VALIGN_CENTER | MapData::HALIGN_LEFT, 10);
+ d->setAnchor(p);