mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
* ext/tk/sample/demos-en/tcolor.bak: remove.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@9267 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
nagai
parent
c6b5ca0e21
commit
140a4cd9d4
1 changed files with 0 additions and 513 deletions
|
|
@ -1,513 +0,0 @@
|
||||||
#!/usr/local/bin/ruby
|
|
||||||
#
|
|
||||||
# tcolor --
|
|
||||||
# このスクリプトはRGB,HSB,CYM形式をサポートする
|
|
||||||
# 簡易カラーエディタです。
|
|
||||||
#
|
|
||||||
# Copyright (C) 1998 Takaaki Tateishi(ttate@jaist.ac.jp)
|
|
||||||
# last update: Thu Jun 18 06:32:35 JST 1998
|
|
||||||
#
|
|
||||||
|
|
||||||
# まずはtk.rbを読み込む。
|
|
||||||
|
|
||||||
require "tk"
|
|
||||||
|
|
||||||
|
|
||||||
# Tkによって変更される変数はTkVariableのインスタンスを使う。
|
|
||||||
|
|
||||||
$colorSpace = TkVariable.new(:rgb)
|
|
||||||
$red = 65535
|
|
||||||
$green = 0
|
|
||||||
$blue = 0
|
|
||||||
$color = "#ffff00000000"
|
|
||||||
$updating = TkVariable.new(0)
|
|
||||||
$autoUpdate = TkVariable.new(1)
|
|
||||||
$name = TkVariable.new("")
|
|
||||||
# $command = TkVariable.new("print(%%,\"\n\")")
|
|
||||||
$command = TkVariable.new("")
|
|
||||||
$label1 = TkVariable.new("label1")
|
|
||||||
$label2 = TkVariable.new("label2")
|
|
||||||
$label3 = TkVariable.new("label3")
|
|
||||||
|
|
||||||
|
|
||||||
# 各イベント用のメソッド
|
|
||||||
|
|
||||||
def rgbToHsv(red,green,blue)
|
|
||||||
|
|
||||||
if ( red > green )
|
|
||||||
max = red
|
|
||||||
min = green
|
|
||||||
else
|
|
||||||
max = green
|
|
||||||
min = red
|
|
||||||
end
|
|
||||||
|
|
||||||
if ( blue > max )
|
|
||||||
max = blue
|
|
||||||
else
|
|
||||||
if ( blue < min )
|
|
||||||
min = blue
|
|
||||||
end
|
|
||||||
end
|
|
||||||
|
|
||||||
range = max - min
|
|
||||||
|
|
||||||
if ( max == 0 )
|
|
||||||
sat = 0.0
|
|
||||||
else
|
|
||||||
sat = (max-min)/max
|
|
||||||
end
|
|
||||||
|
|
||||||
if ( sat == 0 )
|
|
||||||
hue = 0.0
|
|
||||||
else
|
|
||||||
rc = (max-red)/range
|
|
||||||
gc = (max-green)/range
|
|
||||||
bc = (max-blue)/range
|
|
||||||
if ( red == max )
|
|
||||||
hue = 0.166667 * (bc - gc)
|
|
||||||
else
|
|
||||||
if ( green == max )
|
|
||||||
hue = 0.166667 * (2.0 + rc - bc)
|
|
||||||
else
|
|
||||||
hue = 0.166667 * (4.0 + gc - rc)
|
|
||||||
end
|
|
||||||
end
|
|
||||||
if ( hue < 0.0 )
|
|
||||||
hue = hue + 1.0
|
|
||||||
end
|
|
||||||
end
|
|
||||||
|
|
||||||
[hue,sat,max/65535]
|
|
||||||
end
|
|
||||||
|
|
||||||
|
|
||||||
def hsbToRgb(hue,sat,value)
|
|
||||||
v = 65535.0 * value
|
|
||||||
if( sat == 0 )
|
|
||||||
ans = [v,v,v]
|
|
||||||
else
|
|
||||||
hue = hue*6.0
|
|
||||||
if ( hue >= 6 )
|
|
||||||
hue = 0.0
|
|
||||||
end
|
|
||||||
i = hue.to_i
|
|
||||||
f = hue - i
|
|
||||||
p = 65535.0 * value * (1.0 - sat)
|
|
||||||
q = 65535.0 * value * (1.0 - (sat * f))
|
|
||||||
t = 65535.0 * value * (1.0 - (sat * (1.0 - f)))
|
|
||||||
case i
|
|
||||||
when 0
|
|
||||||
ans = [v,t,p]
|
|
||||||
when 1
|
|
||||||
ans = [q,v,p]
|
|
||||||
when 2
|
|
||||||
ans = [p,v,t]
|
|
||||||
when 3
|
|
||||||
ans = [p,q,v]
|
|
||||||
when 4
|
|
||||||
ans = [t,p,v]
|
|
||||||
when 5
|
|
||||||
ans = [v,p,q]
|
|
||||||
else
|
|
||||||
raise(eException,"i value #{i} is out of range")
|
|
||||||
end
|
|
||||||
end
|
|
||||||
return ans
|
|
||||||
end
|
|
||||||
|
|
||||||
|
|
||||||
def doUpdate
|
|
||||||
newCmd = $command.to_s.gsub("%%","\"#{$color}\"")
|
|
||||||
eval(newCmd)
|
|
||||||
end
|
|
||||||
|
|
||||||
|
|
||||||
def tc_scaleChanged
|
|
||||||
if( $updating.to_i == 1 )
|
|
||||||
return
|
|
||||||
end
|
|
||||||
|
|
||||||
scale1 = $root.middle.middle.scale1
|
|
||||||
scale2 = $root.middle.middle.scale2
|
|
||||||
scale3 = $root.middle.middle.scale3
|
|
||||||
|
|
||||||
case $colorSpace.to_i
|
|
||||||
when :rgb
|
|
||||||
$red = (scale1.get * 65.535).to_i
|
|
||||||
$green = (scale2.get * 65.535).to_i
|
|
||||||
$blue = (scale3.get * 65.535).to_i
|
|
||||||
when :cmy
|
|
||||||
$red = (65535 - scale1.get * 65.535).to_i
|
|
||||||
$green = (65535 - scale2.get * 65.535).to_i
|
|
||||||
$blue = (65535 - scale3.get * 65.535).to_i
|
|
||||||
when :hsb
|
|
||||||
list = hsbToRgb(scale1.get / 1000.0,
|
|
||||||
scale2.get / 1000.0,
|
|
||||||
scale3.get / 1000.0)
|
|
||||||
$red = list[0]
|
|
||||||
$green = list[1]
|
|
||||||
$blue = list[2]
|
|
||||||
else
|
|
||||||
raise(Exception,"unknown colorSpace")
|
|
||||||
end
|
|
||||||
$color = format("#%04x%04x%04x",$red.to_i,$green.to_i,$blue.to_i)
|
|
||||||
$root.middle.right.set_color($color)
|
|
||||||
if( $autoUpdate.to_i == 1 )
|
|
||||||
doUpdate
|
|
||||||
end
|
|
||||||
Tk.update(TRUE)
|
|
||||||
end
|
|
||||||
|
|
||||||
|
|
||||||
def tc_setScales
|
|
||||||
$updating.value = 1
|
|
||||||
|
|
||||||
scale1 = $root.middle.middle.scale1
|
|
||||||
scale2 = $root.middle.middle.scale2
|
|
||||||
scale3 = $root.middle.middle.scale3
|
|
||||||
|
|
||||||
case $colorSpace.to_i
|
|
||||||
when :rgb
|
|
||||||
scale1.set($red / 65.535)
|
|
||||||
scale2.set($green / 65.535)
|
|
||||||
scale3.set($blue / 65.535)
|
|
||||||
when :cmy
|
|
||||||
scale1.set((65535 - $red) / 65.535)
|
|
||||||
scale2.set((65535 - $green) / 65.535)
|
|
||||||
scale3.set((65535 - $blue) / 65.535)
|
|
||||||
when :hsb
|
|
||||||
list = rgbToHsv($red,$green,$blue)
|
|
||||||
scale1.set( list[0] * 1000.0 )
|
|
||||||
scale2.set( list[1] * 1000.0 )
|
|
||||||
scale3.set( list[2] * 1000.0 )
|
|
||||||
else
|
|
||||||
raise(Exception,"unknown colorSpace")
|
|
||||||
end
|
|
||||||
|
|
||||||
$updating.value = 0
|
|
||||||
end
|
|
||||||
|
|
||||||
|
|
||||||
def tc_loadNamedColor(name)
|
|
||||||
if name[0,1] != "#"
|
|
||||||
list = TkWinfo.rgb($root.middle.right.swatch,name)
|
|
||||||
$red = list[0]
|
|
||||||
$green = list[1]
|
|
||||||
$blue = list[2]
|
|
||||||
else
|
|
||||||
case name.length
|
|
||||||
when 4
|
|
||||||
format = /#(.{1})(.{1})(.{1})/
|
|
||||||
shift = 12
|
|
||||||
when 7
|
|
||||||
format = /#(.{2})(.{2})(.{2})/
|
|
||||||
shift = 8
|
|
||||||
when 10
|
|
||||||
format = /#(.{3})(.{3})(.{3})/
|
|
||||||
shift = 4
|
|
||||||
when 13
|
|
||||||
format = /#(.{4})(.{4})(.{4})/
|
|
||||||
shift = 0
|
|
||||||
else
|
|
||||||
raise(eException,"syntax error in color name \"#{name}\"")
|
|
||||||
end
|
|
||||||
name.scan(format){|strlist|
|
|
||||||
if strlist.length != 3
|
|
||||||
raise(eException,"syntax error in color name \"#{name}\"")
|
|
||||||
end
|
|
||||||
$red = strlist[0].to_i
|
|
||||||
$green = strlist[1].to_i
|
|
||||||
$blue = strlist[2].to_i
|
|
||||||
}
|
|
||||||
$red = $red << shift
|
|
||||||
$green = $green << shift
|
|
||||||
$blue = $blue << shift
|
|
||||||
end
|
|
||||||
|
|
||||||
tc_setScales
|
|
||||||
$color = format("#%04x%04x%04x",$red,$green,$blue)
|
|
||||||
$root.middle.right.set_color($color)
|
|
||||||
if $autoUpdate.to_i == 1
|
|
||||||
doUpdate
|
|
||||||
end
|
|
||||||
end
|
|
||||||
|
|
||||||
|
|
||||||
def changeColorSpace(space)
|
|
||||||
case space
|
|
||||||
when :rgb
|
|
||||||
$label1.value = "Red"
|
|
||||||
$label2.value = "Green"
|
|
||||||
$label3.value = "Blue"
|
|
||||||
when :cmy
|
|
||||||
$label1.value = "Cyan"
|
|
||||||
$label2.value = "Magenta"
|
|
||||||
$label3.value = "Yellow"
|
|
||||||
when :hsb
|
|
||||||
$label1.value = "Hue"
|
|
||||||
$label2.value = "Saturation"
|
|
||||||
$label3.value = "Brightness"
|
|
||||||
end
|
|
||||||
tc_setScales
|
|
||||||
end
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
# tcolor用のメニュー
|
|
||||||
|
|
||||||
class TkColorMenuFrame<TkFrame
|
|
||||||
def initialize(parent)
|
|
||||||
super(parent,
|
|
||||||
"relief"=>"raised",
|
|
||||||
"borderwidth"=>"2")
|
|
||||||
|
|
||||||
# Fileメニューボタンの生成
|
|
||||||
@file = TkMenubutton.new(self){|button|
|
|
||||||
|
|
||||||
# Fileメニューの作成
|
|
||||||
@file_menu = TkMenu.new(button){
|
|
||||||
add "radio",
|
|
||||||
"label" => "RGB color space",
|
|
||||||
"variable" => $colorSpace,
|
|
||||||
"value" => :rgb,
|
|
||||||
"underline" => "0",
|
|
||||||
"command" => proc{changeColorSpace(:rgb)}
|
|
||||||
add "radio",
|
|
||||||
"label" => "CMY color space",
|
|
||||||
"variable" => $colorSpace,
|
|
||||||
"value" => :cmy,
|
|
||||||
"underline" => "0",
|
|
||||||
"command" => proc{changeColorSpace(:cmy)}
|
|
||||||
add "radio",
|
|
||||||
"label" => "HSB color space",
|
|
||||||
"variable" => $colorSpace,
|
|
||||||
"value" => :hsb,
|
|
||||||
"underline" => "0",
|
|
||||||
"command" => proc{changeColorSpace(:hsb)}
|
|
||||||
add "separator"
|
|
||||||
add "radio",
|
|
||||||
"label" => "Qutomatic updates",
|
|
||||||
"variable" => $autoUpdate,
|
|
||||||
"value" => "1",
|
|
||||||
"underline" => "0"
|
|
||||||
add "radio",
|
|
||||||
"label" => "Manual updates",
|
|
||||||
"variable" => $autoUpdate,
|
|
||||||
"value" => "0",
|
|
||||||
"underline" => "0"
|
|
||||||
add "separator"
|
|
||||||
add "command",
|
|
||||||
"label" => "Exit program",
|
|
||||||
"underline" => "0",
|
|
||||||
"command" => proc{exit}
|
|
||||||
}
|
|
||||||
|
|
||||||
# FileメニューとFileボタンを関連付ける
|
|
||||||
menu @file_menu
|
|
||||||
|
|
||||||
text "File"
|
|
||||||
underline "0"
|
|
||||||
}.pack("side"=>"left")
|
|
||||||
|
|
||||||
self
|
|
||||||
end
|
|
||||||
end
|
|
||||||
|
|
||||||
|
|
||||||
# 下部のフレームのためのクラス
|
|
||||||
class TkColorBotFrame<TkFrame
|
|
||||||
def initialize(parent)
|
|
||||||
super(parent,
|
|
||||||
"relief"=> "raised",
|
|
||||||
"borderwidth"=> 2)
|
|
||||||
|
|
||||||
@commandLabel = TkLabel.new(self,
|
|
||||||
"text"=> "Command:")
|
|
||||||
@command = TkEntry.new(self,
|
|
||||||
"relief"=> "sunken",
|
|
||||||
"borderwidth"=> "2",
|
|
||||||
"textvariable"=> $command,
|
|
||||||
"font"=> "-Adobe-Courier-Medium-R-Normal--*-120-*-*-*-*-*-*")
|
|
||||||
@update = TkButton.new(self,
|
|
||||||
"text"=> "Update",
|
|
||||||
"command"=> proc{doUpdate})
|
|
||||||
@commandLabel.pack("side"=>"left")
|
|
||||||
@update.pack("side"=>"right","pady"=>".1c","padx"=>".25c")
|
|
||||||
@command.pack("expand"=>"yes","fill"=>"x","ipadx"=>".25c")
|
|
||||||
|
|
||||||
self
|
|
||||||
end
|
|
||||||
end
|
|
||||||
|
|
||||||
|
|
||||||
# 中段左のフレーム
|
|
||||||
class TkColorMiddleLeftFrame<TkFrame
|
|
||||||
def initialize(parent)
|
|
||||||
super(parent)
|
|
||||||
|
|
||||||
for i in ["/usr/local/lib/X11rgb.txt","/usr/lib/X11/rgb.txt",
|
|
||||||
"/X11/R5/lib/X11/rgb.txt","/X11/R4/lib/rgb/rgb.txt",
|
|
||||||
"/usr/openwin/lib/X11/rgb.txt"]
|
|
||||||
if !File.readable?(i)
|
|
||||||
next
|
|
||||||
end
|
|
||||||
f = File.open(i)
|
|
||||||
@scroll = TkScrollbar.new(self,
|
|
||||||
"orient"=>"vertical",
|
|
||||||
"relief"=>"sunken",
|
|
||||||
"borderwidth"=>"2")
|
|
||||||
@scroll.pack("side"=>"right","fill"=>"y")
|
|
||||||
@names = TkListbox.new(self,
|
|
||||||
"width"=>"20",
|
|
||||||
"height"=>"12",
|
|
||||||
"yscrollcommand"=> proc{|first,last| @scroll.set first,last},
|
|
||||||
"relief"=>"sunken",
|
|
||||||
"borderwidth"=>"2",
|
|
||||||
"exportselection"=>"false")
|
|
||||||
@scroll.command(proc{|*args| @names.yview *args})
|
|
||||||
@names.bind("Double-1",proc{
|
|
||||||
tc_loadNamedColor(@names.get(@names.curselection))})
|
|
||||||
@names.pack("side"=>"left")
|
|
||||||
while (line = f.gets)
|
|
||||||
line.chop!
|
|
||||||
linelist = line.split(/[ \t]+/)
|
|
||||||
if linelist.length == 4
|
|
||||||
@names.insert("end",linelist[3])
|
|
||||||
end
|
|
||||||
end
|
|
||||||
f.close
|
|
||||||
break
|
|
||||||
end
|
|
||||||
|
|
||||||
self
|
|
||||||
end
|
|
||||||
end
|
|
||||||
|
|
||||||
|
|
||||||
# 中段中央のフレーム
|
|
||||||
class TkColorMiddleMiddleFrame<TkFrame
|
|
||||||
# @scale1,@scale2,@scale3を外部から参照のみ許可する。(変更不可)
|
|
||||||
attr_reader :scale1, :scale2, :scale3
|
|
||||||
|
|
||||||
def initialize(parent)
|
|
||||||
super(parent)
|
|
||||||
|
|
||||||
@f1 = TkFrame.new(self)
|
|
||||||
@f2 = TkFrame.new(self)
|
|
||||||
@f3 = TkFrame.new(self)
|
|
||||||
@f4 = TkFrame.new(self)
|
|
||||||
|
|
||||||
for f in [@f1,@f2,@f3]
|
|
||||||
f.pack("side"=>"top","expand"=>"yes")
|
|
||||||
end
|
|
||||||
@f4.pack("side"=>"top","expand"=>"yes","fill"=>"x")
|
|
||||||
|
|
||||||
@label1 = TkLabel.new(self,"textvariable"=>$label1)
|
|
||||||
@scale1 = TkScale.new(self,"from"=>"0","to"=>"1000","length"=>"6c",
|
|
||||||
"orient"=>"horizontal",
|
|
||||||
"command"=>proc{tc_scaleChanged})
|
|
||||||
@scale1.pack("side"=>"top","anchor"=>"w")
|
|
||||||
@label1.pack("side"=>"top","anchor"=>"w")
|
|
||||||
|
|
||||||
@label2 = TkLabel.new(self,"textvariable"=>$label2)
|
|
||||||
@scale2 = TkScale.new(self,"from"=>"0","to"=>"1000","length"=>"6c",
|
|
||||||
"orient"=>"horizontal",
|
|
||||||
"command"=>proc{tc_scaleChanged})
|
|
||||||
@scale2.pack("side"=>"top","anchor"=>"w")
|
|
||||||
@label2.pack("side"=>"top","anchor"=>"w")
|
|
||||||
|
|
||||||
@label3 = TkLabel.new(self,"textvariable"=>$label3)
|
|
||||||
@scale3 = TkScale.new(self,"from"=>"0","to"=>"1000","length"=>"6c",
|
|
||||||
"orient"=>"horizontal",
|
|
||||||
"command"=>proc{tc_scaleChanged})
|
|
||||||
@scale3.pack("side"=>"top","anchor"=>"w")
|
|
||||||
@label3.pack("side"=>"top","anchor"=>"w")
|
|
||||||
|
|
||||||
@nameLabel = TkLabel.new(self,"text"=>"Name:")
|
|
||||||
@name = TkEntry.new(self,"relief"=>"sunken","borderwidth"=>"2",
|
|
||||||
"textvariable"=>$name,"width"=>"10",
|
|
||||||
"font"=>"-Adobe-Courier-Medium-R-Normal--*-120-*-*-*-*-*-*")
|
|
||||||
@nameLabel.pack("side"=>"left")
|
|
||||||
@name.pack("side"=>"right", "expand"=>"1", "fill"=>"x")
|
|
||||||
@name.bind("Return",proc{tc_loadNamedColor $name.to_s})
|
|
||||||
|
|
||||||
self
|
|
||||||
end
|
|
||||||
end
|
|
||||||
|
|
||||||
|
|
||||||
class TkColorMiddleRightFrame<TkFrame
|
|
||||||
attr_reader :swatch
|
|
||||||
|
|
||||||
def initialize(parent)
|
|
||||||
super(parent)
|
|
||||||
@swatch = TkFrame.new(self, "width"=>"2c", "height"=>"5c",
|
|
||||||
"background"=>$color)
|
|
||||||
@value = TkLabel.new(self,
|
|
||||||
"text"=>$color,
|
|
||||||
"width"=>"13",
|
|
||||||
"font"=>"-Adobe-Courier-Medium-R-Normal--*-120-*-*-*-*-*-*")
|
|
||||||
@swatch.pack("side"=>"top","expand"=>"yes","fill"=>"both")
|
|
||||||
@value.pack("side"=>"bottom","pady"=>".25c")
|
|
||||||
|
|
||||||
self
|
|
||||||
end
|
|
||||||
|
|
||||||
def set_color(color)
|
|
||||||
@swatch["background"] = color
|
|
||||||
@value["text"] = color
|
|
||||||
end
|
|
||||||
end
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
# 中段のフレーム
|
|
||||||
class TkColorMiddleFrame<TkFrame
|
|
||||||
attr_reader :left, :middle, :right
|
|
||||||
|
|
||||||
def initialize(parent)
|
|
||||||
super(parent,
|
|
||||||
"relief"=> "raised",
|
|
||||||
"borderwidth"=> "2")
|
|
||||||
|
|
||||||
@left = TkColorMiddleLeftFrame.new(self)
|
|
||||||
@left.pack("side"=>"left","padx"=>".25c","pady"=>".25c")
|
|
||||||
|
|
||||||
@middle = TkColorMiddleMiddleFrame.new(self)
|
|
||||||
@middle.pack("side"=>"left","expand"=>"yes","fill"=>"y")
|
|
||||||
|
|
||||||
@right = TkColorMiddleRightFrame.new(self)
|
|
||||||
@right.pack("side"=>"left","padx"=>".25c","pady"=>".25c","anchor"=>"s")
|
|
||||||
|
|
||||||
self
|
|
||||||
end
|
|
||||||
end
|
|
||||||
|
|
||||||
|
|
||||||
class TkColor<TkRoot
|
|
||||||
attr_reader :menu, :bottom, :middle
|
|
||||||
|
|
||||||
def initialize
|
|
||||||
super
|
|
||||||
@menu = TkColorMenuFrame.new(self)
|
|
||||||
@menu.pack("side"=>"top", "fill"=>"x")
|
|
||||||
|
|
||||||
@bottom = TkColorBotFrame.new(self)
|
|
||||||
@bottom.pack("side"=>"bottom","fill"=>"x")
|
|
||||||
|
|
||||||
@middle = TkColorMiddleFrame.new(self)
|
|
||||||
@middle.pack("side"=>"top","fill"=>"both")
|
|
||||||
|
|
||||||
self
|
|
||||||
end
|
|
||||||
end
|
|
||||||
|
|
||||||
|
|
||||||
$root = TkColor.new
|
|
||||||
|
|
||||||
# イベントを待つ為にループに入る。
|
|
||||||
changeColorSpace :rgb
|
|
||||||
Tk.mainloop
|
|
||||||
Loading…
Reference in a new issue