mirror of
https://github.com/reanimate/reanimate.git
synced 2026-09-10 23:52:22 +00:00
14 lines
403 B
Haskell
Executable file
14 lines
403 B
Haskell
Executable file
#!/usr/bin/env stack
|
|
-- stack runghc --package reanimate
|
|
module Main(main) where
|
|
|
|
import Reanimate hiding (raster)
|
|
import Reanimate.Builtin.Documentation
|
|
import Reanimate.Builtin.TernaryPlot
|
|
import Reanimate.ColorComponents
|
|
import Data.Colour.CIE
|
|
import Codec.Picture.Types
|
|
|
|
main :: IO ()
|
|
main = reanimate $ docEnv $ animate $ const $
|
|
ternaryPlot 1024 (\a b c -> promotePixel $ toRGB8 $ cieXYZ a b c)
|