blob: 1d8ab45f096290f2ee460182d11716d5165d3ee6 (
plain)
1
2
3
4
5
6
7
8
9
|
% $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;
|