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

Display random coordinates

Browse source
This commit is contained in:
Brett Wines 2018-11-25 22:23:59 -05:00
parent 2626e47712
commit c647520709
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
app/Main.hs
View file

@ -1,9 +1,12 @@
module Main where
import Lib
import qualified Lib
import Graphics.Image
main :: IO ()
main = do
image <- readImageRGB VU "sierra.jpg"
image <- readImageRGB RPU "sierra.jpg"
Lib.getRandomPixel image >>= print
Lib.getRandomPixel image >>= print
Lib.getRandomPixel image >>= print
displayImage image