never executed always true always false

    1 module Reanimate.Builtin.Slide where
    2 
    3 import Reanimate.Transition
    4 import Reanimate.Constants
    5 import Reanimate.Svg
    6 import Reanimate.Effect
    7 
    8 -- | <<docs/gifs/doc_slideLeftT.gif>>
    9 slideLeftT :: Transition
   10 slideLeftT = effectT slideLeft (andE slideLeft moveRight)
   11   where
   12     slideLeft = translateE (-screenWidth) 0
   13     moveRight = constE (translate screenWidth 0)
   14     andE a b d t = a d t . b d t
   15 
   16 slideDownT :: Transition
   17 slideDownT = effectT slideDown (andE slideDown moveUp)
   18   where
   19     slideDown = translateE 0 (-screenHeight)
   20     moveUp = constE (translate 0 screenHeight)
   21     andE a b d t = a d t . b d t
   22 
   23 slideUpT :: Transition
   24 slideUpT = effectT slideUp (andE slideUp moveDown)
   25   where
   26     slideUp = translateE 0 screenHeight
   27     moveDown = constE (translate 0 (-screenHeight))
   28     andE a b d t = a d t . b d t