+sub set_font_sizes {
+ my ($self) = @_;
+
+ if ($self->{img_height} <= 80) {
+ $self->{label_size} = 10;
+ $self->{value_size} = 16;
+ $self->{lap_size} = 24;
+ } elsif ($self->{img_height} <= 100) {
+ $self->{label_size} = 12;
+ $self->{value_size} = 20;
+ $self->{lap_size} = 28;
+ } elsif ($self->{img_height} <= 120) {
+ $self->{label_size} = 14;
+ $self->{value_size} = 24;
+ $self->{lap_size} = 32;
+ } elsif ($self->{img_height} <= 150) {
+ $self->{label_size} = 16;
+ $self->{value_size} = 28;
+ $self->{lap_size} = 36;
+ } else {
+ $self->{label_size} = 18;
+ $self->{value_size} = 32;
+ $self->{lap_size} = 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->{throttle_button_images} = [
+ load_image_set('img/throttle%dbutton.svg', 12, $h)
+ ];
+ $self->{fuel_images} = [
+ load_image_set('img/fuel%d.svg', 8, int(0.6 * $h))
+ ];
+ $self->{car_images} = load_images_glob('img/SCXCars/*', $h);
+ $self->{state_images} = load_images_glob('img/state*.svg', $h);
+ $self->{semaphore_images} = [
+ load_image_set('img/semaphore%d.svg', 5, 1.5 * $h)
+ ];
+};
+