The unified diff between revisions [670626de..] and [aaae92d1..] is displayed below. It can also be downloaded as a raw diff.

This diff has been restricted to the following files: 'autocolor.ml'

#
#
# patch "autocolor.ml"
#  from [9d59f87e56d79aad8c632cff38b12fab557814df]
#    to [f65e7ff180df5254be893399fc6f2872e941c8fb]
#
============================================================
--- autocolor.ml	9d59f87e56d79aad8c632cff38b12fab557814df
+++ autocolor.ml	f65e7ff180df5254be893399fc6f2872e941c8fb
@@ -31,11 +31,11 @@ let autocolor_hash s =
   let hash = Crypto.sha1 s in
   let f_of_hash p = float (Char.code hash.[p]) /. 256. in
   (* take 8 bits for hue *)
-  let hue = f_of_hash 0 in
+  let hue = f_of_hash 5 in
   (* take 8 bits for lightness  and map to [75% .. 90%] *)
-  let li  = f_of_hash 1 *. 0.15 +. 0.75 in
+  let li  = f_of_hash 1 *. 0.15 +. 0.55 in
   (* take 8 bits for saturation and map to [50% .. 80%]*)
-  let sat = f_of_hash 2 *. 0.3 +. 0.5 in
+  let sat = f_of_hash 2 *. 0.5 +. 0.5 in
   let (r, g, b) as triplet = hls_to_rgb hue li sat in
   if Viz_misc.debug "color"
   then