Category : EmTeX is a TeX/LaTeX document editor
Archive   : MF2.ZIP
Filename : HALFTONE.MF
pair p[]; % the pixels in order (first p0 becomes black, then p1, etc)
p0=(1,1);
p8=(2,0);
p16=(1,0);
p24=(0,0);
p32=(3,-1);
p40=(2,-1);
p48=(1,-1);
p56=(2,-2);
transform r; r=identity rotatedaround ((1.5,1.5),90);
for i=0 step 8 until 56:
p[i+2]=p[i] transformed r;
p[i+6]=p[i+2] transformed r;
p[i+5]=p[i+6] transformed r;
p[i+1]=p[i] shifted (4,4);
p[i+3]=p[i+2] shifted (4,4);
p[i+7]=p[i+6] shifted (4,4);
p[i+4]=p[i+5] shifted (4,4);
endfor
for i=32 step 1 until 63:
p[i] := (xpart p[i] mod 8, ypart p[i] mod 8);
endfor
mode_setup;
designsize:=64/pt; % that's 64 pixels
def makebox(text t)= enddef; % shut off boxes
picture prevchar;
prevchar=nullpicture;
for i=0 upto 64:
beginchar(i+ASCII"0",designsize/8,designsize/8,0);
currentpicture:=prevchar;
if i>0: fill unitsquare shifted p[i-1]; fi
prevchar:=currentpicture;
endchar;
endfor
font_quad=designsize/8;
end
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/