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
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
|
-------------------------------------------------------------------------------
--- $Id: ViewerColours.hs#2 2009/07/18 22:48:30 REDMOND\\satnams $
--- $Source: //depot/satnams/haskell/ThreadScope/ViewerColours.hs $
-------------------------------------------------------------------------------
module GUI.ViewerColours (Color, module GUI.ViewerColours) where
import Graphics.UI.Gtk
import Graphics.Rendering.Cairo
-------------------------------------------------------------------------------
-- Colours
runningColour :: Color
runningColour = darkGreen
gcColour :: Color
gcColour = orange
gcWaitColour :: Color
gcWaitColour = lightOrange
gcStartColour, gcWorkColour, gcIdleColour, gcEndColour :: Color
gcStartColour = lightOrange
gcWorkColour = orange
gcIdleColour = lightOrange
gcEndColour = lightOrange
createThreadColour :: Color
createThreadColour = lightBlue
seqGCReqColour :: Color
seqGCReqColour = cyan
parGCReqColour :: Color
parGCReqColour = darkBlue
migrateThreadColour :: Color
migrateThreadColour = darkRed
threadWakeupColour :: Color
threadWakeupColour = green
shutdownColour :: Color
shutdownColour = darkBrown
labelTextColour :: Color
labelTextColour = white
bookmarkColour :: Color
bookmarkColour = Color 0xff00 0x0000 0xff00 -- pinkish
fizzledDudsColour, createdConvertedColour, overflowedColour :: Color
fizzledDudsColour = grey
createdConvertedColour = darkGreen
overflowedColour = red
userMessageColour :: Color
userMessageColour = darkRed
outerPercentilesColour :: Color
outerPercentilesColour = lightGrey
-------------------------------------------------------------------------------
black :: Color
black = Color 0 0 0
grey :: Color
grey = Color 0x8000 0x8000 0x8000
lightGrey :: Color
lightGrey = Color 0xD000 0xD000 0xD000
gtkBorderGrey :: Color
gtkBorderGrey = Color 0xF200 0xF100 0xF000
red :: Color
red = Color 0xFFFF 0 0
green :: Color
green = Color 0 0xFFFF 0
darkGreen :: Color
darkGreen = Color 0x0000 0x6600 0x0000
blue :: Color
blue = Color 0 0 0xFFFF
cyan :: Color
cyan = Color 0 0xFFFF 0xFFFF
magenta :: Color
magenta = Color 0xFFFF 0 0xFFFF
lightBlue :: Color
lightBlue = Color 0x6600 0x9900 0xFF00
darkBlue :: Color
darkBlue = Color 0 0 0xBB00
purple :: Color
purple = Color 0x9900 0x0000 0xcc00
darkPurple :: Color
darkPurple = Color 0x6600 0 0x6600
darkRed :: Color
darkRed = Color 0xcc00 0x0000 0x0000
orange :: Color
orange = Color 0xE000 0x7000 0x0000 -- orange
lightOrange :: Color
lightOrange = Color 0xE000 0xD000 0xB000 -- orange
profileBackground :: Color
profileBackground = Color 0xFFFF 0xFFFF 0xFFFF
tickColour :: Color
tickColour = Color 0x3333 0x3333 0xFFFF
darkBrown :: Color
darkBrown = Color 0x6600 0 0
yellow :: Color
yellow = Color 0xff00 0xff00 0x3300
white :: Color
white = Color 0xffff 0xffff 0xffff
-------------------------------------------------------------------------------
setSourceRGBAhex :: Color -> Double -> Render ()
setSourceRGBAhex (Color r g b) t
= setSourceRGBA (fromIntegral r/0xFFFF) (fromIntegral g/0xFFFF)
(fromIntegral b/0xFFFF) t
-------------------------------------------------------------------------------
|
