Image Loader

Jump to bottom Edit New page

Andy Gill edited this page Aug 21, 2015 · 9 revisions

{-# LANGUAGE OverloadedStrings #-}
module Main where

import Graphics.Blank

main :: IO ()
main = do
    blankCanvas 3000 $ \ context -> do
        send context $ do
            img1 <- newImage "images/Haskell.jpg"
            img2 <- newImage "images/House.jpg"
            drawImage(img1,[69,50,97,129])
            drawImage(img2,[200,50])