--track0:個数,1,2048,30,1
--track1:間隔,0,800,50,1
--track2:▼X,-4096,4096,0,1
--track3:▼Y,-4096,4096,60,1
--check0:Pattern,1
--dialog:大目盛り間隔,local memon=5;目盛り横幅,local xn=32;目盛り縦幅,local yn=4;目盛り色/col,col0=0xffffff;計り表示/chk,chk1=1;図形選択/fig,fig="三角形";計り色/col,col1=0xffffff;計り角度,local rz=180;総ｻｲｽﾞ,local fgs=100;計りｻｲｽﾞ係数,local fgsc=0.50;
-------------------------------------set
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 ogvzm=obj.getvalue("zoom")/100
if(ogvzm==0)then ogvzm=0.1 end
local sw=obj.screen_w/ogvzm
local sh=obj.screen_h/ogvzm
if(xn<=0)then xn=1 end
if(yn<=0)then yn=1 end
------------------------------------
obj.setoption("drawtarget","tempbuffer",sw,sh)

local len=t0
local dstc=t1/10
obj.load("figure","四角形",col0,fgs)
for i=0,len do
 fgsx=fgs/xn
 if(obj.check0)then
  if(i%memon==0)then
   fgsy=fgs/yn
  else
   fgsy=fgs/(yn*2)
  end
 else
  fgsy=fgs/(yn*2)
 end

 dx=i*fgsx*dstc-len*fgsx*dstc/2
 dy=0
 x0,y0,z0=-fgsx+dx	,-fgsy	,0
 x1,y1,z1=fgsx+dx	,-fgsy	,0
 x2,y2,z2=fgsx+dx	,fgsy	,0
 x3,y3,z3=-fgsx+dx	,fgsy	,0

 obj.drawpoly(x0,y0,z0,x1,y1,z1,x2,y2,z2,x3,y3,z3)
end

if(chk1==1)then
 fgs=fgs*fgsc
 obj.load("figure",fig,col1,fgs)
 obj.draw(t2,t3,0,1,1,0,0,rz)
end
obj.load("tempbuffer")




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