Use immutable storage for fullscreen vbo

2023-03-21 12:47:02 +00:00
parent 9bba0a43a4
commit ba240723f3
13 changed files with 105 additions and 40 deletions
@@ -6,8 +6,8 @@ import Picture
 drawCloud :: CloudDraw -> Cloud -> Picture
 drawCloud cd = case cd of
    CloudColor radmult fadet col -> drawCloudWith radmult fadet col
-    DrawGasCloud col -> const . setLayer MidLayer . setDepth 30 $ color (withAlpha 0.05 col) 
-                                          $ circleSolid 20
+--    DrawGasCloud col -> const . setLayer MidLayer . setDepth 30 $ color (withAlpha 0.05 col) 
+--                                          $ circleSolid 20

 drawCloudWith :: Float -> Float -> Color -> Cloud -> Picture
 drawCloudWith radMult fadet col cl = setLayer MidLayer