Index: pcblib/parametric/bga
===================================================================
--- pcblib/parametric/bga	(nonexistent)
+++ pcblib/parametric/bga	(revision 700)
@@ -0,0 +1,50 @@
+#!/bin/sh
+
+#@@example bga(map=a1:a2:a2:#:b1:!:b3:#:c1:c2:!)
+
+#@@purpose Generate ball grid array
+
+#@@desc Generate a grid of circular pads for BGA chips
+
+#@@params nx,ny,spacing,balldia,silkmark,map,width,height
+
+#@@param:nx number of pins in the X direction
+#@@optional:nx
+#@@default:nx deduced from the map
+
+#@@param:ny number of pins in the Y direction
+#@@optional:ny
+#@@default:ny deduced from the map
+
+#@@param:spacing spacing between the pins
+#@@dim:spacing
+#@@default:spacing 0.5 mm
+
+#@@param:balldia diameter of a ball
+#@@dim:balldia
+#@@default:spacing 0.35 mm
+
+#@@include silkmark.help
+#@@optional:silkmark
+#@@default:silkmark square
+#@@preview_args:silkmark 3,3
+
+#@@param:map pin name map; a colon separated list of names, from left to right, rows first. If a name is empty or is a hash mark, a new row is started. If a name is a !, the given pin is missing and no pad is generated.
+#@@optional:map
+
+#@@param:width width of the box (silk rectangle x size)
+#@@dim:width
+#@@optional:width
+#@@default:width two columns wider than the array
+
+#@@param:height height of the box (silk rectangle y size)
+#@@dim:height
+#@@optional:height
+#@@default:height two columns higher than the array
+
+
+
+#@@include common.awk
+
+awk -f `dirname $0`/common.awk -f `dirname $0`/bga.awk -v "args=$*" -v gen=`basename $0`
+

Property changes on: pcblib/parametric/bga
___________________________________________________________________
Added: svn:executable
## -0,0 +1 ##
+*
\ No newline at end of property
Index: pcblib/parametric/bga.awk
===================================================================
--- pcblib/parametric/bga.awk	(nonexistent)
+++ pcblib/parametric/bga.awk	(revision 700)
@@ -0,0 +1,73 @@
+BEGIN {
+	set_arg(P, "?spacing", "0.5mm")
+	set_arg(P, "?balldia", "0.35mm")
+	set_arg(P, "?silkmark", "arc")
+
+	proc_args(P, "nx,ny,spacing,balldia,silkmark,map,width,height", "")
+
+	step = parse_dim(P["spacing"])
+
+	half=step/2
+
+	nx = int(P["nx"])
+	ny = int(P["ny"])
+
+	if (P["map"] != "") {
+		v = split(P["map"], A, ":")
+		x = 0
+		y = 0
+		for(n = 1; n <= v; n++) {
+			if ((A[n] == "") || (A[n] == "#")) {
+				if (x > nx)
+					nx = x
+				x = 0
+				y++
+				continue;
+			}
+			if (y > ny)
+				ny = y
+			print x,y,A[n] > "/dev/stderr"
+			MAP[x, y] = A[n]
+			x++
+		}
+		ny++;
+	}
+	else
+		if ((nx == "") || (ny == ""))
+			error("missing argument: need nx,ny or a map")
+
+	balldia = parse_dim(P["balldia"])
+	bw  = parse_dim(P["width"])
+	bh  = parse_dim(P["height"])
+
+	if (bw == "")
+		bw = (nx+1)*step
+	if (bh == "")
+		bh = (ny+1)*step
+
+	xo = (nx-1)*step/2
+	yo = (ny-1)*step/2
+
+	element_begin("", "U1", nx "*" ny   ,0,0, 0, -bh)
+
+	for(x = 0; x < nx; x++) {
+		for(y = 0; y < ny; y++) {
+			xx = x * step - xo
+			yy = y * step - yo
+			name = MAP[x,y]
+			if (name == "!")
+				continue
+			if (name == "")
+				name = "NC"
+			element_pad_circle(xx, yy, balldia, name)
+		}
+	}
+
+	xx = -1 * (bw/2)
+	yy = -1 * (bh/2)
+	element_rectangle(xx, yy, bw/2, bh/2)
+
+	silkmark(P["silkmark"], xx, yy, half*1.5)
+
+	element_end()
+}