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

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
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

添付ファイル: fileYs_C16 chg_color wiki.zip 13件 [詳細]