Update of /cvsroot/htoolkit/gio/src/examples/worm
In directory sc8-pr-cvs1:/tmp/cvs-serv24479/worm
Modified Files:
Main.hs
Log Message:
update
Index: Main.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/examples/worm/Main.hs,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** Main.hs 15 Aug 2003 21:24:55 -0000 1.8
--- Main.hs 4 Oct 2003 08:34:24 -0000 1.9
***************
*** 133,137 ****
DecreaseLevel -> switchLevel state1
Collide -> nextLife state
! _ -> drawInWindow UnBuffered w (drawStep state state1)
where
switchLevel :: State -> IO ()
--- 133,137 ----
DecreaseLevel -> switchLevel state1
Collide -> nextLife state
! _ -> paintIn w UnBuffered (drawStep state state1)
where
switchLevel :: State -> IO ()
***************
*** 147,151 ****
set tm [on command =: betweenLevels 2 1]
| animationStep<=nrAnimationSteps = do
! drawInWindow UnBuffered w
(drawAnimation animationStep step)
set tm [on command =: betweenLevels (animationStep+step) step]
--- 147,151 ----
set tm [on command =: betweenLevels 2 1]
| animationStep<=nrAnimationSteps = do
! paintIn w UnBuffered
(drawAnimation animationStep step)
set tm [on command =: betweenLevels (animationStep+step) step]
***************
*** 169,173 ****
deadWorm :: Worm -> IO ()
deadWorm (segment:rest) = do
! drawInWindow UnBuffered w (eraseSegment segment)
set tm [on command =: deadWorm rest]
deadWorm [] = do
--- 169,173 ----
deadWorm :: Worm -> IO ()
deadWorm (segment:rest) = do
! paintIn w UnBuffered (eraseSegment segment)
set tm [on command =: deadWorm rest]
deadWorm [] = do
|
