Fix text and add more documentation.

Former-commit-id: 1c9e6e964707ccd424aff914811e67597732c91c
This commit is contained in:
David Himmelstrup 2019-11-29 13:46:19 +08:00
commit d02a6caf0c
3 changed files with 44 additions and 0 deletions

15
examples/doc_mkText.hs Executable file
View file

@ -0,0 +1,15 @@
#!/usr/bin/env stack
-- stack runghc --package reanimate
{-# LANGUAGE OverloadedStrings #-}
module Main (main) where
import Reanimate
import Reanimate.Builtin.Documentation
import qualified Data.Text as T
main :: IO ()
main = reanimate $ docEnv $ mkAnimation 2 $ \t ->
scale 2 $
withStrokeWidth 0.05 $
mkText (T.take (round $ t*15) "text")