<span style="font-weight: bold; font-size: 14"><% sprintf "%0.3f", $trk->vTot %></span><p>
<table>
<tr><td>RA</td><td align="right"><% sprintf "%+0.3f", $dalpha %></td></tr>
<tr><td>DEC</td><td align="right"><% sprintf "%+0.3f", $ddelta %></td></tr>
<tr><td>Ecliptic &lambda;</td><td align="right"><% sprintf "%+0.3f", $dlambda %></td></tr>
<tr><td>Ecliptic &beta;</td><td align="right"><% sprintf "%+0.3f", $dbeta %></td></tr>
</table>

<%args>
$trk
</%args>

<%init>
# Produces an HTML block describing the motion of this tracklet.
use Astro::SLA;
use Math::Trig;

my $d1 = @{$trk->detections}[0];
my $d2 = @{$trk->detections}[-1];
my $dt = $d2->epoch - $d1->epoch;

my $dalpha = ($d2->ra - $d1->ra) / $dt;     # RA rate
my $ddelta = ($d2->dec - $d1->dec) / $dt;   # RA rate

# Equatorial rates.
my ($l1, $b1, $l2, $b2);
slaEqecl(deg2rad($d1->ra), deg2rad($d1->dec), $d1->epoch, $l1, $b1);
slaEqecl(deg2rad($d2->ra), deg2rad($d2->dec), $d2->epoch, $l2, $b2);

my $dlambda = rad2deg($l2 - $l1) / $dt;       # ecliptic long rate
my $dbeta = rad2deg($b2 - $b1) / $dt;         # ecliptic lat rate
</%init>
