Add some girders

2021-06-21 17:49:18 +02:00
parent c2297cd114
commit 52eaeead5d
3 changed files with 55 additions and 2 deletions
@@ -52,5 +52,5 @@ verticalPipe w col (xx,xy) za zb = pictures $ map (poly3D . f) ps
    g (a,b,_) = (a,b,zb)
    f' a = (a,col)

-thickLinePlane :: Float -> Point3 -> Point3 -> Point3 -> [Point3]
-thickLinePlane = undefined
+expandLine :: Point3 -> Point3 -> Point3 -> [Point3]
+expandLine v x y = [x -.-.- v, y -.-.- v, y +.+.+ v, x +.+.+ v]