mirror of
https://github.com/reanimate/reanimate.git
synced 2026-09-13 09:02:54 +00:00
25 lines
801 B
Haskell
Executable file
25 lines
801 B
Haskell
Executable file
#!/usr/bin/env stack
|
|
-- stack --resolver lts-13.14 runghc --package reanimate
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
module Main (main) where
|
|
|
|
import Control.Lens
|
|
|
|
import Graphics.SvgTree (Number(..))
|
|
import Reanimate.Driver (reanimate)
|
|
import Reanimate.LaTeX
|
|
import Reanimate.Monad
|
|
import Reanimate.Svg
|
|
import Reanimate.Signal
|
|
import Reanimate.Raster
|
|
import Codec.Picture
|
|
|
|
main :: IO ()
|
|
main = reanimate $ repeatAnimation 6 $ mkAnimation 5 $ do
|
|
s <- getSignal signalLinear
|
|
emit $ mkGroup
|
|
[ mkBackground "black"
|
|
, rotate (s*360) $ center $ scale 0.5 $ embedImage img ]
|
|
where
|
|
img = generateImage pixelRenderer 255 255
|
|
pixelRenderer x y = PixelRGB8 (fromIntegral x) (fromIntegral y) 128
|