[htoolkit-cvs] gio/src/examples/worm WormShow.hs,1.2,1.3

[<kr_...@us...>]

Update of /cvsroot/htoolkit/gio/src/examples/worm
In directory sc8-pr-cvs1:/tmp/cvs-serv1866

Modified Files:
	WormShow.hs 
Log Message:
bugfix


Index: WormShow.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/examples/worm/WormShow.hs,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** WormShow.hs	21 Jun 2003 10:04:29 -0000	1.2
--- WormShow.hs	12 Jul 2003 13:01:10 -0000	1.3
***************
*** 111,115 ****
  drawBorders can = do
      setCanvasPen can [color=:black, thickness=:3]
!     drawRect (Rect (cornerX-3) (cornerY-3) 
                     (cornerX+sizeX*cellSize+11) (cornerY+sizeY*cellSize+11)) can
      setCanvasPen can [thickness=:1]
--- 111,115 ----
  drawBorders can = do
      setCanvasPen can [color=:black, thickness=:3]
!     drawRect (Rect (cornerX-3) (cornerY-3)
                     (cornerX+sizeX*cellSize+11) (cornerY+sizeY*cellSize+11)) can
      setCanvasPen can [thickness=:1]
***************
*** 163,174 ****
      | step<0 = do
          setCanvasPen can [color=:wormBackGroundColour]
!         fillRect (Rect l b x y) can
!         fillRect (Rect r t x y) can
          setCanvasPen can [color=:black, thickness=:3]
          drawRect (Rect l t r b) can
      | otherwise = do
          setCanvasPen can [color=:wormBackGroundColour]
!         fillRect (Rect l b x     (y-4)) can
!         fillRect (Rect r t (x-4) y    ) can
          setCanvasPen can [color=:black, thickness=:3]
          drawRect (Rect l t r b) can
--- 163,174 ----
      | step<0 = do
          setCanvasPen can [color=:wormBackGroundColour]
!         fillRect (Rect (l-1) b     x y) can
!         fillRect (Rect r     (t-1) x y) can
          setCanvasPen can [color=:black, thickness=:3]
          drawRect (Rect l t r b) can
      | otherwise = do
          setCanvasPen can [color=:wormBackGroundColour]
!         fillRect (Rect (l-1) y     r b) can
!         fillRect (Rect x     (t-1) r b) can
          setCanvasPen can [color=:black, thickness=:3]
          drawRect (Rect l t r b) can
***************
*** 177,183 ****
          t = cornerY-3
          r = l+w*n
!         b = t+h*n 
!         x = r-step*w
!         y = b-step*h 
          w = (48+sizeX*cellSize) `div` nrAnimationSteps
          h = (48+sizeY*cellSize) `div` nrAnimationSteps
--- 177,183 ----
          t = cornerY-3
          r = l+w*n
!         b = t+h*n
!         x = r-step*(w+1)
!         y = b-step*(h+1)
          w = (48+sizeX*cellSize) `div` nrAnimationSteps
          h = (48+sizeY*cellSize) `div` nrAnimationSteps