Compress program lines.

1 files changed, 5 insertions, 4 deletions

diff --git a/frikanalen/bin/scheduler b/frikanalen/bin/scheduler
index cb79413..b0bdd40 100755
--- a/frikanalen/bin/scheduler
+++ b/frikanalen/bin/scheduler
@@ -292,10 +292,11 @@ sub generate_program {
     my $white = $im->colorAllocate(255,255,255);
     my $black = $im->colorAllocate(  0,  0,  0);
     my $fontsize = 20;
+    my $linespace = 1.3;
     my $left = 0;
-    my $futurelines = 6;
+    my $futurelines = 8;
     $im->fill(50,50,$white);
-    my @bounds = $im->stringFT($black,$gdfont,$fontsize*2,$left,30,50,"Frikanalen");
+    my @bounds = $im->stringFT($black,$gdfont,$fontsize*$linespace,$left,30,50,"Frikanalen");
 
     $bounds[1] += 80; # Move rest of the text down on the screen
 
@@ -318,7 +319,7 @@ sub generate_program {
 
             my $infostring = "$datestring";
             print "  $infostring\n";
-            @bounds = $im->stringFT($black,$gdfont,$fontsize,$left,90, $bounds[1] + $fontsize * 2, "$infostring");
+            @bounds = $im->stringFT($black,$gdfont,$fontsize,$left,90, $bounds[1] + $fontsize * $linespace, "$infostring");
             $date = $datestring;
         }
         # Should we skip entries with tono records?
@@ -330,7 +331,7 @@ sub generate_program {
         }
 
         print "  $infostring\n";
-        @bounds = $im->stringFT($black,$gdfont,$fontsize,$left, 100, $bounds[1] + $fontsize * 2, "$infostring");
+        @bounds = $im->stringFT($black,$gdfont,$fontsize,$left, 100, $bounds[1] + $fontsize * $linespace, "$infostring");
         $seq++;
     }