Select Code to Download

use warnings;
use strict;
...
    push @interp_accel, [$x,$y,$z]; # store for later
    printf "interpolate # %d => t=%.2f => [%s,%s,%s]\n", $i, map {$_//
+'<undef>'} $t, $x, $y, $z;  # debug print
}

interpolate # 0 => t=0.00 => [-0.7437,0.1118,-0.5367]
interpolate # 1 => t=0.02 => [-0.73780958368,0.10862255968,-0.53961481
+072]
...
interpolate # 198 => t=3.96 => [-0.24427595904,0.51418906624,-0.132690
+15936]
interpolate # 199 => t=3.98 => [-0.24387197888,0.51790373728,-0.129082
+42592]
interpolate # 200 => t=4.00 => [-0.2437,0.5216,-0.1255]