1 2 3 4 5
vardef C.ff(expr n) = save p; picture p; p="f"infont n; addto p also "f"infont n shifted(xpart urcorner p-fontsize n/20,0); p enddef;