Changeset 20925 for lang/haskell/nario/AppUtil.hs

Timestamp:

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

Author:

mokehehe

Message:

ソース整理

Files:

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

lang/haskell/nario/AppUtil.hs

@@ -1 +1 @@
 module AppUtil where
 
-import Multimedia.SDL (Surface, SDLKey(..), loadBMP, freeSurface, surfacePixelFormat, displayFormat, pfPalette, setColorKey, SurfaceFlag(..))
+import Multimedia.SDL (Surface, SDLKey(..), loadBMP, freeSurface, surfacePixelFormat, displayFormat, pfPalette, setColorKey, SurfaceFlag(..), blitSurface, pt)
 import Data.Maybe (fromJust)
 
@@ -69 +69 @@
 getImageSurface imgres = fromJust . flip lookup imgres
 
+putimg :: Surface -> ImageResource -> ImageType -> Int -> Int -> IO ()
+putimg sur imgres imgtype x y = do
+        blitSurface (getImageSurface imgres imgtype) Nothing sur (pt x y)
+        return ()
+
 
 -- 固定座標系からセル座標系に