Image Crop

«html5canvastutorials version»

{-# LANGUAGE OverloadedStrings #-}
module Main where

import Graphics.Blank

main = blankCanvas 3000 $ \ context -> do
    send context $ do
        img <- newImage "/images/princess.jpg"
        drawImage(img,[400,200,300,400,100,100,150,200])