Index: pcblib/parametric/alf
===================================================================
--- pcblib/parametric/alf	(nonexistent)
+++ pcblib/parametric/alf	(revision 350)
@@ -0,0 +1,18 @@
+#!/bin/sh
+
+#@@example alf(300, schottky)
+
+#@@purpose Generate ALF: axial lead tru-hole component for diodes
+
+#@@desc Generate axial lead tru-hole component with 2 pin diodes
+#@@params spacing,type,dia
+
+#@@param:spacing spacing between the two pins
+#@@param:type normal, schottky, zener, tunnel, varactor (optional; default: normal)
+#@@param:dia body diameter - affects the silk symbol (optional; default: spacing/12)
+
+
+#@@include common.awk
+
+awk -f `dirname $0`/common.awk -f `dirname $0`/alf.awk -v "args=$*"
+

Property changes on: pcblib/parametric/alf
___________________________________________________________________
Added: svn:executable
## -0,0 +1 ##
+*
\ No newline at end of property
Index: pcblib/parametric/alf.awk
===================================================================
--- pcblib/parametric/alf.awk	(nonexistent)
+++ pcblib/parametric/alf.awk	(revision 350)
@@ -0,0 +1,61 @@
+BEGIN {
+	
+	set_arg(P, "?aspect", 6)
+	set_arg(P, "?type", "normal")
+
+	proc_args(P, "spacing,type,dia,aspect", "spacing")
+
+print "type=", P["type"] > "/dev/stderr"
+print "dia=", P["dia"] > "/dev/stderr"
+
+	spacing = parse_dim(P["spacing"])
+	dia = either(parse_dim(P["dia"]), spacing/6)
+	aspect = P["aspect"]
+
+	offs_x = +spacing/2
+
+	element_begin("acy" P["spacing"], "R1", "acy" P["spacing"]    ,0,0, 2.2*spacing/3,-mil(50))
+
+	element_pin(-spacing/2, 0, 1)
+	element_pin(+spacing/2, 0, 2)
+
+	element_line(-spacing/2, 0, -spacing/aspect, 0)
+	element_line(+spacing/aspect, 0, +spacing/2, 0)
+
+	element_line(+spacing/aspect, -dia, +spacing/aspect, +dia)
+	element_line(+spacing/aspect, -dia, -spacing/aspect, 0)
+	element_line(+spacing/aspect, +dia, -spacing/aspect, 0)
+
+	r = dia*0.3
+	if (P["type"] == "normal") {
+		element_line(-spacing/aspect, -dia, -spacing/aspect, +dia)
+	}
+	else if (P["type"] == "zener") {
+		element_line(-spacing/aspect, -dia, -spacing/aspect, +dia)
+		element_line(-spacing/aspect, +dia, -spacing/aspect-r, +dia)
+		element_line(-spacing/aspect, -dia, -spacing/aspect+r, -dia)
+	}
+	else if (P["type"] == "tunnel") {
+		element_line(-spacing/aspect, -dia, -spacing/aspect, +dia)
+		element_line(-spacing/aspect, +dia, -spacing/aspect+r, +dia)
+		element_line(-spacing/aspect, -dia, -spacing/aspect+r, -dia)
+	}
+	else if (P["type"] == "varactor") {
+		element_line(-spacing/aspect, -dia, -spacing/aspect, +dia)
+		element_line(-spacing/aspect-r, -dia, -spacing/aspect-r, +dia)
+	}
+	else if (P["type"] == "schottky") {
+		cx = -spacing/aspect + r
+		cy = -(dia-r)
+		element_line(-spacing/aspect, -(dia-r), -spacing/aspect, +dia-r)
+		element_arc(cx, cy, r, r, 0, -180)
+		cx = -spacing/aspect - r
+		cy = +(dia-r)
+		element_arc(cx, cy, r, r, 0, +180)
+	}
+	else if ((P["type"] != "") && (P["type"] != "none")) {
+		error("Invalid type")
+	}
+
+	element_end()
+}