Radial Gradient

{-# LANGUAGE OverloadedStrings #-}
module Main where

import           Graphics.Blank
import qualified Graphics.Blank.Style as Style

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