Image Loader

Jump to bottom Edit New page

Andy Gill edited this page Jun 18, 2014 · 9 revisions

{-# LANGUAGE OverloadedStrings #-}
module Main where

import Graphics.Blank

main = blankCanvas 3000 { static= ["images/Haskell.jpg"] } $ \ context -> do
    send context $ do
        img1 <- newImage "/images/Haskell.jpg"
        img2 <- newImage "/images/Haskell.jpg"
        drawImage(img1,[69,50,97,129])
        drawImage(img2,[400,50])