\relax % v1906test.mtx % % A test of the nokerning commands and the \glyphbboxright IE. \metrics \for(i){0}{20}{1} \setglyph{c\strint{i}} \glyphrule{20}{\mul{\add{\int{i}}{1}}{20}} \movert{\mul{20}{\int{i}}} \endsetglyph \endfor(i) \setglyph{d} \for(i){5}{10}{1} \glyphpcc{c\strint{i}}{\int{i}}{\int{i}} \endfor(i) \resetint{j}{\glyphbboxright} \immediate\write16{\string\glyphbboxright=\strint{j}} \glyph{c20}{1000} \resetint{j}{\glyphbboxright} \immediate\write16{\string\glyphbboxright=\strint{j}} \endsetglyph \for(i){0}{20}{1} \for(j){0}{20}{1} \setkern{c\strint{i}}{c\strint{j}}{\mul{\int{i}}{\int{j}}} \endfor(j) \endfor(i) \noleftkerning{c1,c3,c5,c7,c9,c11,c13,c15,c17,c19} \immediate\write16{\expandafter\meaning\csname a_macro\endcsname} \norightkerning{c1,c3,c5,c7,c9} % \resetint{i}{0} % \loop % \setkern{c\strint{i}}{c\strint{i}}{-50} % \resetint{j}{\sub{20}{\int{i}}} % \resetkern{c\strint{i}}{c\strint{j}}{-100} % \ifnum 20>\int{i} % \resetint{i}{\add{\int{i}}{1}} % \repeat % \resetint{i}{0} % \loop % \ifiskern{c3}{c\strint{i}}\then % \resetint{T}{\kerning{c3}{c\strint{i}}} % \message{c3:c\strint{i} has kern \strint{T} units^^J} % \else % \message{c3:c\strint{i} no kern^^J} % \fi % \ifnum 20>\int{i} % \resetint{i}{\add{\int{i}}{1}} % \repeat \endmetrics