mirror of
https://github.com/reanimate/reanimate.git
synced 2026-09-12 00:23:08 +00:00
14 lines
388 B
Haskell
Executable file
14 lines
388 B
Haskell
Executable file
#!/usr/bin/env stack
|
|
-- stack runghc --package reanimate
|
|
module Main(main) where
|
|
|
|
import Reanimate
|
|
import Reanimate.Interpolate
|
|
import Reanimate.Builtin.Documentation
|
|
import Codec.Picture
|
|
|
|
main :: IO ()
|
|
main = reanimate $ docEnv $ animate $ const $ showColorMap $ interpolateRGB8 xyzComponents yellow blue
|
|
where
|
|
yellow = PixelRGB8 0xFF 0xFF 0x00
|
|
blue = PixelRGB8 0x00 0x00 0xFF
|