cga/CLI/Gif.hs

15 lines
307 B
Haskell
Raw Normal View History

2014-10-10 15:40:08 +00:00
{-# OPTIONS_HADDOCK ignore-exports #-}
module CLI.Gif where
import qualified Data.ByteString.Char8 as B
2014-10-10 15:40:08 +00:00
import Diagrams.Backend.Cairo.CmdLine
import Graphics.Diagram.Gif
import MyPrelude
gifCLI :: FilePath -> IO ()
gifCLI _ = do
mesh <- B.readFile "UB1_sonderfaelle.obj"
2014-10-10 15:40:08 +00:00
gifMain (gifDiagS def mesh)