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

Clean up clip_rect example.

Browse source 
Former-commit-id: faf9f1b7b7e18d3c5c0aeb1b3578a2c7e03864db
This commit is contained in:
David 2019-02-20 11:35:26 +01:00
commit ff7b7e1f49
2 changed files with 18 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

20
README.md
View file

@ -194,25 +194,23 @@ progressMeters = proc () -> do
clip_rect :: Ani ()
clip_rect = proc () -> do
emit -< toHtml $ mkBackground "black"
follow
annotate' $ follow
[ sim
[ sim [ paintStatic prev | prev <- [max 0 (n-4) .. n-1] ]
, sim [ runAni "black" i | i <- [n-4], i>=0 ]
, runAni "white" n ]
| n <- [0..15]
] -< ()
] -< g_ [transform_ $ Lucid.translate (320/2) (180/2)]
where
paintStatic nth = proc () ->
annotate' (obj "white" (20+nth*10) (20+nth*10))
-< g_ [transform_ $ Lucid.translate 160 90]
runAni color nth = proc () ->
annotate' (circle_clip (obj color (20+nth*10) (20+nth*10)))
-< g_ [transform_ $ Lucid.translate 160 90]
obj c width height = proc () -> do
emit -< toHtml $ withStrokeColor "white" $
square (20+nth*10)
runAni color nth = circle_clip $ proc () -> do
duration 1 -< ()
emit -< rect_ [ num_ width_ width, num_ height_ height
, num_ x_ (-width/2), num_ y_ (-height/2)
, stroke_ c, fill_opacity_ "0", stroke_width_ "2" ]
emit -< toHtml $ withStrokeColor color $
square (20+nth*10)
square side = center $ withFillOpacity 0 $ withStrokeWidth (Num 2) $
mkRect (Num 0, Num 0) (Num side) (Num side)
```
![Clipping](gifs/clip_rect.gif)

20
src/Reanimate/Examples.hs
View file

@ -159,25 +159,23 @@ highlight = proc () -> do
clip_rect :: Ani ()
clip_rect = proc () -> do
emit -< toHtml $ mkBackground "black"
follow
annotate' $ follow
[ sim
[ sim [ paintStatic prev | prev <- [max 0 (n-4) .. n-1] ]
, sim [ runAni "black" i | i <- [n-4], i>=0 ]
, runAni "white" n ]
| n <- [0..15]
] -< ()
] -< g_ [transform_ $ Lucid.translate (320/2) (180/2)]
where
paintStatic nth = proc () ->
annotate' (obj "white" (20+nth*10) (20+nth*10))
-< g_ [transform_ $ Lucid.translate 160 90]
runAni color nth = proc () ->
annotate' (circle_clip (obj color (20+nth*10) (20+nth*10)))
-< g_ [transform_ $ Lucid.translate 160 90]
obj c width height = proc () -> do
emit -< toHtml $ withStrokeColor "white" $
square (20+nth*10)
runAni color nth = circle_clip $ proc () -> do
duration 1 -< ()
emit -< rect_ [ num_ width_ width, num_ height_ height
, num_ x_ (-width/2), num_ y_ (-height/2)
, stroke_ c, fill_opacity_ "0", stroke_width_ "2" ]
emit -< toHtml $ withStrokeColor color $
square (20+nth*10)
square side = center $ withFillOpacity 0 $ withStrokeWidth (Num 2) $
mkRect (Num 0, Num 0) (Num side) (Num side)
circle_clip :: Ani () -> Ani ()
circle_clip sub = proc () -> do