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

Add red dot to fourier example.

Browse source 
Former-commit-id: 8b72c19086375b0bc056101d35a9909e123c26b1
This commit is contained in:
David Himmelstrup 2019-12-09 21:12:29 +08:00
commit 5202cb3d51
1 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

11
examples/tut_glue_fourier.hs
View file

@ -29,13 +29,16 @@ main = reanimate $ parA bg $ sceneAnimation $ do
fourierA :: (Double -> Double) -> Animation
fourierA genPhi = animate $ \t ->
let circles = setFourierLength (t*piFourierLen) piFourier
coeffs = fourierCoefficients $ rotateFourier (genPhi t) circles
in mkGroup
[ drawCircles $ fourierCoefficients $ rotateFourier (genPhi t) circles
[ drawCircles coeffs
, withStrokeColor "green" $
withStrokeLineJoin JoinRound $
withFillOpacity 0 $
withStrokeWidth (defaultStrokeWidth*2) $
mkLinePath $ mkFourierOutline circles
, let x :+ y = sum coeffs in
translate x y $ withFillColor "red" $ mkCircle (defaultStrokeWidth*3)
]
drawCircles :: [Complex Double] -> SVG
@ -49,7 +52,7 @@ drawCircles' circles = mkGroup
, withStrokeColor "black" $
withStrokeLineJoin JoinRound $
withFillOpacity 0 $
mkLinePath [ (x, y) | x :+ y <- scanl (+) 0 circles ] ]
mkLinePath [ (x, y) | x :+ y <- scanl (+) 0 circles ]]
where
worker [] = None
worker (x :+ y : rest) =
@ -65,7 +68,8 @@ data Fourier = Fourier {fourierCoefficients :: [Complex Double]}
piFourier :: Fourier
piFourier = mkFourier $ lineToPoints 500 $
toLineCommands $ extractPath $ scale 15 $ center $ latexAlign "\\pi"
toLineCommands $ extractPath $ scale 15 $
center $ latexAlign "\\pi"
piFourierLen :: Double
piFourierLen = sum $ map magnitude $ drop 1 $ take 500 $ fourierCoefficients piFourier
@ -119,4 +123,3 @@ mkFourierOutline fourier =
]
where
granularity = 500