% Macros to draw rediced size superscript characters
%
% setsmall should be def'ed in the parameter file
%          setnorm should also be defined there
%
numeric superskip; boolean lushift;
superskip=body_height; lushift=true;
setsmall; font_setup;
%currenttransform:=identity slanted slant
%  yscaled aspect_ratio scaled granularity shifted(0,superskip);
%def t_ = transformed currenttransform enddef;
%
%  we decided to shift these up to a common top at body_height, rather
%     than a common bottom at x_height
%
ARS=aspect_ratio*slant; numeric SA; numeric QRS;
extra_endchar:=
  " SA:=vround (superskip-h); QRS:=vround SA*ARS; currentpicture:=currentpicture shifted (QRS,SA); oechar; ";

boolean dotson; dotson=true; % omit dots on i, j, and possibly etc.

def cp =supr enddef;