moving vertics - GameCreators Forum

Author

Message

nruser

18

Years of Service

User Offline

Joined: 22nd Dec 2007

Location: Serbia

Posted: 2nd Jul 2011 18:25

Link

i am trying to move four vertices that define one side of the cube with dk plugins but it seems that dbp moves one triangle to the left and one to the right side of the cube, how can i make a cube longer with moving only four vertices of one side a little further?

i know for scale function but this is what i want

this is my test code

Object=1
Camera=0
ScaleValue#=0.001
LimbWorldMatrix=1
PolyPoint1Vector=2
PolyPoint2Vector=3
PolyPoint3Vector=4
PolyPoint4Vector=5
Vec1=6
Vec2=7
Vec3=8

rf=Make Vector3(PolyPoint1Vector)
rf=Make Vector3(PolyPoint2Vector)
rf=Make Vector3(PolyPoint3Vector)
rf=Make Vector3(PolyPoint4Vector)
rf=Make Vector3(Vec1)
rf=Make Vector3(Vec2)
rf=Make Vector3(Vec3)

Load Object "4_sided_brush.x",Object
set object cull Object,0

Position Camera 0,-50,10,20
point camera 0,0,0,0
LimbsCNT=DK Get Limb Count(Object)

For i=0 To LimbsCNT - 1
   If (DK Get Limb Primitive Type(Object,i)<> 4 or DK Limb Shared Verts(Object,i)=1)
      DK Convert Limb Mesh To Verts List Object,i
   EndIf
Next i

For Limb=0 To LimbsCNT - 1
      VertexCNT=DK Get Limb Vertex Count(Object,Limb)
      For Poly=0 To VertexCNT
         rem Get position of poly vertices
         DK Set Vector3 To Vertex Position PolyPoint1Vector,Object,Limb,1
         DK Set Vector3 To Vertex Position PolyPoint2Vector,Object,Limb,2
         DK Set Vector3 To Vertex Position PolyPoint3Vector,Object,Limb,3
         DK Set Vector3 To Vertex Position PolyPoint4Vector,Object,Limb,4

rem Calculate poly normals
         `Subtract Vector3 Vec1,PolyPoint2Vector,PolyPoint1Vector
         `Subtract Vector3 Vec2,PolyPoint3Vector,PolyPoint1Vector
         `Subtract Vector3 Vec3,PolyPoint4Vector,PolyPoint1Vector
         `Cross Product Vector3 Vec1,Vec1,Vec2
         `Normalize Vector3 Vec1,Vec1

rem Calculate new position
         Multiply Vector3 Vec1,ScaleValue#
         Add Vector3 PolyPoint1Vector,PolyPoint1Vector,Vec1
         Add Vector3 PolyPoint2Vector,PolyPoint2Vector,Vec1
         Add Vector3 PolyPoint3Vector,PolyPoint3Vector,Vec1
         Add Vector3 PolyPoint4Vector,PolyPoint4Vector,Vec1

rem Set new position of poly vertices
         DK Set Vertex Position Object,Limb,1,6,0,20
         DK Set Vertex Position Object,Limb,2,6,2,20
         DK Set Vertex Position Object,Limb,3,-6,0,20
         DK Set Vertex Position Object,Limb,4,-6,2,20
      Next Poly
   Next Limb

Sync Rate 60
Sync On
Do
   Control Camera Using Arrowkeys 0,1,1
   Sync
Loop

+ Code Snippet

Object=1
Camera=0
ScaleValue#=0.001
LimbWorldMatrix=1
PolyPoint1Vector=2
PolyPoint2Vector=3
PolyPoint3Vector=4
PolyPoint4Vector=5
Vec1=6
Vec2=7
Vec3=8

rf=Make Vector3(PolyPoint1Vector)
rf=Make Vector3(PolyPoint2Vector)
rf=Make Vector3(PolyPoint3Vector)
rf=Make Vector3(PolyPoint4Vector)
rf=Make Vector3(Vec1)
rf=Make Vector3(Vec2)
rf=Make Vector3(Vec3)

Load Object "4_sided_brush.x",Object
set object cull Object,0

Position Camera 0,-50,10,20
point camera 0,0,0,0
LimbsCNT=DK Get Limb Count(Object)

For i=0 To LimbsCNT - 1
   If (DK Get Limb Primitive Type(Object,i)<> 4 or DK Limb Shared Verts(Object,i)=1)
      DK Convert Limb Mesh To Verts List Object,i
   EndIf
Next i

For Limb=0 To LimbsCNT - 1
      VertexCNT=DK Get Limb Vertex Count(Object,Limb)
      For Poly=0 To VertexCNT
         rem Get position of poly vertices
         DK Set Vector3 To Vertex Position PolyPoint1Vector,Object,Limb,1
         DK Set Vector3 To Vertex Position PolyPoint2Vector,Object,Limb,2
         DK Set Vector3 To Vertex Position PolyPoint3Vector,Object,Limb,3
         DK Set Vector3 To Vertex Position PolyPoint4Vector,Object,Limb,4

         rem Calculate poly normals
         `Subtract Vector3 Vec1,PolyPoint2Vector,PolyPoint1Vector
         `Subtract Vector3 Vec2,PolyPoint3Vector,PolyPoint1Vector
         `Subtract Vector3 Vec3,PolyPoint4Vector,PolyPoint1Vector
         `Cross Product Vector3 Vec1,Vec1,Vec2
         `Normalize Vector3 Vec1,Vec1

         rem Calculate new position
         Multiply Vector3 Vec1,ScaleValue#
         Add Vector3 PolyPoint1Vector,PolyPoint1Vector,Vec1
         Add Vector3 PolyPoint2Vector,PolyPoint2Vector,Vec1
         Add Vector3 PolyPoint3Vector,PolyPoint3Vector,Vec1
         Add Vector3 PolyPoint4Vector,PolyPoint4Vector,Vec1

         rem Set new position of poly vertices
         DK Set Vertex Position Object,Limb,1,6,0,20
         DK Set Vertex Position Object,Limb,2,6,2,20
         DK Set Vertex Position Object,Limb,3,-6,0,20
         DK Set Vertex Position Object,Limb,4,-6,2,20
      Next Poly
   Next Limb

Sync Rate 60
Sync On
Do
   Control Camera Using Arrowkeys 0,1,1
   Sync
Loop

Back to top

Profile PM Email

WLGfx

18

Years of Service

User Offline

Joined: 1st Nov 2007

Location: NW United Kingdom

Posted: 2nd Jul 2011 19:37

Link

I've recently found that the DBP primitive cube has 24 vertices so moving the vertices from one side will just move that face and not actually stretch the cube itself. You will need to grab the vertices from the other side faces and move then too...

Warning! May contain Nuts!

Back to top

Profile PM Email Website

nruser

18

Years of Service

User Offline

Joined: 22nd Dec 2007

Location: Serbia

Posted: 2nd Jul 2011 20:59

Link

i used model of the cube(box), that had 8 vertices(two faces each side), try using simple model of the box to do this it still causes problems, because one vertex won't move on each face, two triangles and each has one vertex that can't be moved or such?

Back to top

Profile PM Email

Green Gandalf

VIP Member

21

Years of Service

User Offline

Joined: 3rd Jan 2005

Playing: Malevolence:Sword of Ahkranox, Skyrim, Civ6.

Posted: 2nd Jul 2011 22:27

Link

Could you post the box object?

At first sight that code looks a very cumbersome way to move just four vertices. How many limbs and vertices does that box have?

Back to top

Profile PM Email

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 2nd Jul 2011 22:34

Link

Quote: "I've recently found that the DBP primitive cube has 24 vertices so moving the vertices from one side will just move that face and not actually stretch the cube itself"

WLGfx is right ...as far as I know, in Dbpro every face of a cube has four vertex, so we have to take them into account and play with those vertex. In this little example I play with 12 vertex to move one face.

autocam off
sync on
make object box 1,5,15,5
make object sphere 2,2
offset limb 2,0,3,1,3
color object 2,rgb(0,255,0)

instance object 3,1
position object 3,-12,0,0
scale object 3,-100,100,-100
set object cull 3,2

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

do
x#=limb position x(2,0)
y#=limb position y(2,0)
z#=limb position z(2,0)
g#=g#+0.5
yrotate object 2,g#
rem ============================================
lock vertexdata for limb 1,0

set vertexdata position 8,x#-1,y,z#+1
set vertexdata position 4,x#-1,y,z#+1
set vertexdata position 23,x#-1,y,z#+1

set vertexdata position 9,x#+1,y,z#+1
set vertexdata position 7,x#+1,y,z#+1
set vertexdata position 17,x#+1,y,z#+1

set vertexdata position 10,x#+1,y,z#-1
set vertexdata position 16,x#+1,y,z#-1
set vertexdata position 1,x#+1,y,z#-1

set vertexdata position 0,x#-1,y,z#-1
set vertexdata position 11,x#-1,y,z#-1
set vertexdata position 20,x#-1,y,z#-1

unlock vertexdata
rem ============================================

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

sync
loop

+ Code Snippet

autocam off
sync on
make object box 1,5,15,5
make object sphere 2,2
offset limb 2,0,3,1,3
color object 2,rgb(0,255,0)

instance object 3,1
position object 3,-12,0,0
scale object 3,-100,100,-100
set object cull 3,2

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

do
x#=limb position x(2,0)
y#=limb position y(2,0)
z#=limb position z(2,0)
g#=g#+0.5
yrotate object 2,g#
rem ============================================
lock vertexdata for limb 1,0


set vertexdata position 8,x#-1,y,z#+1
set vertexdata position 4,x#-1,y,z#+1
set vertexdata position 23,x#-1,y,z#+1

set vertexdata position 9,x#+1,y,z#+1
set vertexdata position 7,x#+1,y,z#+1
set vertexdata position 17,x#+1,y,z#+1

set vertexdata position 10,x#+1,y,z#-1
set vertexdata position 16,x#+1,y,z#-1
set vertexdata position 1,x#+1,y,z#-1

set vertexdata position 0,x#-1,y,z#-1
set vertexdata position 11,x#-1,y,z#-1
set vertexdata position 20,x#-1,y,z#-1

unlock vertexdata
rem ============================================

control camera using arrowkeys 0,0.3,0.3
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

nruser

18

Years of Service

User Offline

Joined: 22nd Dec 2007

Location: Serbia

Posted: 2nd Jul 2011 22:50

Link

here it is use this with the code i posted to see the problem

Back to top

Profile PM Email

Brendy boy

20

Years of Service

User Offline

Joined: 17th Jul 2005

Location: Croatia

Posted: 2nd Jul 2011 23:00

Link

Quote: "here it is use this with the code i posted to see the problem "

Are you sure you are using the right vertex numbers?

BBB GUI Plugin
Landscape & Map Creator

Back to top

Profile PM Email

nruser

18

Years of Service

User Offline

Joined: 22nd Dec 2007

Location: Serbia

Posted: 2nd Jul 2011 23:06

Link

yes i am but just in case try it for yourself

Back to top

Profile PM Email

Brendy boy

20

Years of Service

User Offline

Joined: 17th Jul 2005

Location: Croatia

Posted: 2nd Jul 2011 23:35

Link

Quote: "yes i am but just in case try it for yourself "

2 problems:
1. you converted your object to vertexdata only so you can't move just 4 vertices, you need to move 6 of them
2. you are using the vertex numbers in the wrong order

Solution:
comment the line where you convert the object to vertexdata only
use vertex numbers in this order: 0,4,2,1

Rem Project: Dark Basic Pro Project
Rem Created: Saturday, July 02, 2011

Rem ***** Main Source File *****
Object=1
Camera=0
ScaleValue#=0.001
LimbWorldMatrix=1
PolyPoint1Vector=2
PolyPoint2Vector=3
PolyPoint3Vector=4
PolyPoint4Vector=5
Vec1=6
Vec2=7
Vec3=8

rf=Make Vector3(PolyPoint1Vector)
rf=Make Vector3(PolyPoint2Vector)
rf=Make Vector3(PolyPoint3Vector)
rf=Make Vector3(PolyPoint4Vector)
rf=Make Vector3(Vec1)
rf=Make Vector3(Vec2)
rf=Make Vector3(Vec3)

Load Object "4_sided_brush.x",Object
set object cull Object,0
set object wireframe 1,1

Position Camera 0,-50,10,20
point camera 0,0,0,0
LimbsCNT=DK Get Limb Count(Object)

For i=0 To LimbsCNT - 1
   If (DK Get Limb Primitive Type(Object,i)<> 4 or DK Limb Shared Verts(Object,i)=1)
      `DK Convert Limb Mesh To Verts List Object,i
   EndIf
Next i

For Limb=0 To LimbsCNT - 1
      `VertexCNT=DK Get Limb Vertex Count(Object,Limb)
         rem Set new position of poly vertices
         DK Set Vertex Position Object,Limb,0,6,0,20
         DK Set Vertex Position Object,Limb,4,6,2,20
         DK Set Vertex Position Object,Limb,2,-6,0,20
         DK Set Vertex Position Object,Limb,1,-6,2,20
   Next Limb

Sync Rate 60
Sync On
Do
   Control Camera Using Arrowkeys 0,1,1
   Sync
Loop

+ Code Snippet

Rem Project: Dark Basic Pro Project
Rem Created: Saturday, July 02, 2011

Rem ***** Main Source File *****
Object=1
Camera=0
ScaleValue#=0.001
LimbWorldMatrix=1
PolyPoint1Vector=2
PolyPoint2Vector=3
PolyPoint3Vector=4
PolyPoint4Vector=5
Vec1=6
Vec2=7
Vec3=8

rf=Make Vector3(PolyPoint1Vector)
rf=Make Vector3(PolyPoint2Vector)
rf=Make Vector3(PolyPoint3Vector)
rf=Make Vector3(PolyPoint4Vector)
rf=Make Vector3(Vec1)
rf=Make Vector3(Vec2)
rf=Make Vector3(Vec3)

Load Object "4_sided_brush.x",Object
set object cull Object,0
set object wireframe 1,1

Position Camera 0,-50,10,20
point camera 0,0,0,0
LimbsCNT=DK Get Limb Count(Object)

For i=0 To LimbsCNT - 1
   If (DK Get Limb Primitive Type(Object,i)<> 4 or DK Limb Shared Verts(Object,i)=1)
      `DK Convert Limb Mesh To Verts List Object,i
   EndIf
Next i



For Limb=0 To LimbsCNT - 1
      `VertexCNT=DK Get Limb Vertex Count(Object,Limb)
         rem Set new position of poly vertices
         DK Set Vertex Position Object,Limb,0,6,0,20
         DK Set Vertex Position Object,Limb,4,6,2,20
         DK Set Vertex Position Object,Limb,2,-6,0,20
         DK Set Vertex Position Object,Limb,1,-6,2,20
   Next Limb

Sync Rate 60
Sync On
Do
   Control Camera Using Arrowkeys 0,1,1
   Sync
Loop

BBB GUI Plugin
Landscape & Map Creator

Back to top

Profile PM Email

Green Gandalf

VIP Member

21

Years of Service

User Offline

Joined: 3rd Jan 2005

Playing: Malevolence:Sword of Ahkranox, Skyrim, Civ6.

Posted: 2nd Jul 2011 23:46 Edited at: 2nd Jul 2011 23:47

Link

But why convert it at all? Why not simply move the four vertices you need using the built-in DBPro vertexdata commands. Since you have only 8 vertices you can simply list them out and see which 4 correspond to the face you want to move.

Edit

The object has only one limb so why complicate the code?

Back to top

Profile PM Email

nruser

18

Years of Service

User Offline

Joined: 22nd Dec 2007

Location: Serbia

Posted: 2nd Jul 2011 23:57

Link

well how can i move four vertices that represent one side? i want this so i can understand how to do this; when i want to let's say make bent hallway in my level editor

Back to top

Profile PM Email

Green Gandalf

VIP Member

21

Years of Service

User Offline

Joined: 3rd Jan 2005

Playing: Malevolence:Sword of Ahkranox, Skyrim, Civ6.

Posted: 3rd Jul 2011 00:13 Edited at: 3rd Jul 2011 00:14

Link

You first need to find the vertices you're interested in. If it's a simple object like your box just list them as in the following snippet:

+ Code Snippet

sync on : sync rate 60 : sync

load object "4_sided_brush.x", 1

repeat
  lock vertexdata for limb 1, 0
    nv = get vertexdata vertex count() - 1 ` vertices are numbered from 0
    for vert = 0 to nv
      x# = get vertexdata position x(vert)
      y# = get vertexdata position y(vert)
      z# = get vertexdata position z(vert)
      text 20, 20+vert*20, str$(vert)+"  "+str$(x#,2)+" "+str$(y#,2)+" "+str$(z#,2)
    next vert
  unlock vertexdata
  sync
until spacekey()

end

I'm sure you can see at a glance which four correspond to each face.

For more complicated objects you need some automatic way of deciding which vertices you want to move.

Edit Oops! Corrected careless copy and paste (I hope).

Back to top

Profile PM Email

nruser

18

Years of Service

User Offline

Joined: 22nd Dec 2007

Location: Serbia

Posted: 3rd Jul 2011 00:41

Link

thanks this helped but is there a way to show vertex numbers where vertex is positioned for better orientation, is it even possible?

Back to top

Profile PM Email

Brendy boy

20

Years of Service

User Offline

Joined: 17th Jul 2005

Location: Croatia

Posted: 3rd Jul 2011 00:46

Link

Quote: "thanks this helped but is there a way to show vertex numbers where vertex is positioned for better orientation, is it even possible? "

convert the vertex 3d coordinates to 2d coordinates on the screen and print vertex number at that coordinates

One easy way of doing that would be:
in a loop position an object to every vertex position then get it's 2d coordinates with OBJECT SCREEN X and OBJECT SCREEN Y commands

BBB GUI Plugin
Landscape & Map Creator

Back to top

Profile PM Email

Green Gandalf

VIP Member

21

Years of Service

User Offline

Joined: 3rd Jan 2005

Playing: Malevolence:Sword of Ahkranox, Skyrim, Civ6.

Posted: 3rd Jul 2011 01:01 Edited at: 3rd Jul 2011 01:01

Link

Another method would be to place small marker objects at each vertex. If the object has only a small number of vertices, e.g. 40 (numbered 0 to 39 of course

), you could place small spheres numbered numbered, say, 100 to 139, at the vertices, i.e. sphere 100 at vertex 0 and so on. Then use pick object on objects 100-139 to find out which vertex is which - just point the mouse at each vertex in turn and print out the value objID-100.

Not entirely sure what it is you want?

Back to top

Profile PM Email

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 3rd Jul 2011 02:35 Edited at: 3rd Jul 2011 02:39

Link

Quote: "thanks this helped but is there a way to show vertex numbers where vertex is positioned for better orientation, is it even possible? "

Of course theres`s a way, but that will have to do it ourselves...have a look OBJECT SCREEN X(),OBJECT SCREEN Y()

In this other example, I show you where are this vertex(somethink like Green Gandalf suggest you). It´s a poor vertex editor...just to show how it works. I hope it can help someone

autocam off
sync on

make object box 1001,8,0,8
ghost object on 1001:fade object 1001,40
position object 1001,0,-6,0
make object sphere 1000,5,10,10:set object wireframe 1000,1
ghost object on 1000
fade object 1000,70
lock vertexdata for limb 1000,0
    vertices = get vertexdata vertex count()

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

for i = 44 to 76
        x# = get vertexdata position x(i)
        y# = get vertexdata position y(i)
        z# = get vertexdata position z(i)
       rem  set vertexdata position i,sin(x#*10),y#+1,sin(z#*10)
   next i

unlock vertexdata
set object normals 1000

//creamos los cubos que señalan los vertices ---------------------
lock vertexdata for limb 1000,0
   for i= 1 to vertices+1
       x# = get vertexdata position x(i)
       y# = get vertexdata position y(i)
       z# = get vertexdata position z(i)
       c=i
       make object box i,0.1,0.1,0.1:color object i,rgb(255,255,0)
       position object i,x#,y#,z#
       rem set object light i,2
       hide object i
   next i
unlock vertexdata
//----------------------------------------------------------------

position camera 0,0,-10
point camera 0,0,0
c=1
do
for i= 1 to vertices
hide object i
next i

//hacemos que los vertices se peguen a los cubos para hacer su desformacion
lock vertexdata for limb 1000,0
   for i= 1 to vertices+1
        x2# = object position x(i)
        y2# = object position y(i)
        z2# = object position z(i)
        set vertexdata position i,x2#,y2#,z2#
   next i
       //subimos o bajamos los vertices
       if inkey$()="w" then ly#=ly#+0.001 else ly#=0
       if inkey$()="s" then lyy#=lyy#-0.001 else lyy#=0
       l_y#=ly#+lyy#

if inkey$()="a" then lx#=lx#-0.001 else lx#=0
       if inkey$()="d" then lxx#=lxx#+0.001 else lxx#=0
       l_x#=lx#+lxx#

if inkey$()="r" then lz#=lz#-0.001 else lz#=0
       if inkey$()="f" then lzz#=lzz#+0.001 else lzz#=0
       l_z#=lz#+lzz#

x#=object position x(c)
       y#=object position y(c)
       z#=object position z(c)
       position object c,x#+l_x#/25,y#+l_y#/25,z#+l_z#/25

//guardamos la malla con la tecla 1
      if inkey$()="1"
        make mesh from object 1,1000
        save mesh "selec"+str$ (rnd(1000))+".x",1:sleep 1000
      endif
unlock vertexdata

//------------------------------------------------------
if inkey$()="l" then c=c+1 :sleep 300
if inkey$()="k" then c=c-1 :sleep 300
if c>vertices then c=vertices
if c<1 then c=1
show object c
set cursor 5,5:print "Estas en el vertice  ",c
set cursor 5,25:print "HELP    H"
if inkey$()="h" or  inkey$()="H"
cls
set cursor 0,5
print "Tecla   < L >  siguiente vertice"
print "Tecla   < K >  vertice anterior"
print
print "Tecla   < W >  sube vertice "
print "Tecla   < S >  baja vertice "
print "Tecla   < A >  mueve vertice a la izquierda"
print "Tecla   < D >  mueve vertice a la derecha "
print "Tecla   < F >  mueve vertice hacia delante"
print "Tecla   < R >  mueve vertice hacia atras"
print
print "Tecla numero 1  salva el objeto a   .X "
endif
if inkey$()="o" then set object wireframe 1000,0 else set object wireframe 1000,1
//-------------------------------------------------------

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

rem set cursor 5,5:print vertices
sync
loop

+ Code Snippet

autocam off
sync on

make object box 1001,8,0,8
ghost object on 1001:fade object 1001,40
position object 1001,0,-6,0
make object sphere 1000,5,10,10:set object wireframe 1000,1
ghost object on 1000
fade object 1000,70
lock vertexdata for limb 1000,0
    vertices = get vertexdata vertex count()

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


    for i = 44 to 76
        x# = get vertexdata position x(i)
        y# = get vertexdata position y(i)
        z# = get vertexdata position z(i)
       rem  set vertexdata position i,sin(x#*10),y#+1,sin(z#*10)
   next i

unlock vertexdata
set object normals 1000

//creamos los cubos que señalan los vertices ---------------------
lock vertexdata for limb 1000,0
   for i= 1 to vertices+1
       x# = get vertexdata position x(i)
       y# = get vertexdata position y(i)
       z# = get vertexdata position z(i)
       c=i
       make object box i,0.1,0.1,0.1:color object i,rgb(255,255,0)
       position object i,x#,y#,z#
       rem set object light i,2
       hide object i
   next i
unlock vertexdata
//----------------------------------------------------------------

position camera 0,0,-10
point camera 0,0,0
c=1
do
for i= 1 to vertices
hide object i
next i

//hacemos que los vertices se peguen a los cubos para hacer su desformacion
lock vertexdata for limb 1000,0
   for i= 1 to vertices+1
        x2# = object position x(i)
        y2# = object position y(i)
        z2# = object position z(i)
        set vertexdata position i,x2#,y2#,z2#
   next i
       //subimos o bajamos los vertices
       if inkey$()="w" then ly#=ly#+0.001 else ly#=0
       if inkey$()="s" then lyy#=lyy#-0.001 else lyy#=0
       l_y#=ly#+lyy#

       if inkey$()="a" then lx#=lx#-0.001 else lx#=0
       if inkey$()="d" then lxx#=lxx#+0.001 else lxx#=0
       l_x#=lx#+lxx#

       if inkey$()="r" then lz#=lz#-0.001 else lz#=0
       if inkey$()="f" then lzz#=lzz#+0.001 else lzz#=0
       l_z#=lz#+lzz#

       x#=object position x(c)
       y#=object position y(c)
       z#=object position z(c)
       position object c,x#+l_x#/25,y#+l_y#/25,z#+l_z#/25

      //guardamos la malla con la tecla 1
      if inkey$()="1"
        make mesh from object 1,1000
        save mesh "selec"+str$ (rnd(1000))+".x",1:sleep 1000
      endif
unlock vertexdata

//------------------------------------------------------
if inkey$()="l" then c=c+1 :sleep 300
if inkey$()="k" then c=c-1 :sleep 300
if c>vertices then c=vertices
if c<1 then c=1
show object c
set cursor 5,5:print "Estas en el vertice  ",c
set cursor 5,25:print "HELP    H"
if inkey$()="h" or  inkey$()="H"
cls
set cursor 0,5
print "Tecla   < L >  siguiente vertice"
print "Tecla   < K >  vertice anterior"
print
print "Tecla   < W >  sube vertice "
print "Tecla   < S >  baja vertice "
print "Tecla   < A >  mueve vertice a la izquierda"
print "Tecla   < D >  mueve vertice a la derecha "
print "Tecla   < F >  mueve vertice hacia delante"
print "Tecla   < R >  mueve vertice hacia atras"
print
print "Tecla numero 1  salva el objeto a   .X "
endif
if inkey$()="o" then set object wireframe 1000,0 else set object wireframe 1000,1
//-------------------------------------------------------

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



rem set cursor 5,5:print vertices
sync
loop

I'm not a grumpy grandpa

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Professional Discussion / moving vertics