Binary files wxfruit-0.1.orig/.DS_Store and wxfruit-0.1/.DS_Store differ
diff -cr wxfruit-0.1.orig/WXFruit.hs wxfruit-0.1/WXFruit.hs
*** wxfruit-0.1.orig/WXFruit.hs	2004-04-30 15:31:56.000000000 +0900
--- wxfruit-0.1/WXFruit.hs	2005-07-19 12:45:02.000000000 +0900
***************
*** 13,20 ****
  import qualified Graphics.UI.WXCore as WXCore
  import AFRP
  import AFRPUtilities
  
! import IORef
  import System.Time
  
  
--- 13,21 ----
  import qualified Graphics.UI.WXCore as WXCore
  import AFRP
  import AFRPUtilities
+ import Control.Arrow
  
! import Data.IORef
  import System.Time
  
  
diff -cr wxfruit-0.1.orig/paddle.hs wxfruit-0.1/paddle.hs
*** wxfruit-0.1.orig/paddle.hs	2004-04-30 15:31:56.000000000 +0900
--- wxfruit-0.1/paddle.hs	2005-01-20 13:53:07.000000000 +0900
***************
*** 19,33 ****
  bg = wxWithColor WX.white wxfill
  
  walls :: WXPicture
! walls = let upper = wxPicFill (wxrect (WX.rect (WX.point 10 10) (WX.size 200 10)))
!             left = wxPicFill (wxrect (WX.rect (WX.point 10 10) (WX.size 10 200)))
!             right = wxPicFill (wxrect (WX.rect (WX.point 200 10) (WX.size 10 200)))
          in wxWithColor WX.red (upper `wxPicOver` left `wxPicOver` right)
  
  paddle :: Int -> WX.Rect
! paddle xpos = WX.rect (WX.Point (xpos - 25) 200) (WX.size 50 10)
  
! gameBox = WX.size 215 215
  
  -- The game screen: takes signals for the velocity of the
  -- ball and the current mouse position; outputs a picture
--- 19,33 ----
  bg = wxWithColor WX.white wxfill
  
  walls :: WXPicture
! walls = let upper = wxPicFill (wxrect (WX.rect (WX.point 10 10) (WX.sz 200 10)))
!             left = wxPicFill (wxrect (WX.rect (WX.point 10 10) (WX.sz 10 200)))
!             right = wxPicFill (wxrect (WX.rect (WX.point 200 10) (WX.sz 10 200)))
          in wxWithColor WX.red (upper `wxPicOver` left `wxPicOver` right)
  
  paddle :: Int -> WX.Rect
! paddle xpos = WX.rect (WX.Point (xpos - 25) 200) (WX.sz 50 10)
  
! gameBox = WX.sz 215 215
  
  -- The game screen: takes signals for the velocity of the
  -- ball and the current mouse position; outputs a picture
***************
*** 39,45 ****
        let xpos = 30 + xi
        let ypos = 30 + yi
        let ballS = WX.rect (WX.point (round (xpos - 12.5)) (round (ypos - 12.5)))
!                           (WX.size 25 25)
        let ballPicS = wxWithColor WX.yellow $ wxPicFill $ wxellipse ballS
        xbounce <- edge -< ((xpos > 175) || (xpos < 45))
        ybounce <- edge -< ((ypos < 45) || hitPaddle)
--- 39,45 ----
        let xpos = 30 + xi
        let ypos = 30 + yi
        let ballS = WX.rect (WX.point (round (xpos - 12.5)) (round (ypos - 12.5)))
!                           (WX.sz 25 25)
        let ballPicS = wxWithColor WX.yellow $ wxPicFill $ wxellipse ballS
        xbounce <- edge -< ((xpos > 175) || (xpos < 45))
        ybounce <- edge -< ((ypos < 45) || hitPaddle)