Add more procedural girders

2022-03-16 18:02:17 +00:00
parent 6e05756ed3
commit 58a24c58e3
18 changed files with 150 additions and 123 deletions
@@ -93,7 +93,7 @@ girderV
    -> Float -- ^ distance between cross bars
    -> Float -- ^ width
    -> Point2 -> Point2 -> Shape
-girderV h d w x y = colorSH red $ mconcat $
+girderV h d w x y = mconcat $
    [ thinHighBar h xt yt
    , thinHighBar h xb yb
    ]