free-gameでフルスクリーン表示

この記事はfree-game-0.9.3.5について書いてあります

free-gameというのは、HaskellでFreeモナドを使ってゲームを作れるライブラリです。それ以上の説明は面倒本題ではないので割愛します。ググって下さい。

で、フルスクリーンにする方法です。Twitterでぼやいてたら@fumieval氏が教えてくれました。ありがとうございます。

windowed.hs

import Data.Function
import Graphics.UI.FreeGame

main = do
  font <- loadFont "VL-PGothic-Regular.ttf"
  -- GUIParamの_windowedをFalseにするとフルスクリーンになる
  -- デフォルトはTrue
  -- （ウィンドウモードか、ってことらしい）
  -- 途中で変更は（多分）できない。
  runGame (def {_windowed = False}) $ fix $ \loop-> do
    translate (V2 50 300) $ colored black $ text font 40 "Push Q to quit"
    tick

    bracket 
    q <- keyChar 'Q'
    unless q loop