Changeset 20925 for lang/haskell/nario/Actor/AnimBlock.hs

Timestamp:

10/07/08 20:42:00 (3 months ago)

Author:

mokehehe

Message:

ソース整理

Files:

• lang/haskell/nario/Actor/AnimBlock.hs (modified) (3 diffs)

lang/haskell/nario/Actor/AnimBlock.hs

@@ -1 @@
--- -*- mode: haskell; Encoding: UTF-8 -*-
+-- -*- mode: haskell; Encoding: UTF-8 -*-
 -- ブロックを叩いたときのバウンド演出
 
@@ -6 +6 @@
 ) where
 
-import Multimedia.SDL hiding (Event)
+--import Multimedia.SDL hiding (Event)
 
 import Actor (Actor(..))
+import AppUtil (cellCrd, putimg)
 import Const
-import AppUtil
-import Images
-import Field
-import Event
+import Field (Cell, chr2img)
+import Event (Event(..))
 
 
@@ -33 +32 @@
                         y' = y self + vy'
                         self' = self { vy = vy', y = y' }
-                        ev' = if (bDead self')
+                        ev' = if bDead self'
                                 then [EvSetField (cellCrd $ x self) (startcy self) $ chr self]
                                 else []
 
         render self imgres scrx sur = do
-                blitSurface (getImageSurface imgres $ chr2img $ chr self) Nothing sur (pt (x self `div` one - scrx) (y self `div` one - 8))
+                putimg sur imgres (chr2img $ chr self) (x self `div` one - scrx) (y self `div` one - 8)
                 return ()