From: ian <ian>
Date: Tue, 7 Sep 2004 23:33:07 +0000 (+0000)
Subject: include idstring
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=3191c88f0e84be5f04c81e70a38822fd7196ec2b;p=trains.git

include idstring
---

diff --git a/pcb/pcb-panelise b/pcb/pcb-panelise
index 91b3498..2ce47e2 100755
--- 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 .= ' ';
 }