Working shadows from foreground, not optimised

2021-06-29 16:47:16 +02:00
parent 3d16c33d33
commit 3056e6384b
6 changed files with 23 additions and 16 deletions
@@ -48,9 +48,9 @@ diagonalLinesRect pa pb w d ang = zip lhsPoints $ map findDiPoint lhsPoints
        ]
    yN = d * 0.5 *.* normalizeV (pa -.- pb)

-highPipe :: Point2 -> Point2 -> [Polyhedra]
-highPipe x@(xx,xy) y = 
-    [ Polyhedron . map (map ( (,orange) . (+.+.+ (xx,xy,50)))) 
+highPipe :: Float -> Point2 -> Point2 -> [Polyhedra]
+highPipe h x@(xx,xy) y = 
+    [ Polyhedron . map (map ( (,orange) . (+.+.+ (xx,xy,h)))) 
        $ boxABC (a,b,0) (a',b',0) (0,0,10)
 --    ,verticalPipe 5 orange x 0 100 
 --    ,verticalPipe 5 orange y 0 100