Jack/image-triangles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Display images

Browse source
This commit is contained in:
Brett Wines 2018-11-25 21:55:57 -05:00
parent 15c2ce11e0
commit b9186ef768
2 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
app/Main.hs
View file

@ -1,6 +1,9 @@
module Main where
import Lib
import Graphics.Image
main :: IO ()
main = displayGradGrayImage
main = do
image <- readImageRGB VU "sierra.jpg"
displayImage image

BIN
sierra.jpg Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 494 KiB