Unify matrix uniform assignment, move towards uniform block

2021-06-24 14:38:17 +02:00
parent 2625927f14
commit d534f08064
19 changed files with 70 additions and 91 deletions
@@ -97,7 +97,7 @@ drawBoostShockwave pj = setLayer 1 $ onLayer UPtLayer $ pictures $
        r <- safeHead xs
        return $ color (snd $ last lpairs) $ uncurry translate hp 
            $ arc (argV hv - pi/2) (argV hv + pi/2) $ r * magV hv
-    cols = map (flip withAlpha white) [0,0.05..]
+    cols = map (`withAlpha` white) [0,0.05..]
    lpairs = zip (reverse lps) cols
    pvs = _pjPoints pj
    t = _pjTimer pj