@円形矢印回転 kerokero9696 --track0:速度,1,4096,300,1 --track1:半径,1,4096,100,1 --track2:長さ,0,360,90,1 --track3:描画密度,1,360,40,1 --check0:向き,0 --dialog:先端/chk,chk1=1;動き/chk,chk2=1;図形サイズ,fgs1=16;図形幅,fgs2=1000;Color/col,col=0xffffff;幅補正,xx=1.0;高さ補正,yy=1.2; ------------------------------------set t0=math.floor(obj.track0) t1=math.floor(obj.track1) t2=math.floor(obj.track2) t3=obj.track3/10 sw=obj.screen_w sh=obj.screen_h ogvz=obj.getvalue("zoom")/100 ------------------------------------fig fig="円" ik=t3 len=360-t2 if(len<0)then len=0 end ------------------------------------ obj.setoption("drawtarget","tempbuffer",sw*xx,sh*yy) ------------------------------------ if(chk2==0)then move=0 else move=obj.time*t0 end if(obj.check0)then for i=0,len,ik do r=math.rad(i-move) cs=math.cos(r) sn=math.sin(r) obj.setoption("drawtarget","tempbuffer") obj.setoption("blend","alpha_add") if(chk1==1 and i==0)then obj.load("figure","三角形",col,fgs1*3,fgs2) rz=-move else obj.load("figure",fig,col,fgs1,fgs2) end dx=t1*cs dy=t1*sn obj.draw(dx,dy,0,1,1,0,0,rz) end else for i=0,len,ik do r=-math.rad(i-move) cs=math.cos(r) sn=math.sin(r) obj.setoption("drawtarget","tempbuffer") obj.setoption("blend","alpha_add") if(chk1==1 and i==0)then obj.load("figure","三角形",col,fgs1*3,fgs2) rz=180+move else obj.load("figure",fig,col,fgs1,fgs2) end dx=t1*cs dy=t1*sn obj.draw(dx,dy,0,1,1,0,0,rz) end end obj.load("tempbuffer") @幾何学模様っぽいもの(七宝風) kerokero9696 --track0:サイズ,0,1000,100,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) 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,10,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,4,1 --track2:切抜サイズ,0,1000,50,1 --track3:間隔補正,-100,1000,0,0.1 --dialog:下地図形選択1/fig,fig="六角形";下地図形サイズ,fgs1=60;切抜図形選択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,35,1 --track2:サイズ,0,1000,50,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,4096,100,1 --track1:線幅,1,4096,5,1 --track2:角度,0,360,30,0.01 --track3:波,1,100,3,1 --dialog:図形選択/fig,fig="円";Color/col,col=0xffffff;横幅補正,swh=15;縦幅補正,shh=25;幅繰返増減,ww=1;高さ繰返増減,hh=2;斜め係数,ncc=2; ------------------------------------set t0=math.floor(obj.track0) t1=math.floor(obj.track1) t2=obj.track2 t3=math.floor(obj.track3) sw=obj.screen_w sh=obj.screen_h ------------------------------------fig fgs1=t0 fgs2=t1 ------------------------------------script obj.setoption("drawtarget","tempbuffer",sw+swh,sh+shh) nw=math.floor(sw/fgs1)+ww nh=math.floor(sh/fgs1)+hh for k=0,nh*4 do for i=0,nw do if(k%2==0)then dx=(i-nw/2)*fgs1 else dx=(i-nw/2)*fgs1+fgs1/2 end dy=-sh/2+(k-nh/2)*fgs1/4 for j=1,t3 do obj.setoption("drawtarget","tempbuffer") obj.setoption("blend","alpha_add") obj.load("figure",fig,col,fgs1*j/t3,fgs2) obj.effect("斜めクリッピング","角度",t2-j*ncc) obj.effect("斜めクリッピング","角度",-t2+j*ncc) obj.draw(dx,dy) end end end ------------------------------------ obj.load("tempbuffer") @カラフル下地 kerokero9696 --track0:総数,1,9999,135,1 --track1:列,1,1000,15,1 --track2:密度,1,9999,2,1 --track3:サイズ,1,1000,50,1 --check0:Color Change,0 --dialog:Color/col,col1=0x444444;seed,sd=100;間隔補正,sc=-25.00;幅補正,ww=0;高さ補正,hh=0;合成モード変更/chk,chk2=0; ------------------------------------set t0=obj.track0 t1=obj.track1 t2=obj.track2 if(t0<=t2)then t2=t0 end t3=obj.track3 sw=obj.screen_w sh=obj.screen_h ------------------------------------fig fig="円" fgs1=t3 fgs2=4000 ------------------------------------script obj.setoption("drawtarget","tempbuffer",sw+ww,sh+hh) num={} ik=t2 dx=0 dy=0 for i=0,t0-1,ik do dx=(math.floor(i%t1)-(t1-1)/2)*(fgs1+sc) dy=(math.floor(i/t1)-math.floor(t0/t1/2))*(fgs1+sc) rnd=obj.rand(0,t0-1,sd,i+10) rnd1=obj.rand(0,9999,sd,i) if(i