--track0:※サイズ,0,4096,800,1 --track1:密度,1,2048,50,1 --track2:線幅,0.2,4096,0.5,0.1 --track3:角度,0,90,45,1 --check0:網⇔縞,1 --dialog:表示タイプ/chk,chk1=0;回転90or270入替/chk,chk2=1;密度制限/chk,chk3=1;色/col,col=0xffffff;SEED,sd=100; -----------------------------------set local t0=math.floor(obj.track0) local t1=math.floor(obj.track1) local t2=math.floor(obj.track2*10)*0.1 local t3=math.floor(obj.track3) local sw,sh=obj.screen_w,obj.screen_h local dtw,dth,fig if(chk1==0)then dtw,dth=sw,sh fig="背景" else dtw,dth=t0,t0 fig="四角形" end if(chk2==1 and chk1==0 and (obj.rz==90 or obj.rz==270))then dtw,dth=dth,dtw end if(chk3==1 and t1 < 8)then t1 = 8 end obj.setoption("drawtarget","tempbuffer",dtw,dth) ----------------------------------- local fgs if(sw>=sh)then fgs=math.floor(sw*math.sqrt(2) +0.5) else fgs=math.floor(sh*math.sqrt(2) +0.5) end obj.load("figure",fig,col,fgs,fgs) local ow,oh=obj.getpixel() local hh=t2 local len=math.floor(fgs/hh)-1 for i=0,len,t1 do if(obj.check0)then n=1 else n=0 end for j=0,n do ang=t3*(-1)^j r=math.rad(ang) cs=math.cos(r) sn=math.sin(r) ph=hh*i-fgs*0.5+hh*0.5 x0,y0,z0=-ow,-hh+ph,0 x1,y1,z1=ow,y0,0 x2,y2,z2=x1,hh+ph,0 x3,y3,z3=x0,y2,0 xx0=x0*cs-y0*sn yy0=x0*sn+y0*cs xx1=x1*cs-y1*sn yy1=x1*sn+y1*cs xx2=x2*cs-y2*sn yy2=x2*sn+y2*cs xx3=x3*cs-y3*sn yy3=x3*sn+y3*cs obj.drawpoly(xx0,yy0,z0,xx1,yy1,z1,xx2,yy2,z2,xx3,yy3,z3) end end ----------------------------------- obj.load("tempbuffer") --[[http://madeinpc.blog50.fc2.com/]]--