blob: a8b2dac18298715a057d47c9b6ada90c4842e2b0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
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
data Out = Out (AB -> Output)
out = Out render
main = let
Out o = out
in o A
|