testdata/accept/reduce03.lc


1
2
3
4
5
6
7

data AB = A | B

image ab = case ab of
  A -> colorImage1 (V4 0.0 0.0 0.4 1.0)
  B -> colorImage1 (V4 0.4 0.0 0.0 1.0)

main = ScreenOut (FrameBuffer (image A))