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

That will work!

Troy