summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xsheetprint54
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);