Changeset 20175 for lang/haskell

Show
Ignore:
Timestamp:
09/29/08 06:52:51 (8 weeks ago)
Author:
mokehehe
Message:

フォント表示追加

Location:
lang/haskell/nario
Files:
1 added
3 modified

Legend:

Unmodified
Added
Removed

  • lang/haskell/nario/Const.hs

    r20025 r20175  
    2020        | ImgDk00 | ImgDk01 | ImgDk10 | ImgDk11 
    2121        | ImgGrass00 | ImgGrass01 | ImgGrass02 
     22        | ImgFont 
    2223        deriving Eq 
    2324 
    … …  
    5657imageFn ImgGrass01 = "grass01.bmp" 
    5758imageFn ImgGrass02 = "grass02.bmp" 
     59imageFn ImgFont = "font.bmp" 
    5860 
    5961images = [ 
    … …  
    6466        ImgCloud00, ImgCloud01, ImgCloud02, ImgCloud10, ImgCloud11, ImgCloud12, 
    6567        ImgDk00, ImgDk01, ImgDk10, ImgDk11, 
    66         ImgGrass00, ImgGrass01, ImgGrass02 
     68        ImgGrass00, ImgGrass01, ImgGrass02, 
     69        ImgFont 
    6770        ] 

  • lang/haskell/nario/Main.hs

    r20174 r20175  
    1313import Util 
    1414import Const 
     15import Font 
    1516 
    1617wndTitle = "delayed-stream test" 
    … …  
    117118        renderPlayer sur imgres scrx (pl gs) 
    118119 
     120        renderInfo gs imgres sur 
     121 
    119122        flipSurface sur 
    120123        return () 
     124 
     125-- 情報描画 
     126renderInfo :: GameState -> ImageResource -> Scr 
     127renderInfo gs imgres sur = do 
     128        puts 3 1 "MARIO" 
     129        puts 3 2 "00000" 
     130        puts 11 2 "?*00" 
     131        puts 19 1 "WORLD" 
     132        puts 20 2 "1-1" 
     133        puts 26 1 "TIME" 
     134        puts 27 2 "255" 
     135        where 
     136                puts = fontPut sur fontsur 
     137                fontsur = getImageSurface imgres ImgFont 

  • lang/haskell/nario/README.txt

    r20045 r20175  
    4242        http://www.geocities.co.jp/SiliconValley-Sunnyvale/6160/newtech/m11.htm 
    4343 
     44        �t�H���g 
     45        http://qtchicks.hp.infoseek.co.jp/fonts-nintendo.html