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