画像の彩度をスライダなどで徐々に変更してグレースケールの画像に変更できるようにしたいです。
下記のサイトで画像をグレースケールにするサンプルがあったのですが、
彩度の調節が出来ないので分かる方がいましたらお教えください。
http://hspnext.com/hspkura/hspkura10.htm#contents06
;***** 画像の白黒グレイスケール (grayscale.hsp) *****
#include "hsp3util.as"
#define global palfade palcolor : palette,ginfo(16),ginfo(17),ginfo(18),1
#module
#deffunc glaycopy int p1,int p2,int p3,int p4,int p5
mref bmscr,67 : ID=bmscr(18)
screen ID,bmscr(1),bmscr(2),1
repeat 256 : palette cnt,cnt,cnt,cnt : loop
palfade
if p4=0 : _p4=bmscr(1) : else : _p4=p4
if p5=0 : _p5=bmscr(2) : else : _p5=p5
gmode 0 : gcopy p1,p2,p3,_p4,_p5
return
#global
;***** sample *****
screen 0,200,100 : pos 0,0
button "picload",*loadpic
button "glay scale",*glayscale
*loadpic
dialog "bmp;jpg",16 : if stat=0 : stop
screen 3 : picload refstr
redraw 1
stop
*glayscale
gsel 3 : mref bmscr,67
screen 4,bmscr(1),bmscr(2)
glaycopy 3
stop