Reduce poked cloud verx size

src/Preload/Render.hs

@@ -83,7 +83,7 @@ preloadRender = do
     ieptr <- mallocArray 65536 -- so we can go back to glushort...
 
     cloudbo <- mglCreate glCreateBuffers
-    let cvsize = (sizeOf (0 :: Float)) * 8
+    let cvsize = (sizeOf (0 :: Float)) * 4
         cloudbosize = fromIntegral cvsize * 65536 -- this should be changed
     glNamedBufferStorage cloudbo cloudbosize nullPtr GL_DYNAMIC_STORAGE_BIT
     glBindBufferBase GL_SHADER_STORAGE_BUFFER 6 cloudbo