線形グラデスクリプト

https://scrapbox.io/files/661b3659ad10220024063715.png

線分と点の距離

$ \begin{aligned}\vec{v}&=\dfrac{1}{|\vec{b}-\vec{a}|}(\vec{b}-\vec{a})\\\vec{r}&=\vec{P}-\vec{a}\\\vec{n}&=\vec{v}(\vec{r}\cdot\vec{v})+\vec{a}\\d&=|\vec{n}-\vec{P}|\end{aligned}

スクリプト

2点から成る線分からの距離で重みを付けるグラデーションスクリプトです。

code:線形グラデ_M.lua

--[[

線形グラデ_M.anm

グラデーションスクリプトです。

]]

--track0:a0,0,100,100,0.01

--track1:a1,0,100,100,0.01

--track2:a2,0,100,100,0.01

--track3:a3,0,100,100,0.01

--dialog:set_anchor,pos={-200,-200,-100,-100,-200,200,-100,100,200,200,100,100,200,-200,100,-100};色1/col,local ca=0x79f6f6;色2/col,local cb=0xa4ffa4;色3/col,local cc=0xfaff4f;色4/col,local cd=0x5191dd;

local function norm(x,y)

return math.sqrt(x*x+y*y)

end

local function setup(x0,y0,x1,y1)

if(x0>x1)then x1,y1,x0,y0=x0,y0,x1,y1 end

local r={x0,y0,x1,y1}

local v={x1-x0,y1-y0}

end

local function compute(x,y,s)

end

local d=norm(dx-x,dy-y)

if(d<=0.001)then return 1000000

else return 1/(d*d)

end

end

local function fade(a,b,t)

return (b-a)*t

end

local function ceil(d)

return math.min(math.max(math.floor(d+0.5),0),255)

end

obj.setanchor("pos",8)

for i=0,7 do

end

local s0,s1,s2,s3

local a0,a1,a2,a3=obj.track0/100,obj.track1/100,obj.track2/100,obj.track3/100

local car,cag,cab=RGB(ca)

local cbr,cbg,cbb=RGB(cb)

local ccr,ccg,ccb=RGB(cc)

local cdr,cdg,cdb=RGB(cd)

local data,w,h=obj.getpixeldata()

local ffi=require("ffi")

local cdata=ffi.cast("Pixel*",data)

for y=0,h-1 do

for x=0,w-1 do

local len={compute(x,y,s0),compute(x,y,s1),compute(x,y,s2),compute(x,y,s3)}

cdata=cdata+1

end

end

obj.putpixeldata(data)

by metaphysical bard