• テキスト等の個別オブジェクトに面を張るスクリプト

local l = 10 -- 横分割数と合わせる(設定必須)
local col = 0xffffff -- 色
local alp = 0.8 -- 透明度
--local w,h = obj.getpixel() --オブジェクトの色を使いたい場合はこの二行を有効に
--col,alp = obj.getpixel((w-1)/2,(h-1)/2)
if(obj.index==0)then Q = {} end
Q[obj.index]={obj.x+obj.ox,obj.y+obj.oy,obj.z+obj.oz,obj.alpha*alp,col}
if(obj.index==obj.num-1)then
obj.draw()
obj.load("figure","四角形",0,1)
obj.rz=0
obj.ox,obj.oy,obj.oz = obj.ox-obj.x, obj.oy-obj.y, obj.oz-obj.z
for i=0,#Q-l do
if(i%l~=l-1)then --右端と左端の接続を回避
local a,b,c,d=Q[i],Q[i+1],Q[i+1+l],Q[i+l]
obj.putpixel(0,0,a[5],a[4]*b[4]*c[4])
obj.drawpoly(a[1],a[2],a[3],a[1],a[2],a[3],b[1],b[2],b[3],c[1],c[2],c[3])
obj.putpixel(0,0,d[5],a[4]*c[4]*d[4])
obj.drawpoly(a[1],a[2],a[3],a[1],a[2],a[3],c[1],c[2],c[3],d[1],d[2],d[3])
end
end
end

• 点線を描画するスクリプト

local num = -15 --マイナスだと描画間隔、プラスだと描画数指定
local fade = 300 -- この距離より離れると消えていく
local ln = 0 --1にすると元のオブジェクトの位置に描画しない

local function clamp(x)
return (x<=0 and 0) or (x>=1 and 1) or x
end

local function draw_dot(a,b,num,fade)
local v = {b[1]-a[1],b[2]-a[2],b[3]-a[3]}
local l = math.sqrt(v[1]*v[1]+v[2]*v[2]+v[3]*v[3])
local alp = 1-clamp((l-fade)/(fade/2))
if l<100 then alp = 1-clamp((l-100)/(50-100)) end
if (alp<=0) then return end
local n = (num<0 and l / -num) or num
v = {v[1]/n,v[2]/n,v[3]/n}
for i=ln,n-ln do
obj.draw(a[1]+v[1]*i,a[2]+v[2]*i,a[3]+v[3]*i,alp,alp)
end
end
obj.setoption("billboard",3)
for i=0,#Q-1 do
for j=i+1,#Q do
draw_dot(Q[i],Q[j],num,fade)
end
end