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
make object plain 1, 10, 10
scale object texture 1, 0.5, 1
make object plain 2, 10, 10
scroll object texture 2, 1, 0
scale object texture 2, 0.5, 1
yrotate object 2, 90
mergeObjects(1,2,3)
set object cull 3, 0
texture object 3, 1
delete object 1
delete object 2
save object "C:\sprite.dbo", 3
do
paste image 1, 2, 2
turn object right 3, 1
sync
loop
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
