From: ian <ian>
Date: Fri, 6 Oct 2006 22:18:33 +0000 (+0000)
Subject: put tick marks in the right places
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=37323ac2ec7b3bb636e28e3664bd7b0f8f407fd7;p=trains.git

put tick marks in the right places
---

diff --git a/layout/layout b/layout/layout
index b9752cc..cf5f9e4 100755
--- a/layout/layout
+++ b/layout/layout
@@ -1656,24 +1656,20 @@ while (<>) {
     if ($scale < 1.5) {
 	my ($tick_x, $tick_y, $ticklen);
 	$ticklen= 10;
-	printf("%%!\n".
-	       "    gsave 0.5 setgray 0.33 setlinewidth\n".
-	       "      /regmark {\n".
-	       "        newpath moveto\n".
-	       "        -%d 0 rmoveto %d 0 rlineto\n".
-	       "        -%d -%d rmoveto 0 %d rlineto stroke\n".
-	       "      } def\n",
-	       $ticklen, $ticklen*2, $ticklen, $ticklen, $ticklen*2)
-	    or die $!;
+	o(sprintf
+	  "    gsave 0.5 setgray 0.33 setlinewidth\n".
+	  "      /regmark {\n".
+	  "        newpath moveto\n".
+	  "        -%d 0 rmoveto %d 0 rlineto\n".
+	  "        -%d -%d rmoveto 0 %d rlineto stroke\n".
+	  "      } def\n",
+	  $ticklen, $ticklen*2, $ticklen, $ticklen, $ticklen*2);
 	for ($tick_x= $min_x; $tick_x < $max_x; $tick_x += 150) {
 	    for ($tick_y= $min_y; $tick_y < $max_y; $tick_y += 150) {
-		printf("      %f %f regmark\n",
-		       $tick_x, $tick_y)
-		    or die $!;
+		o(sprintf "      %f %f regmark\n", $tick_x, $tick_y);
 	    }
 	}
-	printf("    grestore\n")
-	    or die $!;
+	o("    grestore\n");
     }
 }