Image Crop

Jump to bottom Edit New page

RyanGlScott edited this page Oct 9, 2014 · 7 revisions

{-# LANGUAGE OverloadedStrings #-}
module Main where

import Graphics.Blank
import Paths_wiki_suite

main :: IO ()
main = do
    dat <- getDataDir
    blankCanvas 3000 { root = dat } $ \ context -> do
        send context $ do
            img <- newImage "/images/Haskell.jpg"
            drawImage(img,[150,0,150,150,50,50,150,200])