hashirama/metabrush
1
0
Fork 0
mirror of https://gitlab.com/sheaf/metabrush.git synced 2024-11-27 17:34:08 +00:00
Code Issues Actions Projects Releases Wiki Activity

fix preview for first curve in path

Browse source
This commit is contained in:
sheaf 2021-02-25 14:43:43 +01:00
parent c6694e4e2f
commit 5e62937f16
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/app/MetaBrush/Render/Document.hs
View file

@ -198,13 +198,15 @@ getDocumentRender
-> case afterDrag of -> case afterDrag of
Just docUpdate -> strokes . documentContent $ newDocument docUpdate Just docUpdate -> strokes . documentContent $ newDocument docUpdate
_ -> strokes content _ -> strokes content
| Just ( PartialPath p0 cp0 anchor _ ) <- mbPartialPath | Just ( PartialPath p0 cp0 anchor firstPoint ) <- mbPartialPath
, let , let
mbFinalPoint :: Maybe ( Point2D Double ) mbFinalPoint :: Maybe ( Point2D Double )
mbControlPoint :: Maybe ( Point2D Double ) mbControlPoint :: Maybe ( Point2D Double )
( mbFinalPoint, mbControlPoint ) ( mbFinalPoint, mbControlPoint )
| Just ( DrawHold holdPos ) <- mbHoldEvent | Just ( DrawHold holdPos ) <- mbHoldEvent
= ( Just holdPos, ( \ cp -> ( cp --> holdPos :: Vector2D Double ) • holdPos ) <$> mbMousePos ) = if firstPoint
then ( mbMousePos , Just holdPos )
else ( Just holdPos, ( \ cp -> ( cp --> holdPos :: Vector2D Double ) • holdPos ) <$> mbMousePos )
| otherwise | otherwise
= ( mbMousePos, Nothing ) = ( mbMousePos, Nothing )
, Just finalPoint <- mbFinalPoint , Just finalPoint <- mbFinalPoint