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

Timestamp:

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

Author:

mokehehe

Message:

ソース整理

Files:

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

lang/haskell/nario/Actor/ScoreAdd.hs

@@ -6 +6 @@
 ) where
 
-import Multimedia.SDL hiding (Event)
+--import Multimedia.SDL hiding (Event)
 
 import Actor (Actor(..))
-import AppUtil
+import AppUtil (putimg)
 import Const
 import Images
@@ -27 +27 @@
 
         render self imgres scrx sur = do
-                blitSurface (getImageSurface imgres imgtype) Nothing sur (pt (sx self - scrx) (sy self))
+                putimg sur imgres imgtype (sx self - scrx) (sy self)
                 return ()
                 where