@幾何学模様っぽいもの(七宝風)A kerokero9696 --track0:サイズ,0,1000,200,1 --track1:線幅,0,1000,2,1 --track2:角度,-360,360,0,0.01 --track3:模様(偶),1,100,16,1 --dialog:図形/fig,fig="円";Color/col,col=0xffffff;円半径補正,cdst=-1;角度変化/chk,chk2=0;繰返し/chk,chk1=1;幅繰返増減,ww=1;高さ繰返増減,hh=1;速度X,xsp=0;速度Y,ysp=0; ------------------------------------set t0=math.floor(obj.track0) t1=math.floor(obj.track1) t2=obj.track2 t3=math.floor(obj.track3) * 2 sw=obj.screen_w sh=obj.screen_h ------------------------------------fig fgs1=t0 fgs2=t1 dst1=(t0-t1)/2+cdst ------------------------------------script obj.setoption("drawtarget","tempbuffer",dst1*2,dst1*2) ang=360/t3 for i=0,t3-1 do obj.setoption("drawtarget","tempbuffer") obj.setoption("blend","alpha_add") r=math.rad(ang*i) cs=math.cos(r) sn=math.sin(r) dx=dst1*cs dy=dst1*sn if(chk2==0)then rz=t2 else rz=t2+ang*i end obj.load("figure",fig,col,fgs1,fgs2) obj.draw(dx,dy,0,1,1,0,0,rz) end obj.load("tempbuffer") if(chk1==1)then nw=math.floor(sw/dst1/2)+ww nh=math.floor(sh/dst1/2)+hh obj.effect("画像ループ","横回数",nw,"縦回数",nh,"速度X",xsp,"速度Y",ysp) end @幾何学模様っぽいもの(七宝風)B kerokero9696 --track0:サイズ,0,1000,200,1 --track1:線幅,0,1000,15,1 --track2:角度,-360,360,0,0.01 --track3:模様(偶),1,100,2,1 --dialog:図形/fig,fig="六角形";Color/col,col=0xffffff;円半径補正,cdst=-1;角度変化/chk,chk2=0;繰返し/chk,chk1=1;幅繰返増減,ww=1;高さ繰返増減,hh=1;速度X,xsp=0;速度Y,ysp=0; ------------------------------------set t0=math.floor(obj.track0) t1=math.floor(obj.track1) t2=obj.track2 t3=math.floor(obj.track3) * 2 sw=obj.screen_w sh=obj.screen_h ------------------------------------fig fgs1=t0 fgs2=t1 dst1=(t0-t1)/2+cdst ------------------------------------script obj.setoption("drawtarget","tempbuffer",dst1*2,dst1*2) ang=360/t3 for i=0,t3-1 do obj.setoption("drawtarget","tempbuffer") obj.setoption("blend","alpha_add") r=math.rad(ang*i) cs=math.cos(r) sn=math.sin(r) dx=dst1*cs dy=dst1*sn if(chk2==0)then rz=t2 else rz=t2+ang*i end obj.load("figure",fig,col,fgs1,fgs2) obj.draw(dx,dy,0,1,1,0,0,rz) end obj.load("tempbuffer") if(chk1==1)then nw=math.floor(sw/dst1/2)+ww nh=math.floor(sh/dst1/2)+hh obj.effect("画像ループ","横回数",nw,"縦回数",nh,"速度X",xsp,"速度Y",ysp) end @幾何学模様っぽいもの(七宝風)C kerokero9696 --track0:サイズ,0,1000,200,1 --track1:線幅,0,1000,5,1 --track2:角度,-360,360,45,0.01 --track3:模様(偶),1,100,4,1 --dialog:図形/fig,fig="四角形";Color/col,col=0xffffff;円半径補正,cdst=-1;角度変化/chk,chk2=0;繰返し/chk,chk1=1;幅繰返増減,ww=1;高さ繰返増減,hh=1;速度X,xsp=0;速度Y,ysp=0; ------------------------------------set t0=math.floor(obj.track0) t1=math.floor(obj.track1) t2=obj.track2 t3=math.floor(obj.track3) * 2 sw=obj.screen_w sh=obj.screen_h ------------------------------------fig fgs1=t0 fgs2=t1 dst1=(t0-t1)/2+cdst ------------------------------------script obj.setoption("drawtarget","tempbuffer",dst1*2,dst1*2) ang=360/t3 for i=0,t3-1 do obj.setoption("drawtarget","tempbuffer") obj.setoption("blend","alpha_add") r=math.rad(ang*i) cs=math.cos(r) sn=math.sin(r) dx=dst1*cs dy=dst1*sn if(chk2==0)then rz=t2 else rz=t2+ang*i end obj.load("figure",fig,col,fgs1,fgs2) obj.draw(dx,dy,0,1,1,0,0,rz) end obj.load("tempbuffer") if(chk1==1)then nw=math.floor(sw/dst1/2)+ww nh=math.floor(sh/dst1/2)+hh obj.effect("画像ループ","横回数",nw,"縦回数",nh,"速度X",xsp,"速度Y",ysp) end @幾何学模様っぽいもの2 kerokero9696 --track0:サイズ,0,1000,100,1 --track1:線幅,1,1000,4,1 --track2:中心位置,0,1000,65,0.1 --track3:サイズ補正,0,1000,100,0.1 --dialog:図形選択/fig,fig="四角形";Color/col,col=0xffffff;横幅補正,swh=0;縦幅補正,shh=0;繰返し/chk,chk1=1;幅繰返増減,ww=1;高さ繰返増減,hh=1;速度X,xsp=0;速度Y,ysp=0; ------------------------------------set t0=math.floor(obj.track0) t1=math.floor(obj.track1) t2=obj.track2 t3=obj.track3 sw=obj.screen_w sh=obj.screen_h ------------------------------------fig fgs1=t0 fgs2=t1 dst1=(fgs1-fgs2)+t3 ------------------------------------script obj.setoption("drawtarget","tempbuffer",dst1+swh,dst1+shh) obj.setoption("drawtarget","tempbuffer") obj.setoption("blend","alpha_add") obj.load("figure",fig,col,fgs1,fgs2) ik=90 for i=0,359,ik do r=math.rad(i+90) cs=math.cos(r) sn=math.sin(r) dx=t2*cs dy=t2*sn obj.draw(dx,dy) end ------------------------------------ obj.load("tempbuffer") if(chk1==1)then nw=math.floor(sw/dst1)+ww nh=math.floor(sh/dst1)+hh obj.effect("画像ループ","横回数",nw,"縦回数",nh,"速度X",xsp,"速度Y",ysp) end @幾何学模様っぽいもの3(分銅繋ぎ風) kerokero9696 --track0:サイズ1,0,4096,100,1 --track1:線幅,1,4096,200,1 --track2:サイズ2,0,4096,75,1 --track3:サイズ補正,-100,1000,0,0.1 --dialog:Color/col,col=0xffffff;横幅補正,swh=0;縦幅補正,shh=0;繰返し/chk,chk1=1;幅繰返増減,ww=1;高さ繰返増減,hh=1;速度X,xsp=0;速度Y,ysp=0; ------------------------------------set t0=math.floor(obj.track0) t1=math.floor(obj.track1) t2=math.floor(obj.track2) t3=obj.track3 sw=obj.screen_w sh=obj.screen_h ------------------------------------fig fig="円"; dst1=t0+t3 ------------------------------------script obj.setoption("drawtarget","tempbuffer",dst1+swh,dst1+shh) for i=0,2 do obj.setoption("drawtarget","tempbuffer") if(i==0)then dx=0 dy=0 fgs1=t0 fgs2=4000 obj.setoption("blend","alpha_add") elseif(i==1)then dx=t0/3 dy=t0/3 fgs1=t2 fgs2=t1 obj.setoption("blend","alpha_sub") elseif(i==2)then dx=-t0/3 dy=-t0/3 fgs1=t2 fgs2=t1 obj.setoption("blend","alpha_sub") end obj.load("figure",fig,col,fgs1,fgs2) obj.draw(dx,dy) end ------------------------------------ obj.load("tempbuffer") if(chk1==1)then nw=math.floor(sw/dst1)+ww nh=math.floor(sh/dst1)+hh obj.effect("画像ループ","横回数",nw,"縦回数",nh,"速度X",xsp,"速度Y",ysp) end @幾何学模様っぽいもの4 kerokero9696 --track0:切抜個数,2,360,4,1 --track1:切抜位置,0,4096,40,1 --track2:切抜サイズ,0,1000,50,1 --track3:間隔補正,-100,1000,-100,0.1 --dialog:下地図形選択1/fig,fig="六角形";下地図形サイズ,fgs1=150;切抜図形選択2/fig,fig1="円";Color/col,col=0xffffff;横幅補正,swh=0;縦幅補正,shh=0;繰返し/chk,chk1=1;幅繰返増減,ww=1;高さ繰返増減,hh=1;速度X,xsp=0;速度Y,ysp=0; ------------------------------------set t0=math.floor(obj.track0) t1=math.floor(obj.track1) t2=math.floor(obj.track2) t3=obj.track3 sw=obj.screen_w sh=obj.screen_h ------------------------------------fig fgs2=4000 dst1=fgs1+t3 ------------------------------------script obj.setoption("drawtarget","tempbuffer",dst1+swh,dst1+shh) obj.setoption("drawtarget","tempbuffer") obj.setoption("blend","alpha_add") obj.load("figure",fig,col,fgs1,fgs2) obj.draw() ik=360/t0 for i=0,359,ik do r=math.rad(i-90) cs=math.cos(r) sn=math.sin(r) obj.setoption("drawtarget","tempbuffer") obj.setoption("blend","alpha_sub") fgs1=t2 fgs2=4000 dx=t1*cs dy=t1*sn rz=i obj.load("figure",fig1,col,fgs1,fgs2) obj.draw(dx,dy,0,1,1,0,0,rz) end ------------------------------------ obj.load("tempbuffer") if(chk1==1)then nw=math.floor(sw/dst1)+ww nh=math.floor(sh/dst1)+hh obj.effect("画像ループ","横回数",nw,"縦回数",nh,"速度X",xsp,"速度Y",ysp) end ------------------------------------ @幾何学模様っぽいもの5 kerokero9696 --track0:個数,2,360,4,1 --track1:位置,0,4096,75,1 --track2:サイズ,0,1000,100,1 --track3:間隔補正,-100,1000,0,0.1 --dialog:図形選択1/fig,fig="六角形";Color/col,col=0xffffff;横幅補正,swh=0;縦幅補正,shh=0;繰返し/chk,chk1=1;幅繰返増減,ww=1;高さ繰返増減,hh=1;速度X,xsp=0;速度Y,ysp=0; ------------------------------------set t0=math.floor(obj.track0) t1=math.floor(obj.track1) t2=math.floor(obj.track2) t3=obj.track3 sw=obj.screen_w sh=obj.screen_h ------------------------------------fig fgs1=t2 fgs2=4000 dst1=fgs1+t3 ------------------------------------script obj.setoption("drawtarget","tempbuffer",dst1+swh,dst1+shh) dst=t1 ik=360/t0 for i=0,359,ik do obj.setoption("drawtarget","tempbuffer") obj.setoption("blend","alpha_add") r=math.rad(i-90) cs=math.cos(r) sn=math.sin(r) dx=dst*cs dy=dst*sn obj.load("figure",fig,col,fgs1,fgs2) obj.draw(dx,dy) end ------------------------------------ obj.load("tempbuffer") if(chk1==1)then nw=math.floor(sw/dst1)+ww nh=math.floor(sh/dst1)+hh obj.effect("画像ループ","横回数",nw,"縦回数",nh,"速度X",xsp,"速度Y",ysp) end ------------------------------------ @幾何学模様っぽいもの6(青海波) kerokero9696 --track0:サイズ,1,2048,200,1 --track1:線幅,1,100,10,1 --track2:円弧数,1,100,5,1 --track3:角度,0,180,50,1 --check0:波動き,0 --dialog:図形選択/fig,fig="円";Color/col,col=0xffffff;円弧係数,local ncc=2.0;波速度,local spd=5.0; ------------------------------------ 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 sw,sh = obj.screen_w,obj.screen_h ------------------------------------ local fgs1,fgs2 = t0,t1 local num,ang = t2,t3 obj.setoption("drawtarget","tempbuffer",fgs1,fgs1) for j=1,num do obj.load("figure",fig,col,fgs1 * (j / num),fgs2) obj.effect("斜めクリッピング","角度",ang-j*ncc) obj.effect("斜めクリッピング","角度",-ang+j*ncc) if(obj.check0)then if((obj.time * spd) % (t2+2) >= j)then obj.draw() else end else obj.draw() end end obj.load("tempbuffer") obj.effect("クリッピング","上",0,"下",fgs1*0.5,"左",0,"右",0) local ow,oh = obj.getpixel() obj.setoption("drawtarget","tempbuffer",fgs1,fgs1) for j=0,7 do if(j == 0)then dx = 0 dy = -oh * 0.5 elseif(j == 1)then dx = -ow * 0.5 dy = 0 elseif(j == 2)then dx = ow * 0.5 dy = 0 elseif(j == 3)then dx = 0 dy = oh * 0.5 elseif(j == 4)then dx = -ow * 0.5 dy = oh elseif(j == 5)then dx = ow * 0.5 dy = oh elseif(j == 6)then dx = -ow * 0.5 dy = -oh elseif(j == 7)then dx = ow * 0.5 dy = -oh end obj.draw(dx,dy) end obj.load("tempbuffer") local nx,ny=math.ceil(sw / ow),math.ceil(sh / oh) obj.effect("画像ループ","横回数",nx,"縦回数",ny) @カラフル下地 kerokero9696 --track0:サイズ,1,2048,200,1 --track1:密度,50,200,100,1 --track2:Frame,0,9999,0,1 --track3:Mode,0,2,0,1 --check0:列ズレ,1 --dialog:図形選択/fig,fig="円";Color/col,col=0xff0000;図形サイズ制限/chk,chk1=1;SEED,sd=100; ------------------------------------ local t0 = math.floor(obj.track0) local t1 = math.floor(obj.track1) * 0.01 local t2 = math.floor(obj.track2) local mode = math.floor(obj.track3) local sw,sh = obj.screen_w,obj.screen_h ------------------------------------fig if(chk1 == 1)then if(t0 < 10)then t0 = 10 end end local nx,ny = math.ceil(sw / t0 / t1),math.ceil(sh / t0 / t1) local idx = 1 obj.setoption("drawtarget","tempbuffer",sw,sh) obj.setoption("blend","alpha_max") for j=0,ny do for i=0,nx do if(obj.check0)then if(j%2==0)then dx = t0 * i - nx * t0 * 0.5 dy = t0 * j - ny * t0 * 0.5 else dx = t0 * i - nx * t0 * 0.5 + t0 * 0.5 dy = t0 * j - ny * t0 * 0.5 end else dx = t0 * i - nx * t0 * 0.5 dy = t0 * j - ny * t0 * 0.5 end h,s,v= HSV(col) if(mode == 0)then h = obj.rand(0,359,sd+t2,idx) elseif(mode == 1)then s = obj.rand(0,100,sd+t2,idx) elseif(mode == 2)then v = obj.rand(0,100,sd+t2,idx) end col0 = HSV(h,s,v) obj.load("figure",fig,col0,t0,t0) obj.draw(dx * t1,dy * t1) idx = idx + 1 end end obj.load("tempbuffer") --[[http://madeinpc.blog50.fc2.com/]]--