1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
module Data.Text.ParagraphLayout.Internal.ProtoFragment (ProtoFragment(..))
where
import Data.Int (Int32)
import Data.Text.Glyphize (Direction, GlyphInfo, GlyphPos)
-- | A box fragment which has not been positioned yet.
data ProtoFragment = ProtoFragment
{ direction :: Maybe Direction
-- ^ Text direction, which is constant within a fragment.
, advance :: Int32
-- ^ Total advance of glyphs in this fragment,
-- depending on the text direction.
, glyphs :: [(GlyphInfo, GlyphPos)]
}