mirror of
https://github.com/reanimate/reanimate.git
synced 2026-09-12 00:23:08 +00:00
Fix text and add more documentation.
Former-commit-id: 1c9e6e964707ccd424aff914811e67597732c91c
This commit is contained in:
parent
51276d0cdd
commit
d02a6caf0c
3 changed files with 44 additions and 0 deletions
15
examples/doc_mkText.hs
Executable file
15
examples/doc_mkText.hs
Executable 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")
|
||||
|
||||
Loading…
Reference in a new issue