blob: 48344472ab4b16c0b58bdce65078e9b34c0b2db4 (
plain)
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
|