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)))