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