+sub set_font_sizes {
+ my ($self) = @_;
+
+ if ($self->{img_height} <= 80) {
+ $self->{label_font} = 10;
+ $self->{value_font} = 18;
+ $self->{lap_font} = 24;
+ } elsif ($self->{img_height} <= 100) {
+ $self->{label_font} = 12;
+ $self->{value_font} = 20;
+ $self->{lap_font} = 28;
+ } elsif ($self->{img_height} <= 120) {
+ $self->{label_font} = 14;
+ $self->{value_font} = 24;
+ $self->{lap_font} = 32;
+ } elsif ($self->{img_height} <= 150) {
+ $self->{label_font} = 16;
+ $self->{value_font} = 28;
+ $self->{lap_font} = 36;
+ } else {
+ $self->{label_font} = 18;
+ $self->{value_font} = 32;
+ $self->{lap_font} = 40;
+ }
+}
+
+sub load_all_images {
+ my ($self) = @_;
+
+ my $h = $self->{img_height};
+
+ $self->{throttle_images} = [
+ load_image_set('img/throttle%d.svg', 13, $h)
+ ];
+ $self->{fuel_images} = [
+ load_image_set('img/fuel%d.svg', 8, int(0.6 * $h))
+ ];
+ $self->{car_images} = load_image_dir('img/SCXCars', $h),
+ $self->{semaphore_images} => [
+ load_image_set('img/semaphore%d.svg', 5, 2 * $h)
+ ];
+};
+