Index: LED.scad
===================================================================
--- LED.scad	(nonexistent)
+++ LED.scad	(revision 37455)
@@ -0,0 +1,22 @@
+module led(diameter)
+{
+    height = 1.65*diameter + 0.35;
+    union () {
+        color([1.0,0.1,0.1]) {
+            translate ([0.0,0.0,height-diameter/2])
+                sphere(r = diameter/2, $fn = 50);
+            cylinder(r = diameter/2, h = height-diameter/2, $fn = 50);
+            intersection () {
+                translate ([-0.425,0,0.5])
+                    cube ([diameter+0.9, diameter+0.9, 1.0], true);
+                cylinder(r = (diameter+0.9)/2, h = 1.0, $fn = 50);
+            }
+        }
+        color([0.8,0.8,0.8]) {
+            translate ([-1.252,0,-1.2])
+                cube ([0.5, 0.5, 2.5], true);
+            translate ([1.252,0,-1.2])
+                cube ([0.5, 0.5, 2.5], true);
+        }
+    }
+}
Index: LED3.fp
===================================================================
--- LED3.fp	(revision 37454)
+++ LED3.fp	(revision 37455)
@@ -2,6 +2,8 @@
  ha:subc.5 {
   ha:attributes {
    footprint = LED3, 3mm LED (pin 1 is +, 2 is -)
+   openscad = LED.scad
+   openscad-param = 3.0
   }
   ha:data {
    li:padstack_prototypes {
Index: LED5.fp
===================================================================
--- LED5.fp	(revision 37454)
+++ LED5.fp	(revision 37455)
@@ -2,6 +2,8 @@
  ha:subc.5 {
   ha:attributes {
    footprint = LED5, 5mm LED (pin 1 is +, 2 is -)
+   openscad = LED.scad
+   openscad-param = 5.0
   }
   ha:data {
    li:padstack_prototypes {