From 0eb38811d125d27ab04d593a7be3d31718e21206 Mon Sep 17 00:00:00 2001
From: Werner Almesberger <werner@almesberger.net>
Date: Wed, 6 Jun 2012 19:08:46 -0300
Subject: [PATCH] modules/bat-clip-aa-th.fpd: open clip for AA batteries,
 through-hole

---
 modules/INFO               |   5 +-
 modules/bat-clip-aa-th.fpd | 102 +++++++++++++++++++++++++++++++++++++
 2 files changed, 106 insertions(+), 1 deletion(-)
 create mode 100644 modules/bat-clip-aa-th.fpd

diff --git a/modules/INFO b/modules/INFO
index 7943d30..886f32a 100644
--- a/modules/INFO
+++ b/modules/INFO
@@ -297,4 +297,7 @@ F: usb_a_plug_smt
 # USB 2.0 from usb_20_040908, page 99
 F: usb-a-pcb
 
-
+# Open clip for AA batteries, through-hole
+# http://www.memoryprotectiondevices.com/datasheets/BK-92-datasheet.pdf
+# Note: should generalize this for AAA and maybe also larger sizes
+F: bat-clip-aa-th
diff --git a/modules/bat-clip-aa-th.fpd b/modules/bat-clip-aa-th.fpd
new file mode 100644
index 0000000..d1af28e
--- /dev/null
+++ b/modules/bat-clip-aa-th.fpd
@@ -0,0 +1,102 @@
+/* MACHINE-GENERATED ! */
+
+frame pin {
+	set Rh = Cdiam/2
+
+	set Rr = Cdiam/2*ratio
+
+	__0: vec @(Rr, Rr)
+	__1: vec @(-Rr, -Rr)
+	rpad "$name" . __0
+	__2: vec @(Rh, -Rh)
+	__3: vec @(-Rh, Rh)
+	hole . __2
+}
+
+frame outer {
+	set name = 2*grp+2
+
+	frame pin @
+}
+
+frame inner {
+	set name = 2*grp+1
+
+	frame pin @
+}
+
+frame clip {
+	__0: vec @(0mm, -Cpitch*d)
+	frame outer .
+	frame inner @
+}
+
+frame side {
+	__0: vec @(0mm, Blen/2)
+	__1: vec @(0mm, -Blen/2)
+	line __0 . w
+}
+
+frame outline {
+	set ?pair = 1
+
+	__0: vec @(0mm, Cgap/2)
+	__1: vec .(Bdia/2, 0mm)
+	frame side .
+	__2: vec __0(-Bdia/2, 0mm)
+	frame side .
+}
+
+frame marker {
+	table
+	    { Mx, My, Marm }
+	    { -5mm, -9mm, 1.2mm }
+
+	set ?pair = 1
+
+	__0: vec @(Mx, My)
+	__1: vec .(0mm, Marm)
+	__2: vec __0(Marm, 0mm)
+	__3: vec __0(-Marm, 0mm)
+	line . __2 w
+	__4: vec __0(0mm, -Marm)
+	line __1 . w
+}
+
+package "BAT-CLIP-AA-TH$cfg"
+unit mm
+
+table
+    { cfg, pair }
+    { "", 0 }
+    { "-PAIR", 1 }
+
+table
+    { Blen, Bdia }
+    { 50mm, 14mm }
+
+table
+    { Cpitch, Cgap, Cdiam }
+    { 7.62mm, 33.53mm, 1.7mm }
+
+set ratio = 3
+
+table
+    { ?pair, n, grp, d }
+    { 0, 1, 0, 1 }
+    { 1, 1, 0, 1 }
+    { 1, 2, 1, -1 }
+
+set w = 0.2mm
+
+__0: vec @(0mm, Cgap*(n-1))
+frame clip .
+frame outline @
+frame marker @
+measx pin.__3 -> pin.__2 -5mm
+measx pin.__1 -> pin.__0 -3mm
+measy clip.__0 -> __0
+measy __0 >> __0
+measy clip.__0 >> clip.__0 4mm
+measx side.__0 >> side.__0 5mm
+measy side.__1 -> side.__0 2mm