--- texmf.local/fonts/source/ascgrp/ascgrp.mf-original	Tue Oct 14 13:26:21 2003
+++ texmf.local/fonts/source/ascgrp/ascgrp.mf	Tue Oct 14 16:01:51 2003
@@ -137,7 +137,7 @@
 
 vardef char.C(expr char_w, hheight) =
   numeric d,s;
-  d:=1; s:=1; if pixels_per_inch>=300:d:=d*dd; s:=s*dd; fi;
+  d:=3; s:=1; if pixels_per_inch>=300:d:=d*dd; s:=s*dd; fi;
   for y=0 step 2d until hheight-d: 
     for x=0 step 2d until char_w-d:
       fill (x,y)--(x,y+s)--(x+s,y+s)--(x+s,y)--cycle;   
@@ -282,6 +282,40 @@
   drawwebx(0uux,0uuy);
 enddef;
 
+vardef char.L(expr char_w, hheight) =
+  numeric d,s;
+  d:=3; s:=1; if pixels_per_inch>=300:d:=d*dd; s:=s*dd; fi;
+  d:=d/8;
+  s:=s/8;
+  for y=0 step 2d until hheight-d: 
+    for x=0 step 2d until char_w-d:
+      fill (x,y)--(x,y+s)--(x+s,y+s)--(x+s,y)--cycle;   
+      endfor;
+  endfor;
+  for y=d step 2d until hheight-d: 
+    for x=d step 2d until char_w-d:
+      fill (x,y)--(x,y+s)--(x+s,y+s)--(x+s,y)--cycle;   
+      endfor;
+  endfor;
+enddef;
+
+%% vardef char.M(expr char_w, hheight) =
+%%   numeric d,s;
+%%   d:=3; s:=1; if pixels_per_inch>=300:d:=d*dd; s:=s*dd; fi;
+%%   d:=d/8;
+%%   s:=s/8;
+%%   for y=0 step 3d until hheight-d: 
+%%     for x=0 step 3d until char_w-d:
+%%       fill (x,y)--(x,y+s)--(x+s,y+s)--(x+s,y)--cycle;   
+%%       endfor;
+%%   endfor;
+%%   for y=d step 3d until hheight-d: 
+%%     for x=d step 3d until char_w-d:
+%%       fill (x,y)--(x,y+s)--(x+s,y+s)--(x+s,y)--cycle;   
+%%       endfor;
+%%   endfor;
+%% enddef;
+
 vardef char.rtriangle(expr char_w, hheight) =
   x1 = x2 = char_w - x3 = s;
   y3 = .5hheight;
@@ -366,6 +400,8 @@
 make.I(10us,10us,0us);
 make.J(5us,5us,0us);
 make.K(10us,10us,0us);
+make.L(10usx,10usx,0us);
+%% make.M(10usx,10usx,0us);
 make.a(36bss,0bss,36bss);
 make.b(18bss,0bss,36bss);