カラーを一望できるサイトが見当たらなかったので、色と名前が一致するようにボタンにプロットしてみた。
もっとコンパクトにできたけど、バグでイライラするのも嫌なので、確実な方法を選んだ。
一部、初歩的なＴｃｌを使ったけれど、見ると簡単なプログラム。
このプログラムが８本ほどで全部の色を表現できた。
全部で８００色くらい。
#!/usr/bin/wish
frame .b1
foreach {i} {
aliceblue
antiquewhite
antiquewhite1
antiquewhite2
antiquewhite3
antiquewhite4
aquamarine
aquamarine1
} {
button .b1.$i -text "$i" -bg "$i" -bd 4 -font {Sans {12}}
pack .b1.$i -side left
}
frame .b2
foreach {i} {
aquamarine2
aquamarine3
aquamarine4
azure
azure1
azure2
azure3
azure4
beige
bisque
} {
button .b2.$i -text "$i" -bg "$i" -bd 4 -font {Sans {12}}
pack .b2.$i -side left
}
frame .b3
foreach {i} {
bisque1
bisque2
bisque3
bisque4
black
blanchedalmond
blue
blueviolet
blue1
} {
button .b3.$i -text "$i" -bg "$i" -bd 4 -font {Sans {12}}
pack .b3.$i -side left
}
frame .b4
foreach {i} {
blue2
blue3
blue4
blueviolet
brown
brown1
brown2
brown3
brown4
burlywood
} {
button .b4.$i -text "$i" -bg "$i" -bd 4 -font {Sans {12}}
pack .b4.$i -side left
}
frame .b5
foreach {i} {
burlywood1
burlywood2
burlywood3
burlywood4
cadetblue
cadetblue1
cadetblue2
cadetblue3
cadetblue4
} {
button .b5.$i -text "$i" -bg "$i" -bd 4 -font {Sans {12}}
pack .b5.$i -side left
}
frame .b6
foreach {i} {
chartreuse
chartreuse1
chartreuse2
chartreuse3
chartreuse4
chocolate
chocolate1
} {
button .b6.$i -text "$i" -bg "$i" -bd 4 -font {Sans {12}}
pack .b6.$i -side left
}
frame .b7
foreach {i} {
chocolate2
chocolate3
chocolate4
coral
coral1
coral2
coral3
coral4
cornflowerblue
cornsilk
cornsilk1
cornsilk2
} {
button .b7.$i -text "$i" -bg "$i" -bd 4 -font {Sans {12}}
pack .b7.$i -side left
}
frame .b8
foreach {i} {
cornsilk3
cornsilk4
cyan
cyan1
cyan2
cyan3
cyan4
darkblue
darkcyan
darkgoldenrod
} {
button .b8.$i -text "$i" -bg "$i" -bd 4 -font {Sans {12}}
pack .b8.$i -side left
}
frame .b9
foreach {i} {
darkgray
darkgreen
darkgrey
darkkhaki
darkmagenta
darkolivegreen
darkorange
darkorchid
darkred
darksalmon
} {
button .b9.$i -text "$i" -bg "$i" -bd 4 -font {Sans {12}}
pack .b9.$i -side left
}
frame .b10
foreach {i} {
darkseagreen
darkslateblue
darkslategray
darkslategrey
darkturquoise
darkviolet
darkblue
darkcyan
darkgoldenrod
darkgoldenrod1
} {
button .b10.$i -text "$i" -bg "$i" -bd 4 -font {Sans {12}}
pack .b10.$i -side left
}
pack .b1 .b2 .b3 .b4 .b5 .b6 .b7 .b8 .b9 .b10