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

Timestamp:

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

Author:

mokehehe

Message:

ソース整理

Files:

• lang/haskell/nario/Field.hs (modified) (1 diff)

lang/haskell/nario/Field.hs

@@ -94 +94 @@
                         | c `elem` " *" = return ()
                         | otherwise             = putchr x y c >> return ()
-                putchr x y c = blitSurface (getImageSurface imgres $ chr2img c) Nothing sur $ pt (x*chrSize - rx) (y*chrSize - 8)
+                putchr x y c = putimg sur imgres (chr2img c) (x*chrSize - rx) (y*chrSize - 8)
 
                 -- 表示される部分だけ取り出す