summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson@member.fsf.org>2014-03-30 21:17:29 -0400
committerDavid Thompson <dthompson@member.fsf.org>2014-03-30 21:17:29 -0400
commit686d5fdf3d9ab2763839e47a1fec5aa7e70170f6 (patch)
tree05e3814801702f7ea0bc002f6c2a13ea1d85236d
parent4a5a9fed0841eee5cf1a52074d57af0cffdc45a4 (diff)
Add cyan, yellow, and all 27 tango palette colors.
* 2d/color.scm (cyan, yellow, tango-light-butter (tango-butter, tango-dark-butter, tango-light-orange) (tango-orange, tango-dark-orange, tango-light-chocolate) (tango-chocolate, tango-dark-chocolate, tango-light-chameleon) (tango-chameleon, tango-dark-chameleon, tango-light-sky-blue) (tango-sky-blue, tango-dark-sky-blue, tango-light-plum, tango-plum) (tango-dark-plum, tango-light-scarlet-red, tango-scarlet-red) (tango-dark-scarlet-red, tango-aluminium-1, tango-aluminium-2) (tango-aluminium-3, tango-aluminium-4, tango-aluminium-5) (tango-aluminium-6): New variables.
-rw-r--r--2d/color.scm69
1 files changed, 67 insertions, 2 deletions
diff --git a/2d/color.scm b/2d/color.scm
index 6fe236d..d3aba00 100644
--- a/2d/color.scm
+++ b/2d/color.scm
@@ -44,7 +44,36 @@
red
green
blue
- magenta))
+ yellow
+ magenta
+ cyan
+ tango-light-butter
+ tango-butter
+ tango-dark-butter
+ tango-light-orange
+ tango-orange
+ tango-dark-orange
+ tango-light-chocolate
+ tango-chocolate
+ tango-dark-chocolate
+ tango-light-chameleon
+ tango-chameleon
+ tango-dark-chameleon
+ tango-light-sky-blue
+ tango-sky-blue
+ tango-dark-sky-blue
+ tango-light-plum
+ tango-plum
+ tango-dark-plum
+ tango-light-scarlet-red
+ tango-scarlet-red
+ tango-dark-scarlet-red
+ tango-aluminium-1
+ tango-aluminium-2
+ tango-aluminium-3
+ tango-aluminium-4
+ tango-aluminium-5
+ tango-aluminium-6))
(define-record-type <color>
(%make-color r g b a)
@@ -129,10 +158,46 @@ is left unchanged."
(- 1 (color-b color))
(color-a color)))
-;; Pre-defined colors.
+;;;
+;;; Pre-defined Colors
+;;;
+
+;; Basic
(define white (rgb #xffffff))
(define black (rgb #x000000))
(define red (rgb #xff0000))
(define green (rgb #x00ff00))
(define blue (rgb #x0000ff))
+(define yellow (rgb #xffff00))
(define magenta (rgb #xff00ff))
+(define cyan (rgb #x00ffff))
+
+;; Tango color pallete
+;; http://tango.freedesktop.org
+(define tango-light-butter (rgb #xfce94f))
+(define tango-butter (rgb #xedd400))
+(define tango-dark-butter (rgb #xc4a000))
+(define tango-light-orange (rgb #xfcaf3e))
+(define tango-orange (rgb #xf57900))
+(define tango-dark-orange (rgb #xce5c00))
+(define tango-light-chocolate (rgb #xe9b96e))
+(define tango-chocolate (rgb #xc17d11))
+(define tango-dark-chocolate (rgb #x8f5902))
+(define tango-light-chameleon (rgb #x8ae234))
+(define tango-chameleon (rgb #x73d216))
+(define tango-dark-chameleon (rgb #x4e9a06))
+(define tango-light-sky-blue (rgb #x729fcf))
+(define tango-sky-blue (rgb #x3465a4))
+(define tango-dark-sky-blue (rgb #x204a87))
+(define tango-light-plum (rgb #xad7fa8))
+(define tango-plum (rgb #x75507b))
+(define tango-dark-plum (rgb #x5c3566))
+(define tango-light-scarlet-red (rgb #xef2929))
+(define tango-scarlet-red (rgb #xcc0000))
+(define tango-dark-scarlet-red (rgb #xa40000))
+(define tango-aluminium-1 (rgb #xeeeeec))
+(define tango-aluminium-2 (rgb #xd3d7cf))
+(define tango-aluminium-3 (rgb #xbabdb6))
+(define tango-aluminium-4 (rgb #x888a85))
+(define tango-aluminium-5 (rgb #x555753))
+(define tango-aluminium-6 (rgb #x2e3436))