backdrop on : color backdrop 0
sync on
sync rate 30
sync
//make texture
ink rgb(0,255,0), rgb(0,255,0)
box 1,1,5,5
dot 1, 1, rgb(255,0,0)
dot 1, 2, rgb(0,0,255)
//sync
get image 1, 1, 1, 3, 2
//side 1
make object plain 1, 10, 10
make object plain 2, 10, 10
//move object 1, 0.35
offset limb 1, 0, 0, 0, 0.35
//move object 2, -0.35
offset limb 2, 0, 0, 0, -0.35
xrotate object 1, -4
xrotate object 2, 4
//yrotate object 2, 90
//side 2
make object plain 3, 10, 10
make object plain 4, 10, 10
zrotate object 3, -4
zrotate object 4, 4
turn object right 3, 90
turn object right 4, 90
//move object 3, 0.35
offset limb 3, 0, 0, 0, 0.35
//move object 4, -0.35
offset limb 4, 0, 0, 0, -0.35
remstart
remend
//remstart
mergeObjects(1,2,5)
delete object 1
delete object 2
mergeObjects(3,4,6)
delete object 3
delete object 4
mergeObjects(5,6,7)
delete object 5
delete object 6
set object cull 7, 0
texture object 7, 1
if file exist("C:\tree.dbo") then delete file "C:\tree.dbo"
save object "C:\tree.dbo", 7
//remend
do
paste image 1, 2, 2
MouseControl(1)
//turn object right 3, 1
sync
loop
function MouseControl(Speed as float)
if mouseclick()=2
sync
xrotate camera curveangle(camera angle x() + mousemovey(), camera angle x(),3)
yrotate camera curveangle(camera angle y() + mousemovex(), camera angle y(),3)
position mouse screen width()/2, screen height()/2
if upkey() or keystate(17) or MOUSEMOVEZ() > 0
move camera Speed
endif
if downkey() or keystate(31) or MOUSEMOVEZ() < 0
move camera -Speed
endif
if leftkey() or keystate(30)
x#=camera angle x()
z#=camera angle z()
rotate camera 0,camera angle y()-90,0
move camera Speed
rotate camera x#,camera angle y()+90,z#
endif
if rightkey() or keystate(32)
x#=camera angle x()
z#=camera angle z()
rotate camera 0,camera angle y()+90,0
move camera Speed
rotate camera x#,camera angle y()-90,z#
endif
endif
if keystate(rotate_key) = 0
if keystate(position_key) = 0
null=mousemovex()
null=mousemovey()
null=MOUSEMOVEZ()
endif
endif
endfunction
Function mergeObjects(a,b,c)
Make Mesh From Object 1,a
Lock Vertexdata For Mesh 1
Make Mesh From Object 2,b
Add Mesh To Vertexdata 2
Delete Mesh 2
Unlock Vertexdata
Make Object c,1,0
Delete Mesh 1
Endfunction c
