1 files changed, 3 insertions(+), 2 deletions(-)

M Graphics/Layout.hs

@@ 323,7 323,8 @@ boxLayout parent self paginate = self8
     self8 = boxPosition (0, 0) self7
 
 -- Useful for assembling glyph atlases.
-glyphsPerFont :: LayoutItem x y z -> M.Map Pattern IS.IntSet
-glyphsPerFont (LayoutSpan _ font self) = pattern font `M.singleton` IS.fromList glyphs
+glyphsPerFont :: LayoutItem x y z -> M.Map (Pattern, Double) IS.IntSet
+glyphsPerFont (LayoutSpan _ font self) =
+    (pattern font, fontSize font) `M.singleton` IS.fromList glyphs
   where glyphs = map fromEnum $ map Hb.codepoint $ map fst $ fragmentGlyphs self
 glyphsPerFont node = M.unionsWith IS.union $ map glyphsPerFont $ layoutGetChilds node