Changes
1 changed files (+77/-17)
-
-
@@ -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)" [] ] [] ]
-