% 8-point genealogy font
if unknown cmbase: input cmbase fi % omit if CMMF can be assumed
mode_setup;

def generate suffix t= enddef;
input cmr8; font_setup;

font_slant slant; font_x_height x_height#;
font_normal_space 6u#+2letter_fit#;
font_quad 18u#+4letter_fit#;

input gen;
end