blob: b8cfac1908f171e46018d294ef65eb95d0281527 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
import LambdaCube2 hiding (main)
import RecursiveTexture hiding (main)
inner2 =
makeFrame (Uniform "Time")
(fetch "stream4" (Attribute "position4"))
main :: Output
main = ScreenOut $ snd $ iterate (\(n, f) -> (n+1, cube' 512 n f)) (0, inner2) !! 2
|