Initial commit

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
+

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

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