Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Colisión Entre Objetos
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Colisión Entre Objetos 
 
Buenas!.

Hice este ejemplo en el que se puede ver una serie de rectángulos que caen. El cursor al pasarlo sobre el área de dibujo,
se centra en este un rectángulo.

Con este vamos eliminando el resto de los rectángulos que caen.  O bien lo pasamos por encima de los otros, o
dejamos que caiga el rectángulo sobre el que manejamos.

El problema que me encuentro es el del area que ocupa cada objeto. En principio, como se referencia se toma el vértice
superior de cada rectángulo. Si este se encuentro dentro del area que ocupa nuestro rectangulo, se elimina de la pantalla.

Me gustaría que fuera de otra forma. Es un comienzo.
Si me podéis ayudar con la función de colisión, mejor.  

 colisiones

Public Sub Colision(prota As ClsRectangulo, unrectangulo As ClsRectangulo)
  
    
    If (unrectangulo.x >= prota.x And
    unrectangulo.x <= (prota.x + prota.ancho)) And
    (unrectangulo.y >= prota.y And
    unrectangulo.y <= (prota.y + prota.alto)) Then
      gRectangulos.Remove(gRectangulos.Find(unrectangulo))
    Endif  
    
End
 


Saludos

RectanguloColisiones.tar.gz
Descripción:  
Descargar
Nombre del archivo: RectanguloColisiones.tar.gz
Tamaño: 14.47 KB
Descargado: 69 veces
RectanguloColisiones.tar.gz
Descripción:  
Descargar
Nombre del archivo: RectanguloColisiones.tar.gz
Tamaño: 14.47 KB
Descargado: 69 veces
RectanguloColisiones.tar.gz
Descripción:  
Descargar
Nombre del archivo: RectanguloColisiones.tar.gz
Tamaño: 14.47 KB
Descargado: 69 veces

 




===================
Gambas Básico
"No es un bug, es una característica no documentada"
 
Shell - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Colisión Entre Objetos 
 
Creo que he dado con la respuesta. Los centros de un rectángulo con respecto al que muevo y tener en cuenta el ancho y alto de cada rectángulo.
Lo veré luego.

Saludos
 




===================
Gambas Básico
"No es un bug, es una característica no documentada"
 
Shell - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Colisión Entre Objetos 
 
si para que sea colisión tendría que producirse al coincidir el borde de un rectángulo con el borde de otro rectángulo, en el ejemplo la colisión se da cuando esta mas cerca del centro.
 




===================
Software libre, programación libre, vida libre es la Public function Libertad()as Invendible
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/
 
v3ctor - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Gambas: Clases Y Objetos soplo General 4 Jueves, 08 Octobre 2009, 13:22 Ver último mensaje
soplo
No hay nuevos mensajes Observador De Objetos aristicol Controles/Librerías/Componentes 4 Domingo, 21 Noviembre 2010, 03:25 Ver último mensaje
aristicol
No hay nuevos mensajes Consulta Acerca De Una Matriz De Objetos: ... santijav General 6 Jueves, 21 Abril 2011, 05:14 Ver último mensaje
soplo
No hay nuevos mensajes Objetos Drawningarea agrgal Controles/Librerías/Componentes 5 Jueves, 27 Octobre 2011, 20:51 Ver último mensaje
jguardon
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario



  

 

cron