module Graphics.SVGFonts.Fonts
(
bit, lin, lin2, loadDataFont
) where
import Graphics.SVGFonts.ReadFont (loadFont, PreparedFont)
import Paths_SVGFonts (getDataFileName)
dataFile :: FilePath -> IO FilePath
dataFile = getDataFileName
loadDataFont :: (Read n, RealFloat n) =>
FilePath -> IO (PreparedFont n)
loadDataFont filepath =
do f <- dataFile filepath
loadFont f
bit :: (Read n, RealFloat n) => IO (PreparedFont n)
bit = loadDataFont "fonts/Bitstream.svg"
lin :: (Read n, RealFloat n) => IO (PreparedFont n)
lin = loadDataFont "fonts/LinLibertine.svg"
lin2 :: (Read n, RealFloat n) => IO (PreparedFont n)
lin2 = loadDataFont "fonts/LinLibertineCut.svg"