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

Timestamp:

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

Author:

mokehehe

Message:

ソース整理

Files:

• lang/haskell/nario/Actor/BrokenBlock.hs (modified) (2 diffs)

lang/haskell/nario/Actor/BrokenBlock.hs

@@ -9 +9 @@
 
 import Actor (Actor(..))
-import AppUtil
 import Const
+import AppUtil (putimg)
 import Images
 
@@ -25 +25 @@
 
         render self imgres scrx sur = do
-                blitSurface (getImageSurface imgres ImgBroken) Nothing sur (pt (x self `div` one - 4 - scrx) (y self `div` one - 4 - 8))
+                putimg sur imgres ImgBroken (x self `div` one - 4 - scrx) (y self `div` one - 4 - 8)
                 return ()