1 2 3 4 5
vardef C.~eq(expr n) = save p; picture p; p="~"infont n; addto p also "-"infont n shifted(0,-.15*fontsize n); p enddef;