\setupbodyfont[dejavu,ss]

\startMPpage[offset=1DK]

def DL (expr p, r, s) =
  draw (point r of p) -- (point s of p) ;
enddef ;

def LD (expr p, r, s, t, u, v) =
  label(v, centerofmass ((point r of p) --
                         (point s of p) --
                         (point t of p) --
                         (point u of p))) ;
enddef ;

picture test ;
test := lmt_outline [
  text = "\bf JAN",
  kind = "path" ,
  ] xsized 20cm ;

path allpaths ; allpaths := for i within test : pathpart i && endfor nocycle ;