mirror of
https://github.com/reanimate/reanimate.git
synced 2026-09-09 15:12:21 +00:00
16 lines
498 B
Haskell
Executable file
16 lines
498 B
Haskell
Executable file
#!/usr/bin/env stack
|
|
-- stack runghc --package reanimate
|
|
module Main(main) where
|
|
|
|
import Codec.Picture.Types
|
|
import Reanimate
|
|
import Reanimate.Builtin.Documentation
|
|
import Reanimate.Builtin.TernaryPlot
|
|
|
|
main :: IO ()
|
|
main = reanimate $ docEnv $ staticFrame 1 $
|
|
ternaryPlot 100 $ \aCoord bCoord cCoord -> promotePixel $
|
|
let red = round $ aCoord*255
|
|
green = round $ bCoord*255
|
|
blue = round $ cCoord*255
|
|
in PixelRGB8 red green blue
|