Index: trunk/pcblib-param/dip.awk
===================================================================
--- trunk/pcblib-param/dip.awk	(nonexistent)
+++ trunk/pcblib-param/dip.awk	(revision 248)
@@ -0,0 +1,30 @@
+BEGIN {
+	proc_args(P, "n,spacing", "n")
+
+	set_arg(P, "?spacing", 300)
+
+	spacing=P["spacing"]
+
+	if (spacing ~ "mm") {
+		sub("mm", "", spacing)
+		spacing = mm(spacing)
+	}
+	else
+		spacing = mil(spacing)
+
+	element_begin(P["n"] "*" P["spacing"] " DIP socket", "U1", P["n"] "*" P["spacing"]    ,0,0, 0, mil(-100))
+
+	half = mil(50)
+
+	for(n = 1; n <= P["n"]/2; n++) {
+		element_pin(0, (n-1) * mil(100), n)
+		element_pin(spacing, (n-1) * mil(100), P["n"] - n + 1)
+	}
+
+	element_rectangle(-half, -half, spacing + half , (n-2) * mil(100) + half, "top")
+	element_line(-half, -half,            spacing/2-half, -half)
+	element_line(spacing/2+half, -half,   spacing + half, -half)
+	element_arc(spacing/2, -half,  half, half,  0, 180)
+
+	element_end()
+}