doc: rgbComponents

Former-commit-id: 71e0c2e1fafb32520c69ae2110a93565e865e683
This commit is contained in:
David Himmelstrup 2019-10-02 16:50:23 +08:00
commit bd056436d3
2 changed files with 24 additions and 0 deletions

View file

@ -0,0 +1,14 @@
#!/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 rgbComponents yellow blue
where
yellow = PixelRGB8 0xFF 0xFF 0x00
blue = PixelRGB8 0x00 0x00 0xFF