blob: 3c2c850816956d11f3700164a089c99f50305e90 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
|
module Chelleport.Context (initializeContext) where
import Chelleport.Types
import Data.ByteString (ByteString)
import Data.FileEmbed (embedFileRelative)
-- import Data.Time.Clock.System
-- import qualified Debug.Trace as Debug
import Foreign.C (CFloat)
import qualified Graphics.X11 as X11
import SDL (($=))
import qualified SDL
import qualified SDL.Font as TTF
windowOpacity :: CFloat
windowOpacity = 0.5
fontSize :: Int
fontSize = 24
-- benchmark :: String -> IO a -> IO a
-- benchmark msg m = do
-- start <- systemNanoseconds <$> getSystemTime
-- result <- m
-- end <- systemNanoseconds <$> getSystemTime
-- Debug.traceM $ msg ++ ": " ++ show (end - start)
-- pure result
initializeContext :: IO DrawContext
initializeContext = do
-- Initialize SDL
SDL.initialize [SDL.InitVideo, SDL.InitEvents]
TTF.initialize
window <- initializeWindow
renderer <- initializeRenderer window
font <- loadFont
display <- X11.openDisplay ""
pure $
DrawContext
{ ctxWindow = window,
ctxRenderer = renderer,
ctxFont = font,
ctxX11Display = display
}
rawFontData :: ByteString
rawFontData = $(embedFileRelative "./static/font.ttf")
loadFont :: IO TTF.Font
loadFont = do
font <- TTF.decode rawFontData fontSize
TTF.setStyle font [TTF.Bold]
pure font
initializeRenderer :: SDL.Window -> IO SDL.Renderer
initializeRenderer window = do
renderer <- SDL.createRenderer window (-1) SDL.defaultRenderer
SDL.windowOpacity window $= windowOpacity
SDL.rendererDrawBlendMode renderer $= SDL.BlendAlphaBlend
pure renderer
initializeWindow :: IO SDL.Window
initializeWindow = do
let windowCfg =
SDL.defaultWindow
{ SDL.windowMode = SDL.FullscreenDesktop,
SDL.windowPosition = SDL.Absolute $ SDL.P $ SDL.V2 0 0,
SDL.windowInitialSize = SDL.V2 0 0,
SDL.windowBorder = False
}
SDL.createWindow "Chelleport" windowCfg
|
