You're welcome.
If you need scaling you could use this. It works as DBPro scaling should work - but without the bug.
I hope the code is self-explanatory. If not just ask. But I won't be around till later.
load object "death_glider.x",1
`scale object 1,10,10,10 ` this fouls up specular lighting
scaleObject(1, 10.0, 10.0, 10.0) ` this works
set object specular 1, rgb(255, 255, 255)
autocam off
position camera 0,10,-50
point camera 0, 0, 0
hide light 0
make light 1
show light 1
position light 1,0,100,0 ` place the light above the glider so its effect is easier to see
Sync On
Sync Rate 60
do
control camera using arrowkeys 0,1,1
if inkey$() = "r" then xrotate object 1, object angle x(1)+0.2
sync
loop
end
function scaleObject(obj, xScale#, yScale#, zScale#)
xS# = xScale# * 0.01
yS# = yScale# * 0.01
zS# = zScale# * 0.01
perform checklist for object limbs obj
nLimbs = checklist quantity() - 1
for lim = 0 to nLimbs
lock vertexdata for limb obj, lim
nv = get vertexdata vertex count() - 1
for v = 0 to nv
set vertexdata position v, get vertexdata position x(v)*xS#, get vertexdata position y(v)*yS#, get vertexdata position z(v)*zS#
next v
unlock vertexdata
next lim
set object normals obj
endfunction