From 0bee527143f389760d14b9f0256b0ad5d593ab1a Mon Sep 17 00:00:00 2001
From: Alexander Iljin <ajsoft@yandex.ru>
Date: Tue, 4 Aug 2020 00:41:22 +0200
Subject: [PATCH] L-system: use named color constants

---
 extra/L-system/L-system.factor | 30 +++++++++++++++---------------
 1 file changed, 15 insertions(+), 15 deletions(-)

diff --git a/extra/L-system/L-system.factor b/extra/L-system/L-system.factor
index 0ccba9a568..c37b7a0fef 100644
--- a/extra/L-system/L-system.factor
+++ b/extra/L-system/L-system.factor
@@ -173,22 +173,22 @@ DEFER: default-L-parser-values
 
 : color-table ( -- colors )
   {
-    T{ rgba f 0    0    0    1 } ! black
-    T{ rgba f 0.5  0.5  0.5  1 } ! grey
-    T{ rgba f 1    0    0    1 } ! red
-    T{ rgba f 1    1    0    1 } ! yellow
-    T{ rgba f 0    1    0    1 } ! green
-    T{ rgba f 0.25 0.88 0.82 1 } ! turquoise
-    T{ rgba f 0    0    1    1 } ! blue
-    T{ rgba f 0.63 0.13 0.94 1 } ! purple
-    T{ rgba f 0.00 0.50 0.00 1 } ! dark green
-    T{ rgba f 0.00 0.82 0.82 1 } ! dark turquoise
-    T{ rgba f 0.00 0.00 0.50 1 } ! dark blue
+    COLOR: black
+    COLOR: grey50
+    COLOR: red
+    COLOR: yellow
+    COLOR: green
+    COLOR: turquoise
+    COLOR: blue
+    COLOR: purple
+    COLOR: green4
+    COLOR: dark-turquoise
+    COLOR: dark-blue
     T{ rgba f 0.58 0.00 0.82 1 } ! dark purple
-    T{ rgba f 0.50 0.00 0.00 1 } ! dark red
-    T{ rgba f 0.25 0.25 0.25 1 } ! dark grey
-    T{ rgba f 0.75 0.75 0.75 1 } ! medium grey
-    T{ rgba f 1    1    1    1 } ! white
+    COLOR: dark-red
+    COLOR: grey25
+    COLOR: grey75
+    COLOR: white
   } ;
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!