renamed "xy" to "curve"

This commit is contained in:
Dima Kogan 2011-05-22 15:16:33 -07:00
parent 339c2f9a3d
commit de242bad32

View File

@ -505,14 +505,14 @@ sub pruneOldData
{ {
my ($oldestx) = @_; my ($oldestx) = @_;
foreach my $xy (@curves) foreach my $curve (@curves)
{ {
if( @$xy > 1 ) if( @$curve > 1 )
{ {
if( my $firstInWindow = first {$xy->[$_][0] >= $oldestx} 1..$#$xy ) if( my $firstInWindow = first {$curve->[$_][0] >= $oldestx} 1..$#$curve )
{ splice( @$xy, 1, $firstInWindow-1 ); } { splice( @$curve, 1, $firstInWindow-1 ); }
else else
{ splice( @$xy, 1); } { splice( @$curve, 1); }
} }
} }
} }