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:];