Disable debug rulers in sheetprint.

1 files changed, 28 insertions, 26 deletions

diff --git a/sheetprint b/sheetprint
index f0052f5..701b9b5 100755
--- a/sheetprint
+++ b/sheetprint
@@ -26,37 +26,39 @@ my $white = $a4->colorAllocate(255,255,255);
 my $black = $a4->colorAllocate(0,0,0);
 $a4->fill(0, 0, $white);
 
-# Draw a cross
-$a4->line(0, 0, $a4->width(), $a4->height, $black);
-$a4->line($a4->width(), 0, 0, $a4->height, $black);
+sub draw_rulers()
+{
+  # Draw a cross
+  $a4->line(0, 0, $a4->width(), $a4->height, $black);
+  $a4->line($a4->width(), 0, 0, $a4->height, $black);
 
-# Draw some rulers
-for ( my $i = 1; $i < 297; $i++) {
-  if ( $i % 10 == 0 ) {
-    $a4->line(0, mm2dots($i), 20, mm2dots($i), $black);
-    $a4->line(mm2dots(105), mm2dots($i), mm2dots(105) + 20, mm2dots($i), $black);
-  } elsif ( $i % 5 == 0 )  {
-    $a4->line(0, mm2dots($i), 15, mm2dots($i), $black);
-    $a4->line(mm2dots(105), mm2dots($i), mm2dots(105) + 15, mm2dots($i), $black);
-  } else {
-    $a4->line(0, mm2dots($i), 10, mm2dots($i), $black);
-    $a4->line(mm2dots(105), mm2dots($i), mm2dots(105) + 10, mm2dots($i), $black);
+  for ( my $i = 1; $i < 297; $i++) {
+    if ( $i % 10 == 0 ) {
+      $a4->line(0, mm2dots($i), 20, mm2dots($i), $black);
+      $a4->line(mm2dots(105), mm2dots($i), mm2dots(105) + 20, mm2dots($i), $black);
+    } elsif ( $i % 5 == 0 )  {
+      $a4->line(0, mm2dots($i), 15, mm2dots($i), $black);
+      $a4->line(mm2dots(105), mm2dots($i), mm2dots(105) + 15, mm2dots($i), $black);
+    } else {
+      $a4->line(0, mm2dots($i), 10, mm2dots($i), $black);
+      $a4->line(mm2dots(105), mm2dots($i), mm2dots(105) + 10, mm2dots($i), $black);
+    }
   }
-}
-for ( my $i = 1; $i < 210; $i++) {
-  if ( $i % 10 == 0 ) {
-    $a4->line(mm2dots($i), mm2dots(297), mm2dots($i), mm2dots(297) - 20, $black);
-    $a4->line(mm2dots($i), mm2dots(149), mm2dots($i), mm2dots(149) - 20, $black);
-  } elsif ( $i % 5 == 0 )  {
-    $a4->line(mm2dots($i), mm2dots(297), mm2dots($i), mm2dots(297) - 15, $black);
-    $a4->line(mm2dots($i), mm2dots(149), mm2dots($i), mm2dots(149) - 15, $black);
-  } else {
-    $a4->line(mm2dots($i), mm2dots(297), mm2dots($i), mm2dots(297) - 10, $black);
-    $a4->line(mm2dots($i), mm2dots(149), mm2dots($i), mm2dots(149) - 10, $black);
+  for ( my $i = 1; $i < 210; $i++) {
+    if ( $i % 10 == 0 ) {
+      $a4->line(mm2dots($i), mm2dots(297), mm2dots($i), mm2dots(297) - 20, $black);
+      $a4->line(mm2dots($i), mm2dots(149), mm2dots($i), mm2dots(149) - 20, $black);
+    } elsif ( $i % 5 == 0 )  {
+      $a4->line(mm2dots($i), mm2dots(297), mm2dots($i), mm2dots(297) - 15, $black);
+      $a4->line(mm2dots($i), mm2dots(149), mm2dots($i), mm2dots(149) - 15, $black);
+    } else {
+      $a4->line(mm2dots($i), mm2dots(297), mm2dots($i), mm2dots(297) - 10, $black);
+      $a4->line(mm2dots($i), mm2dots(149), mm2dots($i), mm2dots(149) - 10, $black);
+    }
   }
 }
 
-my $skip = 2;
+my $skip = 0;
 my $x = mm2dots(25);
 my $y = mm2dots(32) + $skip * mm2dots(25);