put tick marks in the right places

diff --git a/layout/layout b/layout/layout
index b9752ccd87ee3a3a35849e534e4110bfea3a7b18..cf5f9e46c676beb31aeacd09ae958ed3e4f45d1c 100755 (executable)
--- 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");
     }
 }