reanimate/examples/fonts_latex.hs
David Himmelstrup c8d9fa6204 Draft article about fonts (#95)
Former-commit-id: 002f55748d12811f0c8bf0d9b3df9a6674274cdd
2020-06-24 22:02:09 +08:00

29 lines
716 B
Haskell
Executable file

#!/usr/bin/env stack
-- stack runghc --package reanimate
{-# LANGUAGE OverloadedStrings #-}
module Main
( main
)
where
import Reanimate
import Reanimate.LaTeX
import Reanimate.Builtin.Documentation
main :: IO ()
main =
reanimate
$ docEnv
$ staticFrame 1
$ withFillColor "black"
$ withFillOpacity 1
$ mkGroup
[ latex "Computer Modern"
, translate 0 (-2)
$ latexWithHeaders ["\\usepackage{calligra}"] "\\calligra\nGalligra"
, translate (-6) (-2)
$ latexWithHeaders ["\\usepackage{noto}"] "\\normalfont\nNoto"
, translate (-6) 0
$ latexWithHeaders ["\\usepackage{helvet}"] "Helvetica"
]