mirror of
https://github.com/reanimate/reanimate.git
synced 2026-09-10 15:42:21 +00:00
4bfafa4d8e
Rewamp the scene api, add circle plots, add blender flips, fix caching issue in driver, fix bug in partialSvg. Former-commit-id: 5cb900521044fee13766dd7474fd9b72c7691686
16 lines
488 B
Haskell
Executable file
16 lines
488 B
Haskell
Executable file
#!/usr/bin/env stack
|
|
-- stack runghc --package reanimate
|
|
module Main(main) where
|
|
|
|
import Reanimate hiding (raster, hsv)
|
|
import Reanimate.Builtin.Documentation
|
|
import Reanimate.Builtin.CirclePlot
|
|
import Reanimate.Interpolate
|
|
import Data.Colour.RGBSpace.HSV
|
|
import Data.Colour.RGBSpace
|
|
import Data.Colour.SRGB
|
|
import Codec.Picture.Types
|
|
|
|
main :: IO ()
|
|
main = reanimate $ docEnv $ animate $ const $ circlePlot 500 $ \ang r ->
|
|
promotePixel $ toRGB8 $ uncurryRGB sRGB $ hsv (ang/pi*180) r 1
|