\mode:=localfont;
mode_setup;
screenchars;showit;
em#:=7.3pt#; cap#:=9pt#;
thin#:=1/2pt#; thick#:=5/6pt#;
o#:=1/5pt#;
define_pixels(em,cap);
define_blacker_pixels(thin,thick);
define_corrected_pixels(o);
curve_sidebar=round 1/18em;
%
% Here we go... Andrew's first font...
%
sw:=.14em;
fontdimen 2: 0.8em#, 1.5, 1; % spaces dimens (len,stretch,shrink)
pickup pencircle scaled .1em;
mypen:=savepen;
pickup pencircle scaled .15em;
dotpen:=savepen;
%
%  PUNCTUATION
%
beginchar("(",0.5em#,cap#+1pt#,-2pt#);  "Open parenthesis";
  pickup mypen;
  x1=x3=w-sw; x2=0;
  y1=10/9h; y2=.5[y1,y3]; y3=-2/9h;
  draw z1..z2..z3;
  penlabels(1,2,3);
endchar;
%
beginchar(")",0.5em#,cap#+1pt#,-2pt#);  "Close parenthesis";
  pickup mypen;
  x1=x3=0; x2=w-sw;
  y1=10/9h; y2=.5[y1,y3]; y3=-2/9h;
  draw z1..z2..z3;
  penlabels(1,2,3);
endchar;
%
beginchar(".",0.3em#,0.3cap#,0);  "Period";
  pickup dotpen;
  lft x1=0; bot y1=0;
  drawdot z1;
  penlabels(1);
endchar;
%
beginchar(",",0.4em#,0.15cap#,.15cap#);  "Comma";
  pickup mypen;
  lft x2=0; y1=h; rt x1=w-sw; y2=-d;
  draw z1{down}...z2;
  penlabels(1,2);
endchar;
%
beginchar(":",0.3em#,0.55cap#,0);   "Colon";
  pickup dotpen;
  lft x1=lft x2=0; y1=.25h; y2=h;
  drawdot z1; drawdot z2;
  penlabels(1,2);
endchar;
%  
beginchar(";",0.4em#,0.55cap#,.15cap#);  "Semicolon";
  pickup mypen;
  lft x2=0; y1=.38h; rt x1=w-sw; y2=-d;
  x3=x1;
  draw z1{down}...z2;
  pickup dotpen; top y3=h;
  drawdot z3;
  penlabels(1,2);
endchar;
%
beginchar(oct"174",em#,0.55 cap#,0);  "Em dash";
  pickup mypen;
  lft x1=0; rt x2=w; y1=y2=h;
  draw z1--z2;
  penlabels(1,2);
endchar;
%
beginchar(oct"173",.7em#,.55 cap#,0);  "En dash";
  pickup mypen;
  lft x1=0; rt x2=w; y1=y2=h;
  draw z1--z2;
  penlabels(1,2);
endchar;
%
beginchar("-",0.5em#,.55cap#,0);  "Hyphen";
  pickup mypen;
  x1=0; x2=w-sw; y1=y2=h;
  draw z1--z2;
  penlabels(1,2);
endchar;
%
beginchar("!",0.4em#,cap#,0);  "Exclamation point";
  pickup dotpen; bot y3=0;
  pickup mypen;
  lft x3=0; x1=x2=x3;
  top y1=h; z2=.25[z3,z1];
  draw z1--z2;
  pickup dotpen;
  drawdot z3;
  penlabels(1,2,3);
endchar;
%
beginchar("?",0.8em#,cap#,0);  "Question Mark";
  pickup mypen;
  lft x1=0; top y2=h; rt x3=w-sw; x2=.5[x1,x3]=x4=x5=x6;
  y1=y3=.75h; y4=.38h; y5=.25h;
  draw z1{up}..z2{right}..z3{down}..z4{down}--z5;
  pickup dotpen; bot y6=0;
  drawdot z6;
  penlabels(1,2,3,4,5,6);
endchar;
%
beginchar("'",0.3em#,cap#,0);  "Apostrophe";
  pickup mypen;
  lft x2=0; top y1=h; y2=.75h; x1=w-sw;
  draw z1..z2;
  penlabels(1,2);
endchar;
%
beginchar("`",0.3em#,cap#,0);  "Back-apostrophe";
  pickup mypen;
  lft x1=0; top y1=h; y2=.75h; x2=w-sw;
  draw z1..z2;
  penlabels(1,2);
endchar;
%
beginchar(oct"134",.6em#,cap#,0);  "Open quotes";
  pickup mypen;
  numeric dx;
  lft x1=0; rt x4=w-sw; x2+dx=x3-dx=.5[x1,x4]; dx=.05[x1,x4];
  top y1=top y3=h; y2=y4=.75h;
  draw z1..z2; draw z3..z4;
  penlabels(1,2,3,4);
endchar;
%
beginchar(oct"042",.6em#,cap#,0);  "Close quotes";
  pickup mypen;
  numeric dx;
  lft x1=0; rt x4=w-sw; x2+dx=x3-dx=.5[x1,x4]; dx=.05[x1,x4];
  top y2=top y4=h; y1=y3=.75h;
  draw z1..z2; draw z3..z4;
  penlabels(1,2,3,4);
endchar;
%
%  THE CAPITAL LETTERS
%
beginchar("A",0.95em#,cap#,0);  "The letter A";
  pickup mypen;
  lft x1=0; rt x5=w-sw; x3=.5[x1,x5]; top y3=h; bot y1=bot y5=0;
  z2=whatever[z1,z3]; z4=whatever[z3,z5];
  y2=y4=.45[y1,y3];
  draw z1--z3--z5;
  draw z2--z4;
  penlabels(1,2,3,4,5);
endchar;
%
beginchar("B",0.8em#,cap#,0); "The letter B";
  pickup mypen;
  lft x1=lft x2=lft x3=0; x4=x5=w-sw;
  bot y1=0;top y3=h;y2=.55h;y4=.5[y2,y3];y5=.5[y1,y2];
  draw z1--z2--z3;
  draw z3{right}..z4{down}..z2{left};
  draw z2{right}..z5{down}..z1{left};
  penlabels(1,2,3,4,5);
endchar;
%
beginchar("C",0.8em#,cap#,0); "The letter C";
  pickup mypen;
  rt x1=rt x5=w-sw; lft x3=0;
  bot y4=0; top y2=y1+y5=2y3=h; 
  y5=.15h;
  x2=x4=.5[x1,x3];
  draw z1{up}..z2{left}..z3{down}..z4{right}..z5{up};
  penlabels(1,2,3,4,5);
endchar;
%
beginchar("D",0.85em#,cap#,0); "The letter D";
  pickup mypen;
  lft x1=lft x2=0; rt x3=w-sw;
  bot y1=0; top y2=h; y3=.5[y1,y2];
  draw z1--z2..tension .9 ..z3..tension .9 ..cycle;
  penlabels(1,2,3);
endchar;
%
beginchar("E",0.8em#,cap#,0); "The letter E";
  pickup mypen;
  lft x1=lft x2=lft x3=0; rt x4=rt x6=w-sw; x5=.6[x1,x6];
  bot y1=bot y6=0; y2=y5=.55[y1,y3]; top y3=top y4=h;
  draw z1--z2--z3;
  draw z3--z4;
  draw z2--z5;
  draw z1--z6;
  penlabels(1,2,3,4,5,6);
endchar;
%
beginchar("F",0.8em#,cap#,0); "The letter F";
  pickup mypen;
  lft x1=lft x2=lft x3=0; rt x4=w-sw; x5=.6[x3,x4];
  bot y1=0; y2=y5=.55[y1,y3]; top y3=top y4=h;
  draw z1--z2--z3;
  draw z3--z4;
  draw z2--z5;
  penlabels(1,2,3,4,5);
endchar;
%
beginchar("G",0.9em#,cap#,0); "The letter G";
  pickup mypen;
  rt x1=rt x5=w-sw; lft x3=0;
  bot y4=0; top y2=2y3=2y6=2y7=h; y1=.85h;
  y5=.2h;
  x2=x4=.5[x1,x3];
  rt x6=w-sw;
  x7=.6[x3,x6];
  draw z1{up}..z2{left}..z3{down}..z4{right}..z5{up}..z6{up};
  draw z6--z7;
  penlabels(1,2,3,4,5,6,7);
endchar;
%
beginchar("H",0.8em#,cap#,0); "The letter H";
  pickup mypen;
  lft x1=lft x2=lft x3=0; rt x4=rt x5=rt x6=w-sw;
  bot y1=bot y4=0; top y3=top y6=h; y2=y5=.55[y1,y3];
  draw z1--z3; draw z4--z6; draw z2--z5;
  penlabels(1,2,3,4,5,6);
endchar;
%
beginchar("I",0.65em#,cap#,0); "The letter I";
  pickup mypen;
  lft x1=lft x2=0; rt x3=rt x4=w-sw; x5=x6=.5[x1,x3];
  bot y1=bot y3=bot y5=0; top y2=top y4=top y6=h;
  draw z1--z3; draw z2--z4; draw z5--z6;
  penlabels(1,2,3,4,5,6);
endchar;
%
beginchar("J",0.8em#,cap#,0); "The letter J";
  pickup mypen;
  rt x1=w-sw; x2=.4x1; x3=x4=.5[x1,x2]; lft x6=0; x5=.5[x4,x6];
  top y1=top y2=top y3=h; y4=y6=.2[y5,y3]; bot y5=0;
  draw z1--z2; draw z3---z4{down}..z5{left}..z6{up};
  penlabels(1,2,3,4,5,6);
endchar;
%
beginchar("K",0.8em#,cap#,0); "The letter K";
  pickup mypen;
  lft x1=lft x2=lft x3=0; rt x4=rt x5=w-sw;
  bot y1=bot y5=0; top y3=top y4=h; y2=.55[y1,y3];
  draw z1--z3; draw z2--z4; draw z2--z5;
  penlabels(1,2,3,4,5);
endchar;
%
beginchar("L",0.8em#,cap#,0); "The letter L";
  pickup mypen;
  lft x1=lft x2=0; rt x3=w-sw;
  bot y2=bot y3=0; top y1=h;
  draw z1--z2--z3;
  penlabels(1,2,3);
endchar;
%
beginchar("M",em#,cap#,0); "The letter M";
  pickup mypen;
  lft x1=lft x2=0; x3=.5[x2,x4]; rt x4=rt x5=w-sw;
  bot y1=bot y5=0; top y2=top y4=h; y3=.55h;
  draw z1--z2--z3--z4--z5;
  penlabels(1,2,3,4,5);
endchar;
%
beginchar("N",.9em#,cap#,0); "The letter N";
  pickup mypen;
  lft x1=lft x2=0; rt x3=rt x4=w-sw;
  bot y1=bot y3=0; top y2=top y4=h;
  draw z1--z2--z3--z4;
  penlabels(1,2,3,4);
endchar;
%
beginchar("O",.9em#,cap#,0); "The letter O";
  pickup mypen;
  x2=x4=.5[x1,x3]; lft x1=0; rt x3=w-sw;
  y1=y3=.55h; top y2=h; bot y4=0;
  draw z1{up}..z2{right}..z3{down}..z4{left}..cycle;
  penlabels(1,2,3,4);
endchar;
%
beginchar("P",.86em#,cap#,0); "The letter P";
  pickup mypen;
  lft x1=lft x2=lft x3=0; rt x4=w-sw;
  bot y1=0; top y2=h; y3=.55h; y4=.55[y3,y2];
  draw z1--z2;  draw z2{right}..z4{down}..z3{left};
  penlabels(1,2,3,4);
endchar;
%
beginchar("Q",.9em#,cap#,0); "The letter Q";
  pickup mypen;
  x2=x4=.5[x1,x3]; lft x1=0; rt x3=rt x5=w-sw;
  y1=y3=.55h; top y2=h; bot y4=bot y5=0;
  y6=.3[y3,y4]; x6=.3[x4,y3];
  draw z1{up}..z2{right}..z3{down}..z4{left}..cycle;
  draw z6--z5;
  penlabels(1,2,3,4,5);
endchar;  
%
beginchar("R",.86em#,cap#,0); "The letter R";
  pickup mypen;
  path p;
  lft x1=lft x2=lft x3=0; rt x4=rt x5=w-sw;
  bot y1=bot y5=0; top y2=h; y3=.55h; y4=.55[y3,y2];
  p:=z2{right}..z4{down}..z3{left};
  z6=point 1.7 of p;
  draw z1--z2;  draw p;
  draw z6--z5;
  penlabels(1,2,3,4,5);
endchar;
%
beginchar("S",.9em#,cap#,0); "The letter S";
  pickup mypen;
  lft x1=lft x5=0; rt x3=rt x7=w-sw; x2=x4=x6=.5[x1,x3];
  bot y2=0; y1=.15y6; y3=.5[y2,y4]; 
  y4=.55[y2,y6]; y5=.55[y4,y6]; top y6=h; y7=.85h;
  draw z1..z2{right}..z3{up}..z4..z5{up}..z6{right}..z7;
  penlabels(1,2,3,4,5,6,7);
endchar;
%
beginchar("T",.9em#,cap#,0); "The letter T";
  pickup mypen;
  lft x1=0; rt x3=w-sw; x2=x4=.5[x1,x3];
  top y1=top y2=top y3=h; bot y4=0;
  draw z1--z3; draw z2--z4;
  penlabels(1,2,3,4);
endchar;
%
beginchar("U",.9em#,cap#,0); "The letter U";
  pickup mypen;
  lft x1=lft x2=0; rt x4=rt x5=w-sw; x3=.5[x2,x4];
  top y1=top y5=h; y2=y4=.3h; bot y3=0;
  draw z1--z2{down}..z3..z4{up}--z5;
  penlabels(1,2,3,4,5);
endchar;
%
beginchar("V",.84em#,cap#,0); "The letter V";
  pickup mypen;
  lft x1=0; x2=.5[x1,x3]; rt x3=w-sw;
  top y1=top y3=h; bot y2=0;
  draw z1--z2--z3;
  penlabels(1,2,3);
endchar;
%
beginchar("W",1.2em#,cap#,0); "The letter W";
  pickup mypen;
  top y1=top y3=top y5=h; bot y2=bot y4=0;
  lft x1=0; rt x5=w-sw;
  x5-x4=x3-x2=x4-x3=x2-x1;
  draw z1--z2--z3--z4--z5;
  penlabels(1,2,3,4,5);
endchar;
%
beginchar("X",.78em#,cap#,0); "The letter X";
  pickup mypen;
  lft x1=lft x3=0; rt x2=rt x4=w-sw;
  top y1=top y4=h; bot y2=bot y3=0;
  draw z1--z2; draw z3--z4;
  penlabels(1,2,3,4);
endchar;
%
beginchar("Y",.78em#,cap#,0); "The letter Y";
  pickup mypen;
  lft x1=0; rt x2=w-sw; x3=x4=.5[x1,x2];
  top y1=top y2=h; bot y4=0; y3=.5[y1,y4];
  draw z1--z3--z4; draw z2--z3;
  penlabels(1,2,3,4);
endchar;
%
beginchar("Z",.85em#,cap#,0); "The letter Z";
  pickup mypen;
  lft x1=lft x3=0; rt x2=rt x4=w-sw; top y1=top y2=h; bot y3=bot y4=0;
  draw z1--z2--z3--z4;
  penlabels(1,2,3,4);
endchar;
%
%  END CAPITAL LETTERS
%
%  LOWERCASE LETTERS:
%
beginchar("a",.6em#,.55cap#,0);  "The letter a";
  pickup mypen;
  rt x1=w-sw; lft x4=0; x6=x1-.1w; x3=x5=.5[x4,x6];
  y4=y6=.5[y5,y3]; top y3=h; bot y1=bot y5=0;
  x2=x3-.1w; z6=whatever[z1,z2]; 
  draw z1--z6..z2..z3..z4..z5..z6;
  penlabels(1,2,3,4,5,6);
endchar;
%
beginchar("b",.6em#,cap#,0);  "The letter b";
  pickup mypen;
  rt x1=rt x2=rt x3=0; lft x4=w-sw; top y1=h; bot y3=0;; y2=.4[y3,y1];
  y4=.5[y2,y3];
  draw z1--z2--z3 & z3{right}..z4{up}..z2{left};
  penlabels(1,2,3,4);
endchar;
%
beginchar("c",.8em#,.55cap#,0); "The letter c";
  pickup mypen;
  rt x1=rt x5=w-sw; lft x3=0; x2=x4=.5[x3,x1];
  y1=.85h;top y2=h; y3=.5h; bot y4=0; y5=.15h;
  draw z1..z2..z3..z4..z5;
  penlabels(1,2,3,4,5);
endchar;
%
beginchar("d",.8em#,cap#,0);  "The letter d";
  pickup mypen;
  rt x1=w-sw; x1=x2=x3; lft x5=0; x4=x6=.5[x5,x3];
  top y1=h; bot y2=bot y6=0; y4=.4h; y3=y5=.5[y4,y6];
  draw z1--z2; draw z3{up}..z4{left}..z5{down}..z6{right}..cycle;
  penlabels(1,2,3,4,5,6);
endchar;
%
beginchar("e",.8em#,.55cap#,0);  "The letter e";
  pickup mypen;
  lft x1=0; rt x2=w-sw; x2=x5; x3=x4=.5[x1,x2];
  top y3=h; bot y4=0; y1=y2=.55h; y5=.2h;
  draw z1--z2 & z2..z3..z1..z4..z5;
  penlabels(1,2,3,4,5);
endchar;
%
%  LIGATURES:
%
ligtable "`": "`" =: oct"134";
ligtable "'": "'" =: oct"042";
ligtable "-": "-" =: oct"173";
ligtable oct"173": "-" =: oct"174";
end.