% $Id: ci,v 1.2 2004/09/19 21:47:11 karl Exp $ % Public domain. vardef C.ci(expr n) = save p; picture p; p=nullpicture; addto p doublepath makepath pencircle shifted(.5,.5) withpen pencircle scaled.0444; p scaled(.75*fontsize n) enddef;