blank-canvas-0.6: wiki-suite/Radial_Gradient.hs

{-# LANGUAGE OverloadedStrings #-}
module Radial_Gradient 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 <- createRadialGradient (238, 50, 10, 238, 50, 300)
        -- light blue
        grd # addColorStop(0, "#8ED6FF")
        -- dark blue
        grd # addColorStop(1, "#004CB3")
        Style.fillStyle grd;
        fill();


    wiki $ snapShot context "images/Radial_Gradient.png"
    wiki $ close context