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

Timestamp:

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

Author:

mokehehe

Message:

ソース整理

Files:

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

lang/haskell/nario/Actor/Kinoko.hs

@@ -6 +6 @@
 ) where
 
-import Multimedia.SDL (blitSurface, pt)
+--import Multimedia.SDL (blitSurface, pt)
 
 import Actor (Actor(..))
 import Actor.Common (updateActorBase)
+import AppUtil (Rect(..), putimg)
 import Const
-import AppUtil (getImageSurface, Rect(..))
 import Images
 import Player (PlayerType(..), getPlayerType, setPlayerType, addScore)
@@ -33 +33 @@
 
         render self imgres scrx sur = do
-                blitSurface (getImageSurface imgres imgtype) Nothing sur (pt ((x self) `div` one - chrSize `div` 2 - scrx) ((y self) `div` one - ofsH - 8))
+                putimg sur imgres imgtype ((x self) `div` one - chrSize `div` 2 - scrx) ((y self) `div` one - ofsH - 8)
                 return ()
                 where