" -%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);
}
}