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