8e724a8f74
i <- ii
tri <- getRandomTriangle i
let points = getPointsInTriangle i tri
let avgRGB = getTriangleAverageRGB i tri
12 lines
No EOL
217 B
Haskell
12 lines
No EOL
217 B
Haskell
module Main where
|
|
|
|
import qualified Lib
|
|
import Graphics.Image
|
|
|
|
ii :: IO (Image VU RGB Double)
|
|
ii = readImageRGB VU "sierra.jpg"
|
|
|
|
main :: IO ()
|
|
main = do
|
|
image <- readImageRGB VU "sierra.jpg"
|
|
displayImage image |