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

Timestamp:

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

Author:

mokehehe

Message:

ソース整理

Files:

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

lang/haskell/nario/Actor/Nokonoko.hs

@@ -6 +6 @@
 ) where
 
-import Multimedia.SDL (blitSurface, pt)
+--import Multimedia.SDL (blitSurface, pt)
 
 import Actor (Actor(..), ActorWrapper(..))
 import Actor.Common (updateActorBase, stamp)
 import Actor.Koura
+import AppUtil (Rect(..), putimg)
 import Const
-import AppUtil (getImageSurface, Rect(..))
 import Images
 import Player (setPlayerDamage, stampPlayer, addScore)
@@ -34 +34 @@
 
         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