SplatCharacter: PROCEDURE [char: CHARACTER, font: WindowFont.Handle]
      RETURNS [width, height: INTEGER] =
    BEGIN -- font known to be locked in MDS
    bbPtr: BitBlt.BBptr _ splatBBptr;
    height _ WindowFont.FontHeight[font];
    IF char ~IN [font.min..font.max] THEN char _ font.max+1;
    width _ font.width[char];
    bbPtr.slx _ WindowOps.XInSegment[char, font];
    bbPtr.sty _ 0;
    bbPtr.dlx _ 0;
    bbPtr.dty _ 0;
    bbPtr.dw _ width;
    bbPtr.dh _ height;
    BitBlt.BITBLT[bbPtr];
    END;

    splatBBptr^ _ [
      sourcetype: block, function: replace, unused: 0, dbmr:, dlx:, dty:,
      dw:, dh:, sbmr: font.raster, slx:,
      sty:, dbca: portBM, sbca: Inline.LowHalf[font.bitmap],
      gray0:, gray1:, gray2:, gray3:];