calculate red more sensibly

diff --git a/layout/layout b/layout/layout
index 217ec669febd35c338683e7a7e78b27991584746..5e1a01b2f5531ca083b6f200501a30d93d06c00e 100755 (executable)
--- a/layout/layout
+++ b/layout/layout
@@ -666,7 +666,7 @@ print DEBUG "ps $p0 $p1 $lenperp ($ppu)\n";
                $red += 32 if $segments[0] =~ m/^\-/;
                $red %= 64;
                $red <<= 2;
-               $red /= 64.0;
+               $red /= 255.0;
                $red= sprintf("%f", $red);
                o("    $red $subsegcmap{$csegbare} setrgbcolor\n");
            } else {