Add hard edge to non-visible areas

2021-06-30 13:52:14 +02:00
parent 1cfd1663d1
commit 532f491327
10 changed files with 68 additions and 56 deletions
@@ -51,10 +51,7 @@ diagonalLinesRect pa pb w d ang = zip lhsPoints $ map findDiPoint lhsPoints
 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 
--    ,verticalPipe 5 orange (0.5 *.* (x +.+ y)) 50 100 
+        $ boxABC (a,b,0) (a',b',0) (0,0,5)
    ]
  where
    (a,b) = y -.- x