testdata/reduce04.lc


1
2
3
4
5
6
7
8
9
10
11
12

data AB = A | B

render ab =
    let red' = case ab of
                  A -> 1.0
                  B -> 0.0
        frame = FrameBuffer ((colorImage1 (V4 red' 0.0 0.4 1.0)))
    in ScreenOut frame

out = {screen: render}

main = out.screen A