It is possible to do in Dbpro using vertexdata. Take a look.
ink rgb(255,0,0),0
box 0,0,20,20
ink rgb(0,0,255),0
box 20,0,40,20
ink rgb(0,255,0),0
box 40,0,60,20
ink rgb(255,255,0),0
box 0,20,20,40
ink rgb(255,0,255),0
box 20,20,40,40
ink rgb(0,255,255),0
box 40,20,60,40
get image 1,0,0,60,40,1
make object box 1,10,10,10
texture object 1,1
lock vertexdata for limb 1,0
vertices = get vertexdata vertex count()
for i = 0 to vertices
x# = get vertexdata position x(i)
y# = get vertexdata position y(i)
z# = get vertexdata position z(i)
set vertexdata position i,x#,y#,z#
next i
set vertexdata uv 0,z#, y#
set vertexdata uv 1,z#+0.3, y#
set vertexdata uv 2,z#+0.3, y#+0.45
set vertexdata uv 3,z#, y#+0.45
set vertexdata uv 16,z#+0.4, y#
set vertexdata uv 17,z#+0.6, y#
set vertexdata uv 18,z#+0.6, y#+0.5
set vertexdata uv 19,z#+0.4, y#+0.5
set vertexdata uv 4,z#-0.3, y#
set vertexdata uv 5,z#, y#
set vertexdata uv 6,z#, y#+0.5
set vertexdata uv 7,z#-0.3, y#+0.5
set vertexdata uv 20,z#+0.3, y#
set vertexdata uv 21,z#, y#
set vertexdata uv 22,z#, y#-0.5
set vertexdata uv 23,z#+0.3, y#-0.5
set vertexdata uv 8,z#+0.36, y#-0.45
set vertexdata uv 9,z#+0.66, y#-0.45
set vertexdata uv 10,z#+0.66, y#
set vertexdata uv 11,z#+0.36, y#
set vertexdata uv 12,z#-0.3, y#-0.5
set vertexdata uv 13,z#, y#-0.5
set vertexdata uv 14,z#, y#
set vertexdata uv 15,z#-0.3, y#
unlock vertexdata
set object normals 1
position camera -15,10,-10
point camera 0,0,0
do
control camera using arrowkeys 0,0.1,0.1
a#=wrapvalue(a#+mousemovex()/2)
cam#=wrapvalue(cam#+mousemovey()/2)
rotate camera cam#,a#,0
sync
loop
Cheers.
I'm not a grumpy grandpa
