Vertexdata animation - GameCreators Forum

Author

Message

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 10th Feb 2011 15:00 Edited at: 10th Feb 2011 15:01

Link

Hi you all.
Playing a bit with vertexdata, we can create amazing objects without the need of an external editor .This can be a bit tedious, but for those who like the challenge of inventing new things and discover new possibilities with the DBPro, here is a small piece of code.

autocam off
hide mouse:color backdrop rgb(100,100,200)
sync on
ink rgb(0,0,80),0
box 0,0,50,50

ink rgb(0,0,40),0
box 5,18,20,23
ink rgb(50,10,0),0
box 0,25,50,50
ink rgb(255,255,0),0
box 25,10,26,25
box 0,10,1,25
ink rgb(120,20,20),0
box 0,25,50,26
get image 1,0,0,50,50,1

make object sphere 1,5,5,5
texture object 1,1
offset limb 1,0,0,-2.5,0

lock vertexdata for limb 1,0

vertices = get vertexdata vertex count()

for i = 0 to 5
        x# = get vertexdata position x(i)
        y# = get vertexdata position y(i)
        z# = get vertexdata position z(i)
        set vertexdata position i,x#,y#+10,z#

next i

for i = 6 to 11
        x# = get vertexdata position x(i)
        y# = get vertexdata position y(i)
        z# = get vertexdata position z(i)
        set vertexdata position i,x#*2,y#+8,z#*2
    next i

for i = 12 to 17
        x# = get vertexdata position x(i)
        y# = get vertexdata position y(i)
        z# = get vertexdata position z(i)
        set vertexdata position i,x#-5,y#,z#
    next i

for i = 18 to 36
        x# = get vertexdata position x(i)
        y# = get vertexdata position y(i)
        z# = get vertexdata position z(i)
        set vertexdata position i,x#,y#-5,z#
    next i

for i = 18 to 23
        x# = get vertexdata position x(i)
        y# = get vertexdata position y(i)
        z# = get vertexdata position z(i)
        set vertexdata position i,x#*0.3,y#,z#*0.3
    next i

for i = 30 to 36
        x# = get vertexdata position x(i)
        y# = get vertexdata position y(i)
        z# = get vertexdata position z(i)
        set vertexdata position i,x#-1,y#,z#
    next i

unlock vertexdata
scale object 1,100,100,50

instance object 30,1
position object 30,-4,0,2.5:scale object 30,100,100,50
zrotate object 30,-40

set object normals 1
position camera 0,10,-30
point camera 0,0,0

`WE CAN SAVE THE OBJECT AS .DBO AND JUST LOAD AND USE ANIMATION VERTEXDATA
rem save object "ani.dbo",1

do

` F O O T   A N I M A T I O N   ((((((((((((((((((((((((((((((((((((((((((((((((
mv#=mv#+0.01
if mv#>5 then mv#=-5

lock vertexdata for limb 1,0

for i = 12 to 17
           x# = get vertexdata position x(i)
           y# = get vertexdata position y(i)
           z# = get vertexdata position z(i)
           set vertexdata position i,x#+mv#/200,y#,z#
       next i

for i = 18 to 36
           x# = get vertexdata position x(i)
           y# = get vertexdata position y(i)
           z# = get vertexdata position z(i)
           set vertexdata position i,x#+mv#/300,y#-x2#/1000,z#
       next i

unlock vertexdata
`)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))

control camera using arrowkeys 0,0.1,0.1
a#=wrapvalue(a#+mousemovex()/2)
cam#=wrapvalue(cam#+mousemovey()/2)
rotate camera cam#,a#,0

set cursor 5,5:print vertices
sync
loop

+ Code Snippet

autocam off
hide mouse:color backdrop rgb(100,100,200)
sync on
ink rgb(0,0,80),0
box 0,0,50,50

ink rgb(0,0,40),0
box 5,18,20,23
ink rgb(50,10,0),0
box 0,25,50,50
ink rgb(255,255,0),0
box 25,10,26,25
box 0,10,1,25
ink rgb(120,20,20),0
box 0,25,50,26
get image 1,0,0,50,50,1

 make object sphere 1,5,5,5
texture object 1,1
offset limb 1,0,0,-2.5,0

    lock vertexdata for limb 1,0

    vertices = get vertexdata vertex count()

    for i = 0 to 5
        x# = get vertexdata position x(i)
        y# = get vertexdata position y(i)
        z# = get vertexdata position z(i)
        set vertexdata position i,x#,y#+10,z#

    next i

    for i = 6 to 11
        x# = get vertexdata position x(i)
        y# = get vertexdata position y(i)
        z# = get vertexdata position z(i)
        set vertexdata position i,x#*2,y#+8,z#*2
    next i

    for i = 12 to 17
        x# = get vertexdata position x(i)
        y# = get vertexdata position y(i)
        z# = get vertexdata position z(i)
        set vertexdata position i,x#-5,y#,z#
    next i

    for i = 18 to 36
        x# = get vertexdata position x(i)
        y# = get vertexdata position y(i)
        z# = get vertexdata position z(i)
        set vertexdata position i,x#,y#-5,z#
    next i

    for i = 18 to 23
        x# = get vertexdata position x(i)
        y# = get vertexdata position y(i)
        z# = get vertexdata position z(i)
        set vertexdata position i,x#*0.3,y#,z#*0.3
    next i


    for i = 30 to 36
        x# = get vertexdata position x(i)
        y# = get vertexdata position y(i)
        z# = get vertexdata position z(i)
        set vertexdata position i,x#-1,y#,z#
    next i


    unlock vertexdata
scale object 1,100,100,50


instance object 30,1
position object 30,-4,0,2.5:scale object 30,100,100,50
zrotate object 30,-40

set object normals 1
position camera 0,10,-30
point camera 0,0,0

`WE CAN SAVE THE OBJECT AS .DBO AND JUST LOAD AND USE ANIMATION VERTEXDATA
rem save object "ani.dbo",1

do

` F O O T   A N I M A T I O N   ((((((((((((((((((((((((((((((((((((((((((((((((
mv#=mv#+0.01
if mv#>5 then mv#=-5

    lock vertexdata for limb 1,0

       for i = 12 to 17
           x# = get vertexdata position x(i)
           y# = get vertexdata position y(i)
           z# = get vertexdata position z(i)
           set vertexdata position i,x#+mv#/200,y#,z#
       next i

       for i = 18 to 36
           x# = get vertexdata position x(i)
           y# = get vertexdata position y(i)
           z# = get vertexdata position z(i)
           set vertexdata position i,x#+mv#/300,y#-x2#/1000,z#
       next i

    unlock vertexdata
`)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))


control camera using arrowkeys 0,0.1,0.1
a#=wrapvalue(a#+mousemovex()/2)
cam#=wrapvalue(cam#+mousemovey()/2)
rotate camera cam#,a#,0


set cursor 5,5:print vertices
sync
loop

Once done our object, we can save it as .dbo and load it directly and use the animation subroutine.When we have the dbo, we can use this code:

autocam off
sync on
hide mouse:color backdrop rgb(100,100,200)

`making the texture
ink rgb(0,0,120),0
box 0,0,50,50
ink rgb(0,0,40),0
box 5,18,20,23
ink rgb(50,10,0),0
box 0,25,50,50
ink rgb(255,255,0),0
box 25,10,26,25
box 0,10,1,25
ink rgb(120,20,20),0
box 0,25,50,26
get image 1,0,0,50,50,1

load object "ani.dbo",1
texture object 1,1

instance object 30,1
position object 30,-4,0,2.5:scale object 30,100,100,50
zrotate object 30,-40

position camera 0,10,-30
point camera 0,0,0
do

`F E E T   A N I M A T I O N    ((((((((((((((((((((((((((((((((((((((((((((((((
mv#=mv#+0.01
if mv#>5 then mv#=-5

lock vertexdata for limb 1,0

for i = 12 to 17
           x# = get vertexdata position x(i)
           y# = get vertexdata position y(i)
           z# = get vertexdata position z(i)
           set vertexdata position i,x#+mv#/200,y#,z#
       next i

for i = 18 to 36
           x# = get vertexdata position x(i)
           y# = get vertexdata position y(i)
           z# = get vertexdata position z(i)
           set vertexdata position i,x#+mv#/300,y#-x2#/1000,z#
       next i

unlock vertexdata
`)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))

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

+ Code Snippet

autocam off
sync on
hide mouse:color backdrop rgb(100,100,200)

`making the texture
ink rgb(0,0,120),0
box 0,0,50,50
ink rgb(0,0,40),0
box 5,18,20,23
ink rgb(50,10,0),0
box 0,25,50,50
ink rgb(255,255,0),0
box 25,10,26,25
box 0,10,1,25
ink rgb(120,20,20),0
box 0,25,50,26
get image 1,0,0,50,50,1

load object "ani.dbo",1
texture object 1,1

instance object 30,1
position object 30,-4,0,2.5:scale object 30,100,100,50
zrotate object 30,-40


position camera 0,10,-30
point camera 0,0,0
do

`F E E T   A N I M A T I O N    ((((((((((((((((((((((((((((((((((((((((((((((((
mv#=mv#+0.01
if mv#>5 then mv#=-5

    lock vertexdata for limb 1,0

       for i = 12 to 17
           x# = get vertexdata position x(i)
           y# = get vertexdata position y(i)
           z# = get vertexdata position z(i)
           set vertexdata position i,x#+mv#/200,y#,z#
       next i

       for i = 18 to 36
           x# = get vertexdata position x(i)
           y# = get vertexdata position y(i)
           z# = get vertexdata position z(i)
           set vertexdata position i,x#+mv#/300,y#-x2#/1000,z#
       next i

    unlock vertexdata
`)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))


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

What I try to do now is figure out how to save the animation in the same object. I hope this piece of code can help someone

Cheers.

I'm not a grumpy grandpa

Back to top

Profile PM Email

Jeff Miller

21

Years of Service

User Offline

Joined: 22nd Mar 2005

Location: New Jersey, USA

Posted: 10th Feb 2011 21:16 Edited at: 10th Feb 2011 21:18

Link

You might try to stash the animation information in an image file associated with the model as a texture. You could use a 64x64 pixel texture, which is more conventional that the 50x50 you are working with. Then you might have about about 25KB left over from what is needed in the 50x50 portion you using for texturing purposes (assuming you are saving as png or other 4 byte/pixel format). You might be able to store the animation info in those leftover bytes.

Back to top

Profile PM Email

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 11th Feb 2011 02:16 Edited at: 11th Feb 2011 02:18

Link

Hi Jeff Miller.
The purpose of this example was rather to show how we can use vertexdata to make objects from within DarkBasic, that´s why I used this small texture, but we can use greater one.I know how to make a data file to load the animation from Dbpro, but I don´t figure out how to save it all in the same object

.

For the example below, I used a plane and I modified the vertices with vertexdata to create a curve. So we can create nearly every thing with this method.

I'm not a grumpy grandpa

Back to top

Profile PM Email

baxslash

Valued Member

Bronze Codemaster

19

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 11th Feb 2011 12:32

Link

Nice work Chafari!

That's great.

Back to top

Profile PM Email

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 11th Feb 2011 14:35

Link

@baxslash
Thankyou . I`m working on a jeep car model. I will show it when I finish.

Cheers.

I'm not a grumpy grandpa

Back to top

Profile PM Email

enderleit

19

Years of Service

User Offline

Joined: 30th May 2007

Location: Denmark

Posted: 12th Feb 2011 01:00 Edited at: 12th Feb 2011 01:09

Link

You could create your own vertices from scratch and use the Make Object commands from matrix1 to create a real object out of them...

#constant FVF_XYZ = 0x002
#constant FVF_XYZRHW = 0x004
#constant FVF_XYZB1 = 0x006
#constant FVF_XYZB2 = 0x008
#constant FVF_XYZB3 = 0x00a
#constant FVF_XYZB4 = 0x00c
#constant FVF_XYZB5 = 0x00e
#constant FVF_NORMAL = 0x010
#constant FVF_PSIZE = 0x020
#constant FVF_DIFFUSE = 0x040
#constant FVF_SPECULAR = 0x080
#constant FVF_TEX0 = 0x000
#constant FVF_TEX1 = 0x100
#constant FVF_TEX2 = 0x200
#constant FVF_TEX3 = 0x300
#constant FVF_TEX4 = 0x400
#constant FVF_TEX5 = 0x500
#constant FVF_TEX6 = 0x600
#constant FVF_TEX7 = 0x700
#constant FVF_TEX8 = 0x800

type vertex_type
    x as float
    y as float
    z as float
endtype

sync on : sync rate 0
color backdrop 0
autocam off

randomize hitimer()

global dim vertex() as vertex_type
global dim index() as integer

make object new 1,8,36, FVF_XYZ or FVF_NORMAL or FVF_DIFFUSE or FVF_SPECULAR

// Get the vertex data.
lock vertexdata for limb 1, 0
restore vertexdata
for v=0 to 7
    array insert at bottom vertex()
    read vertex().x
    read vertex().y
    read vertex().z
    vl# = sqrt(vertex().x^2+vertex().y^2+vertex().z^2)  // Get vector length
    nx# = vertex().x / vl#  // Get vector normals... = vector / length.
    ny# = vertex().y / vl#
    nz# = vertex().z / vl#
    set vertexdata position v, vertex().x*5, vertex().y*5, vertex().z*5
    set vertexdata diffuse v, rgb(255,127,0)
    set vertexdata normals v, nx#, ny#, nz#
next v

// Get the index data.
restore indexdata
for i=0 to 35
    array insert at bottom index()
    read index()        // Gets the vertex index number used by this index. 3 indices makes a triangle.
    set indexdata i, index()
next i
unlock vertexdata

set object ambient 1, 0

perform checklist for object limbs 1
limbs = checklist quantity()

position camera 0,0,0,-25
point camera 0,0,0,0

// Setup camera rotation.
CamAngX as float
CamAngY as float
CamAngZ as float
CamAngX = camera angle x(0)
CamAngY = camera angle y(0)
CamAngZ = camera angle y(0)

oldTime = hitimer()
do
    difTime = hitimer() - oldTime
    oldTime = hitimer()

mmx = mousemovex()
    mmy = mousemovey()
    mx = mousex()
    my = mousey()
    mclk = mouseclick()
    side = 0
       
    obj = pick object(mx, my, 1, 1)
    turn object right 1, 0.15 * difTime
    pitch object down 1, 0.1 * difTime
    
remstart    
    // LMB = Select one side of the cube. (2 triangles)
    if mclk = 1 and obj > 0
        a = obj %% 2
        if a = 0
            color object obj, rgb(255,0,0)
            color object obj-1, rgb(255,0,0)
            side = obj / 2
        else
            color object obj, rgb(255,0,0)
            color object obj+1, rgb(255,0,0)
            side = (obj+1) / 2
        endif
    endif
remend

// RMB = FreeLook Mode.
    if mclk = 2
        if keystate(17) then move camera 0, 0.025 * difTime
        if keystate(31) then move camera 0, -0.025 * difTime
        if keystate(30) then move camera left 0, 0.025 * difTime
        if keystate(32) then move camera right 0, 0.025 * difTime
        inc CamAngX, mmy * 0.5
        inc CamAngY, mmx * 0.5
        CamAngX = wrapvalue(CamAngX)
        CamAngY = wrapvalue(CamAngY)
    endif

rotate camera 0, CamAngX, CamAngY, CamAngZ
remstart
    d3d_batch_set_line3d 100
    for i=0 to 35 step 3
        v1 = index(i)
        v2 = index(i+1)
        v3 = index(i+2)
        d3d_batch_add_line3d vertex(v1).x*5,vertex(v1).y*5,vertex(v1).z*5,vertex(v2).x*5,vertex(v2).y*5,vertex(v2).z*5,rgb(255,255,255)
        d3d_batch_add_line3d vertex(v2).x*5,vertex(v2).y*5,vertex(v2).z*5,vertex(v3).x*5,vertex(v3).y*5,vertex(v3).z*5,rgb(255,255,255)
    next i
    d3d_batch_draw_line3d 0, 0, 1
    d3d_batch_set_dot3d 8
    d3d_batch_set_dot3d_size 6
    for i=0 to 7
        d3d_batch_add_dot3d vertex(i).x*5, vertex(i).y*5, vertex(i).z*5, rgb(255,255,0)
    next i
    d3d_batch_draw_dot3d 0, 0, 1
remend
    ink rgb(255,255,255),0
    text 0,0,"FPS: " + str$(screen fps())
    text 0,15,"Object: " + str$(obj)
    text 0,30,"Limbs: " + str$(limbs)
    sync
loop

// Vertex and Index data for a Cube.
vertexdata:
    data -1.0, 1.0, 1.0     // 0
    data 1.0, 1.0, 1.0      // 1
    data 1.0, 1.0, -1.0     // 2
    data -1.0, 1.0, -1.0    // 3
    data -1.0, -1.0, 1.0    // 4
    data 1.0, -1.0, 1.0     // 5
    data 1.0, -1.0, -1.0    // 6
    data -1.0, -1.0, -1.0   // 7
indexdata:
    // FRONT
    data 3, 2, 6
    data 6, 7, 3
    // BACK
    data 0, 4, 5
    data 5, 1, 0
    // TOP
    data 0, 1, 2
    data 2, 3, 0
    // BOTTOM
    data 4, 7, 6
    data 6, 5, 4
    // LEFT
    data 0, 3, 7
    data 7, 4, 0
    // RIGHT
    data 2, 1, 5
    data 5, 6, 2

+ Code Snippet

#constant FVF_XYZ = 0x002
#constant FVF_XYZRHW = 0x004
#constant FVF_XYZB1 = 0x006
#constant FVF_XYZB2 = 0x008
#constant FVF_XYZB3 = 0x00a
#constant FVF_XYZB4 = 0x00c
#constant FVF_XYZB5 = 0x00e
#constant FVF_NORMAL = 0x010
#constant FVF_PSIZE = 0x020
#constant FVF_DIFFUSE = 0x040
#constant FVF_SPECULAR = 0x080
#constant FVF_TEX0 = 0x000
#constant FVF_TEX1 = 0x100
#constant FVF_TEX2 = 0x200
#constant FVF_TEX3 = 0x300
#constant FVF_TEX4 = 0x400
#constant FVF_TEX5 = 0x500
#constant FVF_TEX6 = 0x600
#constant FVF_TEX7 = 0x700
#constant FVF_TEX8 = 0x800

type vertex_type
    x as float
    y as float
    z as float
endtype

sync on : sync rate 0
color backdrop 0
autocam off

randomize hitimer()

global dim vertex() as vertex_type
global dim index() as integer

make object new 1,8,36, FVF_XYZ or FVF_NORMAL or FVF_DIFFUSE or FVF_SPECULAR

// Get the vertex data.
lock vertexdata for limb 1, 0
restore vertexdata
for v=0 to 7
    array insert at bottom vertex()
    read vertex().x
    read vertex().y
    read vertex().z
    vl# = sqrt(vertex().x^2+vertex().y^2+vertex().z^2)  // Get vector length
    nx# = vertex().x / vl#  // Get vector normals... = vector / length.
    ny# = vertex().y / vl#
    nz# = vertex().z / vl#
    set vertexdata position v, vertex().x*5, vertex().y*5, vertex().z*5
    set vertexdata diffuse v, rgb(255,127,0)
    set vertexdata normals v, nx#, ny#, nz#
next v

// Get the index data.
restore indexdata
for i=0 to 35
    array insert at bottom index()
    read index()        // Gets the vertex index number used by this index. 3 indices makes a triangle.
    set indexdata i, index()
next i
unlock vertexdata

set object ambient 1, 0

perform checklist for object limbs 1
limbs = checklist quantity()

position camera 0,0,0,-25
point camera 0,0,0,0

// Setup camera rotation.
CamAngX as float
CamAngY as float
CamAngZ as float
CamAngX = camera angle x(0)
CamAngY = camera angle y(0)
CamAngZ = camera angle y(0)

oldTime = hitimer()
do
    difTime = hitimer() - oldTime
    oldTime = hitimer()

    mmx = mousemovex()
    mmy = mousemovey()
    mx = mousex()
    my = mousey()
    mclk = mouseclick()
    side = 0
       
    obj = pick object(mx, my, 1, 1)
    turn object right 1, 0.15 * difTime
    pitch object down 1, 0.1 * difTime
    
remstart    
    // LMB = Select one side of the cube. (2 triangles)
    if mclk = 1 and obj > 0
        a = obj %% 2
        if a = 0
            color object obj, rgb(255,0,0)
            color object obj-1, rgb(255,0,0)
            side = obj / 2
        else
            color object obj, rgb(255,0,0)
            color object obj+1, rgb(255,0,0)
            side = (obj+1) / 2
        endif
    endif
remend

    // RMB = FreeLook Mode.
    if mclk = 2
        if keystate(17) then move camera 0, 0.025 * difTime
        if keystate(31) then move camera 0, -0.025 * difTime
        if keystate(30) then move camera left 0, 0.025 * difTime
        if keystate(32) then move camera right 0, 0.025 * difTime
        inc CamAngX, mmy * 0.5
        inc CamAngY, mmx * 0.5
        CamAngX = wrapvalue(CamAngX)
        CamAngY = wrapvalue(CamAngY)
    endif

    rotate camera 0, CamAngX, CamAngY, CamAngZ
remstart
    d3d_batch_set_line3d 100
    for i=0 to 35 step 3
        v1 = index(i)
        v2 = index(i+1)
        v3 = index(i+2)
        d3d_batch_add_line3d vertex(v1).x*5,vertex(v1).y*5,vertex(v1).z*5,vertex(v2).x*5,vertex(v2).y*5,vertex(v2).z*5,rgb(255,255,255)
        d3d_batch_add_line3d vertex(v2).x*5,vertex(v2).y*5,vertex(v2).z*5,vertex(v3).x*5,vertex(v3).y*5,vertex(v3).z*5,rgb(255,255,255)
    next i
    d3d_batch_draw_line3d 0, 0, 1
    d3d_batch_set_dot3d 8
    d3d_batch_set_dot3d_size 6
    for i=0 to 7
        d3d_batch_add_dot3d vertex(i).x*5, vertex(i).y*5, vertex(i).z*5, rgb(255,255,0)
    next i
    d3d_batch_draw_dot3d 0, 0, 1
remend
    ink rgb(255,255,255),0
    text 0,0,"FPS: " + str$(screen fps())
    text 0,15,"Object: " + str$(obj)
    text 0,30,"Limbs: " + str$(limbs)
    sync
loop

// Vertex and Index data for a Cube.
vertexdata:
    data -1.0, 1.0, 1.0     // 0
    data 1.0, 1.0, 1.0      // 1
    data 1.0, 1.0, -1.0     // 2
    data -1.0, 1.0, -1.0    // 3
    data -1.0, -1.0, 1.0    // 4
    data 1.0, -1.0, 1.0     // 5
    data 1.0, -1.0, -1.0    // 6
    data -1.0, -1.0, -1.0   // 7
indexdata:
    // FRONT
    data 3, 2, 6
    data 6, 7, 3
    // BACK
    data 0, 4, 5
    data 5, 1, 0
    // TOP
    data 0, 1, 2
    data 2, 3, 0
    // BOTTOM
    data 4, 7, 6
    data 6, 5, 4
    // LEFT
    data 0, 3, 7
    data 7, 4, 0
    // RIGHT
    data 2, 1, 5
    data 5, 6, 2

Now, this example has a few bugs... but you get the general idea...

EDIT: This was a program I experimented with a bit to try stuff like this out, so I have commented out some of it, and also a part that uses D3D_FUNC...

- Martin Enderleit
http://sites.google.com/site/menderleit

Back to top

Profile PM Email Website

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 12th Feb 2011 02:15 Edited at: 27th Sep 2011 03:16

Link

@enderleit
I will study deeply your code, it looks really interesting. Thank you for your example.

Here is another simple but curious effect.

autocam off:sync on
set display mode 1024,768,32
color backdrop rgb(25,25,25)
set ambient light 0

hide light 0
make light 1:position light 1,5,-2,-10:set light range 1,20
set cursor 0,2:print "CHAFARI'S SNACK BAR -     "
get image 1,0,0,180,20,1

`glowing texture
ink rgb(255,0,0),0
box 0,0,30,30
get image 2,0,0,30,30,1

make object plain 1,40,5,10,2
texture object 1,1
set object transparency 1,2
set blend mapping on 1,2,5
xrotate object 1,-90

lock vertexdata for limb 1,0

vertices = get vertexdata vertex count()

for i = 3 to 10
        x# = get vertexdata position x(i)
        y# = get vertexdata position y(i)
        z# = get vertexdata position z(i)
        set vertexdata position i,x#-1,y#-3,z#
    next i

for i = 14 to 21
        x# = get vertexdata position x(i)
        y# = get vertexdata position y(i)
        z# = get vertexdata position z(i)
        set vertexdata position i,x#-1,y#-3,z#
    next i

for i = 25 to 33
        x# = get vertexdata position x(i)
        y# = get vertexdata position y(i)
        z# = get vertexdata position z(i)
        set vertexdata position i,x#-1,y#-3,z#
    next i

unlock vertexdata

`mesh of the main sign
make mesh from object 1,1
`back sign
make object 2,1,3:texture object 2,3:move object 2,0.1

`wall
clone object 3,2
scale object 3,100,400,100:set object emissive 3,rgb(10,10,10):position object 3,0,-6,1

position camera -10,20,-40
point camera 0,0,0

do
sc#=0.001
scroll object texture 1,sc#,0
la#=la#+0.5
if a#>300 then la#=0
set object emissive 1,rgb(la#,0,0)
set object emissive 2,rgb(la#,la#,0)
set cursor 5,5:print vertices

sync
loop

+ Code Snippet

autocam off:sync on
set display mode 1024,768,32
color backdrop rgb(25,25,25)
set ambient light 0

hide light 0
make light 1:position light 1,5,-2,-10:set light range 1,20
set cursor 0,2:print "CHAFARI'S SNACK BAR -     "
get image 1,0,0,180,20,1

`glowing texture
ink rgb(255,0,0),0
box 0,0,30,30
get image 2,0,0,30,30,1

make object plain 1,40,5,10,2
texture object 1,1
set object transparency 1,2
set blend mapping on 1,2,5
xrotate object 1,-90

    lock vertexdata for limb 1,0

vertices = get vertexdata vertex count()

    for i = 3 to 10
        x# = get vertexdata position x(i)
        y# = get vertexdata position y(i)
        z# = get vertexdata position z(i)
        set vertexdata position i,x#-1,y#-3,z#
    next i


    for i = 14 to 21
        x# = get vertexdata position x(i)
        y# = get vertexdata position y(i)
        z# = get vertexdata position z(i)
        set vertexdata position i,x#-1,y#-3,z#
    next i

    for i = 25 to 33
        x# = get vertexdata position x(i)
        y# = get vertexdata position y(i)
        z# = get vertexdata position z(i)
        set vertexdata position i,x#-1,y#-3,z#
    next i

    unlock vertexdata


`mesh of the main sign
make mesh from object 1,1
`back sign
make object 2,1,3:texture object 2,3:move object 2,0.1

`wall
clone object 3,2
scale object 3,100,400,100:set object emissive 3,rgb(10,10,10):position object 3,0,-6,1


position camera -10,20,-40
point camera 0,0,0

do
sc#=0.001
scroll object texture 1,sc#,0
la#=la#+0.5
if a#>300 then la#=0
set object emissive 1,rgb(la#,0,0)
set object emissive 2,rgb(la#,la#,0)
set cursor 5,5:print vertices

sync
loop

Cheers.

I'm not a grumpy grandpa

Back to top

Profile PM Email

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 12th Feb 2011 20:41 Edited at: 12th Feb 2011 20:42

Link

Hi there.
It is difficult and slow, but very fun. This is what I have so far in my model.That´s nothing special, but we must bear in mind that the object is done by moving vertices of planes and spheres with vertexdata.

Cheers.

I'm not a grumpy grandpa

Back to top

Profile PM Email

noturno

15

Years of Service

User Offline

Joined: 9th Mar 2011

Location:

Posted: 21st Mar 2011 16:20

Link

Hey chafari and enderleit, very good job!

I`ve been looking for how to bend a box on fly with benzier or cubic curves and it seems to help a lot. Actually I had just started a new thread on that issue.

Also:

Quote: "For the example below, I used a plane and I modified the vertices with vertexdata to create a curve. So we can create nearly every thing with this method."

To chafari, I would start asking if you could share the code you used to make that image on your second message above: the bended plane.

Thanks a lot for the insightfull job, dudes!

Back to top

Profile PM

Rich Dersheimer

AGK Developer

17

Years of Service

User Offline

Joined: 1st Jul 2009

Location: Inside the box

Posted: 21st Mar 2011 16:45

Link

There's a command ADD MEMBLOCK TO OBJECT.

Quote: "The memblock is stored inside the objects custom data feature, and remains with the object even if the object is saved and reloaded. This feature is ideal for exporting additional settings for the object such as scale, rotation or more exotic data such as sound or image data. See the memblock category for more features provided through the memblock system."

That might be how you could store animation data.

Back to top

Profile PM Email

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 21st Mar 2011 21:19 Edited at: 21st Mar 2011 21:27

Link

@noturno

Here`s the code...very simple

You will have to add the texture.

+ Code Snippet

autocam off
sync on
set ambient light 0
hide light 0
make light 1:position light 1,20,32,0

load image "floor.jpg",1
make object plain 1000,80,40,7,4
texture object 1000,1
scale object texture 1000,3,3
set object cull 1000,0

for i= 1 to 8
  make object box i,1,1,1
  color object i,rgb(255,0,0)
  yrotate object i,22.5*i-100
  move object i,30

  clone object i+8,i
  move object i+8,-10

  clone object i+16,i+8
  move object down i+16,20

  clone object i+24,i+16
  move object i+24,10

  clone object i+32,i
next i


lock vertexdata for limb 1000,0
      for i= 0 to 39
      x#=object position x(i+1)
      y#=object position y(i+1)
      z#=object position z(i+1)

         set vertexdata position i,x#,y#,z#
      next i
unlock vertexdata

make mesh from object 1,1000
rem save mesh "arco.x",1
position camera -40,10,-40
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

Back to top

Profile PM Email

noturno

15

Years of Service

User Offline

Joined: 9th Mar 2011

Location:

Posted: 23rd Mar 2011 07:23 Edited at: 23rd Mar 2011 08:30

Link

Hey chafari, very good aproach, for sure! Thanks a lot.

I was just wondering how to improve the code so we could choose how many sections would be used to bend the box. In your example, you use 7 sections (with of course 8 general vertices and their clones). But what if I would like it to use, for instance, 32 sections (so 33 general vertices and their clones)?

My small changes in your code are:

autocam off
sync on
set ambient light 0
hide light 0
make light 1:position light 1,20,32,0

num_sections = 8

load image "floor.jpg",1
make object plain 1000,80,40,num_sections-1,4
texture object 1000,1
scale object texture 1000,3,3
set object cull 1000,0

for i= 1 to num_sections
  make object box i,1,1,1
  color object i,rgb(255,0,0)
  yrotate object i,22.5*i-100
  move object i,30

clone object i+(num_sections*1),i
  move object i+(num_sections*1),-5

clone object i+(num_sections*2),i+(num_sections*1)
  move object down i+(num_sections*2),20

clone object i+(num_sections*3),i+(num_sections*2)
  move object i+(num_sections*3),5

clone object i+(num_sections*4),i
next i

lock vertexdata for limb 1000,0
      for i= 0 to (num_sections*5)-1
      x#=object position x(i+1)
      y#=object position y(i+1)
      z#=object position z(i+1)

set vertexdata position i,x#,y#,z#
      next i
unlock vertexdata

make mesh from object 1,1000
rem save mesh "arco.x",1
position camera -40,10,-40
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

+ Code Snippet

autocam off
sync on
set ambient light 0
hide light 0
make light 1:position light 1,20,32,0

num_sections = 8

load image "floor.jpg",1
make object plain 1000,80,40,num_sections-1,4
texture object 1000,1
scale object texture 1000,3,3
set object cull 1000,0


for i= 1 to num_sections
  make object box i,1,1,1
  color object i,rgb(255,0,0)
  yrotate object i,22.5*i-100
  move object i,30

  clone object i+(num_sections*1),i
  move object i+(num_sections*1),-5

  clone object i+(num_sections*2),i+(num_sections*1)
  move object down i+(num_sections*2),20

  clone object i+(num_sections*3),i+(num_sections*2)
  move object i+(num_sections*3),5

  clone object i+(num_sections*4),i
next i


lock vertexdata for limb 1000,0
      for i= 0 to (num_sections*5)-1
      x#=object position x(i+1)
      y#=object position y(i+1)
      z#=object position z(i+1)

         set vertexdata position i,x#,y#,z#
      next i
unlock vertexdata

make mesh from object 1,1000
rem save mesh "arco.x",1
position camera -40,10,-40
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

So, one should just change the value of variable "num_sections" at the very begining of the code.

A very basic question I still have though, and probably you guys may help, is how to measure the lenght of the bended box in the example above (more specifically, the lenght of the arch formed by the bended box in the exmple). Any tips will be very much welcome!

Back to top

Profile PM

Quel

17

Years of Service

User Offline

Joined: 13th Mar 2009

Location:

Posted: 23rd Mar 2011 10:45

Link

Very simple, since you still use polygons to create the curve, and not a spline (which is i guess a non existent method in DBPro), you should just use the Pythagorean theorem poly by poly, then add this all together, and there you have it.

You can even get the length of the inner and outer curves this way, or the center length which is a bit trickier.

Back to top

Profile PM

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 23rd Mar 2011 12:32

Link

Quote: "But what if I would like it to use, for instance, 32 sections (so 33 general vertices and their clones)?"

we have to take into account that all mesh start with vertex zero...so we have 7*4 rows == 7+1*4+1 == 8*5=40.

Cheers.

I'm not a grumpy grandpa

Back to top

Profile PM Email

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 23rd Mar 2011 12:47 Edited at: 23rd Mar 2011 18:16

Link

Sorry for double post

I'm not a grumpy grandpa

Back to top

Profile PM Email

PAGAN_old

20

Years of Service

User Offline

Joined: 28th Jan 2006

Location: Capital of the Evil Empire

Posted: 29th Apr 2011 07:42

Link

isnt this how animation used to be done in the 90s 3d games?

dont hate people who rip you off,cheat and get away with it, learn from them

Back to top

Profile PM Email

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 29th Apr 2011 14:49

Link

Quote: "isnt this how animation used to be done in the 90s 3d games?"

Probably, therefore we can use this technique with DBPro.

I'm not a grumpy grandpa

Back to top

Profile PM Email

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 16th Jul 2011 07:10 Edited at: 16th Jul 2011 07:13

Link

CLOTH WITHOUT PLUGIN
Hi there.
I have been trying to make somthing like cloth using just Dbpro ...that is what I have so far but I'm trying to improve it.

Cheers.

`poor example of cloth without plugin"

autocam off
sync on

ink rgb(60,0,0),0
box 0,0,50,50
ink rgb(80,0,0),0
box 2,2,48,48
ink rgb(0,80,0),0
box 20,20,30,30
get image 1,0,0,50,50,1

make object plain 50,20,20,4,4
texture object 50,1:scale object texture 50,10,10
set object collision off 50
set object cull 50,0

`25 object to pull vertex
for i= 1 to 5
make object box i,0.5,0.5,0.5
position object i,-10+i*4,0,10

clone object i+5,i
move object i+5,-4

clone object i+10,i
move object i+10,-8

clone object i+15,i
move object i+15,-12

clone object i+20,i
move object i+20,-16

next i

`obstacles to collide
make object sphere 100,25,25,25:position object 100,2,-30,2
set object collision to polygons 100
make object box 101,20,5,5:position object 101,5,-18,0:zrotate object 101,30

position camera 0,10,-35
point camera 0,0,0
`camera angle
cam#=30

do
ink rgb(255,255,255),0
set cursor 0,0
print "Press Space to drop cloth"

lock vertexdata for limb 50,0
  for i= 1 to 25
      x# = object position x(i)
      y# = object position y(i)
      z# = object position z(i)
      set vertexdata position i-1,x#,y#+1,z#
  next
unlock vertexdata

`moving cloth down (the vertex control objects)
for i= 1 to 25
  if object collision(i,0)=0 then move object down i,0.2
next i

for i= 1 to 25
  hide object i
  if spacekey()
       position object i,object position x(i),0,object position z(i)
  endif
next i

`camera control
control camera using arrowkeys 0,0.5,0.5
a#=wrapvalue(a#+mousemovex()/2)
cam#=wrapvalue(cam#+mousemovey()/2)
rotate camera cam#,a#,0
if leftkey() then move camera left 0.1
if rightkey() then move camera right 0.1

sync
loop

+ Code Snippet

`poor example of cloth without plugin"

autocam off
sync on

ink rgb(60,0,0),0
box 0,0,50,50
ink rgb(80,0,0),0
box 2,2,48,48
ink rgb(0,80,0),0
box 20,20,30,30
get image 1,0,0,50,50,1

make object plain 50,20,20,4,4
texture object 50,1:scale object texture 50,10,10
set object collision off 50
set object cull 50,0


`25 object to pull vertex
for i= 1 to 5
make object box i,0.5,0.5,0.5
position object i,-10+i*4,0,10

clone object i+5,i
move object i+5,-4

clone object i+10,i
move object i+10,-8

clone object i+15,i
move object i+15,-12

clone object i+20,i
move object i+20,-16

next i


`obstacles to collide
make object sphere 100,25,25,25:position object 100,2,-30,2
set object collision to polygons 100
make object box 101,20,5,5:position object 101,5,-18,0:zrotate object 101,30

position camera 0,10,-35
point camera 0,0,0
`camera angle
cam#=30

do
ink rgb(255,255,255),0
set cursor 0,0
print "Press Space to drop cloth"

lock vertexdata for limb 50,0
  for i= 1 to 25
      x# = object position x(i)
      y# = object position y(i)
      z# = object position z(i)
      set vertexdata position i-1,x#,y#+1,z#
  next
unlock vertexdata

`moving cloth down (the vertex control objects)
for i= 1 to 25
  if object collision(i,0)=0 then move object down i,0.2
next i

for i= 1 to 25
  hide object i
  if spacekey()
       position object i,object position x(i),0,object position z(i)
  endif
next i

`camera control
control camera using arrowkeys 0,0.5,0.5
a#=wrapvalue(a#+mousemovex()/2)
cam#=wrapvalue(cam#+mousemovey()/2)
rotate camera cam#,a#,0
if leftkey() then move camera left 0.1
if rightkey() then move camera right 0.1


sync
loop

I'm not a grumpy grandpa

Back to top

Profile PM Email

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 27th Sep 2011 02:33

Link

Animating a mesh in real time.

I took part of my 3DTree script to show how to animate a mesh in real time moving the mouse. I hope it can help someone.

autocam off
sync on:hide mouse
make light 1:position light 1,0,0,-40
load image "leather.jpg",1
load image "dummy.bmp",2
load object "tail.x",8888
texture object 8888,1
rotate object 8888,90,0,180:fix object pivot 8888:scale object 8888,3,3,3:set object cull 8888,0
scale object 8888,30,30,30

`bone object
make object box 50,1,10,1
offset limb 50,0,0,5,0
make mesh from object 1,50

`adding 10 more limbs to the main bone
for i=1 to 10
   add limb 50,i,1
   offset limb 50,i,0,10,0
   link limb 50,i-1,i
   hide limb 50,i
next i

hide limb 50,0
delete mesh 1

`creating ring of limbs to control mesh vertex
make object box 1,1,1,1

`creating 10 limbs for each ring
for i= 1 to 9
  make object box i+10,1,1,1
  yrotate object i+10,45*i
  move object i+10,10
  make mesh from object i,i+10
next i

`adding limbs to object 1
for i= 1 to 9
  add limb 1,i,i
  offset limb 1,i,object position x(i+10),object position y(i+10),object position z(i+10)
  delete mesh i
  delete object i+10
next i

`cloning nine more rings
for i= 2 to 10
  clone object i,1
next i

`scaling rings
for i= 1 to 10
  scale object i,100-i*8,100,100-i*8
  hide object i
next i

`making 90 poits of reference
for i= 201 to 290
make object sphere i,2
hide object i
next i

position camera -80,80,-100
point camera 0,50,0

color object 1,rgb(0,255,0)
ob=1

`dummy body
make object sphere 25000,5,10,8
set object cull 25000,0
texture object 25000,1
scale object texture 25000,2,3

`dummy head
make object sphere 2000,30,30,30
texture object 2000,2

`dummy hands
make object box 2001,70,3,3
do
set cursor 0,0
print "MOVE MOUSE"
position object 2000,limb position x(50,10),limb position y(50,10),limb position z(50,10)
rotate object 2000,limb direction x(50,10),limb direction y(50,10),limb direction z(50,10)
position object 2001,limb position x(50,8),limb position y(50,8),limb position z(50,8)
rotate object 2001,limb direction x(50,8),limb direction y(50,8),limb direction z(50,8)
position object 8888,limb position x(50,5),limb position y(50,5),limb position z(50,5)
rotate object 8888,limb direction x(50,5),limb direction y(50,5),limb direction z(50,5)

`positioning all rings in bone's limbs position (object 50)
for i= 1 to 10
   position object i,limb position x(50,i),limb position y(50,i),limb position z(50,i)
   rotate object i,limb direction x(50,i),limb direction y(50,i),limb direction z(50,i)
next i

t=1
ob=0
for i= 201 to 290
  inc ob
  if ob>9 then ob=1:t=t+1
  if t>10 then t=10
  position object i,limb position x(t,ob),limb position y(t,ob),limb position z(t,ob)
next i

lock vertexdata for limb 25000,0

for i = 1 to 90
        x# = object position x(i+200)
        y# = object position y(i+200)
        z# = object position z(i+200)
         set vertexdata position i-1,x#,y#,z#
    next i

`making a stop end with last vertex
    for i = 91 to 99
        x# = object position x(i+190)
        y# = object position y(i+190)
        z# = object position z(i+190)
        set vertexdata position i-1,limb position x(50,10),limb position y(50,10),limb position z(50,10)
    next i

unlock vertexdata
   rem set object normals 25000

`rotation limits
cam#=(cam#+mousemovey()/2)
a#=(a#+mousemovex()/2)
if a#>25 then a#=25
if a#<-15 then a#=-15
if cam#>18 then cam#=18
if cam#<-18 then cam#=-18

for i= 2 to 10
   rotate limb 50,i,cam#,a#,0
next i
if mouseclick()=1 then move camera 0.1
if mouseclick()=2 then move camera -0.1

sync
loop

+ Code Snippet

autocam off
sync on:hide mouse
make light 1:position light 1,0,0,-40
load image "leather.jpg",1
load image "dummy.bmp",2
load object "tail.x",8888
texture object 8888,1
rotate object 8888,90,0,180:fix object pivot 8888:scale object 8888,3,3,3:set object cull 8888,0
scale object 8888,30,30,30

`bone object
make object box 50,1,10,1
offset limb 50,0,0,5,0
make mesh from object 1,50

`adding 10 more limbs to the main bone
for i=1 to 10
   add limb 50,i,1
   offset limb 50,i,0,10,0
   link limb 50,i-1,i
   hide limb 50,i
next i

hide limb 50,0
delete mesh 1

`creating ring of limbs to control mesh vertex
make object box 1,1,1,1

`creating 10 limbs for each ring
for i= 1 to 9
  make object box i+10,1,1,1
  yrotate object i+10,45*i
  move object i+10,10
  make mesh from object i,i+10
next i

`adding limbs to object 1
for i= 1 to 9
  add limb 1,i,i
  offset limb 1,i,object position x(i+10),object position y(i+10),object position z(i+10)
  delete mesh i
  delete object i+10
next i

`cloning nine more rings
for i= 2 to 10
  clone object i,1
next i

`scaling rings
for i= 1 to 10
  scale object i,100-i*8,100,100-i*8
  hide object i
next i

`making 90 poits of reference
for i= 201 to 290
make object sphere i,2
hide object i
next i

position camera -80,80,-100
point camera 0,50,0

color object 1,rgb(0,255,0)
ob=1

`dummy body
make object sphere 25000,5,10,8
set object cull 25000,0
texture object 25000,1
scale object texture 25000,2,3

`dummy head
make object sphere 2000,30,30,30
texture object 2000,2

`dummy hands
make object box 2001,70,3,3
do
set cursor 0,0
print "MOVE MOUSE"
position object 2000,limb position x(50,10),limb position y(50,10),limb position z(50,10)
rotate object 2000,limb direction x(50,10),limb direction y(50,10),limb direction z(50,10)
position object 2001,limb position x(50,8),limb position y(50,8),limb position z(50,8)
rotate object 2001,limb direction x(50,8),limb direction y(50,8),limb direction z(50,8)
position object 8888,limb position x(50,5),limb position y(50,5),limb position z(50,5)
rotate object 8888,limb direction x(50,5),limb direction y(50,5),limb direction z(50,5)

`positioning all rings in bone's limbs position (object 50)
for i= 1 to 10
   position object i,limb position x(50,i),limb position y(50,i),limb position z(50,i)
   rotate object i,limb direction x(50,i),limb direction y(50,i),limb direction z(50,i)
next i

t=1
ob=0
for i= 201 to 290
  inc ob
  if ob>9 then ob=1:t=t+1
  if t>10 then t=10
  position object i,limb position x(t,ob),limb position y(t,ob),limb position z(t,ob)
next i


    lock vertexdata for limb 25000,0

    for i = 1 to 90
        x# = object position x(i+200)
        y# = object position y(i+200)
        z# = object position z(i+200)
         set vertexdata position i-1,x#,y#,z#
    next i

`making a stop end with last vertex
    for i = 91 to 99
        x# = object position x(i+190)
        y# = object position y(i+190)
        z# = object position z(i+190)
        set vertexdata position i-1,limb position x(50,10),limb position y(50,10),limb position z(50,10)
    next i

    unlock vertexdata
   rem set object normals 25000

`rotation limits
cam#=(cam#+mousemovey()/2)
a#=(a#+mousemovex()/2)
if a#>25 then a#=25
if a#<-15 then a#=-15
if cam#>18 then cam#=18
if cam#<-18 then cam#=-18

for i= 2 to 10
   rotate limb 50,i,cam#,a#,0
next i
if mouseclick()=1 then move camera 0.1
if mouseclick()=2 then move camera -0.1


sync
loop

Attached all media files.

Cheers.

I'm not a grumpy grandpa

Back to top

Profile PM Email

Pincho Paxton

23

Years of Service

User Offline

Joined: 8th Dec 2002

Location:

Posted: 27th Sep 2011 02:37

Link

All of this real time modelling work is ace!

Back to top

Profile PM Email Website

Da_Rhyno

15

Years of Service

User Offline

Joined: 25th May 2011

Location:

Posted: 27th Sep 2011 02:58

Link

Chafari! You gotta write a tutorial or something on this! This is amazing! O_O

All I've done is load OBJ files using Memblock data to create meshes and objects!

Back to top

Profile PM

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 27th Sep 2011 03:10

Link

Quote: "All of this real time modelling work is ace!"

I made some tricks to add the tail

. Just playing with my trunk creator program.

Quote: "Chafari! You gotta write a tutorial or something on this!"

Well , I have my own handwritten but I'll have to translate into english .
If you have any Question, I could answer

Cheers.

I'm not a grumpy grandpa

Back to top

Profile PM Email

Da_Rhyno

15

Years of Service

User Offline

Joined: 25th May 2011

Location:

Posted: 27th Sep 2011 03:11

Link

If you could translate it into English, I'd definitely read it. I have been thinking about making my characters 3D while my background for my game is 2D isometric.

Back to top

Profile PM

Da_Rhyno

15

Years of Service

User Offline

Joined: 25th May 2011

Location:

Posted: 27th Sep 2011 03:21

Link

Actually, I guess this is a good start to ask:

What is vertex data, and how can it be manipulated?

Back to top

Profile PM

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 27th Sep 2011 03:22 Edited at: 27th Sep 2011 03:37

Link

I could put all detailed examples in a Pdf. I'll think about it .

Edited Sorry, we were writting at the same time.

Quote: "What is vertex data, and how can it be manipulated? "

All objects are made with faces and vertex, hence if we move this vertex, we can make differents objects . Example code:

+ Code Snippet

autocam off
sync on

make object box 1,10,10,10

lock vertexdata for limb 1,0
       vertex = get vertexdata vertex count()

    for i =0  to vertex
        x# = get vertexdata position x(i)
        y# = get vertexdata position y(i)
        z# = get vertexdata position z(i)
        if y#>0 then set vertexdata position i,x#*0.3,y#,z#*0.3
    next i

unlock vertexdata
set object normals 1

position camera -10,10,-10
point camera 0,0,0

do
sync
loop

Cheers.

I'm not a grumpy grandpa

Back to top

Profile PM Email

Da_Rhyno

15

Years of Service

User Offline

Joined: 25th May 2011

Location:

Posted: 27th Sep 2011 03:36

Link

Thanks! That will give me something to play with a bit later.

Back to top

Profile PM

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 27th Sep 2011 03:39

Link

@Da_Rhyno

You are wellcome !!

Cheers.

I'm not a grumpy grandpa

Back to top

Profile PM Email

gwheycs62egydws

16

Years of Service

User Offline

Joined: 17th Aug 2009

Location: The World

Posted: 8th Jan 2012 10:55

Link

@chafari

I like your cloth example

it gives hope that clothing could be created
for a caricature in game that they can ware

would adding in the option for tearing it
be an option ?

to move side ways - is to move forward
Since a Strait line gets thin fast

Back to top

Profile PM Email

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 8th Jan 2012 12:41

Link

Quote: "I like your cloth example "

Thanks

you can use it as is is free code.

Quote: "would adding in the option for tearing it be an option "

Note that we are working with vertexdata, and we can add delete and much more. This example of poor cloth, is made with a plain object 20*20*4*4 vertex ...we could do the same just making triangles and adjusting UVmapping to the final whole mesh.

Cheers.

I'm not a grumpy grandpa

Back to top

Profile PM Email

gwheycs62egydws

16

Years of Service

User Offline

Joined: 17th Aug 2009

Location: The World

Posted: 8th Jan 2012 12:55 Edited at: 8th Jan 2012 19:54

Link

@chafari

easy for you to say
as I just slowly starting to understand how vertex data could be manipulated

the problem with Dark Physics was it was not fished
you need anther program to make an object manipulable
and even then there is a limit on the density of vertex data
with this example it means taking a regular object and letting
it forum to what after is being put on and letting it being
affect by what ever it will come in contact with

I know some of that sounded double stated

I just wanted to show the path

with your example I can now do more , even make a program
to help me get the info out of the item so that it can be used
in my projects

well once i understand bit more

to move side ways - is to move forward
Since a Strait line gets thin fast

Back to top

Profile PM Email

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 8th Jan 2012 14:41

Link

@Resourceful
I'm glad some of my code can help you. Vertexdata is difficult at first, but then it is easier than it looks . I made my lathe tool working entirely with vertexdata. The most hard task playing with vertexdata, is find out how to texture the object, but it is easy to create triangles and control points to fix the mesh.

Cheers.

I'm not a grumpy grandpa

Back to top

Profile PM Email

gwheycs62egydws

16

Years of Service

User Offline

Joined: 17th Aug 2009

Location: The World

Posted: 8th Jan 2012 20:12

Link

@chafari

one other thought comes to mind
holes in objects

I know some one was working on dll for such
but he stopped because it got too complicated

with this a bit of extra code
such could be accomplished

the hard part of the code would be adding in the correct
vertex's so that every thing blends

well that's how it seams to me

to move side ways - is to move forward
Since a Strait line gets thin fast

Back to top

Profile PM Email

Visigoth

21

Years of Service

User Offline

Joined: 8th Jan 2005

Location: Bakersfield, California

Posted: 8th Jan 2012 20:29 Edited at: 8th Jan 2012 20:29

Link

more fun with vertexdata.
Using the DarkGDK.net plugin, and C#, and the Microsoft Kinect SDK, and a Kinect, realtime mesh deformation using the depth camera of the Kinect. I have big plans for this setup, eventually.

http://www.youtube.com/watch?v=yCKwO-DvwHQ

Back to top

Profile PM Email

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 8th Jan 2012 20:52

Link

@Resourceful

Yes, we can make holes in the mesh with shaders or just deleting vertexdata. The way we find out where the vertex are, is like in a matrix . Every object starts with vertex 0 to the end(sometimes thousands) . This piece of code show us the vertex position of a sphere.

+ Code Snippet

autocam off
sync on
make object sphere 9000,50,10,10
set object collision off 9000
hide object 9000
lock vertexdata for limb 9000,0
    vertex = get vertexdata vertex count()
    for i =1  to vertex
        x# = get vertexdata position x(i)
        y# = get vertexdata position y(i)
        z# = get vertexdata position z(i)
        make object box i,1,1,1
        position object i,x#,y#,z#
    next i
unlock vertexdata

position camera -60,100,-60
point camera 0,0,0

do
sync
loop

I prefer for this purpose, use an image with the hole, and then set object transparency...there are lots of ways. If it is an object with a single mesh, it is harder as we have to finde out vertex position, but if the object has several limbs, we can just texture limb and scroll texture to the correct position.

@Visigod
Nice videos...I will put an eye in this

Cheers.

I'm not a grumpy grandpa

Back to top

Profile PM Email

gwheycs62egydws

16

Years of Service

User Offline

Joined: 17th Aug 2009

Location: The World

Posted: 8th Jan 2012 21:53

Link

it all makes sense

as for many ways

the one that has the fastest results is the best one

working with a single object like a "sphere"
when your getting into objects either as one big item
or is broken down into peaces then there is more to locate and calculate

at least now I got a basic idea to work with but
since I am much slower at picking the full thought
it could be a year or two at my speed before I have some thing worked out
that I can live with or even share

for now @chafari thanks for the pointers

to move side ways - is to move forward
Since a Strait line gets thin fast

Back to top

Profile PM Email

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 9th Jan 2012 00:24

Link

@Resourceful

You are welcome !!

Cheers.

I'm not a grumpy grandpa

Back to top

Profile PM Email

gwheycs62egydws

16

Years of Service

User Offline

Joined: 17th Aug 2009

Location: The World

Posted: 12th Jan 2012 23:03

Link

the code I have found here has given me several idea

the problem is coming up with a way to apply what I have in mind
my lack of fully understanding dose not help

too bad Dark Physic was never finished
even with some doing an up date on the physic's it will be some time
before they get that part

a vertex controls system would be the best option make such happen
saying that I wish I could then I finally could have some thing to sell
and start to make a living and not feel like I am getting hit by train
well make that train's both going forward and backwards

@chafari

I tried to expand the cloth to be larger so when it was falling example
it would cover more of the object but it did not take

to move side ways - is to move forward
Since a Strait line gets thin fast

Back to top

Profile PM Email

WLGfx

18

Years of Service

User Offline

Joined: 1st Nov 2007

Location: NW United Kingdom

Posted: 12th Jan 2012 23:40

Link

@chafari - It would be awesome if you got into C and Assembler as these projects you've been working on would be so smooth and you could do so much more.

Excellent work by the way! Had to pipe in...

Mental arithmetic? Me? (That's for computers) I can't subtract a fart from a plate of beans!
Warning! May contain Nuts!

Back to top

Profile PM Email Website

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 13th Jan 2012 00:34

Link

Quote: "I tried to expand the cloth to be larger so when it was falling example
it would cover more of the object but it did not take"

Well ..that example had just 20*4 vertex, so we need to make a plain with more vertex, and add more control points.

Quote: "It would be awesome if you got into C and Assembler as these projects you've been working on would be so smooth and you could do so much more"

Perhaps I could, but now I'm too old and I make all this just for fun. Perhaps I could make a group of people interested in programming.

Cheers.

I'm not a grumpy grandpa

Back to top

Profile PM Email

gwheycs62egydws

16

Years of Service

User Offline

Joined: 17th Aug 2009

Location: The World

Posted: 13th Jan 2012 03:27

Link

@chafari

After looking closer at the example
I understand that the one item you start out with
it is broken down in to many

to have a bigger one it means it would have to be many more added to it

to move side ways - is to move forward
Since a Strait line gets thin fast

Back to top

Profile PM Email

SoftMotion3D

AGK Developer

20

Years of Service

User Offline

Joined: 24th Aug 2005

Location: Calgary,Alberta

Posted: 13th Jan 2012 03:54 Edited at: 13th Jan 2012 03:56

Link

@chafari

If you have functions to play back your animation....why not store the animation in the objects memblock area?

My original setup for model prop was saving the animation data inside the dbo's memblock area. I created several memblocks to store all the textures and then even a memblock for the animation data. Once finished i created a single memblock consisting of all those memblocks inside packed into 1.

Then you just need to unpack it at load time...

I can create an example if you like :p

Just let me know...

The Second choice would be to create your own format such as i did with Model Prop. Then you can store pritty much any data you want in any order and would be easier for you to load in.

But the memblock idea is definatly easier to code then an entire model format.

Back to top

Profile PM Email Website

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 13th Jan 2012 11:27

Link

Resourceful

Quote: "to have a bigger one it means it would have to be many more added to it"

Yes... you're right , that's why I said cloth without plugin just using vertexdata....if we need to do big projects you had better use the cloth plug-in.

SMD_3D Interactive
What I did, is just save all postion of the control points that move the mesh, then I have to use again vertexdata to play the animation.

Quote: "I can create an example if you like :p"

Ok...we can learn every day from young people

Cheers.

I'm not a grumpy grandpa

Back to top

Profile PM Email

SoftMotion3D

AGK Developer

20

Years of Service

User Offline

Joined: 24th Aug 2005

Location: Calgary,Alberta

Posted: 14th Jan 2012 01:24

Link

ok ill write up a quick example of dumping some memblock textures and animations into a single memblock and have it save and load from the dbo file.

(i'll post it when done!)

Back to top

Profile PM Email Website

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 14th Jan 2012 01:26

Link

Thanks

Cheers.

I'm not a grumpy grandpa

Back to top

Profile PM Email

SoftMotion3D

AGK Developer

20

Years of Service

User Offline

Joined: 24th Aug 2005

Location: Calgary,Alberta

Posted: 14th Jan 2012 01:38 Edited at: 14th Jan 2012 01:41

Link

i dont know if this helps....but i coded this already...lol!

Here is an example of just unpacking textures from a .dbo and playing back animations loaded from seperate files. Now these animations are not done with "play object" or "loop object" as i had to create myself some functions to do the animation sequences.

Have a look.

I will dig to see if i can find the code that created the dbos with the textures packed inside.

If you want to do something simular to this i will rewrite it for you so its easier to understand and can be used as a utility to pack things in a dbo and extract.

Back to top

Profile PM Email Website

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 14th Jan 2012 03:02 Edited at: 14th Jan 2012 13:49

Link

Hei... nice robot with the little antena like a tail

Thanks so much....I will study your example code and I will report you back tomorrow.

Edited.
SMD_3D Interactive
I'v been studing your code, and that's what I do saving position, rotation and scale to a txt file using open to write and open to read. What I would like to do, is add this animation to the same file though. To do that with vertexdata, is hard, as to save every vertex position makes a txt of 2 or 3 MB. I could make meshes instead and play animation just changing mesh like this example.

ink rgb(255,255,0),0
box 0,0,50,50
ink rgb(0,255,0),0
box 0,20,50,30
ink rgb(255,0,0),0
box 29,0,31,50
get image 1,0,0,50,50,1

autocam off
sync on

make object sphere 1,30,30,30
texture object 1,1
scale object texture 1,6,3
make object box 2,20,20,20
position object 2,-40,0,0
texture object 2,1

position camera -10,50,-80
point camera 0,0,0
ma=1
ca=1
do
set cursor 0,0
ink rgb(255,255,255),0
print "After 10 seconds press SPACEKEY "

lock vertexdata for limb 1,0
       vertex = get vertexdata vertex count()
    for i =0  to vertex
        x# = get vertexdata position x(i)
        y# = get vertexdata position y(i)
        z# = get vertexdata position z(i)
         if y# >8 then set vertexdata position i,x#,y#-scale#,z#
         if y# <-8 then set vertexdata position i,x#,y#+scale#,z#
         if x# <-8 then set vertexdata position i,x#+scale#,y#,z#
         if x# >8 then set vertexdata position i,x#-scale#,y#,z#
         if z# >8 then set vertexdata position i,x#,y#,z#-scale#
         if z# <-8 then set vertexdata position i,x#,y#,z#+scale#
    next i
unlock vertexdata

if spacekey() then scale#=scale#+0.00004:a=1
  if a=1
  m=m+1
  if m=100 then m=1:ma=ma+1
  if ma<40 then make mesh from object ma,1
endif
if ma>40 then ma=40

if ma=40
  r=r+1
  if r=20 then r=1:ca=ca+1
  if ca>40 then ca=1
  if mesh exist(40-ca) then change mesh 2,0,40-ca
endif

rt#=rt#+0.1
yrotate object 2,rt#
if ma=40 then yrotate object 1,-rt#
sync
loop

+ Code Snippet

ink rgb(255,255,0),0
box 0,0,50,50
ink rgb(0,255,0),0
box 0,20,50,30
ink rgb(255,0,0),0
box 29,0,31,50
get image 1,0,0,50,50,1

autocam off
sync on

make object sphere 1,30,30,30
texture object 1,1
scale object texture 1,6,3
make object box 2,20,20,20
position object 2,-40,0,0
texture object 2,1

position camera -10,50,-80
point camera 0,0,0
ma=1
ca=1
do
set cursor 0,0
ink rgb(255,255,255),0
print "After 10 seconds press SPACEKEY "

lock vertexdata for limb 1,0
       vertex = get vertexdata vertex count()
    for i =0  to vertex
        x# = get vertexdata position x(i)
        y# = get vertexdata position y(i)
        z# = get vertexdata position z(i)
         if y# >8 then set vertexdata position i,x#,y#-scale#,z#
         if y# <-8 then set vertexdata position i,x#,y#+scale#,z#
         if x# <-8 then set vertexdata position i,x#+scale#,y#,z#
         if x# >8 then set vertexdata position i,x#-scale#,y#,z#
         if z# >8 then set vertexdata position i,x#,y#,z#-scale#
         if z# <-8 then set vertexdata position i,x#,y#,z#+scale#
    next i
unlock vertexdata

if spacekey() then scale#=scale#+0.00004:a=1
  if a=1
  m=m+1
  if m=100 then m=1:ma=ma+1
  if ma<40 then make mesh from object ma,1
endif
if ma>40 then ma=40

if ma=40
  r=r+1
  if r=20 then r=1:ca=ca+1
  if ca>40 then ca=1
  if mesh exist(40-ca) then change mesh 2,0,40-ca
endif



rt#=rt#+0.1
yrotate object 2,rt#
if ma=40 then yrotate object 1,-rt#
sync
loop

I will try to adapt your code to my objects

Cheers.

I'm not a grumpy grandpa

Back to top

Profile PM Email

SoftMotion3D

AGK Developer

20

Years of Service

User Offline

Joined: 24th Aug 2005

Location: Calgary,Alberta

Posted: 14th Jan 2012 16:38

Link

well ok so you would like animation in the dbo file correct?

here let me test your last code you posted.... i'll make something for you :p

Back to top

Profile PM Email Website

SoftMotion3D

AGK Developer

20

Years of Service

User Offline

Joined: 24th Aug 2005

Location: Calgary,Alberta

Posted: 14th Jan 2012 19:22 Edited at: 14th Jan 2012 19:24

Link

ok im not quite done yet but i got the first chunk coded to create a texture file from data statements after saving it.

I will finish this when i get home from work.

-what i will now do when i get home is create a vertex animation and dump the vertex animation into a memblock as well as the texture file into a single dbo and then re-extract it.

(no media required for this example)

Back to top

Profile PM Email Website

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 14th Jan 2012 19:56 Edited at: 14th Jan 2012 19:57

Link

SMD_3D Interactive

I'v got something similar to your code. Imagine an image (ico) with 20*27 pixels that is just 4.096 bytes----- when I save it using memblock, the data.dat is 118.784 bytes that is 46 times bigger than the actual bmp size, and the file will be separated....that is just the image, but we don't need to include image in the same object...just animation. This is the code I use so far.

+ Code Snippet

load image "images.jpg", 1, 1

make memblock from image 1,1


width = memblock dword(1,0)
height = memblock dword(1,4)

open to write 1, "data.dat"

write string 1, "data "+str$(width)+","+str$(height)

c as dword

for y = 0 to height-1
   thing$ = "data "
   for x = 0 to width-1
      pos = ((y*width)+x)*4 + 12
      c = memblock dword(1,pos)
      if x < width-1
         thing$ = thing$ + str$(c) + ","
      else
         thing$ = thing$ + str$(c)
      endif

   next x
   write string 1, thing$
next y


close file 1
delete memblock 1

If we had to do the same with an image 256*256, probably that would be many MB's

Cheers.

I'm not a grumpy grandpa

Back to top

Profile PM Email

gwheycs62egydws

16

Years of Service

User Offline

Joined: 17th Aug 2009

Location: The World

Posted: 14th Jan 2012 20:48 Edited at: 14th Jan 2012 20:49

Link

@chafari

one thought to doing a data.dat would stop people stealing your 3d objects
the images there is nothing much can be dun about that

I relies the files sizes would be large
but the object would be unusable for any one else

also the memblock locations would have to be found
for saving and the locations for the objects would loaded into
would also need to be known

I know a set of functions could be built to take care of this

to move side ways - is to move forward
Since a Strait line gets thin fast

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Vertexdata animation