-
Notifications
You must be signed in to change notification settings - Fork 14
Rectangle
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
beginPath();
rect(188, 50, 200, 100);
fillStyle "yellow";
fill();
lineWidth 7;
strokeStyle "black";
stroke();