Linear Gradient

{-# LANGUAGE OverloadedStrings #-}
module Main where

import           Graphics.Blank
import qualified Graphics.Blank.Style as Style
import           Wiki -- (578,200)

main :: IO ()
main = blankCanvas 3000 $ \ context -> do
    send context $ do        
        rect(0, 0, width context, height context)
        grd <- createLinearGradient(0, 0, width context, height context)
        -- light blue
        grd # addColorStop(0, "#8ED6FF")
        -- dark blue
        grd # addColorStop(1, "#004CB3")
        Style.fillStyle grd;
        fill();