% Fuchisch Sans Serif

boolean fuchpencircle, serifs, drgiven;
fuchface:= 0;
fuchthick#:= 1.2;
circumlinex#:= 0.5;
circumliney#:= 0.5;
fuchpencircle:= true;
serifs:= false;
drgiven:= true;
%hspace#:= 1;

path sqpath;

def squarify expr thepath=
    hide (
       sqpath:= (point 0 of thepath) -- (point 1 of thepath);
       for i:= 2 step 1 until (length thepath):
           sqpath:= sqpath -- (point i of thepath);
       endfor;
    )
    sqpath;
enddef;

def dr expr thepath=
    thp:= squarify thepath;
    thepen;
    draw thp;
enddef;

input fuch10.mf