blob: d161dc2e41866b5683ea1e742a66bdeb7bf865e9 (
plain)
1
2
3
4
5
6
7
|
% $Id: ~=,v 1.2 2004/09/19 21:47:11 karl Exp $
% Public domain.
vardef C.~eq(expr n) =
save p;
picture p; p="~"infont n;
addto p also "-"infont n shifted(0,-.15*fontsize n);
p enddef;
|