2014-05-06: show the real value*12 instead of the colorindex.

show the real value*12 instead of the colorindex.

diff --git a/examples/d20world.w b/examples/d20world.w
--- a/examples/d20world.w
+++ b/examples/d20world.w
@@ -108,7 +108,8 @@ define : d20-value-ascii-color-string-sh
          let 
            : csi "["
              color : inexact->exact : max 17 : min 230 : floor : * 12 value
-           format #f "~A38;5;~dm~A~Am" csi color color csi
+             int : inexact->exact : floor : * 12 value
+           format #f "~A38;5;~dm~A~Am" csi color int csi
 
 define : d20-as-text-base world-vector function
          . "show the given d20 world as text"