blob: 398e3d6de442e01009536af9729802d437d73642 (
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
|
module Chelleport.Config where
import Chelleport.Types
import Foreign.C (CFloat)
import qualified SDL
searchingTextStyle :: TextStyle
searchingTextStyle = TextStyle {textColor = colorWhite, textSize = FontSM}
hintLabelTextStyle :: TextStyle
hintLabelTextStyle = TextStyle {textColor = colorWhite, textSize = FontLG}
colorWhite :: Color
colorWhite = SDL.V4 255 255 255 255
colorLightGray :: Color
colorLightGray = SDL.V4 100 100 100 255
colorGray :: Color
colorGray = SDL.V4 55 52 65 200
colorAccent :: Color
colorAccent = SDL.V4 110 112 247 255
colorHighlight :: Color
colorHighlight = colorAccent
colorGridLines :: Color
colorGridLines = colorGray
colorFocusLines :: Color
colorFocusLines = colorLightGray
colorAxisLines :: Color
colorAxisLines = colorAccent
colorBackground :: Color
colorBackground = SDL.V4 15 12 25 0
colorFineGrainGrid :: Color
colorFineGrainGrid = SDL.V4 55 52 65 100
windowOpacity :: CFloat
windowOpacity = 0.5
|
