Changeset 20670 for lang/haskell/nario/Font.hs

Timestamp:

10/04/08 13:02:36 (3 months ago)

Author:

mokehehe

Message:

きのこ追加

Files:

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

lang/haskell/nario/Font.hs

@@ -13 +13 @@
 fontXN = 16
 
+-- 文字列表示
 fontPut sur imgsur x y str = zipWithM_ (\i c -> fontPutc sur imgsur i y c) [x..] str
 
+-- １文字表示
 fontPutc sur imgsur x y c = do
         blitSurface imgsur (Just rc) sur pos