include idstring

diff --git a/pcb/pcb-panelise b/pcb/pcb-panelise
index 91b3498572d83d050b3c158a32d9cdb13fd8b2a1..2ce47e2010ed4b29d54a882e90e1b7c0a81c43fa 100755 (executable)
--- a/pcb/pcb-panelise
+++ b/pcb/pcb-panelise
@@ -36,7 +36,8 @@ our ($line,$indent,$command,$lbrack,$argstring,$rbrack);
 our (@a, $output_file, $accumulate);
 
 our ($xpos,$ypos,$spaces,@titles);
-our ($xmax,$ymax,$gap,$cutlinewidth);
+our ($xmax,$ymax,$gap);
+our ($cutlinewidth,$idstring_size);
 
 sub init () {
     $xpos=$ypos=0;
@@ -45,6 +46,7 @@ sub init () {
     # 100s of thou like in PCB
     $gap=20000;
     $cutlinewidth=800;
+    $idstring_size=100;
 
     $spaces= '';
     $output_file= '';
@@ -197,7 +199,17 @@ sub op__PCB {
     if (length $spaces) { horizline($ypos); }
 }
 sub endfile__ {
-    if (@ARGV) { horizline($thisextent[1]); }
+    if (@ARGV) {
+       horizline($thisextent[1]);
+       if ($idstring_size && !length $spaces) {
+           $layer_data{10} .= sprintf
+               ("\tText[%d %d %d %d \"%s\" 0x%08lx]",
+                $xpos+$gap, $thisextent[1] + $idstring_size * 10,
+                0, $idstring_size,
+                'assembled by $Id$',
+                 0); #');
+       }
+    }
     $ypos= $thisextent[1] + $gap;
     $spaces .= ' ';
 }