From 686d5fdf3d9ab2763839e47a1fec5aa7e70170f6 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson@member.fsf.org>
Date: Sun, 30 Mar 2014 21:17:29 -0400
Subject: 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.
---
 2d/color.scm | 69 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++--
 1 file 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))
-- 
cgit v1.2.3