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

Misc cleanup. (#55)

Browse source 
Former-commit-id: 8490a1405235c3902e8bca9d7fc2f6845b287d19
This commit is contained in:
David Himmelstrup 2020-02-20 16:34:52 +08:00 • committed by GitHub
commit b466bcc6be
25 changed files with 175 additions and 732 deletions
Download patch file Download diff file Expand all files Collapse all files

18
examples/tut_glue_blender.hs
View file

@ -17,6 +17,8 @@ import Graphics.SvgTree
import System.Random
import System.Random.Shuffle
-- spritePercent = (/) <$> spriteT <*> spriteDur
main :: IO ()
main = seq texture $ reanimate $ pauseAtEnd 1 $ parA bg $ sceneAnimation $ do
bend <- newVar 0
@ -33,17 +35,17 @@ main = seq texture $ reanimate $ pauseAtEnd 1 $ parA bg $ sceneAnimation $ do
return $ seq (texture (t/dur)) $
blender (script (texture (t/dur)) getBend getTrans getRotX getRotY)
wait 2
tweenVar trans 5 (\t v -> fromToS v (-2) $ curveS 2 (t/5))
tweenVar bend 5 (\t v -> fromToS v 1 $ curveS 2 (t/5))
tweenVar rotY 15 (\t v -> fromToS v (pi*2*2) $ curveS 2 (t/15))
tweenVar trans 5 (\t v -> fromToS v (-2) $ curveS 2 t)
tweenVar bend 5 (\t v -> fromToS v 1 $ curveS 2 t)
tweenVar rotY 15 (\t v -> fromToS v (pi*2*2) $ curveS 2 t)
fork $ do
tweenVar rotX 5 (\t v -> fromToS v (-pi/5) $ curveS 2 (t/5))
tweenVar rotX 5 (\t v -> fromToS v (-pi/5) $ curveS 2 t)
wait 5
tweenVar rotX 5 (\t v -> fromToS v (pi/5) $ curveS 2 (t/5))
tweenVar rotX 5 (\t v -> fromToS v (pi/5) $ curveS 2 t)
wait (15-5)
tweenVar bend 5 (\t v -> fromToS v 0 $ curveS 2 (t/5))
tweenVar rotX 5 (\t v -> fromToS v 0 $ curveS 2 (t/5))
tweenVar trans 5 (\t v -> fromToS v 0 $ curveS 2 (t/5))
tweenVar bend 5 (\t v -> fromToS v 0 $ curveS 2 t)
tweenVar rotX 5 (\t v -> fromToS v 0 $ curveS 2 t)
tweenVar trans 5 (\t v -> fromToS v 0 $ curveS 2 t)
wait 4
-- tweenVar trans 1 (\t v -> fromToS v 0 $ curveS 2 t)
wait 1