From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Wed, 28 Jun 1995 01:59:38 +0000 (+0000)
Subject: Added new initial colour names "orange" and "pink".
X-Git-Tag: 20090517-FFI~6235
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b82092c6252dc8248059cdde56d67ed1bc48a8e6;p=mit-scheme.git

Added new initial colour names "orange" and "pink".
---

diff --git a/v7/src/runtime/os2graph.scm b/v7/src/runtime/os2graph.scm
index 50fb1bff9..e7e51588c 100644
--- a/v7/src/runtime/os2graph.scm
+++ b/v7/src/runtime/os2graph.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: os2graph.scm,v 1.9 1995/05/20 10:17:55 cph Exp $
+$Id: os2graph.scm,v 1.10 1995/06/28 01:59:24 adams Exp $
 
 Copyright (c) 1995 Massachusetts Institute of Technology
 
@@ -616,6 +616,8 @@ MIT in each case. |#
     ("white"        255 255 255)
     ("purple"	    127   0 127)
     ("dark green"     0 127   0)
+    ("orange"       255 135   0)
+    ("pink"         255 181 197)
     ("brown"        127  63   0)))
 
 ;;;; Console Window
diff --git a/v7/src/win32/graphics.scm b/v7/src/win32/graphics.scm
index 7ccc2c9bc..85d91febb 100644
--- a/v7/src/win32/graphics.scm
+++ b/v7/src/win32/graphics.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: graphics.scm,v 1.7 1995/02/21 23:26:40 cph Exp $
+$Id: graphics.scm,v 1.8 1995/06/28 01:59:38 adams Exp $
 
 Copyright (c) 1993-95 Massachusetts Institute of Technology
 
@@ -723,6 +723,8 @@ MIT in each case. |#
     ("white"        255 255 255)
     ("purple"	    127   0 127)
     ("dark green"     0 127   0)
+    ("orange"       255 135   0)
+    ("pink"         255 181 197)
     ("brown"        127  63   0)))