+sub recalc_distance {
+ my ($self, $lap_first, $time_first, $finishing) = @_;
+
+ return if !defined $lap_first || !defined $self->{lap}
+ || !defined $time_first || !defined $self->{first_finish_time};
+
+ $self->{total_time} = undef;
+ $self->{lap_diff} = undef;
+ $self->{time_diff} = undef;
+ $self->{grey_diff} = undef;
+
+ if ($self->{lap} == $lap_first) {
+ if ($self->{first_finish_time} == $time_first) {
+ $self->{total_time} = $self->{first_finish_time}
+ - $self->track->{race_running_since};
+ } else {
+ $self->{time_diff} = $self->{first_finish_time}
+ - $time_first;
+ }
+ } else {
+ $self->{lap_diff} = $lap_first - $self->{lap};
+ }
+
+ $self->gui->set_distance($self->{order}, $self->{total_time},
+ $self->{lap_diff}, $self->{time_diff}, $self->{grey_diff});
+
+ if ($finishing) {
+ $self->{finished} = 1;
+ $self->print_state;
+ }
+}
+
+sub recalc_qual_distance {
+ my ($self, $time_first) = @_;
+
+ return if !defined $self->{best_lap} || $self->{best_lap} <= 0;
+
+ $self->{total_time} = undef;
+ $self->{time_diff} = undef;
+ $self->{grey_diff} = undef;
+ $self->{lap_diff} = undef;
+
+ if ($self->{best_lap} == $time_first) {
+ $self->{total_time} = $self->{best_lap};
+ } else {
+ $self->{time_diff} = $self->{best_lap} - $time_first;
+ }
+
+ $self->gui->set_distance($self->{order}, $self->{total_time},
+ $self->{lap_diff}, $self->{time_diff}, $self->{grey_diff});
+}
+
+sub greyout_distance {
+ my ($self) = @_;
+
+ return if $self->{grey_diff};
+ $self->{grey_diff} = 1;
+ $self->gui->set_distance($self->{order}, $self->{total_time},
+ $self->{lap_diff}, $self->{time_diff}, $self->{grey_diff});
+}
+