@HSVŠξ€ƒ‚ƒUƒCƒNA
--track0:–§“x,1,2048,10,1
--track1:HSV,1,3,3,1
--track2:»²½ή,0,800,9,1
--track3:θ‡’l,0,360,50,1
--check0:Œ³‰ζ‘œ•\Ž¦,0
--dialog:”»’θ‹t“]/chk,chk1=1;}Œ`‘I‘π/fig,fig="ŽlŠpŒ`";Žw’θFŽg—p/chk,chk4=0;Color/col,col0=0xff0000;ΧέΐήΡS/chk,chk2=0;‡¬[0-16],local blend0=0;‰πΝŠJŽnX,local stw=0;‰πΝI—ΉX,local edw=0;‰πΝŠJŽnY,local sth=0;‰πΝI—ΉY,local edh=0;SEED,sd=100;θ‡’l”ΝˆΝŒΐ’θ/chk,chk3=0;θ‡’l”ΝˆΝ,local rng=5;
------------------------------------set
local t0=math.floor(obj.track0)
local t1=math.floor(obj.track1)
local t2=math.floor(obj.track2)
local t3=math.floor(obj.track3)
local ogvzm=obj.getvalue("zoom")/100
if(ogvzm<=0.01)then ogvzm=0.01 end
local sw=obj.screen_w
local sh=obj.screen_h

blend0=blend0%17
if(blend0==13)then
 blend0="alpha_add"
elseif(blend0==14)then
 blend0="alpha_add2"
elseif(blend0==15)then
 blend0="alpha_max"
elseif(blend0==16)then
 blend0="alpha_sub"
end
------------------------------------
local ow,oh=obj.getpixel()
if(stw==0 or stw==null)then stw=1 end
if(sth==0 or sth==null)then sth=1 end
if(stw>ow)then stw=ow end
if(sth>oh)then sth=oh end

edw=ow-edw
edh=oh-edh
if(edw==0 or edw==null)then edw=ow end
if(edh==0 or edh==null)then edh=oh end
if(edw>ow)then edw=ow end
if(edh>ow)then edh=oh end



obj.setoption("drawtarget","tempbuffer",ow,oh)

if(obj.check0)then
 obj.setoption("blend",0)
 obj.draw()
end
local ik,jk=t0,t0
local fgs=t2
local nidx=0
local pdata={}
for j=sth,edh,jk do
 for i=stw,edw,ik do
  col,a=obj.getpixel(i,j,"col")

  nidx=nidx+1
  pdata[nidx]=col
 end
end

nidx=0
for j=sth,edh,jk do
 for i=stw,edw,ik do
  nidx=nidx+1
  --F‘Š(0`360),Κ“x(0`100),–Ύ“x(0`100)
  h,s,v = HSV(pdata[nidx])

  if(chk2==1)then
   fgs=obj.rand(0,t2*200,sd,nidx)/100
  end

  if(t1==1)then
   md=h
  elseif(t1==2)then
   md=s
  else
   md=v
  end

  if(chk4==0)then
   col1=pdata[nidx]
  else
   col1=col0
  end

  if(chk1==1)then
   if(chk3==1)then
    if(t3-rng<=md and md<=t3+rng)then
     obj.load("figure",fig,col1,fgs,fgs)
     dx=i-ow/2+fgs/2
     dy=j-oh/2+fgs/2
     obj.setoption("blend",blend0)
     obj.draw(dx,dy)
    end
   else
    if(md>=t3)then
     obj.load("figure",fig,col1,fgs,fgs)
     dx=i-ow/2+fgs/2
     dy=j-oh/2+fgs/2
     obj.setoption("blend",blend0)
     obj.draw(dx,dy)
    end
   end
  else
   if(chk3==1)then
    if(md<=t3-rng or t3+rng<=md)then
     obj.load("figure",fig,col1,fgs,fgs)
     dx=i-ow/2+fgs/2
     dy=j-oh/2+fgs/2
     obj.setoption("blend",blend0)
     obj.draw(dx,dy)
    end
   else
    if(md<=t3)then
     obj.load("figure",fig,col1,fgs,fgs)
     dx=i-ow/2+fgs/2
     dy=j-oh/2+fgs/2
     obj.setoption("blend",blend0)
     obj.draw(dx,dy)
    end
   end
  end

 end
end

obj.load("tempbuffer")


@HSVŠξ€ƒ‚ƒUƒCƒNB
--track0:H(F),0,360,180,1
--track1:S(Κ),0,100,50,1
--track2:V(–Ύ),0,100,50,1
--track3:»²½ή,0,800,9,1
--check0:Œ³‰ζ‘œ•\Ž¦,0
--dialog:”»’θ‹t“]/chk,chk1=1;}Œ`‘I‘π/fig,fig="ŽlŠpŒ`";Žw’θFŽg—p/chk,chk4=0;Color/col,col0=0xff0000;ΧέΐήΡS/chk,chk2=0;‡¬[0-16],local blend0=0;‰πΝŠJŽnX,local stw=0;‰πΝI—ΉX,local edw=0;‰πΝŠJŽnY,local sth=0;‰πΝI—ΉY,local edh=0;SEED,sd=100;‰πΝ–§“x,local k=10;
------------------------------------set
local t0=math.floor(obj.track0)
local t1=math.floor(obj.track1)
local t2=math.floor(obj.track2)
local t3=math.floor(obj.track3)
local ogvzm=obj.getvalue("zoom")/100
if(ogvzm<=0.01)then ogvzm=0.01 end
local sw=obj.screen_w
local sh=obj.screen_h

blend0=blend0%17
if(blend0==13)then
 blend0="alpha_add"
elseif(blend0==14)then
 blend0="alpha_add2"
elseif(blend0==15)then
 blend0="alpha_max"
elseif(blend0==16)then
 blend0="alpha_sub"
end
------------------------------------
local ow,oh=obj.getpixel()
if(stw==0 or stw==null)then stw=1 end
if(sth==0 or sth==null)then sth=1 end
if(stw>ow)then stw=ow end
if(sth>oh)then sth=oh end

edw=ow-edw
edh=oh-edh
if(edw==0 or edw==null)then edw=ow end
if(edh==0 or edh==null)then edh=oh end
if(edw>ow)then edw=ow end
if(edh>ow)then edh=oh end



obj.setoption("drawtarget","tempbuffer",ow,oh)

if(obj.check0)then
 obj.setoption("blend",0)
 obj.draw()
end
local fgs=t3
local ik,jk=k,k
local nidx=0
local pdata={}
for j=sth,edh,jk do
 for i=stw,edw,ik do
  col,a=obj.getpixel(i,j,"col")

  nidx=nidx+1
  pdata[nidx]=col
 end
end

nidx=0
for j=sth,edh,jk do
 for i=stw,edw,ik do
  nidx=nidx+1
  --F‘Š(0`360),Κ“x(0`100),–Ύ“x(0`100)
  h,s,v = HSV(pdata[nidx])

  if(chk2==1)then
   fgs=obj.rand(0,t2*200,sd,nidx)/100
  end

  if(chk4==0)then
   col1=pdata[nidx]
  else
   col1=col0
  end

  if(chk1==1)then --***θ‡’l”»’θ’ʏν
    if(h>=t0 and s>=t1 and v>=t2)then
     obj.load("figure",fig,col1,fgs,fgs)
     dx=i-ow/2+fgs/2
     dy=j-oh/2+fgs/2
     obj.setoption("blend",blend0)
     obj.draw(dx,dy)
    end
  else --***θ‡’l”»’θ”½“]
    if(h<=t0 and s<=t1 and v<=t2)then
     obj.load("figure",fig,col1,fgs,fgs)
     dx=i-ow/2+fgs/2
     dy=j-oh/2+fgs/2
     obj.setoption("blend",blend0)
     obj.draw(dx,dy)
    end
  end

 end
end

obj.load("tempbuffer")

--[[http://madeinpc.blog50.fc2.com/]]--