Changeset 20670 for lang/haskell/nario/Font.hs
- Timestamp:
- 10/04/08 13:02:36 (3 months ago)
- Files:
-
- 1 modified
-
lang/haskell/nario/Font.hs (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
lang/haskell/nario/Font.hs
r20175 r20670 13 13 fontXN = 16 14 14 15 -- 文字列表示 15 16 fontPut sur imgsur x y str = zipWithM_ (\i c -> fontPutc sur imgsur i y c) [x..] str 16 17 18 -- 1文字表示 17 19 fontPutc sur imgsur x y c = do 18 20 blitSurface imgsur (Just rc) sur pos
![(please configure the [header_logo] section in trac.ini)](/share/chrome/site/your_project_logo.png)