add color>hex

[factor.git] / extra / color-table / color-table.factor

diff --git a/extra/color-table/color-table.factor b/extra/color-table/color-table.factor
index 03914c67d3ab45d67958538dbefbe9bbd7301697..6f518eea56046a4ab4bb3a1abb34868cff4caee8 100644 (file)
--- a/extra/color-table/color-table.factor
+++ b/extra/color-table/color-table.factor
@@ -13,10 +13,6 @@ SINGLETON: color-renderer
 
 CONSTANT: full-block-string $[ 10 CHAR: full-block <string> ]
 
-: rgba>hex ( rgba -- hex )
-    [ red>> ] [ green>> ] [ blue>> ] tri
-    [ 255 * round >integer ] tri@ "%02X%02X%02X" sprintf ;
-
 PRIVATE>
 
 M: color-renderer filled-column
@@ -32,7 +28,7 @@ M: color-renderer row-columns
             [ red>> "%.5f" sprintf ]
             [ green>> "%.5f" sprintf ]
             [ blue>> "%.5f" sprintf ]
-            [ rgba>hex ]
+            [ color>hex ]
         } cleave
     ] output>array ;