diff --git a/m1/xbrd/xbrd.fpd b/m1/xbrd/xbrd.fpd
new file mode 100644
index 0000000..47d97f6
--- /dev/null
+++ b/m1/xbrd/xbrd.fpd
@@ -0,0 +1,75 @@
+/* MACHINE-GENERATED ! */
+
+frame top {
+	__0: vec @(-B/2, 0mm)
+	__1: vec @(B/2, 0mm)
+	__2: vec __0(0mm, HL/2)
+	__4: vec __0(0mm, -HL/2)
+	__5: vec .(-HW/2, 0mm)
+	__10: vec .(-CB, -CL)
+	__6: vec __1(0mm, HL/2)
+	__7: vec .(HW/2, 0mm)
+	__11: vec .(CF, CR)
+	rect __10 . w
+	__8: vec __1(0mm, -HL/2)
+	__9: vec .(-HW/2, 0mm)
+	rect . __7 w
+	__3: vec __2(HW/2, 0mm)
+	rect __5 . w
+	__12: vec __2(-HW/2, 0mm)
+	__13: vec .(-CB, CR)
+	__14: vec __1(FB, 0mm)
+	__15: vec .(0mm, -fny)
+	__16: vec __14(FT, 0mm)
+	__17: vec .(0mm, fpy)
+	__18: vec __14(0mm, fpy)
+	line . __15 w
+	__19: vec __16(0mm, -fny)
+	line __17 . w
+}
+
+package "xbrd"
+unit mm
+
+table
+    { name, top }
+    { "Top", 1 }
+
+table
+    { B, CB, CF, CL, CR }
+    { 45mm, 25mm, 10mm, 5mm, 15mm }
+
+table
+    { HL, HW }
+    { 9*100mil, 2*100mil }
+
+table
+    { FB, FT }
+    { 15mm, 3mm }
+
+table
+    { fpy, fny }
+    { 30mm, 20mm }
+
+table
+    { w, s }
+    { 0.5mm, 5mm }
+
+frame top @
+measy "CL = " top.__10 >> top.__5 s
+measx "CF = " top.__7 >> top.__11 CR+s
+measx "B = " top.__0 >> top.__1 HL/2+CR+2*s
+measy top.__10 >> top.__0 2*s
+measy "HL = " top.__9 >> top.__6 s
+measx top.__6 >> top.__11 CR+2*s
+measx top.__10 >> top.__11 HL+CL+CR+3*s
+measy top.__10 >> top.__11 3*s
+measy "CR = " top.__12 >> top.__13 CB+s
+measy top.__0 >> top.__13 CB+HW/2+2*s
+measx "CB = " top.__13 >> top.__12 s
+measx top.__13 >> top.__2 2*s
+measx "HW = " top.__5 >> top.__3 -s
+measx "FW = " top.__15 >> top.__19 -2*s
+measx "FB = " top.__1 >> top.__14 -fny-2*s
+measx top.__1 >> top.__16 -fny-3*s
+measx top.__11 >> top.__15 -CR-HL/2-fny-s