Stop overwriting depth buffer when combining cloud positions

2023-03-21 16:42:58 +00:00
parent 4519a6fbc7
commit c0579fae00
8 changed files with 22 additions and 27 deletions
@@ -64,7 +64,7 @@ xCylinder n r x = rotateSHq (V3 0 1 0) (pi/2) . translateSHxy (-r) 0 . upperCyli

 xCylinder' :: Float -> Float -> Shape
 xCylinder' r x = translateSHz r . rotateSHq (V3 0 1 0) (pi/2) . upperCylinder x $ 
-    [V2 r    (r)
+    [V2 r    r
    ,V2 (-r/2) (r/2)
    ,V2 (-r/2) (negate $ r/2)
    ,V2 r    (-r)