Allow tweaking z buffer when rendering polygon, improve explosion render

2021-07-03 23:56:01 +02:00
parent 532f491327
commit 9df19a9e85
33 changed files with 339 additions and 82 deletions
@@ -43,7 +43,7 @@ wedgeOfThickness t x y
    n a b = (t*0.5) *.* errorNormalizeV 4200 (vNormal (a -.- b))

 verticalPipe :: Float -> Color -> Point2 -> Float -> Float -> Picture
-verticalPipe w col (xx,xy) za zb = pictures $ map (poly3D . f) ps
+verticalPipe w col (xx,xy) za zb = pictures $ map (poly3Col . f) ps
  where
    x = (xx,xy,0)
    xs = map (\(a,b) -> x +.+.+ (a,b,za)) [(w,0),(0,w),(-w,0),(0,-w)]