From 52a5942994007acc29107f036c9b8f386b19399f Mon Sep 17 00:00:00 2001
From: Ian Jauslin <jauslin@ias.edu>
Date: Wed, 13 Sep 2017 23:29:54 +0000
Subject: Initial commit

---
 dimer_font/Makefile  | 18 +++++++++++++++
 dimer_font/dimer.mf  | 65 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 dimer_font/dimer.sty |  5 ++++
 3 files changed, 88 insertions(+)
 create mode 100644 dimer_font/Makefile
 create mode 100644 dimer_font/dimer.mf
 create mode 100644 dimer_font/dimer.sty

(limited to 'dimer_font')

diff --git a/dimer_font/Makefile b/dimer_font/Makefile
new file mode 100644
index 0000000..d538fdf
--- /dev/null
+++ b/dimer_font/Makefile
@@ -0,0 +1,18 @@
+PROJECTNAME=dimer
+
+dist: $(PROJECTNAME).600pk
+
+$(PROJECTNAME).600gf:
+	mf '\mode=ljfour; mode_setup; input $(PROJECTNAME).mf'
+
+$(PROJECTNAME).600pk: $(PROJECTNAME).600gf
+	gftopk $(PROJECTNAME).600gf $(PROJECTNAME).600pk
+
+clean-aux:
+	rm -f $(PROJECTNAME).600gf
+	rm -f $(PROJECTNAME).log
+
+clean: clean-aux
+	rm -f $(PROJECTNAME).600pk
+	rm -f $(PROJECTNAME).tfm
+
diff --git a/dimer_font/dimer.mf b/dimer_font/dimer.mf
new file mode 100644
index 0000000..8f0e49b
--- /dev/null
+++ b/dimer_font/dimer.mf
@@ -0,0 +1,65 @@
+%% half-dimer pointing up
+% name, width, height, depth
+beginchar("a",1.5pt#,7pt#,0);
+  pickup pencircle scaled 4;
+
+  x1=y1=x2=x3=0;
+  y2=h;
+  x4=-x5=-y4=-y5=w;
+  y3=2y4;
+
+  draw z1..z2;
+  draw z1..z4..z3..z5..cycle;
+endchar;
+
+%% half-dimer pointing down
+beginchar("b",1.5pt#,7pt#,0);
+  pickup pencircle scaled 4;
+
+  x1=x2=x3=0;
+  y1=h-2w;
+  y2=-2w;
+  x4=-x5=w;
+  y4=y5=h-w;
+  y3=h;
+
+  draw z1..z2;
+  draw z1..z4..z3..z5..cycle;
+endchar;
+
+%% radius for horizontal dimers
+r=1.5pt;
+
+%% half-dimer pointing right
+beginchar("c",10pt#,4.5pt#,0);
+  pickup pencircle scaled 4;
+
+  y1=y2=y3=h-r;
+  x3=0;
+  y4=h;
+  y5=h-2r;
+  x4=x5=r;
+  x1=2r;
+  x2=w;
+
+  draw z1..z2;
+  draw z1..z4..z3..z5..cycle;
+endchar;
+
+%% half-dimer pointing left
+beginchar("d",10pt#,4.5pt#,0);
+  pickup pencircle scaled 4;
+
+  y1=y2=y3=h-r;
+  x3=w;
+  y4=h;
+  y5=h-2r;
+  x4=x5=w-r;
+  x1=w-2r;
+  x2=0;
+
+  draw z1..z2;
+  draw z1..z4..z3..z5..cycle;
+endchar;
+
+end
diff --git a/dimer_font/dimer.sty b/dimer_font/dimer.sty
new file mode 100644
index 0000000..ba9631d
--- /dev/null
+++ b/dimer_font/dimer.sty
@@ -0,0 +1,5 @@
+\newfont{\dimer}{dimer}
+\def\updimer{\kern3pt\hbox{\dimer a}\kern2pt}
+\def\downdimer{\kern3pt\hbox{\dimer b}\kern2pt}
+\def\rightdimer{\hbox{\dimer c}}
+\def\leftdimer{\hbox{\dimer d}}
-- 
cgit v1.2.3-70-g09d2