Draw bracket holes

Changes

1 changed files (+77/-17)

• src/Template.elm
  • @@ -9,7 +9,7 @@
    module Template exposing (template) - import Length exposing (toMM) + import Length exposing (Length, toMM) import Parameters exposing (Parameters, canvasSizeDimension) import String import Svg exposing (..)
  • @@ -145,7 +145,7 @@ topLeftFor anchor ( ceiling lugWidth, ceiling length )
    in g [] - [ Svg.path + (Svg.path [ Svg.Path.d [ MoveTo Absolute ( toFloat ox, toFloat oy ) , VerticalLineTo Relative (length + flap - lugWidth)
  • @@ -167,25 +167,85 @@ , stroke "currentColor"
    , strokeWidth "0.3" ] [] - , Svg.path - (Svg.Path.d - [ MoveTo Absolute ( toFloat ox, toFloat oy + flap ) - , HorizontalLineTo Relative lugWidth + :: Svg.path + (Svg.Path.d + [ MoveTo Absolute ( toFloat ox, toFloat oy + flap ) + , HorizontalLineTo Relative lugWidth + ] + :: skivingSeamStroke + ) + [] + :: Svg.path + [ Svg.Path.d + [ MoveTo Absolute ( toFloat ox, toFloat oy ) + , HorizontalLineTo Relative lugWidth + , VerticalLineTo Relative flap + , HorizontalLineTo Relative -lugWidth + , ClosePath + ] + , fill "url(#SkivingPattern)" ] - :: skivingSeamStroke - ) + [] + :: (List.range 0 (params.longPiece.buckleHole.count - 1) + |> List.map + (\index -> + let + { buckleHole } = + params.longPiece + + offset = + toMM buckleHole.offset + + interval = + toMM buckleHole.interval + in + hole + buckleHole.diameter + ( toFloat ox + lugWidth / 2 + , toFloat oy + offset + interval * toFloat index + ) + ) + ) + ) + + + hole : Length -> ( Float, Float ) -> Svg msg + hole diameter ( cx, cy ) = + let + radius = + toMM diameter / 2 + in + g + [] + [ circle + [ Svg.Attributes.cx (String.fromFloat cx) + , Svg.Attributes.cy (String.fromFloat cy) + , r (String.fromFloat radius) + , fill "none" + , stroke "currentColor" + , strokeWidth "0.3" + ] [] - , Svg.path - [ Svg.Path.d - [ MoveTo Absolute ( toFloat ox, toFloat oy ) - , HorizontalLineTo Relative lugWidth - , VerticalLineTo Relative flap - , HorizontalLineTo Relative -lugWidth - , ClosePath + , g + [ fill "none" + , stroke "currentColor" + , strokeWidth "0.1" + ] + [ Svg.path + [ Svg.Path.d + [ MoveTo Absolute ( cx - radius / 2, cy ) + , HorizontalLineTo Relative radius + ] + ] + [] + , Svg.path + [ Svg.Path.d + [ MoveTo Absolute ( cx, cy - radius / 2 ) + , VerticalLineTo Relative radius + ] ] - , fill "url(#SkivingPattern)" + [] ] - [] ]