>
> vardef J = thelabel(textext("J") scaled 2,origin) enddef ;


That will work!

Troy