hashirama/reanimate
Watch
1
0
Fork
You've already forked reanimate
 0
mirror of https://github.com/reanimate/reanimate.git synced 2026-09-14 09:32:22 +00:00
Code Issues Projects Releases Wiki Activity

Improve bezier example.

Browse source
This commit is contained in:
David 2019-02-15 20:12:11 +01:00
commit 2168adcf3c
2 changed files with 7 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

BIN
gifs/bezier.gif
View file

Binary file not shown.
Side by side Swipe Overlay

Before

Width:  |  Height:  |  Size: 267 KiB

After

Width:  |  Height:  |  Size: 272 KiB

Before After
Before After

12
src/Reanimate/Examples.hs
View file

@ -370,24 +370,26 @@ bezier = adjustSpeed 0.5 $ proc () -> do
renderPath $ renderPath $
approxFnData 1000 $ \idx -> approxFnData 1000 $ \idx ->
between a b idx between a b idx
emit -< mapM_ circleAt new' emit -< mapM_ secondaryCircleAt new'
emit -< primaryCircleAt (head new')
orderN lst = defineAnimation $ proc () -> do orderN lst = defineAnimation $ proc () -> do
duration 2 -< () duration 2 -< ()
s <- signalOscillate 0 1 -< () s <- signalOscillate 0 1 -< ()
emit -< orderN' (map const lst) s emit -< orderN' (map const lst) s
emit -< mapM_ circleAt lst
orderN' [a] s = do orderN' [a] s = do
renderPath $ take (round $ 1000*s) $ approxFnData 1000 $ \idx -> a idx renderPath $ take (round $ 1000*s) $ approxFnData 1000 $ \idx -> a idx
circle_ [num_ cx_ (fst (a s)), num_ cy_ (snd (a s)), num_ r_ 3, fill_ "red"] primaryCircleAt (a s)
orderN' lst s = do orderN' lst s = do
forM_ (zip lst (tail lst)) $ \(a,b) -> renderPath $ forM_ (zip lst (tail lst)) $ \(a,b) -> renderPath $
approxFnData 1000 $ \idx -> approxFnData 1000 $ \idx ->
between (a s) (b s) idx between (a s) (b s) idx
let middlePoints = map (\(a,b) -> \idx -> between (a idx) (b idx) idx) (zip lst (tail lst)) let middlePoints = map (\(a,b) -> \idx -> between (a idx) (b idx) idx) (zip lst (tail lst))
mapM_ (\p -> circleAt (p s)) middlePoints mapM_ secondaryCircleAt $ map ($s) middlePoints
mapM_ secondaryCircleAt $ map ($s) lst
orderN' middlePoints s orderN' middlePoints s
circleAt (x,y) = circle_ [num_ cx_ x, num_ cy_ y, num_ r_ 3, fill_ "green"] secondaryCircleAt (x,y) = circle_ [num_ cx_ x, num_ cy_ y, num_ r_ 3, fill_ "green"]
primaryCircleAt (x,y) = circle_ [num_ cx_ x, num_ cy_ y, num_ r_ 3, fill_ "red"]
between a b _ | a==b = a between a b _ | a==b = a
between (x1, y1) (x2, y2) idx = between (x1, y1) (x2, y2) idx =
( x1 + idx * (x2 - x1) ( x1 + idx * (x2 - x1)