#author("2020-05-08T10:38:27+09:00","","")
#author("2020-05-08T10:39:51+09:00","","")
[[Ys TOOLs C]]

chg color 0.1.0~
~
・始めに~
このTOOLは読み込んだりした画像の~
指定（一つめ）のcolorの部分を指定（二つめ）のcolorに~
colorを変更するTOOLです~
~
例えば最初の背景色128,128,128（灰色）を~
0,0,0（黒）に変えたりします~
~
・作成の動機~
透過カラーTOOLを作成後~
転用すれば簡単に書けそうなので書いてみました~
指定色を変更の処理はずっとなんとなく書いてみたかったので~
今回やってみました~
~
・使い方~
記述予定~
~
作成：高畑ラボ(Y_repeat)~
~
・連絡先~
バグなどありましたらご報告ください~
また改造後再配布時配布URLを教えていただけると嬉しいです~
y.tack2010@gmail.com~
#code(C,nooutline){{
screen 0,260,250
cls 1
mes "LOAD FILE NAME"
var4load_pic_name=""
input var4load_pic_name,120,20
ID4load_pic_name=stat
button "読み込み",*l_pic_load
mes "SAVE FILE NAME"
var4save_pic_name=""
input var4save_pic_name,120,20
ID4save_pic_name=stat
button "保存",*l_pic_save
mes "win_size"
var4win_size=""
input var4win_size,120,20
ID4win_size=stat
button "変換",*l_do_chg
screen 1,160,100
cls 2
screen 2,160,100
cls 3
gsel 0
pos 150,0
mes "変換前color"
pos 150,20
mes "R"
pos 170,20
var4before_color_R=128
input var4before_color_R,50,20
ID4var4before_color_R=stat
pos 150,45
mes "G"
pos 170,45
var4before_color_G=128
input var4before_color_G,50,20
ID4var4before_color_G=stat
pos 150,70
mes "B"
pos 170,70
var4before_color_B=128
input var4before_color_B,50,20
ID4var4before_color_B=stat
pos 150,95
mes "変換後color"
pos 150,120
mes "R"
pos 170,120
var4after_color_R=0
input var4after_color_R,50,20
ID4var4after_color_R=stat
pos 150,145
mes "G"
pos 170,145
var4after_color_G=0
input var4after_color_G,50,20
ID4var4after_color_G=stat
pos 150,170
mes "B"
pos 170,170
var4after_color_B=0
input var4after_color_B,50,20
ID4var4after_color_B=stat
stop
*l_pic_save
	gsel 2
	bmpsave var4save_pic_name
	stop
*l_pic_load
	gsel 1
	picload var4load_pic_name
	pic_x=ginfo_winx
	pic_y=ginfo_winy
	gsel 0
	var4win_size=""+pic_x+","+pic_y
	objprm ID4win_size,var4win_size
	stop
*l_do_chg
	gsel 1
	pic_x=ginfo_winx
	pic_y=ginfo_winy

	repeat pic_y
		this_y=cnt
		repeat pic_x
			this_x=cnt
			pget this_x,this_y
			
				if ginfo_r==var4before_color_R{
					if ginfo_g==var4before_color_G{
						if ginfo_b==var4before_color_B{
							gsel 2
							color var4after_color_R,var4after_color_G,var4after_color_B
							pset this_x,this_y
							gsel 1
						}
					}
				}
		loop
	loop
	stop
}}