summaryrefslogtreecommitdiff
path: root/axis.hs
diff options
context:
space:
mode:
Diffstat (limited to 'axis.hs')
-rw-r--r--axis.hs21
1 files changed, 18 insertions, 3 deletions
diff --git a/axis.hs b/axis.hs
index a51b846..312283e 100644
--- a/axis.hs
+++ b/axis.hs
@@ -34,8 +34,8 @@ netwireIsCool =
34 34
35smartShowPitch p = showPitch p -- TODO: use flat for Eb, Bb; use unicode flat/sharp chars 35smartShowPitch p = showPitch p -- TODO: use flat for Eb, Bb; use unicode flat/sharp chars
36 36
37_USE_HEXAGONS = False 37_USE_HEXAGONS = True
38_COLORIZE_BY_CHANNEL = False 38_COLORIZE_BY_CHANNEL = True
39 39
40_AXIS_ROWS = 7 + 4 40_AXIS_ROWS = 7 + 4
41_AXIS_UNIQUE_COLS = 7 41_AXIS_UNIQUE_COLS = 7
@@ -70,7 +70,22 @@ http://en.wikipedia.org/wiki/Enhanced_Graphics_Adapter
7015 – bright white (#FFFFFF) 111111 63 7015 – bright white (#FFFFFF) 111111 63
71-} 71-}
72 72
73_CGA = [(SDL.Color 0x00 0x00 0x00), (SDL.Color 0x00 0x00 0xAA), (SDL.Color 0x00 0xAA 0x00), (SDL.Color 0x00 0xAA 0xAA), (SDL.Color 0xAA 0x00 0x00), (SDL.Color 0xAA 0x00 0xAA), (SDL.Color 0xAA 0x55 0x00), (SDL.Color 0xAA 0xAA 0xAA), (SDL.Color 0x55 0x55 0x55), (SDL.Color 0x55 0x55 0xFF), (SDL.Color 0x55 0xFF 0x55), (SDL.Color 0x55 0xFF 0xFF), (SDL.Color 0xFF 0x55 0x55), (SDL.Color 0xFF 0x55 0xFF), (SDL.Color 0xFF 0xFF 0x55), (SDL.Color 0xFF 0xFF 0xFF)] 73_CGA = [--(SDL.Color 0x00 0x00 0x00), --black
74 (SDL.Color 0x00 0x00 0xAA), --blue
75 (SDL.Color 0x00 0xAA 0x00), --green
76 (SDL.Color 0x00 0xAA 0xAA), --cyan
77 (SDL.Color 0xAA 0x00 0x00), --red
78 (SDL.Color 0xAA 0x00 0xAA), --magenta
79 (SDL.Color 0xAA 0x55 0x00), --brown
80 (SDL.Color 0xAA 0xAA 0xAA), --white / light gray
81 (SDL.Color 0x55 0x55 0x55), --dark gray / bright black
82 (SDL.Color 0x55 0x55 0xFF), --bright blue
83 (SDL.Color 0x55 0xFF 0x55), --bright green
84 (SDL.Color 0x55 0xFF 0xFF), --bright cyan
85 (SDL.Color 0xFF 0x55 0x55), --bright red
86 (SDL.Color 0xFF 0x55 0xFF), --bright magenta
87 (SDL.Color 0xFF 0xFF 0x55), --bright yellow
88 (SDL.Color 0xFF 0xFF 0xFF)] --bright white
74 89
75_drawHexircle f v x y s c = 90_drawHexircle f v x y s c =
76 if _USE_HEXAGONS 91 if _USE_HEXAGONS