Deploying to gh-pages from @ dc54936ba4 🚀

This commit is contained in:
Lemmih 2020-08-27 02:53:33 +00:00
commit 46be05569e
19 changed files with 2596 additions and 2540 deletions

View file

@ -17,34 +17,41 @@ span.spaces { background: white }
<span class="decl"><span class="nottickedoff">never executed</span> <span class="tickonlytrue">always true</span> <span class="tickonlyfalse">always false</span></span>
</pre>
<pre>
<span class="lineno"> 1 </span>module Reanimate.Builtin.Slide where
<span class="lineno"> 2 </span>
<span class="lineno"> 3 </span>import Reanimate.Transition
<span class="lineno"> 4 </span>import Reanimate.Constants
<span class="lineno"> 5 </span>import Reanimate.Svg
<span class="lineno"> 6 </span>import Reanimate.Effect
<span class="lineno"> 7 </span>
<span class="lineno"> 8 </span>-- | &lt;&lt;docs/gifs/doc_slideLeftT.gif&gt;&gt;
<span class="lineno"> 9 </span>slideLeftT :: Transition
<span class="lineno"> 10 </span><span class="decl"><span class="istickedoff">slideLeftT = effectT slideLeft (andE slideLeft moveRight)</span>
<span class="lineno"> 11 </span><span class="spaces"> </span><span class="istickedoff">where</span>
<span class="lineno"> 12 </span><span class="spaces"> </span><span class="istickedoff">slideLeft = translateE (-screenWidth) 0</span>
<span class="lineno"> 13 </span><span class="spaces"> </span><span class="istickedoff">moveRight = constE (translate screenWidth 0)</span>
<span class="lineno"> 14 </span><span class="spaces"> </span><span class="istickedoff">andE a b d t = a d t . b <span class="nottickedoff">d</span> <span class="nottickedoff">t</span></span></span>
<span class="lineno"> 15 </span>
<span class="lineno"> 16 </span>slideDownT :: Transition
<span class="lineno"> 17 </span><span class="decl"><span class="nottickedoff">slideDownT = effectT slideDown (andE slideDown moveUp)</span>
<span class="lineno"> 18 </span><span class="spaces"> </span><span class="nottickedoff">where</span>
<span class="lineno"> 19 </span><span class="spaces"> </span><span class="nottickedoff">slideDown = translateE 0 (-screenHeight)</span>
<span class="lineno"> 20 </span><span class="spaces"> </span><span class="nottickedoff">moveUp = constE (translate 0 screenHeight)</span>
<span class="lineno"> 21 </span><span class="spaces"> </span><span class="nottickedoff">andE a b d t = a d t . b d t</span></span>
<span class="lineno"> 1 </span>{-|
<span class="lineno"> 2 </span>Copyright : Written by David Himmelstrup
<span class="lineno"> 3 </span>License : Unlicense
<span class="lineno"> 4 </span>Maintainer : lemmih@gmail.com
<span class="lineno"> 5 </span>Stability : experimental
<span class="lineno"> 6 </span>Portability : POSIX
<span class="lineno"> 7 </span>-}
<span class="lineno"> 8 </span>module Reanimate.Builtin.Slide where
<span class="lineno"> 9 </span>
<span class="lineno"> 10 </span>import Reanimate.Transition
<span class="lineno"> 11 </span>import Reanimate.Constants
<span class="lineno"> 12 </span>import Reanimate.Svg
<span class="lineno"> 13 </span>import Reanimate.Effect
<span class="lineno"> 14 </span>
<span class="lineno"> 15 </span>-- | &lt;&lt;docs/gifs/doc_slideLeftT.gif&gt;&gt;
<span class="lineno"> 16 </span>slideLeftT :: Transition
<span class="lineno"> 17 </span><span class="decl"><span class="istickedoff">slideLeftT = effectT slideLeft (andE slideLeft moveRight)</span>
<span class="lineno"> 18 </span><span class="spaces"> </span><span class="istickedoff">where</span>
<span class="lineno"> 19 </span><span class="spaces"> </span><span class="istickedoff">slideLeft = translateE (-screenWidth) 0</span>
<span class="lineno"> 20 </span><span class="spaces"> </span><span class="istickedoff">moveRight = constE (translate screenWidth 0)</span>
<span class="lineno"> 21 </span><span class="spaces"> </span><span class="istickedoff">andE a b d t = a d t . b <span class="nottickedoff">d</span> <span class="nottickedoff">t</span></span></span>
<span class="lineno"> 22 </span>
<span class="lineno"> 23 </span>slideUpT :: Transition
<span class="lineno"> 24 </span><span class="decl"><span class="nottickedoff">slideUpT = effectT slideUp (andE slideUp moveDown)</span>
<span class="lineno"> 23 </span>slideDownT :: Transition
<span class="lineno"> 24 </span><span class="decl"><span class="nottickedoff">slideDownT = effectT slideDown (andE slideDown moveUp)</span>
<span class="lineno"> 25 </span><span class="spaces"> </span><span class="nottickedoff">where</span>
<span class="lineno"> 26 </span><span class="spaces"> </span><span class="nottickedoff">slideUp = translateE 0 screenHeight</span>
<span class="lineno"> 27 </span><span class="spaces"> </span><span class="nottickedoff">moveDown = constE (translate 0 (-screenHeight))</span>
<span class="lineno"> 26 </span><span class="spaces"> </span><span class="nottickedoff">slideDown = translateE 0 (-screenHeight)</span>
<span class="lineno"> 27 </span><span class="spaces"> </span><span class="nottickedoff">moveUp = constE (translate 0 screenHeight)</span>
<span class="lineno"> 28 </span><span class="spaces"> </span><span class="nottickedoff">andE a b d t = a d t . b d t</span></span>
<span class="lineno"> 29 </span>
<span class="lineno"> 30 </span>slideUpT :: Transition
<span class="lineno"> 31 </span><span class="decl"><span class="nottickedoff">slideUpT = effectT slideUp (andE slideUp moveDown)</span>
<span class="lineno"> 32 </span><span class="spaces"> </span><span class="nottickedoff">where</span>
<span class="lineno"> 33 </span><span class="spaces"> </span><span class="nottickedoff">slideUp = translateE 0 screenHeight</span>
<span class="lineno"> 34 </span><span class="spaces"> </span><span class="nottickedoff">moveDown = constE (translate 0 (-screenHeight))</span>
<span class="lineno"> 35 </span><span class="spaces"> </span><span class="nottickedoff">andE a b d t = a d t . b d t</span></span>
</pre>
</body>