Ticket #1852: BasicTracer.hs

File BasicTracer.hs, 406 bytes (added by mwolak, 6 years ago)
Line 
1import Data.List
2
3data Vec4 = Vec4 !Float !Float !Float !Float
4
5
6main :: IO ()
7main = print traceList
8
9traceList = concatMap (\(x,y) -> let (r,g,b,a) = getPixel (x,y) in [r,g,b,a])
10    [(0,0)]
11    where
12    getPixel (x,y) = (red,green,blue,alpha)
13        where
14        Vec4 fr fg fb fa = seq x (Vec4 1 2 3 4)
15        red = round fr
16        green = round fg
17        blue = round fb
18        alpha = round fa