chiark / gitweb /
tickmarks at 50mm intervals, and all the way to 300mm past each side
authorian <ian>
Sun, 29 Mar 2009 15:44:07 +0000 (15:44 +0000)
committerian <ian>
Sun, 29 Mar 2009 15:44:07 +0000 (15:44 +0000)
layout/layout

index 1186a7884508e576fbb4c86a4d8c9a05359e58a8..1f58a19dfe1605877cf6906b6e5cd44764054b13 100755 (executable)
@@ -1845,8 +1845,8 @@ while (<>) {
          "        -%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) {
+       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);
            }
        }