never executed always true always false

    1 {-|
    2 Copyright   : Written by David Himmelstrup
    3 License     : Unlicense
    4 Maintainer  : lemmih@gmail.com
    5 Stability   : experimental
    6 Portability : POSIX
    7 -}
    8 module Reanimate.Builtin.Slide where
    9 
   10 import Reanimate.Transition
   11 import Reanimate.Constants
   12 import Reanimate.Svg
   13 import Reanimate.Effect
   14 
   15 -- | <<docs/gifs/doc_slideLeftT.gif>>
   16 slideLeftT :: Transition
   17 slideLeftT = effectT slideLeft (andE slideLeft moveRight)
   18   where
   19     slideLeft = translateE (-screenWidth) 0
   20     moveRight = constE (translate screenWidth 0)
   21     andE a b d t = a d t . b d t
   22 
   23 slideDownT :: Transition
   24 slideDownT = effectT slideDown (andE slideDown moveUp)
   25   where
   26     slideDown = translateE 0 (-screenHeight)
   27     moveUp = constE (translate 0 screenHeight)
   28     andE a b d t = a d t . b d t
   29 
   30 slideUpT :: Transition
   31 slideUpT = effectT slideUp (andE slideUp moveDown)
   32   where
   33     slideUp = translateE 0 screenHeight
   34     moveDown = constE (translate 0 (-screenHeight))
   35     andE a b d t = a d t . b d t