@毛筆風Bスプライン 1/2 --track0:太さ位置,0,100,50,0.01 --track1:太さ,0,4096,100,1 --track2:透明位置,0,100,50,0.01 --track3:透明,0,4096,100,1 --dialog:筆先ZM無効/chk,chk1=0;筆尾ZM無効/chk,chk2=0;筆先ALP無効/chk,chk3=0;筆尾ALP無効/chk,chk4=0;X位置補正,pxpos=0.00;Y位置補正,pypos=0.00; ------------------------------------set hude_pz=obj.track0*0.01 zmc=math.floor(obj.track1)*0.01 hude_pa=obj.track2*0.01 alc=math.floor(obj.track3)*0.01 @毛筆風Bスプライン 2/2B --track0:アンカー,3,15,3,1 --track1:合成,0,2,2,1 --track2:表示速度,0,1024,150,1 --track3:密度,1,9999,100,1 --dialog:pos,pos={}; ------------------------------------set local t0=math.floor(obj.track0) local t1=math.floor(obj.track1) local t2=math.floor(obj.track2) local ik=math.floor(obj.track3)*0.01 local sw=obj.screen_w local sh=obj.screen_h local ow,oh=obj.getpixel() local ogvzm=obj.getvalue("zoom")*0.01 ------------------------------------ if(pos[1]==null)then local dstx=sw/(t0+2) local dsty=sh/(t0+2) for i=1,t0 do pos[i*2-1]=i*dstx-t0*dstx*0.5-dstx*0.5 pos[i*2]=0 end end obj.setanchor("pos",t0,"line") ------------------------------------ ------------------------------------ if(pos[1]~=null)then local spd=obj.time*t2 local len=t0-math.ceil(t0*0.5) local total=0 for j=1,len do if(j==1)then islen=0 else islen=1 end for i=islen,100,ik do total=total+1 end end local blend if(t1==0)then blend="alpha_add" elseif(t1==1)then blend="alpha_add2" else blend="alpha_max" end obj.setoption("drawtarget","tempbuffer",sw,sh) local idx=0 for j=1,len do if(j==1)then islen=0 else islen=1 end for i=islen,100,ik do n=2*j-1 t=i*0.01 x1,x2,x3=pos[2*n-1],pos[2*(n+1)-1],pos[2*(n+2)-1] y1,y2,y3=pos[2*n],pos[2*(n+1)],pos[2*(n+2)] dx=x1*(1-t)^2 + 2*t*(1-t)*x2 +x3*t^2 dy=y1*(1-t)^2 + 2*t*(1-t)*y2 +y3*t^2 thpzt=total-hude_pz*total hpz0=hude_pz*0.5 if(thpzt==0)then thpzt=0.001 end if(idx1)then zm=1 end if(zm<0)then zm=0 end thpat=total-hude_pa*total hpa0=hude_pa*0.5 if(thpat==0)then thpat=0.001 end if(idx1)then al=1 end if(al<0)then al=0 end if(t2~=0)then if(idxhude_pz*total)then idx2=idx2+1 end if(idx>hude_pa*total)then idx3=idx3+1 end thpzt=total-hude_pz*total if(thpzt==0)then thpzt=0.001 end if(zmc>0)then zm=1-idx2*zmc/thpzt else zm=1 end if(zm>1)then zm=1 end if(zm<0)then zm=0 end thpat=total-hude_pa*total if(thpat==0)then thpat=0.001 end if(alc>0)then al=1-idx3*alc/thpat else al=1 end if(al>1)then al=1 end if(al<0)then al=0 end if(t2~=0)then if(idx