ength x) x)
   text (short $ lctx !! 0) (V2 tab (initY + 0 * delta))
   text (short $ lctx !! 1) (V2 tab (initY + 1 * delta))
   text (short $ lctx !! 2) (V2 tab (initY + 2 * delta))
   text (short $ lctx !! 3) (V2 tab (initY + 3 * delta))
   text (short $ lctx !! 4) (V2 tab (initY + 4 * delta))
   text (short $ lctx !! 5) (V2 tab (initY + 5 * delta))
   text (short $ lctx !! 6) (V2 tab (initY + 6 * delta))
   text (short $ lctx !! 7) (V2 tab (initY + 7 * delta))
   text (short $ lc
showPlayerInfo :: SDL.Texture -> Player -> IO ()
showPlayerInfo tx p = withCanvas tx $ do
   -- 設定 字體 大小 粗體 斜體
   textFont $ Font "Hiragino Maru Gothic ProN" 20 False False
   -- 設定顏色
   fill $ gray 0
   -- 繪製文字. P.S. (V2 30 40) 表示座標 (30,40)
   text ("HP:[" ++ (show $ hp p) ++ "]  MP:["++ (show $ mp p) ++"]")
      (V2 30 40)
   text ("X/Y:[" ++ (show $ lX p) ++ "/"++ (show $ lY p) ++"]")
      (V2 400 40)
--
-- 繪製中央文字顯示區
showPlayerInfo tx p = withCanvas tx $ do
   -- 設定 字體 大小 粗體 斜體
   textFont $ Font "Hiragino Maru Gothic ProN" 20 False False
   -- 設定顏色
   fill $ gray 0
   -- 繪製文字. P.S. (V2 30 40) 表示座標 (30,40)
   text ("HP:[" ++ (show $ hp p) ++ "]  MP:["++ (show $ mp p) ++"]")
      (V2 30 40)
   text ("X/Y:[" ++ (show $ lX p) ++ "/"++ (show $ lY p) ++"]")
      (V2 400 40)
--
-- 繪製中央文字顯示區