From: ian <ian>
Date: Sun, 29 Mar 2009 19:44:32 +0000 (+0000)
Subject: number the registration tick marks
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=2ca8a4005f1090d002dcef0b9b9f261b2d018325;p=trains.git

number the registration tick marks
---

diff --git a/layout/layout b/layout/layout
index 1f58a19..bf38960 100755
--- a/layout/layout
+++ b/layout/layout
@@ -1835,19 +1835,30 @@ while (<>) {
     o($bboxstr) or die $!;
 
     if ($scale < 1.5) {
-	my ($tick_x, $tick_y, $ticklen);
+	my ($tick_x, $tick_y, $ticklen, $ticki_x, $ticki_y, $s);
 	$ticklen= 10;
 	o(sprintf
 	  "    gsave 0.5 setgray 0.33 setlinewidth\n".
+	  "      /Courier-New findfont 9 scalefont setfont\n".
 	  "      /regmark {\n".
 	  "        newpath moveto\n".
+	  "        gsave\n".
+	  "          dup stringwidth pop -0.5 mul  3  rmoveto\n".
+	  "          show grestore\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 - 300; $tick_x < $max_x + 300; $tick_x += 50) {
-	    for ($tick_y= $min_y - 300; $tick_y < $max_y + 300; $tick_y += 50) {
-		o(sprintf "      %f %f regmark\n", $tick_x, $tick_y);
+	  $ticklen, $ticklen*2, $ticklen, $ticklen, $ticklen*2, $ticklen);
+	for ($tick_x= $min_x-300, $ticki_x=0;
+	     $tick_x < $max_x+300;
+	     $tick_x += 50, $ticki_x++) {
+	    for ($tick_y= $min_y-300, $ticki_y=0;
+		 $tick_y < $max_y+300;
+		 $tick_y += 50, $ticki_y++) {
+		$s= ($ticki_x&1 or $ticki_y&1) ? '' :
+		    sprintf "%3d %-3d", $ticki_x/2, $ticki_y/2;
+		o(sprintf "      (%s) %f %f regmark\n",
+		  $s, $tick_x, $tick_y);
 	    }
 	}
 	o("    grestore\n");