Draw vertical center guide line

Changes

1 changed files (+26/-0)

• src/Template/Cuts.elm
  • @@ -170,6 +170,15 @@ longPieceShape ( x, y ) params highlighting commands =
    ) ] [] + , Svg.path + (Path.d + [ MoveTo Absolute ( x + lugWidth / 2, y ) + , VerticalLineTo Relative length + ] + :: highlightStroke (highlighting == Just LongPieceLength) + :: guideStroke + ) + [] , case params.profile of Straight -> g [] []
  • @@ -409,6 +418,23 @@ shortPieceShape params highlighting { includeCaseSideFlap, includeClaspSideFlap,
    ) ] [] + , Svg.path + (Path.d + [ MoveTo Absolute ( x + lugWidth / 2, y ) + , MoveTo Relative + ( 0 + , if includeCaseSideFlap then + toMM params.shortPiece.caseSideFlap + + else + 0 + ) + , VerticalLineTo Relative length + ] + :: highlightStroke (highlighting == Just ShortPieceLength) + :: guideStroke + ) + [] , case params.profile of Straight -> g [] []