Initial commitv0.0

3 files changed, 88 insertions, 0 deletions

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}}