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

Timestamp:

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

Author:

mokehehe

Message:

ソース整理

Files:

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

lang/haskell/nario/Actor/Flower.hs

@@ -6 +6 @@
 ) where
 
-import Multimedia.SDL (blitSurface, pt)
+--import Multimedia.SDL (itSurface, pt)
 
 import Actor (Actor(..))
 import Const
 import Util (sgn)
-import AppUtil (getImageSurface, cellCrd, Rect(..))
+import AppUtil (cellCrd, Rect(..), putimg)
 import Images
-import Field
 import Player (PlayerType(..), getPlayerType, setPlayerType, addScore)
 import Event (Event(..))
@@ -29 +28 @@
 
         render self imgres scrx sur = do
-                blitSurface (getImageSurface imgres ImgFlower) Nothing sur (pt ((x self) `div` one - chrSize `div` 2 - scrx) ((y self) `div` one - 15 - 8))
+                putimg sur imgres ImgFlower ((x self) `div` one - chrSize `div` 2 - scrx) ((y self) `div` one - 15 - 8)
                 return ()