--track0:横,10,800,100,1
--track1:縦,10,800,100,1
--track2:サイズ,4,2048,120,1
--track3:線幅,0,1024,60,1
--dialog:ダイヤ/col,col=0x00ffff;背景/col,col0=0x004444;SEED,sd=100;
-----------------------------------set
local t0=math.floor(obj.track0)
local t1=math.floor(obj.track1)
local fgs0=math.floor(obj.track2)
local fgs1=math.floor(obj.track3)
local sw,sh=obj.screen_w,obj.screen_h
local ow,oh=obj.getpixel()
local ogvzm=obj.getvalue("zoom")/100
local fs=sh/24/ogvzm
obj.setfont("",fs)
-----------------------------------set2
obj.setoption("drawtarget","tempbuffer",sw,sh)
obj.load("figure","背景",col0,100)
obj.draw()

obj.load("figure","四角形",col,fgs0,fgs1)
local dst=fgs0
local x0,y0,z0,x1,y1,z1,x2,y2,z2,x3,y3,z3,u0,v0,u1,v1,u2,v2,u3,v3,alp
u0,v0=0,0
u1,v1=dst,0
u2,v2=u1,dst
u3,v3=u0,v2
alp=1
local dstx=dst
local dsty=dst
local lenx=math.floor(sw/dstx/(t0*0.01))
local leny=math.floor(sh/dsty/(t1*0.01))
local idx=0

for j=0,leny do
	for h=0,lenx do

		for i=0,3 do
			ang=90*i
			r=math.rad(ang)
			cs=(math.cos(r)*dst*0.5	+ (h-lenx*0.5)*dstx)*t0*0.01
			sn=(math.sin(r)*dst*0.5	+ (j-leny*0.5)*dsty)*t1*0.01

			if(i==0)then
				x0,y0,z0=cs,sn,0
			elseif(i==1)then
				x1,y1,z1=cs,sn,0
			elseif(i==2)then
				x2,y2,z2=cs,sn,0
			elseif(i==3)then
				x3,y3,z3=cs,sn,0
			end
		end

		obj.drawpoly(x0,y0,z0,x1,y1,z1,x2,y2,z2,x3,y3,z3,u0,v0,u1,v1,u2,v2,u3,v3,alp)
		idx=idx+1
	end
end
obj.load("tempbuffer")



--[[http://madeinpc.blog50.fc2.com/]]--