-
Notifications
You must be signed in to change notification settings - Fork 14
Circle
RyanGlScott edited this page Oct 9, 2014
·
4 revisions
{-# LANGUAGE OverloadedStrings #-}
module Main where
import Graphics.Blank
main :: IO ()
main = blankCanvas 3000 $ \ context -> do
send context $ do
let centerX = width context / 2
let centerY = height context / 2
let radius = 70
beginPath()
arc(centerX, centerY, radius, 0, 2 * pi, False)
fillStyle "#8ED6FF"
fill()
lineWidth 5
strokeStyle "black"
stroke()