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 -- | <<docs/gifs/doc_slideDownT.gif>>
   24 slideDownT :: Transition
   25 slideDownT = effectT slideDown (andE slideDown moveUp)
   26   where
   27     slideDown = translateE 0 (-screenHeight)
   28     moveUp = constE (translate 0 screenHeight)
   29     andE a b d t = a d t . b d t
   30 
   31 -- | <<docs/gifs/doc_slideUpT.gif>>
   32 slideUpT :: Transition
   33 slideUpT = effectT slideUp (andE slideUp moveDown)
   34   where
   35     slideUp = translateE 0 screenHeight
   36     moveDown = constE (translate 0 (-screenHeight))
   37     andE a b d t = a d t . b d t