cube :: Cube -> Scene ()
cube c = lift renderCube >> tellLog "renderCube\n"
cube :: Cube -> Scene ()
cube c = lift renderCube >> tellLog "renderCube\n"
cube c = lift renderCube >> tellLog "renderCube\n"