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
@@ -107,8 +107,11 @@ doThrust pj w =
        & cWorld . lWorld . projectiles . ix i . prjVel %~ (\v -> accel +.+ frict *.* v)
        & soundContinue (ShellSound i) newPos missileLaunchS (Just 1)
        & makeFlamelet (oldPos -.- vel) 0 (vel +.+ rotateV (pi + sparkD) accel) 3 10
-        & shellTrailCloud (addZ 20 (oldPos +.+ r1 +.+ 30 *.* normalizeV (oldPos -.- newPos)))
+        & shellTrailCloud' trailage trailfadetime 
+            (addZ 20 (oldPos +.+ r1 +.+ 30 *.* normalizeV (oldPos -.- newPos)))
  where
+    trailage = fst . randomR (300, 500) $ _randGen w
+    trailfadetime = fst . randomR (100, 300) $ _randGen w
    accel = _prjAcc pj
    i = _prjID pj
    oldPos = _prjPos pj