registration marks

diff --git a/layout/layout b/layout/layout
index d67a6f7185fd859ffb2da11f63d67ac80031d90b..1daf5e8cc866ea9af919d4b0565bdd99fa2cd506 100755 (executable)
--- a/layout/layout
+++ b/layout/layout
@@ -1294,7 +1294,7 @@ if ($page_x || $page_y) {
        "  30 30 moveto (${page_x}x${page_y}) show\n"
         or die $!;
 }
-    
+
 print
     "  -$ps_page_xmul $page_x mul  -$ps_page_ymul $page_y mul  translate\n".
     "  $ptscale $ptscale scale\n"
@@ -1325,8 +1325,6 @@ while (<>) {
     cmd__one();
 }
 
-oflushpage();
-
 {
     my ($min_x, $max_x, $min_y, $max_y) = bbox($ctx->{Loc});
     my ($bboxstr);
@@ -1341,4 +1339,28 @@ oflushpage();
     if (!$quiet) { print STDERR $bboxstr; }
     $bboxstr =~ s/^/\%L bbox /mg;
     print $bboxstr or die $!;
+
+    if ($scale < 1.5) {
+       my ($tick_x, $tick_y, $ticklen);
+       $ticklen= 10;
+       printf("    gsave 0.5 setgray 1 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 $!;
+       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 $!;
+           }
+       }
+       printf("    grestore\n")
+           or die $!;
+    }
 }
+
+oflushpage();

diff --git a/pcb/Makefile b/pcb/Makefile
index 9fe3d1463421d707c85132cebc7c2eeec607a1dd..90f57c05c4f42d7d6b272756b729699f00cd3429 100644 (file)
--- a/pcb/Makefile
+++ b/pcb/Makefile
@@ -80,5 +80,7 @@ parts.ps:     showlib.d4 layout
                ./layout <$< $(LAYOUTOPTS_ALL) $o
 
 clean:
-               -rm -f -- *.d4 *.ps farn.* *~
+               -rm -f -- *.d4 *.ps farn.* *~ *.new
                -rm -f bulkres-*.partlist bulkres-items.suggest *.bom
+               -rm -f t,*.gnuplot-data t,*.gnuplot-cmd t,gnuplot-fifo
+               -rm -f t,gnuplots.sh

diff --git a/pic.make b/pic.make
index 9fe3d1463421d707c85132cebc7c2eeec607a1dd..90f57c05c4f42d7d6b272756b729699f00cd3429 100644 (file)
--- a/pic.make
+++ b/pic.make
@@ -80,5 +80,7 @@ parts.ps:     showlib.d4 layout
                ./layout <$< $(LAYOUTOPTS_ALL) $o
 
 clean:
-               -rm -f -- *.d4 *.ps farn.* *~
+               -rm -f -- *.d4 *.ps farn.* *~ *.new
                -rm -f bulkres-*.partlist bulkres-items.suggest *.bom
+               -rm -f t,*.gnuplot-data t,*.gnuplot-cmd t,gnuplot-fifo
+               -rm -f t,gnuplots.sh

diff --git a/spice/Makefile b/spice/Makefile
index 9fe3d1463421d707c85132cebc7c2eeec607a1dd..90f57c05c4f42d7d6b272756b729699f00cd3429 100644 (file)
--- a/spice/Makefile
+++ b/spice/Makefile
@@ -80,5 +80,7 @@ parts.ps:     showlib.d4 layout
                ./layout <$< $(LAYOUTOPTS_ALL) $o
 
 clean:
-               -rm -f -- *.d4 *.ps farn.* *~
+               -rm -f -- *.d4 *.ps farn.* *~ *.new
                -rm -f bulkres-*.partlist bulkres-items.suggest *.bom
+               -rm -f t,*.gnuplot-data t,*.gnuplot-cmd t,gnuplot-fifo
+               -rm -f t,gnuplots.sh