% $Id: Fi,v 1.2 2004/09/19 21:47:11 karl Exp $
% Public domain.
vardef C.Fi(expr n) =
 save p;
 picture p; p="f"infont n;
 for c="f","i":
  addto p also c infont n shifted(xpart urcorner p-fontsize n/20,0);
 endfor
 p enddef;
