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

Remove unused code.

Browse source
This commit is contained in:
David 2019-02-14 08:20:37 +01:00
commit 5c6e723d85
1 changed files with 0 additions and 38 deletions
Download patch file Download diff file Expand all files Collapse all files

38
src/Reanimate/Examples.hs
View file

@ -103,41 +103,3 @@ morph_wave_circle = proc t -> do
in (xPos, yValue))
circle = approxFnData 1000 $ \idx ->
(cos (idx*pi*2+pi/2)*50 + 130, sin (idx*pi*2+pi/2)*50)
superGreeting :: Ani ()
superGreeting = bg `par` follow
[ liangGreetings
, proc t -> do
duration 3 -< ()
emit -< text_ [x_ "160", y_ "110", font_size_ "20"
, text_anchor_ "middle"
, fill_ "black"] "I can even nest animations"
annotate (g_ [transform_ $ rotateAround 180 160 90 <> " " <> translate 0 (0), opacity_ "0.5"]) $
liangGreetings -< t
]
where
bg = proc t -> emit -< rect_ [width_ "100%", height_ "100%", fill_ "lightblue"]
liangGreetings :: Ani ()
liangGreetings = follow
[ proc t -> do
duration 3 -< ()
emit -< text_ [x_ "160", y_ "110", font_size_ "20"
, text_anchor_ "middle"
, fill_ "black"] "Hi Liang"
, proc t -> do
duration 3 -< ()
emit -< text_ [x_ "160", y_ "110", font_size_ "20"
, text_anchor_ "middle"
, fill_ "black"] "I'm learning animations"
, sim
[ proc t -> do
emit -< text_ [x_ "160", y_ "110", font_size_ "20"
, text_anchor_ "middle"
, fill_ "black"] "Look!"
, fade 1 $ proc t -> do
duration 5 -< ()
let radius = pack $ show $ 20 + sin (t*10) * 3
emit -< circle_ [cx_ "160", cy_ "150", r_ radius, fill_ "red"]
]
]