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
|
