Tweak window rendering

2021-09-01 13:13:10 +01:00
parent ecaa5c48d0
commit ce4c3bd231
5 changed files with 27 additions and 11 deletions
@@ -82,7 +82,6 @@ drawFlame rotd pt = thePic
    prot  p' = p' +.+ rotateV (fromIntegral time) (V2 0 1)
    prot2 p' = p' +.+ rotateV (negate $ fromIntegral time) (V2 0 1)
    prot3 p' = p' +.+ rotateV (2 + fromIntegral time * 0.1) (V2 0 2)
-
 {- TODO: add generalised area damage particles/hiteffects.  -}
 moveFlame 
    :: Point2   -- ^ Rotation direction
@@ -132,7 +131,7 @@ moveFlame rotd w pt
    pOut p = p +.+ safeNormalizeV (sp -.- p)
    reflV wall = (0.3 *.* reflectIn (uncurry (-.-) . swap $ _wlLine wall) vel )
        +.+ (0.2 *.* vel)
-    smokeCol = fst $ randomR (0.2,0.5) (_randGen w)
+    smokeCol = fst $ randomR (0.5,0.8) (_randGen w)
    smokeGen = makeFlamerSmokeAt smokeCol (addZ 20 ep)

 makeFlameletTimed