400 40)
--
-- 繪製中央文字顯示區
showConcole :: SDL.Texture -> IO ()
showConcole tx = withCanvas tx $ do
   textFont $ Font "Hiragino Maru Gothic ProN" 20 False False
   fill $ gray 0
   let lctx = take 10 ctx
       delta = 30
       initY = 150
       tab   = 25
       short = \x -> "> " ++ (take (28 `min` 
showWindowBg :: SDL.Texture -> IO ()
showWindowBg tx = withCanvas tx $ do
   -- 重製背景
   background $ gray 220
   -- 繪製狀態列背景
   fill $ blue 255 !@ 64
   noStroke
   -- 繪製方塊, D 是 Dim 的 constructor
   -- 後面四個參數分別表示: X Y W H
   rect $ D 0 0 640 100
--
showWindowBg tx = withCanvas tx $ do
   -- 重製背景
   background $ gray 220
   -- 繪製狀態列背景
   fill $ blue 255 !@ 64
   noStroke
   -- 繪製方塊, D 是 Dim 的 constructor
   -- 後面四個參數分別表示: X Y W H
   rect $ D 0 0 640 100
--