TCLで視覚的に区別できる色を生成するランダムカラージェネレータ

Question

人間の目では区別できないほど似ていない色の束をどのように生成するのですか？

私は、次を使用してランダムなカラーコードを生成することができるよ：条件はコードが生成色が繰り返されないことを保証するために、「場合」

set r [expr { int(256 * rand()) }] 
    set g [expr { int(256 * rand()) }] 
    set b [expr { int(256 * rand()) }] 

    set newColor [format "#%02x%02x%02x" $r $g $b] 

その後、私は使用します。その後、私はこだわっています。

助けてください。 ありがとうございます。

Answer 1

視覚的に特徴的な色を生成する場合、最も安価な方法は、HSV色空間からランダムな値を選択してRGBに変換することです。そこthe Tcler's Wikiで変換を行うためのいくつかの素晴らしいのコードだと、あなたは、むしろこのような独自のコードであることを統合したい：

今

proc getRandomColor {} { 
    set h [expr { int(256 * rand()) }] 
    set s [expr { int(256 * rand()) }] 
    set v [expr { int(256 * rand()) }] 

    lassign [hsvToRgb $h $s $v] r g b 

    return [format "#%02x%02x%02x" $r $g $b] 
} 

set newColor [getRandomColor]; # I find it's best to make such bits into procs 

、これはは独特な色を生成するを保証するものではありませんが、それは傾向があります問題を軽減する。鮮やかな色にこだわる必要がある場合は、SチャンネルとVチャンネルのバリエーションを減らして（ランダムな範囲を狭くする）、色にアクセスできないようにしてください。;色分けされた情報もさまざまな方法で伝達されていることを確認してください。

Answer 2

私はやや異なるアプローチを採用します。 1つは、それぞれの人が色分けを異ならせていること、そして女性は男性よりも多くの色を区別できるように思われることです。これに関する面白い読書については、XKCDカラー調査を参照してください。 http://blog.xkcd.com/2010/05/03/color-survey-results/したがって、RGB空間で文字通り何百万もの可能な色があるにもかかわらず、それらを数十のグループ（青、赤、緑など）に区別できるだけに縮小されています。

私は色のリストから始めたいと思います。 https://en.wikipedia.org/wiki/X11_color_names これらを使用してすべてのRGBのリストを作成します。

set colours [list "F0F8FF" "FAEBD7" "00FFFF"] 

それからちょうどランダムにリストから色を選択：

set num_of_colours [llength $colours] 
set my_colour_index [expr { int($num_of_colours * rand()) }] 
set my_colour [lindex $colours $my_colour_index]