Draw vertical center guide line

Changes

1 changed files (+26/-0)

• src/Template/Cuts.elm
  • @@ -170,6 +170,15 @@ )
    ) ] [] + , Svg.path + (Path.d + [ MoveTo Absolute ( x + lugWidth / 2, y ) + , VerticalLineTo Relative length + ] + :: highlightStroke (highlighting == Just LongPieceLength) + :: guideStroke + ) + [] , case params.profile of Straight -> g [] []
  • @@ -408,6 +417,23 @@ == Just BuckleHoleInterval
    ) ) ] + [] + , 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 ->