Busco para desarrollar video juego diseñadores modeladores músicos

[marcoantap]

Hola. ¿alguien ha jugado Dungeon keper alguna vez? Tengo una idea para crear un juego de estrategia/rompecabezas, que se juega por turnos, no en tiempo real, donde el jugador controla un grupo de caballeros, y estos deben atravesar un castillo esquivando las trampas que encuentren en su camino. Los caballeros se mueven como piezas en un tablero. La idea es hacerlo sencillo, divertido y especialmente adictivo.

El proyecto inicialmente no es remunerado, pero si es necesario yo puedo hacer toda la parte de programación, montaje de la interfaz, y los efectos (fuego, explosiones, y otras partículas). La idea es vender el juego en la web, y que entremos en una sociedad para repartir las ganancias según el porcentaje de trabajo de los miembros del equipo. Ya tengo arreglado el asunto de los pagos por internet.

El plan inicial es el siguiente:
1. Reclutar diseñadores que creen la interfaz del juego. Pueden trabajar en Adobe Photoshop o Fireworks, yo me encargaría de recortar todo y montarlo con CS3. Para comenzar hay que diseñar:
1.1. Pagina de inicio de la web.
1.2. Pagina de registro de jugadores.
1.3. Pagina del cliente del juego.
1.4. Interfaz del jugador.
2. Reclutar modeladores 3d que creen personajes y armas. Todos los personajes deben tener animación de caminata, ataque y muerte. Para comenzar hay que modelar:
2.1. Caballero sin armadura, ligero, pero vulnerable.
2.2. Caballero con armadura ligera.
2.3. Caballero con armadura pesada, lento, pero resistente.
2.4. Y algunos monstruos, como dragones, lobos, etc. Podemos decidirlo más adelante.
3. Reclutar músicos para las tonadas de fondo. La música debe ser de suspenso, y necesitamos ayuda con los efectos de sonido, gritos, etc.

Espero que les guste la idea, anímense a participar. Mi correo es marcoantap@gmail.com. Si tienen alguna pregunta urgente pueden contactarme por Skype con la cuenta marcoantap.
nuevo. Galería del proyecto: http://wcu.co/n_. Saludos.

Marco.

[aprendiz]

Vaya, creo que deberías olvidarte de página web de momento y centrarte en el juego en si. Pero es solo mi opinión. Suerte.

[marcoantap]

Gracias aprendiz. Ciertamente el juego es lo más importante, pero ya estoy trabajando en éste. Toma un poco de tiempo armar un equipo, así que, para cuando las gráficas y la música estén listas, ya habré acabado y tendré tiempo de construir la web según el diseño.

[marcoantap]

Gracias aprendiz. Ciertamente el juego es lo más importante, pero ya estoy trabajando en éste, por el lado de la programación. Formar un grupo de trabajo lleva tiempo, así que, para cuando los diseños estén listos podré construir la página web, por eso la estoy planeando por adelantado.

[aprendiz]

Ya, cada uno tiene su modo de trabajo, por cierto, en que lenguaje/motor lo estas programando?

[marcoantap]

Pues primero te cuento mis antecedentes en este mundo de la programación. Llevo varios años desarrollando, y ya he acumulado más de 5 años en flash as2/as3, 2 años en Unity 3d, y anteriormente trabajé en Blitz3d durante un par de años, pero lo dejé cuando salió blitzplus. Por otro lado, he programado con las apis DirectX y OpenGL, mediante C++ (visual Studio) y object pascal (lazarus/fpc/Delphi). También tengo varios años trabajando en php y java para las aplicaciones del servidor. Hoy en día me divierto programando en html5 y su canvas. Vengo de la era del dos, cuando programabas las tarjetas ega con assembly x86 y te rompias la cabeza pensando en 4 planos de color. Todavía conservo algunas de mis bibliotecas open-source aquí: http://gamelix.com/opensource/.

En Unity 3d hice una herramienta para comunicar flash con Unity, por medio de javascript: http://forum, Unity 3d.com/threads/1...Unity-flash%29.

Y volviendo a tu pregunta, estuve pensando en hacer el juego en html5, porque quiero que corra en el ipad, pero no quiero irme por el ITunes. Sin embargo, me pone a dudar el asunto de la obfuscación del código, porque pueden hackear los mapas del juego y no hay mucha confianza en la comunicación cliente-servidor. Entonces me fui por Unity, con el que es más fácil lograr un resultado profesional. Cuando el juego esté listo creo que voy a hacer una versión móvil para los ipad en html5.

[aprendiz]

Vaya, bonita historia digna de recordar. Algún día llegaré a tanto. Yo de momento estoy con Blitz3d, hay todo feliz. Más adelante me pondré en serio con DirectX o OpenGL (seguramente OpenGL). Bueno, pues sabiendo todo eso también podrás hacer lo que quieras, así que, no vas a necesitar suerte.

[marcoantap]

Pues yo estaba husmeando en el tema que abriste al lado, y me parece que tienes un nivel bastante bueno antes uno perdía mucho tiempo descubriendo como poner un punto en la pantalla, con las tecnologías de ahora te puedes dedicar a lo que originalmente querías hacer: desarrollo de videojuegos. Si me pidieras un consejo te diría que no te metas con DirectX o OpenGL, mejor trata de saltar a la siguiente tecnología más moderna, digamos cosas para dispositivos móviles, y que te permita trabajar de la manera más sencilla y rápida posible. En este momento estaríamos hablando de Unity 3d, mañana quien sabe que saldrá. Y si quieres irte al bajo nivel, puedes aprender las tecnologías de redes (protocolos, encriptación de transmisiones, etc). Te digo esto, porque muchas veces cuando yo terminaba de dominar una tecnología, la siguiente aparecía y todo mi trabajo se volvía obsoleto. Además, guarda imágenes y videos de todo lo que hagas. Aunque los motores dejen de correr, cuando quieras buscar un empleo en el área, buscar inversores para tus proyectos, o simplemente rememorar tus trabajos, todas estas muestras se volverán muy útiles. Bueno, eso es lo que yo haría si volviera en el tiempo.

[aprendiz]

Bueno se hace lo que se puede, de momento sin ánimo de lucro, y por el único objetivo de aprender. Gracias por el consejo, pero me apasionan los bajos niveles, no por otra razón que la de comprender, si pudiera seguiría estudiando desde el transistor hasta cómo funciona un microprocesador, (que de hecho, lo he echo, pero debido a los costes que supone el desarrollo con componentes físicos, me pase a la programación en donde haces todo con un solo programa, aunque algún día retomare los circuitos). Gracias también por lo de guardar videos etc, seguiré el consejo.

Y respecto a lo de que tu trabajo se vuelve obsoleto, en cierto modo sí, pero lo que aprendiste mientras desarrollabas proyectos antiguos nadie te lo quita, y en la programación lo que más cuenta es la lógica/practica que vas cogiéndole, que cambian los códigos, bueno, se aprenden las instrucciones nuevas, pero la lógica la sigues teniendo, así que, no hiciste nada en vano (de hecho, nunca se hace nada en vano), y más sabiendo tantos lenguajes como sabes.

[marcoantap]

Parece que estamos hablando el mismo idioma. Yo también estudié micro-electrónica, pero programar siempre ha sido mi pasión y, además resultó ser más rentable.

Bueno, si tanto te interesa la programación de bajo nivel te recomiendo el fpc: http://www.frepascal.org/.

Es tan poderoso como C++, pero pascal es más amable con el programador. Especialmente si te mueves de basic a pascal, te será mucho más fácil. Y si alguna vez te animas a trabajar con DX y OGL, tal vez quieras darme una mano con un motor que he venido creando desde hace varios años, y que ya he probado en Windows, Mac OS y Linux. Este es el módulo de inicialización gráfico, para que te hagas una idea de la sintaxis:

//==============================================================================
// escenas, pas (ec_).
// copyright (c) 2009 marco Antonio Alvarado Pérez.
//.
// lenguaje: object pascal (fpc).
// define las estructuras de la escena y su flujo de pintado.
//==============================================================================
{$include opciones, inc}.

Unit escenas.
{$mode objfpc}{$h+}.

Interface.

Uses.
{$ifdef grf_directx}.
// clotie DirectX headers.

Direct3d9, d3dx9.
{$endif}.
{$ifdef grf_opengl}.
// OpenGL.

Openglcontext, gl, glu, glext.
{$endif}.

Classes, sysutils.
// Morphs.

Depuración, textos, cálculos, gráficos, transferencias, interpretes, colores.

Medios, objetos, datos, imágenes, recursos, interfases.

Type.

Ec_cboceto = class.

Ec_cobjetoescena = class.
{ ec_cpintor }.

Ec_cpintor = class.

Public.

Procedure pintaboceto (const boceto: ec_cboceto), virtual.

End.
{ ec_cpintorcontrol }.

Ec_cpintorcontrol = class(ec_cpintor).

Public.

Procedure pintaboceto (const boceto: ec_cboceto), override.

End.
{ ec_ctrazo }.

Ec_ctrazo = class.

Public.

Transformación: gf_rmatriz4x4.

Texturas: md_artextura.

Filtrostexturas: md_aefiltrotextura.

End.

Ec_pctrazo =ec_ctrazo.

Ec_actrazo = array of ec_ctrazo.
{ ec_ctrazoplano }.

Ec_ctrazoplano = class(ec_ctrazo).

Public.

Vértices: gf_arverticeplano.

End.
{ ec_cboceto }.

Ec_cboceto = class.

Public.

Trazos: ec_actrazo.

Pintor: ec_cpintor.

Constructor create (const _pintor: ec_cpintor).

Destructor destroy, override.

Procedure pinta.

End.

Ec_pcboceto =ec_cboceto.

Ec_acboceto = array of ec_cboceto.
{ ec_cbocetocontrol }.

Ec_cbocetocontrol = class(ec_cboceto).

Public.

Procedure boceta (const control: if_cobjetocontrol, const transformación:
Gf_rmatriz4x4, out visible, toque: bolean).

End.
{ ec_cobjetoescena }.

Ec_cobjetoescena = class(oj_cobjeto).

Public.

Pintorcontrol: ec_cpintorcontrol.

Bocetos: ec_acboceto.

Fondo: cl_ra8r8g8b8.

Constructor create, override.

Destructor destroy, override.

Procedure actualiza.

End.

Var.

Ec_claseescena: ucs4string.

Implementation.

Uses.
// Morphs.

Aplicaciones.
//------------------------------------------------------------------
{ ec_cpintor }.
//------------------------------------------------------------------
//------------------------------------------------------------------

Procedure ec_cpintor. Pintaboceto (.

Const boceto: ec_cboceto).

Begin.

If boceto = nil then.
// implementado por los descendientes.

End.
//------------------------------------------------------------------
{ ec_cpintorcontrol }.
//------------------------------------------------------------------
//------------------------------------------------------------------

Procedure ec_cpintorcontrol. Pintaboceto (.

Const boceto: ec_cboceto).

Var.

Trazo, fintrazo: ec_pctrazo.

Textura, fintextura: md_prtextura.

Itextura: longint.

Filtrotextura: md_pefiltrotextura.

Trazo: ec_ctrazoplano.
{$ifdef grf_directx}.

Dispositivo: idirect3device9.

Capacidades: td3dcaps9.
{$endif}.
{$ifdef grf_opengl}.

Vértice, finvertice: gf_prverticeplano.
{$endif}.

Begin.

If not (boceto is ec_cboceto) or (length(boceto. Trazos) <= 0) then.

Exit.

Trazo := @boceto. Trazos[0].

Fintrazo := @boceto. Trazos[length(boceto. Trazos)].
While trazo < fintrazo do.

Begin.

Ec_ctrazo (_trazo) := trazo.

If length(_trazo. Vértices) <= 0 then.

Begin.

Trazo += 1.

Continue.

End.
{$ifdef grf_directx}.

Dispositivo := ap_aplicación. Pantalla. Dispositivo.

Dispositivo. Getdevicecaps(capacidades).

Dispositivo. Beginscene.
// desactiva la luz y la prueba de profundidad.

Dispositivo. Setrenderstate (d3drs_lighting, longword(false)).

Dispositivo. Setrenderstate (d3drs_zenable, longword(false)).
// activa la transparencia, e impide que los puntos con alfa < 1 se dibujen.

Dispositivo. Setrenderstate (d3drs_alphablendenable, longword(true)).

Dispositivo. Setrenderstate (d3drs_srcblend, d3dblend_srcalpha).

Dispositivo. Setrenderstate (d3drs_destblend, d3dblend_invsrcalpha).

Dispositivo. Setrenderstate (d3drs_alphatestenable, longword(false)).
{ /.\ no parece necesario /.

Dispositivo. Setrenderstate (d3drs_alphatestenable, longword(true)).

Dispositivo. Setrenderstate (d3drs_alpharef, 1).

Dispositivo. Setrenderstate (d3drs_alphafunc, d3dcmp_greaterequal), }.

If length(_trazo. Texturas) > 0 then.

Begin.

Textura := @_trazo. Texturas[0].

Fintextura := @_trazo. Texturas[length(_trazo. Texturas)].

Itextura := 0.

Filtrotextura := @_trazo. Filtrostexturas[0].
While textura < fintextura do.

Begin.

Dispositivo. Settexture (itextura, textura. Textura).
// establece el tratamiento de color de la textura.

Dispositivo. Settexturestagestate (itextura, d3dts_colorop.

D3dtop_modulate).

Dispositivo. Settexturestagestate (itextura, d3dts_colorarg1.

D3dta_texture).

Dispositivo. Settexturestagestate (itextura, d3dts_colorarg2.

D3dta_difuse).

Dispositivo. Settexturestagestate (itextura, d3dts_alphaop.

D3dtop_selectarg1).

Dispositivo. Settexturestagestate (itextura, d3dts_alpharg1.

D3dta_texture).
// establece el filtro de suavizamiento de las texturas con la distancia.

If filtrostextura = md_filtro_textura_lineal then.

Begin.

Dispositivo. Setsamplerstate (itextura, d3dsamp_minfilter.

D3dtexf_linear).

Dispositivo. Setsamplerstate (itextura, d3dsamp_magfilter.

D3dtexf_linear).

Dispositivo. Setsamplerstate (itextura, d3dsamp_mipfilter.

D3dtexf_linear).

End.

Else.

Begin.

Dispositivo. Setsamplerstate (itextura, d3dsamp_minfilter, d3dtexf_none).

Dispositivo. Setsamplerstate (itextura, d3dsamp_magfilter, d3dtexf_none).

Dispositivo. Setsamplerstate (itextura, d3dsamp_mipfilter, d3dtexf_none).

End.
// establece la extensión de las texturas.

Dispositivo. Setsamplerstate (itextura, d3dsamp_adresu, d3dtadres_wrap).

Dispositivo. Setsamplerstate (itextura, d3dsamp_adresv, d3dtadres_wrap).
// activa las transformaciones para las coordenadas 2d de las texturas.

Dispositivo. Settexturestagestate (itextura, d3dts_texturetransformflags.

D3dtf_count2).

Textura += 1.

Itextura += 1.

Filtrotextura += 1.

End.

End.
// establece las transformaciones.

Dispositivo. Settransform(d3dts_world, td3dmatrix(_trazo. Transformación)).
// dibuja el cuadro con el diseño en z para DirectX.

Dispositivo. Setfvf(gf_formato_vertice_plano).

Dispositivo. Drawprimitiveup(d3dpt_trianglestrip, length(_trazo. Vértices).

Trazo. Vértices[0], sizeof(gf_rverticeplano)).

Dispositivo. Endscene.
{$endif}.
{$ifdef grf_opengl}.
// desactiva la luz y la prueba de profundidad.

Gldisable (gl_lighting).

Gldisable (gl_depth_test).
// activa la transparencia, e impide que los puntos con alfa < 0.1 se dibujen.

Glenable (gl_texture_2d).

Glenable (gl_blend).

Glblendfunc(gl_src_alpha, gl_one_minus_src_alpha).

Gldisable (gl_alpha_test).
{ /.\ no parece necesario /.

Glenable (gl_alpha_test).

Glalphafunc(gl_greater, 0.1), }.

If length(_trazo. Texturas) > 0 then.

Begin.

Textura := @_trazo. Texturas[0].

Fintextura := @_trazo. Texturas[length(_trazo. Texturas)].

Itextura := 0.

Filtrotextura := @_trazo. Filtrostexturas[0].
While textura < fintextura do.

Begin.

Glbindtexture (gl_texture_2d, textura. Textura).
// establece el tratamiento de color de la textura.
// glactivetexture (gl_texture0+itextura), // glactivetexture = nil?
Gltexenvf(gl_texture_env, gl_texture_env_mode, gl_combine).

Gltexenvf(gl_texture_env, gl_combine_rgb, gl_modulate).

Gltexenvf(gl_texture_env, gl_source0_rgb, gl_texture).

Gltexenvf(gl_texture_env, gl_operand0_rgb, gl_src_color).

Gltexenvf(gl_texture_env, gl_combine_alpha, gl_replace).

Gltexenvf(gl_texture_env, gl_source0_alpha, gl_texture).

Gltexenvf(gl_texture_env, gl_operand0_alpha, gl_src_alpha).
// establece el filtro de suavizamiento de las texturas con la distancia.

If filtrotextura = md_filtro_textura_lineal then.

Begin.

Gltexparameterf(gl_texture_2d, gl_texture_min_filter.

Gl_linear_mipmap_linear).

Gltexparameterf(gl_texture_2d, gl_texture_mag_filter, gl_linear).

End.

Else.

Begin.

Gltexparameterf(gl_texture_2d, gl_texture_min_filter, gl_nearest).

Gltexparameterf(gl_texture_2d, gl_texture_mag_filter, gl_nearest).

End.
// establece la extensión de las texturas.

Gltexparameterf(gl_texture_2d, gl_texture_wrap_s, gl_repeat).

Gltexparameterf(gl_texture_2d, gl_texture_wrap_t, gl_repeat).

Textura += 1.

Itextura += 1.

Filtrotextura += 1.

End.

End.
// establece las transformaciones.

Glmatrixmode (gl_projection).

Glloadidentity.

Glortho (0, ap_aplicación. Pantalla. Ancho, ap_aplicación. Pantalla. Alto, 0, 0.
1).

Glmatrixmode (gl_modelview).

Glloadmatrixf(@_trazo. Transformación).

If length(_trazo. Vértices) > 0 then.

Begin.
// dibuja el cuadro cambiando el diseño en z para DirectX, por uno de reloj.

Glbegin(gl_quads).

Vértice := @_trazo. Vértices[0].

Finvertice := @_trazo. Vértices[length(_trazo. Vértices)].
While vértice < finvertice do.

Begin.

Gltexcord2f(vértice. T.x, vértice. T. Y).

Glvertex2f(vértice. P.x, vértice. P. Y).

Vértice += 1.

End.

End.

Glend.
{$endif}.

Trazo += 1.

End.

End.
//------------------------------------------------------------------
{ ec_cboceto }.
//------------------------------------------------------------------
//------------------------------------------------------------------

Constructor ec_cboceto. Create (.

Const _pintor: ec_cpintor).

Begin.

Inherited create.

Pintor := _pintor.

End.
//------------------------------------------------------------------

Destructor ec_cboceto. Destroy.

Var.

Trazo, fintrazo: ec_pctrazo.

Begin.

If length(trazos) > 0 then.

Begin.

Trazo := @trazos[high(trazos)].

Fintrazo := @trazos[0].
While trazo >= fintrazo do.

Begin.

Trazo. Fre.

Trazo -= 1.

End.

End.

Inherited.

End.
//------------------------------------------------------------------

Procedure ec_cboceto. Pinta.

Begin.

Pintor. Pintaboceto (self).

End.
//------------------------------------------------------------------
{ ec_cbocetocontrol }.
//------------------------------------------------------------------
//------------------------------------------------------------------

Procedure ec_cbocetocontrol. Boceta (.

Const control: if_cobjetocontrol.

Const transformación: gf_rmatriz4x4.

Out visible.

Toque: bolean).

Var.

Fuente: if_cobjetofuente.

Margenizquierda, margenarriba, margenderecha, margenabajo, espaciado.

Bordeizquierda, bordearriba, bordederecha, bordeabajo: extended.

Anchotexto, altotexto, altoopcion, bordeopcion: extended.

Imagen, imagenfuente: im_cimagen.

Imagen: rc_cobjetoimagen.

Cuadros: oj_acenlace.

Cuadro: if_cobjetocuadro.

X1, x2, x3, x4, y1, y2, y3, y4, XT, yt: extended.

Trazo: ec_ctrazoplano.

Eopcion, efinopcion: oj_pcenlace.

Opción: if_cobjetoopcion.

Nodo: dt_cobjetonodo.
//------------------------------------------------------------------

Procedure agregatrazo.

Var.

Itrazo: longint.

Begin.

Trazo := ec_ctrazoplano. Create.

Trazo. Transformación := control. Transformación.

Itrazo := length(trazos).

Setlength(trazos, itrazo+1).

Trazos[itrazo] := trazo.

End.
//------------------------------------------------------------------

Procedure agregatextura (.

Const imagen: im_cimagen).

Var.

Itextura: longint.

Begin.

If not (imagen is im_cimagen) then.

Exit.

Itextura := length(trazo. Texturas).

Setlength(trazo. Texturas, itextura+1).

Setlength(trazo. Filtrostexturas, itextura+1).

Trazo. Texturas[itextura] := imagen. Generatextura.

Trazo. Filtrostexturas[itextura] := md_efiltrotextura (control. Filtro. Valor).

End.
//------------------------------------------------------------------

Procedure agregacuadro (.

Const cuadro: oj_cobjeto.

Const x1, y1, x2, y2: extended).

Var.

Cuadro: if_cobjetocuadro.

Begin.

If not (cuadro is if_cobjetocuadro) then texit.

Oj_cobjeto (_cuadro) := cuadro.

Gf_agregacuadroplano (x1, y1, x2-x1, y2-y1, _cuadro.x. Valor, _cuadro. Y.

Valor, _cuadro. Ancho. Valor, _cuadro. Alto. Valor, imagen. Tomaancho.

Imagen. Tomaalto, nil, nil, trazo. Vértices).

End.
//------------------------------------------------------------------

Procedure agregatexto (.

Const texto: ucs4string.

X, y: extended).

Var.

Stexto, sfintexto: pucs4char.

Ancho, ascenso, alto: extended.

Simbolo: if_cobjetosimbolo.

Begin.

If length(texto) <= 0 then.

Exit.

Stexto := @texto[0].

Sfintexto := @texto[length(texto)].
While stexto < sfintexto do.

Begin.

Simbolo := fuente. Buscasimbolo (stexto).

If not (_simbolo is if_cobjetosimbolo) then.

Begin.

Stexto += 1.

Continue.

End.

Ancho := _simbolo. Ancho. Valor.

Ascenso := _simbolo. Ascenso. Valor.

Alto := ascenso+_simbolo. Descenso. Valor.

Gf_agregacuadroplano (x, y-ascenso, ancho, alto, _simbolo.x. Valor.

Simbolo. Y. Valor-ascenso, ancho, alto, imagen. Tomaancho, imagen.

Tomaalto, nil, nil, trazo. Vértices).

If bolean(fuente. Proporcional. Valor) then.

X += ancho+fuente. Espaciado. Valor.

Else.

X += fuente. Ancho. Valor+fuente. Espaciado. Valor.

Stexto += 1.

End.

End.
//------------------------------------------------------------------

Procedure agreganodo (.

Const nodo: dt_cobjetonodo.

Const atributo: ucs4string.

Const x: extended.

Var y: extended.

Const ancho, alto: extended).

Var.

Enodo, efinnodo: oj_pcenlace.

Nodo: dt_cobjetonodo.

Begin.

If not (nodo is dt_cobjetonodo) or (length(nodo. Nodos. Referencias) <= 0) tthen.

Exit.

Enodo := @nodo. Nodos. Referencias[0].

Efinnodo := @nodo. Nodos. Referencias[length(nodo. Nodos. Referencias)].
While enodo < efinnodo do.

Begin.

If y > alto then.

Break.

Oj_cobjeto (_nodo) := enodo. Objeto.

If not (_nodo is dt_cobjetonodo) then.

Begin.

Enodo += 1.

Continue.

End.

Agregatexto (_nodo. Tomaatributo (atributo, nil), x, y).

Y += altoopcion.

Agreganodo (_nodo, atributo, x+espaciado y, ancho, alto).

Enodo += 1.

End.

End.

Begin.

Visible := false.

Tok := false.

If not (control is if_cobjetocontrol) then.

Exit.

If if_extraeestado (control. Tema. Valor, control. Aspecto. Valor, control.

Estado. Valor, margenizquierda, margenarriba, margenderecha, margenabajo.

Espaciado, bordeizquierda, bordearriba, bordederecha, bordeabajo, imagen.

Cuadros, fuente, imagenfuente) = false then.

Begin.

If control is if_cobjetocursor then.

Begin.

If bolean(if_cobjetocursor(control). Visible. Valor) = false then.

Md_ocultacursor.

Else.

Md_muestracursor(md_evaluacursor(if_cobjetocursor(control). Aspecto.

Valor)).

End.

Exit.

End.

If control is if_cobjetocursor then.

Begin.

If bolean(control. Visible. Valor) then.

Begin.

If length(cuadros) < 1 then.

Exit.

Control. Transformación := gf_multiplica (transformación.

Gf_creamatriz4x4traslada (ap_aplicación. Entrada.xcursor, ap_aplicacion.

Entrada. Ycursor, 0, false)).

Visible := true.

Agregatrazo.

Agregatextura (imagen).

Oj_cobjeto (cuadro) := cuadros[0]. Objeto.

X1 := -bordeizquierda.

Y1 := -bordearriba.

X2 := x1+cuadro. Ancho. Valor.

Y2 := y1+cuadro. Alto. Valor.

Agregacuadro (cuadro, x1, y1, x2, y2).

Md_ocultacursor.

End.

Else.

Begin.

Md_muestracursor(md_cursor_normal).

End.

End.

Else if control is if_cobjetopanel then.

Begin.

If bolean(control. Visible. Valor) then.

Begin.

If length(cuadros) < 9 then.

Exit.

Control. Transformación := gf_multiplica (transformación.

Gf_creamatriz4x4traslada (if_cobjetopanel(control).x. Valor.

If_cobjetopanel(control). Y. Valor, 0, false)).

Visible := true.

Agregatrazo.

Agregatextura (imagen).

Oj_cobjeto (cuadro) := cuadros[0]. Objeto.

X1 := -bordeizquierda.

Y1 := -bordearriba.

X2 := x1+cuadro. Ancho. Valor.

Y2 := y1+cuadro. Alto. Valor.

Oj_cobjeto (cuadro) := cuadros[8]. Objeto.

X4 := if_cobjetopanel(control). Ancho. Valor+bordederecha.

Y4 := if_cobjetopanel(control). Alto. Valor+bordeabajo.
NX3 := x4-cuadro. Ancho. Valor.

Y3 := y4-cuadro. Alto. Valor.

Agregacuadro (cuadros[0]. Objeto, x1, y1, x2, y2).

Agregacuadro (cuadros[1]. Objeto, x2, y1, x3, y2).

Agregacuadro (cuadros[2]. Objeto, x3, y1, x4, y2).

Agregacuadro (cuadros[3]. Objeto, x1, y2, x2, y3).

Agregacuadro (cuadros[4]. Objeto, x2, y2, x3, y3).

Agregacuadro (cuadros[5]. Objeto, x3, y2, x4, y3).

Agregacuadro (cuadros[6]. Objeto, x1, y3, x2, y4).

Agregacuadro (cuadros[7]. Objeto, x2, y3, x3, y4).

Agregacuadro (cuadros[8]. Objeto, x3, y3, x4, y4).

Tok := ap_aplicación. Entrada. Toca (control).

End.

End.

Else if control is if_cobjetoetiqueta then.

Begin.

If bolean(control. Visible. Valor) then.

Begin.

Control. Transformación := gf_multiplica (transformación.

Gf_creamatriz4x4traslada (if_cobjetoetiqueta (control).x. Valor.

If_cobjetoetiqueta (control). Y. Valor, 0, false)).

Visible := true.

Agregatrazo.

Agregatextura (imagenfuente).

If_alineatexto (if_cobjetoetiqueta (control). Texto. Valor, if_ealineacion(.

If_cobjetoetiqueta (control). Alineación. Valor), fuente, XT, yt).

Xt := trunc(xt).

Yt := trunc(yt).

Agregatexto (if_cobjetoetiqueta (control). Texto. Valor, XT, yt).

Tok := ap_aplicación. Entrada. Toca (control).

End.

End.

Else if control is if_cobjetobotón then.

Begin.

If bolean(control. Visible. Valor) then.

Begin.

If length(cuadros) < 9 then.

Exit.

Control. Transformación := gf_multiplica (transformación.

Gf_creamatriz4x4traslada (if_cobjetoboton(control).x. Valor.

If_cobjetoboton(control). Y. Valor, 0, false)).

Visible := true.

Agregatrazo.

Agregatextura (imagen).

Oj_cobjeto (cuadro) := cuadros[0]. Objeto.

X1 := -bordeizquierda.

Y1 := -bordearriba.

X2 := x1+cuadro. Ancho. Valor.

Y2 := y1+cuadro. Alto. Valor.

Oj_cobjeto (cuadro) := cuadros[8]. Objeto.

X4 := if_cobjetopanel(control). Ancho. Valor+bordederecha.

Y4 := if_cobjetopanel(control). Alto. Valor+bordeabajo.
NX3 := x4-cuadro. Ancho. Valor.

Y3 := y4-cuadro. Alto. Valor.

Agregacuadro (cuadros[0]. Objeto, x1, y1, x2, y2).

Agregacuadro (cuadros[1]. Objeto, x2, y1, x3, y2).

Agregacuadro (cuadros[2]. Objeto, x3, y1, x4, y2).

Agregacuadro (cuadros[3]. Objeto, x1, y2, x2, y3).

Agregacuadro (cuadros[4]. Objeto, x2, y2, x3, y3).

Agregacuadro (cuadros[5]. Objeto, x3, y2, x4, y3).

Agregacuadro (cuadros[6]. Objeto, x1, y3, x2, y4).

Agregacuadro (cuadros[7]. Objeto, x2, y3, x3, y4).

Agregacuadro (cuadros[8]. Objeto, x3, y3, x4, y4).

Agregatrazo.

Agregatextura (imagenfuente).

If_alineatexto (if_cobjetoboton(control). Texto. Valor.

If_alineacion_centro_mitad, fuente, XT, yt).

Xt := trunc(xt+if_cobjetoboton(control). Ancho. Valor/2).

Yt := trunc(yt+if_cobjetoboton(control). Alto. Valor/2).

Agregatexto (if_cobjetoboton(control). Texto. Valor, XT, yt).

Tok := ap_aplicación. Entrada. Toca (control).

End.

End.

Else if control is if_cobjetomarcador then.

Begin.

If bolean(control. Visible. Valor) then.

Begin.

If length(cuadros) < 1 then.

Exit.

Control. Transformación := gf_multiplica (transformación.

Gf_creamatriz4x4traslada (if_cobjetomarcador(control).x. Valor.

If_cobjetomarcador(control). Y. Valor, 0, false)).

Visible := true.

Agregatrazo.

Agregatextura (imagen).

Oj_cobjeto (cuadro) := cuadros[0]. Objeto.

X1 := -bordeizquierda.

Y1 := -bordearriba.

X2 := cuadro. Ancho. Valor+bordederecha.

Y2 := cuadro. Alto. Valor+bordeabajo.

If_cobjetomarcador(control). Ancho. Valor := cuadro. Ancho. Valor.

If_cobjetomarcador(control). Alto. Valor := cuadro. Alto. Valor.

Agregacuadro (cuadro, x1, y1, x2, y2).

Tok := ap_aplicación. Entrada. Toca (control).

End.

End.

Else if control is if_cobjetoelección then.

Begin.

If bolean(control. Visible. Valor) then.

Begin.

If length(cuadros) < 1 then.

Exit.

Control. Transformación := gf_multiplica (transformación.

Gf_creamatriz4x4traslada (if_cobjetoeleccion(control).x. Valor.

If_cobjetoeleccion(control). Y. Valor, 0, false)).

Visible := true.

Agregatrazo.

Agregatextura (imagen).

Oj_cobjeto (cuadro) := cuadros[0]. Objeto.

X1 := -bordeizquierda.

Y1 := -bordearriba.

X2 := cuadro. Ancho. Valor+bordederecha.

Y2 := cuadro. Alto. Valor+bordeabajo.

If_cobjetoeleccion(control). Ancho. Valor := cuadro. Ancho. Valor.

If_cobjetoeleccion(control). Alto. Valor := cuadro. Alto. Valor.

Agregacuadro (cuadro, x1, y1, x2, y2).

Tok := ap_aplicación. Entrada. Toca (control).

End.

End.

Else if control is if_cobjetomenú then.

Begin.

If bolean(control. Visible. Valor) then.

Begin.

If length(cuadros) < 15 then.

Exit.

Control. Transformación := gf_multiplica (transformación.

Gf_creamatriz4x4traslada (if_cobjetomenu (control).x. Valor.

If_cobjetomenu (control). Y. Valor, 0, false)).

Visible := true.

Altotexto := fuente. Ascenso. Valor+fuente. Descenso. Valor.

Altoopcion := altotexto+espaciado.

Anchotexto := 0.

If length(if_cobjetomenu (control). Opciones. Referencias) > 0 then.

Begin.

Eopcion := @if_cobjetomenu (control). Opciones. Referencias[0].

Efinopcion := @if_cobjetomenu (control). Opciones. Referencias[length(.

If_cobjetomenu (control). Opciones. Referencias)].
While eopcion < efinopcion do.

Begin.

Oj_cobjeto (opción) := eopcion. Objeto.

If not (opción is if_cobjetoopcion) then.

Begin.

Eopcion += 1.

Continue.

End.

Anchotexto := cc_mayor(anchotexto, fuente. Mideanchotexto (opción. Texto.

Valor)).

Eopcion += 1.

End.

End.

If_cobjetomenu (control). Ancho. Valor := margenizquierda+anchotexto+.

Margenderecha.

If_cobjetomenu (control). Alto. Valor := margenarriba+altoopcion*length(.

If_cobjetomenu (control). Opciones. Referencias)-espaciado+margenabajo.

Agregatrazo.

Agregatextura (imagen).

Oj_cobjeto (cuadro) := cuadros[0]. Objeto.

X1 := -bordeizquierda.

Y1 := -bordearriba.

X2 := x1+cuadro. Ancho. Valor.

Y2 := y1+cuadro. Alto. Valor.

Oj_cobjeto (cuadro) := cuadros[8]. Objeto.

X4 := if_cobjetomenu (control). Ancho. Valor+bordederecha.

Y4 := if_cobjetomenu (control). Alto. Valor+bordeabajo.
NX3 := x4-cuadro. Ancho. Valor.

Y3 := y4-cuadro. Alto. Valor.

Agregacuadro (cuadros[0]. Objeto, x1, y1, x2, y2).

Agregacuadro (cuadros[1]. Objeto, x2, y1, x3, y2).

Agregacuadro (cuadros[2]. Objeto, x3, y1, x4, y2).

Agregacuadro (cuadros[3]. Objeto, x1, y2, x2, y3).

Agregacuadro (cuadros[4]. Objeto, x2, y2, x3, y3).

Agregacuadro (cuadros[5]. Objeto, x3, y2, x4, y3).

Agregacuadro (cuadros[6]. Objeto, x1, y3, x2, y4).

Agregacuadro (cuadros[7]. Objeto, x2, y3, x3, y4).

Agregacuadro (cuadros[8]. Objeto, x3, y3, x4, y4).

If cc_dentro (if_cobjetomenu (control). Iopcion, length(if_cobjetomenu (.

Control). Opciones. Referencias)) = 0 then.

Begin.

Bordeopcion := espaciado/2.

Oj_cobjeto (cuadro) := cuadros[9]. Objeto.

X1 := -bordeizquierda.

Y1 := margenarriba+altoopcion*if_cobjetomenu (control). Iopcion-.

Bordeopcion-bordearriba.

X2 := x1+cuadro. Ancho. Valor.

Y2 := y1+altotexto+bordeopcion*2.

Oj_cobjeto (cuadro) := cuadros[11]. Objeto.

X4 := if_cobjetomenu (control). Ancho. Valor+bordederecha.
NX3 := x4-cuadro. Ancho. Valor.

Agregacuadro (cuadros[9]. Objeto, x1, y1, x2, y2).

Agregacuadro (cuadros[10]. Objeto, x2, y1, x3, y2).

Agregacuadro (cuadros[11]. Objeto, x3, y1, x4, y2).

End.

Oj_cobjeto (cuadro) := cuadros[12]. Objeto.

X1 := -bordeizquierda.

Y1 := margenarriba+cc_centra (cuadro. Alto. Valor, altoopcion)-bordearriba.

X2 := x1+cuadro. Ancho. Valor.

Y2 := y1+cuadro. Alto. Valor.

Oj_cobjeto (cuadro) := cuadros[14]. Objeto.

X4 := if_cobjetomenu (control). Ancho. Valor+bordederecha.
NX3 := x4-cuadro. Ancho. Valor.

If length(if_cobjetomenu (control). Opciones. Referencias) > 0 then.

Begin.

Eopcion := @if_cobjetomenu (control). Opciones. Referencias[0].

Efinopcion := @if_cobjetomenu (control). Opciones. Referencias[length(.

If_cobjetomenu (control). Opciones. Referencias)].
While eopcion < efinopcion do.

Begin.

Oj_cobjeto (opción) := eopcion. Objeto.

If not (opción is if_cobjetoopcion) then.

Begin.

Eopcion += 1.

Continue.

End.

If length(opción. Texto. Valor) <= 0 then.

Begin.

Agregacuadro (cuadros[12]. Objeto, x1, y1, x2, y2).

Agregacuadro (cuadros[13]. Objeto, x2, y1, x3, y2).

Agregacuadro (cuadros[14]. Objeto, x3, y1, x4, y2).

End.

Y1 += altoopcion.

Y2 += altoopcion.

Eopcion += 1.

End.

End.

Agregatrazo.

Agregatextura (imagenfuente).

Xt := margenizquierda.

Yt := margenarriba+fuente. Ascenso. Valor.

If length(if_cobjetomenu (control). Opciones. Referencias) > 0 then.

Begin.

Eopcion := @if_cobjetomenu (control). Opciones. Referencias[0].

Efinopcion := @if_cobjetomenu (control). Opciones. Referencias[length(.

If_cobjetomenu (control). Opciones. Referencias)].
While eopcion < efinopcion do.

Begin.

Oj_cobjeto (opción) := eopcion. Objeto.

If not (opción is if_cobjetoopcion) then.

Begin.

Eopcion += 1.

Continue.

End.

Agregatexto (opción. Texto. Valor, XT, yt).

Yt += altoopcion.

Eopcion += 1.

End.

End.

Tok := ap_aplicación. Entrada. Toca (control).

End.

End.

Else if control is if_cobjetodesplazador then.

Begin.

If bolean(control. Visible. Valor) then.

Begin.

If length(cuadros) < 9 then.

Exit.

Control. Transformación := gf_multiplica (transformación.

Gf_creamatriz4x4traslada (if_cobjetodesplazador(control).x. Valor.

If_cobjetodesplazador(control). Y. Valor, 0, false)).

Visible := true.

Agregatrazo.

Agregatextura (imagen).

Oj_cobjeto (cuadro) := cuadros[0]. Objeto.

X1 := -bordeizquierda.

Y1 := -bordearriba.

X2 := x1+cuadro. Ancho. Valor.

Y2 := y1+cuadro. Alto. Valor.

Oj_cobjeto (cuadro) := cuadros[8]. Objeto.

X4 := if_cobjetopanel(control). Ancho. Valor+bordederecha.

Y4 := if_cobjetopanel(control). Alto. Valor+bordeabajo.
NX3 := x4-cuadro. Ancho. Valor.

Y3 := y4-cuadro. Alto. Valor.

Agregacuadro (cuadros[0]. Objeto, x1, y1, x2, y2).

Agregacuadro (cuadros[1]. Objeto, x2, y1, x3, y2).

Agregacuadro (cuadros[2]. Objeto, x3, y1, x4, y2).

Agregacuadro (cuadros[3]. Objeto, x1, y2, x2, y3).

Agregacuadro (cuadros[4]. Objeto, x2, y2, x3, y3).

Agregacuadro (cuadros[5]. Objeto, x3, y2, x4, y3).

Agregacuadro (cuadros[6]. Objeto, x1, y3, x2, y4).

Agregacuadro (cuadros[7]. Objeto, x2, y3, x3, y4).

Agregacuadro (cuadros[8]. Objeto, x3, y3, x4, y4).

Tok := ap_aplicación. Entrada. Toca (control).

End.

End.

Else if control is if_cobjetocampo then.

Begin.

If bolean(control. Visible. Valor) then.

Begin.

If length(cuadros) < 9 then.

Exit.

Control. Transformación := gf_multiplica (transformación.

Gf_creamatriz4x4traslada (if_cobjetocampo (control).x. Valor.

If_cobjetocampo (control). Y. Valor, 0, false)).

Visible := true.

Altotexto := fuente. Ascenso. Valor+fuente. Descenso. Valor.

Agregatrazo.

Agregatextura (imagen).

Oj_cobjeto (cuadro) := cuadros[0]. Objeto.

X1 := -bordeizquierda.

Y1 := -bordearriba.

X2 := x1+cuadro. Ancho. Valor.

Y2 := y1+cuadro. Alto. Valor.

Oj_cobjeto (cuadro) := cuadros[8]. Objeto.

X4 := if_cobjetopanel(control). Ancho. Valor+bordederecha.

Y4 := if_cobjetopanel(control). Alto. Valor+bordeabajo.
NX3 := x4-cuadro. Ancho. Valor.

Y3 := y4-cuadro. Alto. Valor.

Agregacuadro (cuadros[0]. Objeto, x1, y1, x2, y2).

Agregacuadro (cuadros[1]. Objeto, x2, y1, x3, y2).

Agregacuadro (cuadros[2]. Objeto, x3, y1, x4, y2).

Agregacuadro (cuadros[3]. Objeto, x1, y2, x2, y3).

Agregacuadro (cuadros[4]. Objeto, x2, y2, x3, y3).

Agregacuadro (cuadros[5]. Objeto, x3, y2, x4, y3).

Agregacuadro (cuadros[6]. Objeto, x1, y3, x2, y4).

Agregacuadro (cuadros[7]. Objeto, x2, y3, x3, y4).

Agregacuadro (cuadros[8]. Objeto, x3, y3, x4, y4).

Agregatrazo.

Agregatextura (imagenfuente).

Xt := margenizquierda.

Yt := margenarriba+fuente. Ascenso. Valor.

Agregatexto (if_cobjetocampo (control). Texto. Valor, XT, yt).

Tok := ap_aplicación. Entrada. Toca (control).

End.

End.

Else if control is if_cobjetohoja then.

Begin.

If bolean(control. Visible. Valor) then.

Begin.

If length(cuadros) < 9 then.

Exit.

Control. Transformación := gf_multiplica (transformación.

Gf_creamatriz4x4traslada (if_cobjetohoja (control).x. Valor.

If_cobjetohoja (control). Y. Valor, 0, false)).

Visible := true.

Agregatrazo.

Agregatextura (imagen).

Oj_cobjeto (cuadro) := cuadros[0]. Objeto.

X1 := -bordeizquierda.

Y1 := -bordearriba.

X2 := x1+cuadro. Ancho. Valor.

Y2 := y1+cuadro. Alto. Valor.

Oj_cobjeto (cuadro) := cuadros[8]. Objeto.

X4 := if_cobjetopanel(control). Ancho. Valor+bordederecha.

Y4 := if_cobjetopanel(control). Alto. Valor+bordeabajo.
NX3 := x4-cuadro. Ancho. Valor.

Y3 := y4-cuadro. Alto. Valor.

Agregacuadro (cuadros[0]. Objeto, x1, y1, x2, y2).

Agregacuadro (cuadros[1]. Objeto, x2, y1, x3, y2).

Agregacuadro (cuadros[2]. Objeto, x3, y1, x4, y2).

Agregacuadro (cuadros[3]. Objeto, x1, y2, x2, y3).

Agregacuadro (cuadros[4]. Objeto, x2, y2, x3, y3).

Agregacuadro (cuadros[5]. Objeto, x3, y2, x4, y3).

Agregacuadro (cuadros[6]. Objeto, x1, y3, x2, y4).

Agregacuadro (cuadros[7]. Objeto, x2, y3, x3, y4).

Agregacuadro (cuadros[8]. Objeto, x3, y3, x4, y4).

Tok := ap_aplicación. Entrada. Toca (control).

End.

End.

Else if control is if_cobjetoarbol then.

Begin.

If bolean(control. Visible. Valor) then.

Begin.

If length(cuadros) < 12 then.

Exit.

Control. Transformación := gf_multiplica (transformación.

Gf_creamatriz4x4traslada (if_cobjetoarbol(control).x. Valor.

If_cobjetoarbol(control). Y. Valor, 0, false)).

Visible := true.

Altotexto := fuente. Ascenso. Valor+fuente. Descenso. Valor.

Altoopcion := altotexto+espaciado.

Agregatrazo.

Agregatextura (imagen).

Oj_cobjeto (cuadro) := cuadros[0]. Objeto.

X1 := -bordeizquierda.

Y1 := -bordearriba.

X2 := x1+cuadro. Ancho. Valor.

Y2 := y1+cuadro. Alto. Valor.

Oj_cobjeto (cuadro) := cuadros[8]. Objeto.

X4 := if_cobjetopanel(control). Ancho. Valor+bordederecha.

Y4 := if_cobjetopanel(control). Alto. Valor+bordeabajo.
NX3 := x4-cuadro. Ancho. Valor.

Y3 := y4-cuadro. Alto. Valor.

Agregacuadro (cuadros[0]. Objeto, x1, y1, x2, y2).

Agregacuadro (cuadros[1]. Objeto, x2, y1, x3, y2).

Agregacuadro (cuadros[2]. Objeto, x3, y1, x4, y2).

Agregacuadro (cuadros[3]. Objeto, x1, y2, x2, y3).

Agregacuadro (cuadros[4]. Objeto, x2, y2, x3, y3).

Agregacuadro (cuadros[5]. Objeto, x3, y2, x4, y3).

Agregacuadro (cuadros[6]. Objeto, x1, y3, x2, y4).

Agregacuadro (cuadros[7]. Objeto, x2, y3, x3, y4).

Agregacuadro (cuadros[8]. Objeto, x3, y3, x4, y4).

Oj_cobjeto (nodo) := if_cobjetoarbol(control). Datos. Referencia. Objeto.

If nodo is dt_cobjetonodo then.

Begin.

If nodo. Iselección >= 0 then.

Begin.

Bordeopcion := espaciado/2.

Oj_cobjeto (cuadro) := cuadros[9]. Objeto.

X1 := -bordeizquierda.

Y1 := margenarriba+altoopcion*nodo. Iselección-bordeopcion-bordearriba.

X2 := x1+cuadro. Ancho. Valor.

Y2 := y1+altotexto+bordeopcion*2.

Oj_cobjeto (cuadro) := cuadros[11]. Objeto.

X4 := if_cobjetoarbol(control). Ancho. Valor+bordederecha.
NX3 := x4-cuadro. Ancho. Valor.

Agregacuadro (cuadros[9]. Objeto, x1, y1, x2, y2).

Agregacuadro (cuadros[10]. Objeto, x2, y1, x3, y2).

Agregacuadro (cuadros[11]. Objeto, x3, y1, x4, y2).

End.

Agregatrazo.

Agregatextura (imagenfuente).

Xt := margenizquierda.

Yt := margenarriba+fuente. Ascenso. Valor.

Agreganodo (nodo, if_cobjetoarbol(control). Atributo. Valor, XT, yt.

If_cobjetoarbol(control). Ancho. Valor, if_cobjetoarbol(control). Alto.

Valor).

End.

Tok := ap_aplicación. Entrada. Toca (control).

End.

End.

Else if control is if_cobjetovisor then.

Begin.

If bolean(control. Visible. Valor) then.

Begin.

If length(cuadros) < 9 then.

Exit.

Control. Transformación := gf_multiplica (transformación.

Gf_creamatriz4x4traslada (if_cobjetovisor(control).x. Valor.

If_cobjetovisor(control). Y. Valor, 0, false)).

Visible := true.

Agregatrazo.

Agregatextura (imagen).

Oj_cobjeto (cuadro) := cuadros[0]. Objeto.

X1 := -bordeizquierda.

Y1 := -bordearriba.

X2 := x1+cuadro. Ancho. Valor.

Y2 := y1+cuadro. Alto. Valor.

Oj_cobjeto (cuadro) := cuadros[8]. Objeto.

X4 := if_cobjetopanel(control). Ancho. Valor+bordederecha.

Y4 := if_cobjetopanel(control). Alto. Valor+bordeabajo.
NX3 := x4-cuadro. Ancho. Valor.

Y3 := y4-cuadro. Alto. Valor.

Agregacuadro (cuadros[0]. Objeto, x1, y1, x2, y2).

Agregacuadro (cuadros[1]. Objeto, x2, y1, x3, y2).

Agregacuadro (cuadros[2]. Objeto, x3, y1, x4, y2).

Agregacuadro (cuadros[3]. Objeto, x1, y2, x2, y3).

Agregacuadro (cuadros[4]. Objeto, x2, y2, x3, y3).

Agregacuadro (cuadros[5]. Objeto, x3, y2, x4, y3).

Agregacuadro (cuadros[6]. Objeto, x1, y3, x2, y4).

Agregacuadro (cuadros[7]. Objeto, x2, y3, x3, y4).

Agregacuadro (cuadros[8]. Objeto, x3, y3, x4, y4).

Oj_cobjeto (_imagen) := if_cobjetovisor(control). Imagen. Referencia. Objeto.

If (_imagen is rc_cobjetoimagen) and (length(_imagen, imágenes) > 0) then.

Begin.

Imagen := _imagen, imágenes[0].

Agregatrazo.

Agregatextura (imagen).

Case if_evista (if_cobjetovisor(control). Vista. Valor) of.

If_vista_area: gf_agregacuadroplano (x1, y1, x4-x1, y4-y1.

If_cobjetovisor(control).xvista. Valor, if_cobjetovisor(control).

Yvista. Valor, if_cobjetovisor(control). Anchovista. Valor.

If_cobjetovisor(control). Altovista. Valor, imagen. Tomaancho, imagen.

Tomaalto, nil, nil, trazo. Vértices).

Else.

Gf_agregacuadroplano (x1, y1, x4-x1, y4-y1, 0, 0, imagen. Tomaancho.

Imagen. Tomaalto, imagen. Tomaancho, imagen. Tomaalto, nil, nil, trazo.

Vértices).

End.

End.

Tok := ap_aplicación. Entrada. Toca (control).

End.

End.

Else if control is if_cobjetoventana then.

Begin.

If bolean(control. Visible. Valor) then.

Begin.

If length(cuadros) < 9 then.

Exit.

Control. Transformación := gf_multiplica (transformación.

Gf_creamatriz4x4traslada (if_cobjetoventana (control).x. Valor.

If_cobjetoventana (control). Y. Valor, 0, false)).

Visible := true.

Agregatrazo.

Agregatextura (imagen).

Oj_cobjeto (cuadro) := cuadros[0]. Objeto.

X1 := -bordeizquierda.

Y1 := -bordearriba.

X2 := x1+cuadro. Ancho. Valor.

Y2 := y1+cuadro. Alto. Valor.

Oj_cobjeto (cuadro) := cuadros[8]. Objeto.

X4 := if_cobjetopanel(control). Ancho. Valor+bordederecha.

Y4 := if_cobjetopanel(control). Alto. Valor+bordeabajo.
NX3 := x4-cuadro. Ancho. Valor.

Y3 := y4-cuadro. Alto. Valor.

Agregacuadro (cuadros[0]. Objeto, x1, y1, x2, y2).

Agregacuadro (cuadros[1]. Objeto, x2, y1, x3, y2).

Agregacuadro (cuadros[2]. Objeto, x3, y1, x4, y2).

Agregacuadro (cuadros[3]. Objeto, x1, y2, x2, y3).

Agregacuadro (cuadros[4]. Objeto, x2, y2, x3, y3).

Agregacuadro (cuadros[5]. Objeto, x3, y2, x4, y3).

Agregacuadro (cuadros[6]. Objeto, x1, y3, x2, y4).

Agregacuadro (cuadros[7]. Objeto, x2, y3, x3, y4).

Agregacuadro (cuadros[8]. Objeto, x3, y3, x4, y4).

Tok := ap_aplicación. Entrada. Toca (control).

End.

End.

End.
//------------------------------------------------------------------
{ ec_cobjetoescena }.
//------------------------------------------------------------------
//------------------------------------------------------------------

Constructor ec_cobjetoescena. Create.

Begin.

Inherited.

Clase := ec_claseescena.

Fondo := cl_creaa8r8g8b8(0, $77, $77, $77).

Pintorcontrol := ec_cpintorcontrol. Create.

End.
//------------------------------------------------------------------

Destructor ec_cobjetoescena. Destroy.

Var.

Boceto, finboceto: ec_pcboceto.

Begin.

Pintorcontrol. Fre.

If length(bocetos) > 0 then.

Begin.

Boceto := @bocetos[high(bocetos)].

Finboceto := @bocetos[0].
While boceto >= finboceto do.

Begin.

Boceto. Fre.

Boceto -= 1.

End.

End.

Inherited.

End.
//------------------------------------------------------------------

Procedure ec_cobjetoescena. Actualiza.

Var.

Boceto, finboceto: ec_pcboceto.

Color: cl_rcolor.

Visible, toque: bolean.

Cursor: if_cobjetocursor.
//------------------------------------------------------------------

Procedure bocetacontrol(.

Const control: if_cobjetocontrol.

Const transformación: gf_rmatriz4x4.

Out visible.

Toque: bolean).

Var.

Boceto: ec_cbocetocontrol.

Iboceto: longint.

Begin.

If not (control is if_cobjetocontrol) then.

Exit.

Boceto := ec_cbocetocontrol. Create (pintorcontrol).

Boceto. Boceta (control, transformación, visible, toque).

Iboceto := length(bocetos).

Setlength(bocetos, iboceto+1).

Bocetos[iboceto] := _boceto.

End.
//------------------------------------------------------------------
// boceta los controles recursivamente.

Procedure bocetacontroles(.

Const controles: oj_cobjetoarreglo.

Const transformación: gf_rmatriz4x4).

Var.

Econtrol, efincontrol: oj_pcenlace.

Control: if_cobjetocontrol.

Visible, toque: bolean.

Cursor: if_cobjetocursor.

Begin.

If length(controles. Referencias) <= 0 then.

Exit.

Econtrol := @controles. Referencias[0].

Efincontrol := @controles. Referencias[length(controles. Referencias)].
While econtrol < efincontrol do.

Begin.

Oj_cobjeto (control) := econtrol. Objeto.

If not (control is if_cobjetocontrol) or (control is if_cobjetocursor).

Then.

Begin.

Econtrol += 1.

Continue.

End.

Bocetacontrol(control, transformación, visible, toque).

If tok then.

Begin.

Cursor := ap_aplicación. Interfase. Cursor.

Cursor. Tema. Valor := control. Tema. Valor.

Cursor. Aspecto. Valor := control. Cursor. Valor.

End.

If visible then.

Bocetacontroles(control. Controles, control. Transformación).

Econtrol += 1.

End.

End.

Begin.
// limpia la pantalla.
{$ifdef grf_directx}.

Ap_aplicación. Pantalla. Dispositivo. Clear(0, nil, d3dclear_target or.

D3dclear_zbufer, fondo. C, 1, 0).
{$endif}.
{$ifdef grf_opengl}.

Color := cl_creacolor(fondo).

Glclearcolor(color. R, color. G, color. B, color. A).

Glclear(gl_color_bufer_bit or gl_depth_bufer_bit).
{$endif}.

If length(bocetos) > 0 then.

Begin.
// borra los bocetos anteriores.

Boceto := @bocetos[high(bocetos)].

Finboceto := @bocetos[0].
While boceto >= finboceto do.

Begin.

Boceto. Fre.

Boceto -= 1.

End.

Bocetos := nil.

End.
// boceta los controles dejando los superiores al final del arreglo para que se.
// dibujen por encima.

Ap_aplicación. Entrada. Iniciatoque.

Cursor := ap_aplicación. Interfase. Cursor.

Cursor. Tema. Valor := ap_aplicación. Interfase. Temafondo. Valor.

Cursor. Aspecto. Valor := ap_aplicación. Interfase. Cursor fondo. Valor.

Bocetacontroles(ap_aplicación. Interfase. Controles, gf_matriz4x4_identidad).

Bocetacontrol(ap_aplicación. Interfase. Cursor, gf_matriz4x4_identidad, visible.

Toque).

Ap_aplicación. Entrada. Controla.

If length(bocetos) > 0 then.

Begin.
// pinta los bocetos.

Boceto := @bocetos[0].

Finboceto := @bocetos[length(bocetos)].
While boceto < finboceto do.

Begin.

Boceto. Pinta.

Boceto += 1.

End.

End.
// muestra la pintura.
{$ifdef grf_directx}.

Ap_aplicación. Pantalla. Dispositivo. Present(nil, nil, 0, nil).
{$endif}.
{$ifdef grf_opengl}.

Ap_aplicación. Pantalla. Dispositivo. Swapbuffers.
{$endif}.

End.
//------------------------------------------------------------------

Procedure ec_inicia.

Begin.

Ec_claseescena := cscene.

Oj_registraclasenatural(ec_claseescena, ec_cobjetoescena).

End.

Initialization.

Ec_inicia.

End.

[aprendiz]

Vaya, me encanta ver eso (me debí ver el código como 3 veces, y aún lo sigo viendo,) porque me da más ganas de seguir adelante con la programación para llegar a tu nivel amigo. Tengo varias metas, y entre ellas esta crear un motor gráfico, veo que tú ya llegaste, y me encanta ver cómo todo es posible.

Sinceramente entiendo bien poco, y si no te importa resolverme unas cuantas dudas.
¿A qué te refieres con la clase ec_cboceto? Que es el boceto?
Como se usa el punto y coma, porque no le encuentro lógica, a veces esta después de sentencias y otras no, no lo entiendo.

Que significa el ¿puntero quizás? ¿y porque aparece antes y a veces después de variables?
Nil equivale a null?
Las funciones que pone GL al principio están echas ya?
Y bueno no te pregunto más porque podía llenar varias páginas.

Sabes de algún manual en español de esto porque más adelante lo voy a necesitar para entender como trabaja.

Yo aprendo rápido, sobre todo cuando tengo objetivo fijado, y en un principio ver ese código para mí es frustrante, pero si tu puedes, con esfuerzo yo también y está claro que podre.

Posdata: cada vez me gusta más programar viendo este tipo de cosas, tío, te has echo un motor.

Edito: si puedes poner otro modulo, me gustaría ver el de colisiones (en concreto esfera a polígono) y si no es mucho pedir me lo explicas? Llevo tiempo queriendo entender y hacer una colisión esfera polígono, los vectores los manejo algo y lo más que llegue es a conseguir detectar una esfera con un polígono y que la esfera se pare, pero no fui capaz de conseguir que la esfera resbale por el polígono, y ni te cuento si choca con dos polígonos a la vez, siempre atraviesa uno de ellos.
(Aprovecho que hablo con alguien como tu para preguntar).

[marcoantap]

Bueno, digamos que lo que hice es el fundamento para el motor gráfico. Si se le pone un compilador para un lenguaje de programación, se convertiría en un Blitz multiplataforma. Aún me faltan algunas cosas, como animaciones por huesos, más importadores de archivos 3d, y mejoras en los Shaders. Por eso necesito una mano.

Lo de boceto es simplemente una clase de la que se deriva cualquier otra clase que represente un objeto en 3d. Luego la clase pintor se encarga de dibujar los bocetos. Debido a que este motor utiliza DX y OGL, se requiere crear estas clases intermedias que manejan la geometría de forma genérica.

Sabía que te iba a gustar object pascal. Manejar el punto y coma en pascal es sencillo, pero tendrías que mirar un manual del lenguaje para aprender a usarlo. Tienes razón con el, cuando se pone adelante es para definir tipos punteros, y cuando esta atrás es para referirse al contenido apuntado por el puntero, nil es equivalente a null como dices. Además, el símbolo @ se usar para obtener la posición en memoria de una variable.

Esas funciones con GL adelante son de OpenGL, que vienen listas en las bibliotecas: openglcontext, gl, glu, glext. Y algunas bibliotecas DirectX son: direct3d9, d3dx9. Para OGL llamas funciones, y para DX instancias objetos y llamas a sus métodos. Las constantes de DX suelen comenzar con d3d, o cosas así. Para trabajar en estas apis necesitas tener referencias cerca para consultarlas constantemente. Los identificadores en pascal y en las referencias suelen ser los mismos, así que, no hay forma de perderse.

Mira las funciones de colisiones son pura geometría, y me refiero a que son complicadas. Te puedo enseñar los fundamentos, pero en este caso es mejor que te consigas un libro sobre el tema. Aquí te dejo un módulo que hice, pero fue para el motor que es el prototipo del que te mostré arriba. Veras la complejidad de la que hablo. Este módulo hice en el transcurso de varias semanas, estudiando detenidamente el libro real-time collision detection. Y sucede un detalle, que hoy en día las colisiones son aceleradas por hardware. Solo la parte de las colisiones es como desarrollar otro motor, es un gran proyecto, y al final descubrirás que es mejor dejarle el trabajo a la aceleradora, como la aegis physics. No importa que tan buenas sean tus funciones no podrás superar al hardware.

Este archivo es uno de los gordos, veamos si este foro lo aguanta.

//==============================================================================
// mundano.
// motor de multimedios.
//.
// copyright (c) 2005-2009 marco Antonio Alvarado Pérez.
//.
// mchoque, pas (ch_).
// detecta colisiones entre gráficos.
//==============================================================================
// notas.
//.
// los algoritmos están basados en el libro:
// * real-time collision detection.
//==============================================================================
{$include mdefine, inc}.

Unit mchoque.

Interface.
//------------------------------------------------------------------

Uses.
// mundano:
Mdepura.

Marreglo.

Mcomun.

Mcalculo.

Mgráfico.
// Delphi:
{$ifdef cmp_delphi}.
{$ifdef plt_windows}.

Math.
{$endif}.
{$endif}.
// free pascal compiler:
{$ifdef cmp_fpc}.
{$ifdef plt_windows}.
{$endif}.
{$ifdef plt_unix}.
{$endif}.
{$ifdef plt_dos}.
{$endif}.
{$endif}.
//------------------------------------------------------------------

Type.
//.
// esferas (bounding Spheres).

Ch_resfera = récord.

C: gr_rvector3d; // centro.

R: single; // radio.

End.
//.
// cajas alineadas al eje (axis-aligned bounding boxes, ab).
//.
// *------------ *------------ -.
// | | | | | |.
// | | | | | | | |.
// | | |<----+---->| | *---->|.
// | | | | | | |.
// | | | v | | |.
// -* - -.
// cajaeje1 cajaeje2 cajaeje3.
//.

Ch_rcajaeje1 = récord.

Menor, mayor: gr_rvector3d; // punto menor y punto mayor.

End.

Ch_rcajaeje2 = récord.

Menor: gr_rvector3d; // punto menor.

D: gr_rvector3d; // diámetro.

End.

Ch_rcajaeje3 = récord.

C: gr_rvector3d; // centro.

R: gr_rvector3d; // radio.

End.
//.
// cajas de orientación libre (oriented bounding boxes, ob).

Ch_arejescajalibre = array [0.2] of gr_rvector3d.

Ch_rcajalibre = récord.

C: gr_rvector3d; // centro.

U: ch_arejescajalibre; // ejes locales.

R: gr_rvector3d; // radios sobre cada eje.

End.
//.
// politopues de orientación discretea (discrete-orientation polytopes, k-dop).

Ch_rpolitopo = récord.

Menores, mayores: ar_adsingle; // distancias desde el origen sobre los.
// ejes 0 a 3.

End.
//.
// capsulas (sphere-swept volumes, sv).

Ch_rcapsula = packed récord.

A, b: gr_rvector3d; // inicio y fin del segmento.

R: single; // radio.

End.
//.
// segmentos.

Procedure ch_mascercapuntosegmento (const p1, s1, s2: gr_rvector3d.

Var t: single, VAR p: gr_rvector3d).

Function ch_mascercasegmentosegmento (const sa1, sa2, sb1, sb2: gr_rvector3d.

Var, t: single, VAR p1, p2: gr_rvector3d): single.

Function ch_distanciacuadradapuntosegmento (const, s1, s2: gr_rvector3d):
Single.

Function ch_distanciacuadradasegmentosegmento (const sa1, sa2, sb1, sb2:
Gr_rvector3d): single.
//.
// planos.

Function ch_mascercapuntoplano (const p1: gr_rvector3d, const p2: gr_rplano3d.

Var p: gr_rvector3d, planonormalizado: bolean = false): single.

Function ch_distanciapuntoplano (const p1: gr_rvector3d, const p2: gr_rplano3d.

Planonormalizado: bolean = false): single.
//.
// triángulos.

Function ch_puntoentriángulo (const, t1, t2, t3: gr_rvector3d): bolean.

Procedure ch_mascercapuntotriángulo (const p1, t1, t2, t3: gr_rvector3d.

Var p: gr_rvector3d).
//.
// rectángulos.

Function ch_mascercapuntorectángulo (const p1: gr_rvector3d, const r:
Gr_rrectánguloaxial3d, VAR p: gr_rvector3d): single.

Function ch_distanciacuadradapuntorectángulo (const p1: gr_rvector3d, const r:
Gr_rrectánguloaxial3d): single.
//.
// tetrahedro.

Procedure ch_mascercapuntotetrahedro (const p1, p1, p2, p3, p4:
Gr_rvector3d, VAR p: gr_rvector3d).
//.
// esferas.

Function ch_creaesfera (const c: ch_rcajaeje1): ch_resfera, overload.

Function ch_creaesfera (const e: ch_resfera, const p: gr_rvector3d): ch_resfera.

Overload.

Function ch_creaesferacajaeje (const puntos: gr_adrvector3d): ch_resfera.

Function ch_creaesferaritter(const puntos: gr_adrvector3d): ch_resfera.

Function ch_creaesferaeigen(const puntos: gr_adrvector3d): ch_resfera.

Function ch_creaesferarittereigen(const puntos: gr_adrvector3d): ch_resfera.

Function ch_creaesferaritteriterativa (const puntos: gr_adrvector3d):
Ch_resfera.

Function ch_esferaenplano (const e: ch_resfera, const p: gr_rplano3d): bolean.
//.
// cajas alineadas al eje (axis-aligned bounding boxes, ab).

Function ch_creacajaeje1: ch_rcajaeje1, overload.

Function ch_creacajaeje1(const p: gr_rvector3d): ch_rcajaeje1, overload.

Function ch_creacajaeje1(const p1, p2: gr_rvector3d): ch_rcajaeje1, overload.

Function ch_creacajaeje3(const c, r: gr_rvector3d): ch_rcajaeje3, overload.

Function ch_une (const c: ch_rcajaeje1, const p: gr_rvector3d):
Ch_rcajaeje1, overload.

Function ch_une (const c1, c2: ch_rcajaeje1): ch_rcajaeje1, overload.

Function ch_expande (const c: ch_rcajaeje1, a: single): ch_rcajaeje1.

Function ch_volumen(const c: ch_rcajaeje1): single.

Function ch_ejemayor(const c: ch_rcajaeje1): integer.

Function ch_transforma (const t: gr_rtransformación, const c: ch_rcajaeje1):
Ch_rcajaeje1, overload.

Function ch_actualizacajaeje1(const c: ch_rcajaeje1, const m: gr_rmatriz3x3.

Const t: gr_rvector3d): ch_rcajaeje1, overload.

Function ch_actualizacajaeje3(const c: ch_rcajaeje3, const m: gr_rmatriz3x3.

Const t: gr_rvector3d): ch_rcajaeje3, overload.

Procedure ch_puntosmasseparadoscajaeje (VAR menor, mayor: integer, const puntos:
Gr_adrvector3d).

Procedure ch_mascercapuntocajaeje (const p1: gr_rvector3d, const c:
Ch_rcajaeje1, VAR p: gr_rvector3d).

Function ch_distanciacuadradapuntocajaeje (const p1: gr_rvector3d, const c:
Ch_rcajaeje1): single.
//.
// cajas de orientación libre (oriented bounding boxes, ob).

Function ch_mascercapuntocajalibre (const p1: gr_rvector3d, const c:
Ch_rcajalibre, VAR p: gr_rvector3d): single.

Function ch_distanciacuadradapuntocajalibre (const p1: gr_rvector3d, const c:
Ch_rcajalibre): single.
//.
// politopues de orientación discretea (discrete-orientation polytopes, k-dop).

Function ch_creapolitopo8: ch_rpolitopo, overload.

Function ch_creapolitopo8(const puntos: gr_adrvector3d): ch_rpolitopo.

Overload.
//.
// pruebas de contenido (c), intersección (i) y traslapamiento (t):
//.
// c.
// u.
// a.
// t TD de p.
// s s r r re r c a p p o.
// e e i i i i i l c o o l.
// g g a ap l l e i a l l i.
// p m l p mp n n nl a í s n l p í i h.
// u e e í r l el g g ga te n f ce CI s g te e.
// n n n n a da u u un e de e a ab u o o d.
// te t2 te e y n in l2 l lo r r r jd jr l n p r.
// o od o a o o o od o os o o a After Effects a o o o.
// +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+.
// punto | | | | | | | |c |c | | | | | | | |c | |t |.
// | | | | | | | | | | | | | | | | | | | |.
// +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+.
// segmento | |t | | | | | | | | | | | | | | | | | |.
// 2d | | | | | | | | | | | | | | | | | | | |.
// +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+.
// segmento | | | | | |i | | |i |i | |i | |t | | | | |i |.
// | | | | | | | | | | | | | | | | | | | |.
// +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+.
// línea | | | | | | | | |i | |i | | | | | | | | |.
// | | | | | | | | | | | | | | | | | | | |.
// +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+.
// rayo | | | | | | | | |i | | | |it|i | | | | | |.
// | | | | | | | | | | | | | | | | | | | |.
// +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+.
// plano | | | | | |i | | | | | | | |t | | | | | |.
// | | | | | | | | | | | | | | | | | | | |.
// +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+.
// triángulo | | | | | | | | |t | | | | |t | | | | | |.
// | | | | | | | | | | | | | | | | | | | |.
// +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+.
// esfera | | | | | |t |t | |t | | | |t |t |t |t |t | | |.
// | | | | | | | | | | | | | | | | | | | |.
// +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+.
// caja |c | | | | |t | | | | | | | |t | | | | | |.
// alienada | | | | | | | | | | | | | | | | | | | |.
// +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+.
// caja | | | | | |t | | | | | | | | |t | | | | |.
// libre | | | | | | | | | | | | | | | | | | | |.
// +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+.
// capsula | | | | | | | | | | | | | | | |t | | | |.
// | | | | | | | | | | | | | | | | | | | |.
// +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+.
// politopo | | | | | | | | | | | | | | | | | |t | |.
// | | | | | | | | | | | | | | | | | | | |.
// +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+.
//.

Function ch_contienepuntotriángulo2dcontrareloj(const, t1, t2, t3:
Gr_rvector2d): bolean.

Function ch_contienepuntotriángulo2d(const, t1, t2, t3: gr_rvector2d):
Bolean.

Function ch_contienepuntotriángulocontrareloj(const p: gr_rvector3d, t1, t2.

T3: gr_rvector3d): bolean.

Function ch_contienepuntopoligono (const p1: gr_rvector3d, const p2:
Gr_rpoligono3d): bolean.

Function ch_traslapapuntopolihedro (const p: gr_rvector3d, const planos:
Gr_adrplano3d, planonormalizado: bolean = false): bolean.

Function ch_traslapasegmento2dsegmento2d(const sa1, sa2, sb1, sb2:
Gr_rvector2d, VAR t: single, VAR p: gr_rvector2d): bolean.

Function ch_intersecasegmentoplano (const s1, s2: gr_rvector3d, const p1:
Gr_rplano3d, VAR t: single, VAR p: gr_rvector3d): bolean.

Function ch_intersecasegmentotriángulo (const s1, s2, t1, t2, t3: gr_rvector3d.

Var u, v, w, t: single): bolean.

Function ch_intersecasegmentotriánguloplanos(const s1, s2: gr_rvector3d, const.

T1: gr_rtriánguloplanar3d, VAR u, v, w, t: single, VAR s: gr_rvector3d):
Bolean.

Function ch_traslapasegmentocajaeje1(const s1, s2: gr_rvector3d, const c:
Ch_rcajaeje1): bolean.

Function ch_intersecasegmentocilindro (const s1, s2, c1, c2: gr_rvector3d, r:
Single, VAR t: single): bolean.

Function ch_intersecasegmentopolihedro (const s1, s2: gr_rvector3d, const planos:
Gr_adrplano3d, VAR tprimero, tultimo: single): bolean.

Function ch_intersecalineatriángulo (const l1, l2, t1, t2, t3: gr_rvector3d, VAR.

U, v, w: single): bolean.

Function ch_intersecalineacuadrilaterocontrareloj(const l1, l2, c1, c2, c3, c4:
Gr_rvector3d, VAR p: gr_rvector3d): bolean.

Function ch_intersecarayotriángulo (const o, d, t1, t2, t3: gr_rvector3d, VAR t.

U, v: single): bolean.

Function ch_intersecarayoesfera (const o: gr_rvector3d, const d: gr_rvector3d.

Const e: ch_resfera, VAR t: single, VAR p: gr_rvector3d): bolean.

Function ch_traslaparayoesfera (const o: gr_rvector3d, const d: gr_rvector3d.

Const e: ch_resfera): bolean.

Function ch_intersecarayocajaeje1(const o: gr_rvector3d, const d: gr_rvector3d.

Const c: ch_rcajaeje1, VAR tmenor: single, VAR p: gr_rvector3d): bolean.

Function ch_intersecaplanoplano (const p1, p2: gr_rplano3d, VAR p: gr_rvector3d.

Var d: gr_rvector3d): bolean.

Function ch_intersecaplanoplanoplano (const p1, p2, p3: gr_rplano3d, VAR p:
Gr_rvector3d): bolean.

Function ch_traslapaplanocajaeje3(const p: gr_rplano3d, const c: ch_rcajaeje3):
Bolean.

Function ch_intersecatriángulotriángulo (const ta1, ta2, ta3, tb1, tb2, tb3:
Gr_rvector3d): bolean.

Function ch_traslapatriángulocajaeje3(const t1, t2, t3: gr_rvector3d, const c:
Ch_rcajaeje3): bolean.

Function ch_traslapaesferaplano (const e: ch_resfera, const p: gr_rplano3d):
Bolean.

Function ch_traslapaesferamedioplano (const e: ch_resfera, const p:
Gr_rplano3d): bolean.

Function ch_traslapaesferatriángulo (const e: ch_resfera, const t1, t2, t3:
Gr_rvector3d, VAR p: gr_rvector3d): bolean.

Function ch_traslapaesferaesfera (const e1, e2: ch_resfera): bolean.

Function ch_traslapaesferacajaeje1(const e: ch_resfera, const c: ch_rcajaeje1):
Bolean, overload.

Function ch_traslapaesferacajaeje1(const e: ch_resfera, const c: ch_rcajaeje1.

Var p: gr_rvector3d): bolean, overload.

Function ch_traslapaesferacajalibre (const e: ch_resfera, const c:
Ch_rcajalibre, VAR p: gr_rvector3d): bolean.

Function ch_traslapaesferacapsula (const e: ch_resfera, const c: ch_rcapsula):
Bolean.

Function ch_traslapaesferapoligono (const e: ch_resfera, const p:
Gr_rpoligono3d): bolean.

Function ch_contienecajaeje1punto (const c: ch_rcajaeje1, const p:
Gr_rvector3d): bolean.

Function ch_traslapacajaeje1plano (const c: ch_rcajaeje1, const p: gr_rplano3d):
Bolean.

Function ch_traslapacajaeje1cajaeje1(const c1, c2: ch_rcajaeje1): bolean.

Function ch_traslapacajaeje2cajaeje2(const c1, c2: ch_rcajaeje2): bolean.

Function ch_traslapacajaeje3cajaeje3(const c1, c2: ch_rcajaeje3): bolean.

Function ch_traslapacajalibreplano (const c: ch_rcajalibre, const p:
Gr_rplano3d): bolean.

Function ch_traslapacajalibrecajalibre (const c1, c2: ch_rcajalibre): bolean.

Function ch_traslapacapsulacapsula (const c1, c2: ch_rcapsula): bolean.

Function ch_traslapapolitopopolitopo (const p1, p2: ch_rpolitopo): bolean.

Implementation.
//------------------------------------------------------------------
// segmentos.
//------------------------------------------------------------------
//------------------------------------------------------------------

Procedure ch_mascercapuntosegmento (.

Const p1, // punto.

S1, s2: gr_rvector3d; // puntos que limitan el segmento.

Var t: single; // posición del punto sobre el segmento.

Var p: gr_rvector3d // punto sobre el segmento, más cercano a p1).

Var.

Ab: gr_rvector3d.

Begin.

Ab := gr_resta (s2, s1).

T := gr_productopunto (gr_resta (p1, s1), ab)/gr_productopunto (ab, ab).

T := cc_limita (t, 0, 1).

P := gr_suma (s1, gr_multiplica (ab, t)).

End.
//------------------------------------------------------------------

Function ch_mascercasegmentosegmento (.

Const sa1, sa2, // puntos que limitan el segmento a.

Sb1, sb2: gr_rvector3d; // puntos que limitan el segmento b.

Var, t: single; // parámetros de los segmentos.

Var p1, p2: gr_rvector3d // puntos más cercanos.
): single; // distancia cuadrada entre s1(s) y s2(t).

Var.

D1, d2, r: gr_rvector3d.

A, f, c, b, d: single.

Begin.

D1 := gr_resta (sa2, sa1).

D2 := gr_resta (sb2, sb1).

R := gr_resta (sa1, sb1).

A := gr_productopunto (d1, d1).

E := gr_productopunto (d2, d2).

F := gr_productopunto (d2, r).

If (a <= gr_epsilon) and (e <= gr_epsilon) then.

Begin.

S := 0.

T := 0.

P1 := sa1.

P2 := sb1.

Result := gr_distanciacuadrada (p1, p2).

Exit.

End.

If a <= gr_epsilon then.

Begin.

S := 0.

T := f/e.

T := cc_limita (t, 0, 1).

End else.

Begin.

C := gr_productopunto (d1, r).

If e <= gr_epsilon then.

Begin.

T := 0.

S := cc_limita (-c/a, 0, 1).

End else.

Begin.

B := gr_productopunto (d1, d2).

D := a*e-b*b.

If d <> 0 then.

Begin.

S := cc_limita ((b*f-c*e)/d, 0, 1).

End else.

Begin.

S := 0.

End.

T := (b*s+f)/e.

If < 0 then.

Begin.

T := 0.

S := cc_limita (-c/a, 0, 1).

End else.

If > 1 then.

Begin.

T := 1.

S := cc_limita ((b-c)/a, 0, 1).

End.

End.

End.

P1 := gr_suma (sa1, gr_multiplica (d1, s)).

P2 := gr_suma (sb1, gr_multiplica (d2, t)).

Result := gr_distanciacuadrada (p1, p2).

End.
//------------------------------------------------------------------

Function ch_distanciacuadradapuntosegmento (.

Const, // punto.

S1, s2: gr_rvector3d // puntos que limitan el segmento.
): single.

Var.

Ab, ac, bc: gr_rvector3d.

E, f: single.

Begin.

Ab := gr_resta (s2, s1).

Ac := gr_resta (p, s1).

Bc := gr_resta (p, s2).

E := gr_productopunto (ac, ab).

If e <= 0 then.

Begin.

Result := gr_productopunto (ac, ac).

Exit.

End.

F := gr_productopunto (ab, ab).

If e >= f then.

Begin.

Result := gr_productopunto (bc, bc).

Exit.

End.

Result := gr_productopunto (ac, ac)-e*e/f.

End.
//------------------------------------------------------------------

Function ch_distanciacuadradasegmentosegmento (.

Const sa1, sa2, // puntos que limitan el segmento a.

Sb1, sb2: gr_rvector3d // puntos que limitan el segmento b.
): single.

Var.

S, t: single.

P1, p2: gr_rvector3d.

Begin.

Result := ch_mascercasegmentosegmento (sa1, sa2, sb1, sb2, t, p1, p2).

End.
//------------------------------------------------------------------
// planos.
//------------------------------------------------------------------
//------------------------------------------------------------------

Function ch_mascercapuntoplano (.

Const p1: gr_rvector3d.

Const p2: gr_rplano3d.

Var p: gr_rvector3d; // punto sobre el plano p2, más cercano a p1.

Planonormalizado: bolean.
): single; // distancia del punto más cercano al plano.

Begin.

If planonormalizado then.

Result := gr_productopunto (p2. N, p1)-p2. P else.

Result := (gr_productopunto (p2. N, p1)-p2. P)/gr_productopunto (p2. N, p2. N).

P := gr_resta (p1, gr_multiplica (p2. N, result)).

End.
//------------------------------------------------------------------

Function ch_distanciapuntoplano (.

Const p1: gr_rvector3d.

Const p2: gr_rplano3d.

Planonormalizado: bolean.
): single.

Begin.

If planonormalizado then.

Result := gr_productopunto (p2. N, p1)-p2. P else.

Result := (gr_productopunto (p2. N, p1)-p2. P)/gr_productopunto (p2. N, p2. N).

End.
//------------------------------------------------------------------
// triángulos.
//------------------------------------------------------------------
//------------------------------------------------------------------

Function ch_puntoentriángulo (.

Const, // punto.

T1, t2, t3: gr_rvector3d // puntos del triángulo.
): bolean.

Var.

U, v, w: single.

Begin.

Gr_baricentricas(t1, t2, t3, u, v, w).

Result := (v >= 0) and (w >= 0) and (v+w <= 1).

End.
//------------------------------------------------------------------

Procedure ch_mascercapuntotriángulo (.

Const p1, // punto.

T1, t2, t3: gr_rvector3d; // puntos del triángulo.

Var p: gr_rvector3d // punto en el triángulo, más cercano a p1).

Var.

Ab, ac, ap, bp, cp: gr_rvector3d.

D1, d2, d3, d4, d5, d6, v, w, va, vb, VC, d: single.

Begin.

Ab := gr_resta (t2, t1).

Ac := gr_resta (t3, t1).

Ap := gr_resta (p1, t1).

D1 := gr_productopunto (ab, ap).

D2 := gr_productopunto (ac, ap).

If (d1 <= 0) and (d2 <= 0) then.

Begin.

P := t1.

Exit.

End.

Bp := gr_resta (p1, t2).

D3 := gr_productopunto (ab, bp).

D4 := gr_productopunto (ac, bp).

If (d3 >= 0) and (d4 <= d3) then.

Begin.

P := t2.

Exit.

End.

Vc := d1*d4-d3*d2.

If (vc <= 0) and (d1 >= 0) and (d3 <= 0) then.

Begin.

V := d1/(d1-d3).

P := gr_suma (t1, gr_multiplica (ab, v)).

Exit.

End.

Cp := gr_resta (p1, t3).

D5 := gr_productopunto (ab, cp).

D6 := gr_productopunto (ac, cp).

If (d6 >= 0) and (d5 <= d6) then.

Begin.

P := t3.

Exit.

End.

Vb := d5*d2-d1*d6.

If (vb <= 0) and (d2 >= 0) and (d6 <= 0) then.

Begin.
W := d2/(d2-d6).

P := gr_suma (t1, gr_multiplica (ac, w)).

Exit.

End.

Va := d3*d6-d5*d4.

If (va <= 0) and (d4-d3 >= 0) and (d5-d6 >= 0) then.

Begin.
W := (d4-d3)/((d4-d3)+(d5-d6)).

P := gr_suma (t2, gr_multiplica (gr_resta (t3, t2), w)).

Exit.

End.

D := 1/(va+vb+vc).

V := vb*d.
W := VC*d.

P := gr_suma (t1, gr_suma (gr_multiplica (ab, v), gr_multiplica (ac, w))).

End.
//------------------------------------------------------------------
// rectángulos.
//------------------------------------------------------------------
//------------------------------------------------------------------

Function ch_mascercapuntorectángulo (.

Const p1: gr_rvector3d.

Const r: gr_rrectánguloaxial3d.

Var p: gr_rvector3d.
): single.

Var.

D: gr_rvector3d.

I: integer.

L: single.

Begin.

D := gr_resta (p1, r. C).

P := r. C.

For I := 0 todo 2 do.

Begin.

L := cc_limita (gr_productopunto (d, r. U[i]), -r. R. M[i], r. R. M[i]).

P := gr_suma (p, gr_multiplica (r. U[i], l)).

End.

D := gr_resta (p, p1).

Result := gr_productopunto (d, d).

End.
//------------------------------------------------------------------

Function ch_distanciacuadradapuntorectángulo (.

Const p1: gr_rvector3d.

Const r: gr_rrectánguloaxial3d.
): single.

Var.

P: gr_rvector3d.

Begin.

Result := ch_mascercapuntorectángulo (p1, r, p).

End.
//------------------------------------------------------------------
// tetrahedro.
//------------------------------------------------------------------
//------------------------------------------------------------------

Procedure ch_mascercapuntotetrahedro (.

Const p1.

P1, p2, p3, p4: gr_rvector3d.

Var p: gr_rvector3d).

Var.

Mejord, d: single.

Que: gr_rvector3d.

Begin.

P := p1.

Mejord := maxsingle.

If gr_puntofueraplano (p1, p1, p2, p3) then.

Begin.

Ch_mascercapuntotriángulo (p1, p1, p2, p3, que).

D := gr_productopunto (gr_resta (que, p1), gr_resta (que, p1)).

If d < mejord then.

Begin.

Mejord := d.

P := que.

End.

End.

If gr_puntofueraplano (p1, p1, p3, p4) then.

Begin.

Ch_mascercapuntotriángulo (p1, p1, p3, p4, que).

D := gr_productopunto (gr_resta (que, p1), gr_resta (que, p1)).

If d < mejord then.

Begin.

Mejord := d.

P := que.

End.

End.

If gr_puntofueraplano (p1, p1, p4, p2) then.

Begin.

Ch_mascercapuntotriángulo (p1, p1, p4, p2, que).

D := gr_productopunto (gr_resta (que, p1), gr_resta (que, p1)).

If d < mejord then.

Begin.

Mejord := d.

P := que.

End.

End.

If gr_puntofueraplano (p1, p2, p4, p3) then.

Begin.

Ch_mascercapuntotriángulo (p1, p2, p4, p3, que).

D := gr_productopunto (gr_resta (que, p1), gr_resta (que, p1)).

If d < mejord then.

Begin.
// mejord := d.

P := que.

End.

End.

End.
//------------------------------------------------------------------
// esferas.
//------------------------------------------------------------------
//------------------------------------------------------------------

Function ch_creaesfera (.

Const c: ch_rcajaeje1.
): ch_resfera.

Begin.

Result. C := gr_suma (.

Gr_multiplica (c. Menor, 0.5).

Gr_multiplica (c. Mayor, 0.5)).

Result. R := gr_distancia (result. C, c. Mayor).

End.
//------------------------------------------------------------------

Function ch_creaesfera (.

Const e: ch_resfera.

Const p: gr_rvector3d.
): ch_resfera.

Var.

D2, d, k: single.

Begin.

D2 := gr_distanciacuadrada (por ejemplo C).

If d2 > e. R*e. R then.

Begin.

D := sqrt(d2).

Result. R := (e. R+d)*0.5.

K := (result. R-e. R)/d.

Result. C := gr_suma (e. C, d*k).

End.

End.
//------------------------------------------------------------------

Function ch_creaesferacajaeje (.

Const puntos: gr_adrvector3d.
): ch_resfera.

Var.

Menor, mayor: integer.

Begin.

Ch_puntosmasseparadoscajaeje (menor, mayor, puntos).

Result. C := gr_multiplica (gr_suma (puntos[menor], puntos[mayor]), 0.5).

Result. R := gr_distancia (puntos[mayor], result. C).

End.
//------------------------------------------------------------------

Function ch_creaesferaritter(.

Const puntos: gr_adrvector3d.
): ch_resfera.

Var.

Ipunto: integer.

Begin.

Result := ch_creaesferacajaeje (puntos).

For ipunto := 0 todo high(puntos) do.

Result := ch_creaesfera (result, puntos[ipunto]).

End.
//------------------------------------------------------------------

Function ch_creaesferaeigen(.

Const puntos: gr_adrvector3d.
): ch_resfera.

Var.

Vaya, v: gr_rmatriz3x3.

E: gr_rvector3d.

Cmayor: integer.

Fmayor, emayor: single.

Imenor, imayor: integer.

Pmenor, pmayor: gr_rvector3d.

D: single.

Begin.

Vaya := gr_creamatriz3x3covariante (puntos).

Gr_jacobiano (m, v).

Cmayor := 0.

Emayor := abs(m. M11).

Fmayor := abs(m. M22).

If fmayor > emayor then cmayor := 1.

Fmayor := abs(m. M33).

If fmayor > emayor then cmayor := 2.

E.x := v. M[0,cmayor].

E. Y := v. M[1,cmayor].

E. Z := v. M[2,cmayor].

Gr_puntosextremosendireccion(e, puntos, imenor, imayor).

Pmenor := puntos[imenor].

Pmayor := puntos[imayor].

D := gr_distancia (pmayor, pmenor).

Result. R := d*0.5.

Result. C := gr_multiplica (gr_suma (pmenor, pmayor), 0.5).

End.
//------------------------------------------------------------------

Function ch_creaesferarittereigen(.

Const puntos: gr_adrvector3d.
): ch_resfera.

Var.

Ipunto: integer.

Begin.

Result := ch_creaesferaeigen(puntos).

For ipunto := 0 todo high(puntos) do.

Result := ch_creaesfera (result, puntos[ipunto]).

End.
//------------------------------------------------------------------

Function ch_creaesferaritteriterativa (.

Const puntos: gr_adrvector3d.
): ch_resfera.

Var.

E: ch_resfera.

I, k: integer.

Begin.

Result := ch_creaesferaritter(puntos).

E := result.

For k := 0 todo 7 do.

Begin.

E. R := e. R*0.95.

For I := 0 todo high(puntos) do.

Begin.

J := trunc(cc_aleatorio (i+1, high(puntos))).

Gr_intercambia (puntos[i], puntos[j]).

Ch_creaesfera (e, puntos[i]).

End.

If e. R < result. R then result := e.

End.

End.
//------------------------------------------------------------------

Function ch_esferaenplano (.

Const e: ch_resfera; // esfera.

Const p: gr_rplano3d // plano.
): bolean.

Begin.

Result := gr_productopunto (e. C, p. N)-p. P < -e. R.

End.
//------------------------------------------------------------------
// cajas alineadas al eje (axis-aligned bounding boxes, ab).
//------------------------------------------------------------------
//------------------------------------------------------------------

Function ch_creacajaeje1: ch_rcajaeje1.

Begin.

Result. Menor := gr_creavector3d(infinity, infinity, infinity).

Result. Mayor := gr_creavector3d(-infinity, -infinity, -infinity).

End.
//------------------------------------------------------------------

Function ch_creacajaeje1(.

Const p: gr_rvector3d.
): ch_rcajaeje1.

Begin.

Result. Menor := p.

Result. Mayor := p.

End.
//------------------------------------------------------------------

Function ch_creacajaeje1(.

Const p1, p2: gr_rvector3d.
): ch_rcajaeje1.

Begin.

Result. Menor := gr_creavector3d(.

Cc_menor(p1.x, p2.x).

Cc_menor(p1. Y, p2. Y).

Cc_menor(p1. Z, p2. Z)).

Result. Mayor := gr_creavector3d(.

Cc_mayor(p1.x, p2.x).

Cc_mayor(p1. Y, p2. Y).

Cc_mayor(p1. Z, p2. Z)).

End.
//------------------------------------------------------------------

Function ch_creacajaeje3(.

Const c, r: gr_rvector3d.
): ch_rcajaeje3.

Begin.

Result. C := c.

Result. R := r.

End.
//------------------------------------------------------------------

Function ch_une (.

Const c: ch_rcajaeje1.

Const p: gr_rvector3d.
): ch_rcajaeje1.

Begin.

Result. Menor.x := cc_menor(c. Menor.x, p.x).

Result. Menor. Y := cc_menor(c. Menor. Y, p. Y).

Result. Menor. Z := cc_menor(c. Menor. Z, p. Z).

Result. Mayor.x := cc_mayor(c. Mayor.x, p.x).

Result. Mayor. Y := cc_mayor(c. Mayor. Y, p. Y).

Result. Mayor. Z := cc_mayor(c. Mayor. Z, p. Z).

End.
//------------------------------------------------------------------

Function ch_une (.

Const c1, c2: ch_rcajaeje1.
): ch_rcajaeje1.

Begin.

Result. Menor.x := cc_menor(c1. Menor.x, c2. Menor.x).

Result. Menor. Y := cc_menor(c1. Menor. Y, c2. Menor. Y).

Result. Menor. Z := cc_menor(c1. Menor. Z, c2. Menor. Z).

Result. Mayor.x := cc_mayor(c1. Mayor.x, c2. Mayor.x).

Result. Mayor. Y := cc_mayor(c1. Mayor. Y, c2. Mayor. Y).

Result. Mayor. Z := cc_mayor(c1. Mayor. Z, c2. Mayor. Z).

End.
//------------------------------------------------------------------

Function ch_expande (.

Const c: ch_rcajaeje1.

A: single.
): ch_rcajaeje1.

Begin.

Result. Menor := gr_resta (c. Menor, gr_creavector3d(a, a)).

Result. Mayor := gr_suma (c. Mayor, gr_creavector3d(a, a)).

End.
//------------------------------------------------------------------

Function ch_volumen(.

Const c: ch_rcajaeje1.
): single.

Var.

D: gr_rvector3d.

Begin.

D := gr_resta (c. Mayor, c. Menor).

Result := d.x*d. Y*d. Z.

End.
//------------------------------------------------------------------

Function ch_ejemayor(.

Const c: ch_rcajaeje1.
): integer.

Var.

D: gr_rvector3d.

Begin.

D := gr_resta (c. Mayor, c. Menor).

If (d.x > d. Y) and (d.x > d. Z) then result := gr_eje_x else.

If (d. Y > d. Z) then result := gr_eje_y else.

Result := gr_eje_z.

End.
//------------------------------------------------------------------

Function ch_transforma (.

Const t: gr_rtransformación.

Const c: ch_rcajaeje1.
): ch_rcajaeje1.

Begin.

Result := ch_creacajaeje1(gr_transforma (gr_creavector3d(c. Menor.x, c. Menor. Y.

C. Menor. Z), t)).

Result := ch_une (result, gr_transforma (gr_creavector3d(c. Mayor.x, c. Menor. Y.

C. Menor. Z), t)).

Result := ch_une (result, gr_transforma (gr_creavector3d(c. Menor.x, c. Mayor. Y.

C. Menor. Z), t)).

Result := ch_une (result, gr_transforma (gr_creavector3d(c. Menor.x, c. Menor. Y.

C. Mayor. Z), t)).

Result := ch_une (result, gr_transforma (gr_creavector3d(c. Menor.x, c. Mayor. Y.

C. Mayor. Z), t)).

Result := ch_une (result, gr_transforma (gr_creavector3d(c. Mayor.x, c. Mayor. Y.

C. Menor. Z), t)).

Result := ch_une (result, gr_transforma (gr_creavector3d(c. Mayor.x, c. Menor. Y.

C. Mayor. Z), t)).

Result := ch_une (result, gr_transforma (gr_creavector3d(c. Mayor.x, c. Mayor. Y.

C. Mayor. Z), t)).

End.
//------------------------------------------------------------------

Function ch_actualizacajaeje1(.

Const c: ch_rcajaeje1.

Const m: gr_rmatriz3x3.

Const t: gr_rvector3d.
): ch_rcajaeje1.

Var.

I, j: integer.

E, f: single.

Begin.

For I := 0 todo 2 do.

Begin.

Result. Menor. M[i] := t. M[i].

Result. Mayor. M[i] := t. M[i].

For := 0 todo 2 do.

Begin.

E := m. M[i,j]*c. Menor. M[j].

F := m. M[i,j]*c. Mayor. M[j].

If e < f then.

Begin.

Result. Menor. M[i] := result. Menor. M[i]+e.

Result. Mayor. M[i] := result. Mayor. M[i]+f.

End else.

Begin.

Result. Menor. M[i] := result. Menor. M[i]+f.

Result. Mayor. M[i] := result. Mayor. M[i]+e.

End.

End.

End.

End.
//------------------------------------------------------------------

Function ch_actualizacajaeje3(.

Const c: ch_rcajaeje3.

Const m: gr_rmatriz3x3.

Const t: gr_rvector3d.
): ch_rcajaeje3.

Var.

I, j: integer.

Begin.

For I := 0 todo 2 do.

Begin.

Result. C. M[i] := t. M[i].

Result. R. M[i] := 0.

For := 0 todo 2 do.

Begin.

Result. C. M[i] := result. C. M[i]+m. M[i,j]*c. C. M[j].

Result. R. M[i] := result. R. M[i]+abs(m. M[i,j])*c. R. M[j].

End.

End.

End.
//------------------------------------------------------------------

Procedure ch_puntosmasseparadoscajaeje (.

Var menor, mayor: integer.

Const puntos: gr_adrvector3d).

Var.

Menorx, mayorx.

Menory, mayory.

Menorz, mayorz: integer.

Ipunto: integer.

D2x, d2y, d2z: single.

Begin.

Menorx := 0.

Mayorx := 0.

Menory := 0.

Mayory := 0.

Menorz := 0.

Mayorz := 0.

For ipunto := 0 todo high(puntos) do.

Begin.

If puntos[ipunto].x < puntos[menorx].x then menorx := ipunto.

If puntos[ipunto].x > puntos[mayorx].x then mayorx := ipunto.

If puntos[ipunto]. Y < puntos[menory]. Y then menory := ipunto.

If puntos[ipunto]. Y > puntos[mayory]. Y then mayory := ipunto.

If puntos[ipunto]. Z < puntos[menorz]. Z then menorz := ipunto.

If puntos[ipunto]. Z > puntos[mayorz]. Z then mayorz := ipunto.

End.

D2x := gr_distanciacuadrada (puntos[menorx], puntos[mayorx]).

D2y := gr_distanciacuadrada (puntos[menory], puntos[mayory]).

D2z := gr_distanciacuadrada (puntos[menorz], puntos[mayorz]).

Menor := menorx.

Mayor := mayorx.

If (d2y > d2x) and (d2y > d2z) then.

Begin.

Menor := menory.

Mayor := mayory.

End else.

If (d2z > d2x) and (d2z > d2y) then.

Begin.

Menor := menorz.

Mayor := mayorz.

End.

End.
//------------------------------------------------------------------

Procedure ch_mascercapuntocajaeje (.

Const p1: gr_rvector3d.

Const c: ch_rcajaeje1.

Var p: gr_rvector3d).

Var.

I: integer.

Menor, mayor: single.

Begin.

For I := 0 todo 2 do.

Begin.

Menor := c. Menor. M[i].

Mayor := c. Mayor. M[i].

P. M[i] := cc_limita (p1. M[i], menor, mayor).

End.

End.
//------------------------------------------------------------------

Function ch_distanciacuadradapuntocajaeje (.

Const p1: gr_rvector3d.

Const c: ch_rcajaeje1.
): single.

Var.

I: integer.

Menor, mayor: single.

Begin.

Result := 0.

For I := 0 todo 2 do.

Begin.

Menor := c. Menor. M[i].

Mayor := c. Mayor. M[i].

If menor > mayor then cm_intercambia (menor, mayor).

If p1. M[i] < menor then result := result+(menor-p1. M[i])*(menor-p1. M[i]).

If p1. M[i] > mayor then result := result+(p1. M[i]-mayor)*(p1. M[i]-mayor).

End.

End.
//------------------------------------------------------------------
// cajas de orientación libre (oriented bounding boxes, ob).
//------------------------------------------------------------------
//------------------------------------------------------------------

Function ch_mascercapuntocajalibre (.

Const p1: gr_rvector3d.

Const c: ch_rcajalibre.

Var p: gr_rvector3d.
): single.

Var.

D: gr_rvector3d.

I: integer.

L: single.

Begin.

D := gr_resta (p1, c. C).

P := c. C.

For I := 0 todo 2 do.

Begin.

L := cc_limita (gr_productopunto (d, c. U[i]), -c. R. M[i], c. R. M[i]).

P := gr_suma (p, gr_multiplica (c. U[i], l)).

End.

D := gr_resta (p, p1).

Result := gr_productopunto (d, d).

End.
//------------------------------------------------------------------

Function ch_distanciacuadradapuntocajalibre (.

Const p1: gr_rvector3d.

Const c: ch_rcajalibre.
): single.

Var.

P: gr_rvector3d.

Begin.

Result := ch_mascercapuntocajalibre (p1, c, p).

End.
//------------------------------------------------------------------
// politopues de orientación discretea (discrete-orientation polytopes, k-dop).
//------------------------------------------------------------------
//------------------------------------------------------------------

Function ch_creapolitopo8: ch_rpolitopo.

Var.

I: integer.

Begin.

Setlength(result. Menores.

Setlength(result. Mayores.

For I := 0 todo high(result. Menores) do.

Begin.

Result. Menores[i] := maxsingle.

Result. Mayores[i] := -maxsingle.

End.

End.
//------------------------------------------------------------------

Function ch_creapolitopo8(.

Const puntos: gr_adrvector3d.
): ch_rpolitopo.

Var.

V: single.

I: integer.

Begin.

Result := ch_creapolitopo8.

For I := 0 todo high(puntos) do.

Begin.

V := +puntos[i].x+puntos[i]. Y+puntos[i]. Z.

If v < result. Menores[0] then result. Menores[0] := v else.

If v > result. Mayores[0] then result. Mayores[0] := v.

V := +puntos[i].x+puntos[i]. Y-puntos[i]. Z.

If v < result. Menores[1] then result. Menores[1] := v else.

If v > result. Mayores[1] then result. Mayores[1] := v.

V := +puntos[i].x-puntos[i]. Y+puntos[i]. Z.

If v < result. Menores[2] then result. Menores[2] := v else.

If v > result. Mayores[2] then result. Mayores[2] := v.

V := -puntos[i].x+puntos[i]. Y+puntos[i]. Z.

If v < result. Menores[3] then result. Menores[3] := v else.

If v > result. Mayores[3] then result. Mayores[3] := v.

End.

End.
//------------------------------------------------------------------

Function ch_contienepuntotriángulo2dcontrareloj(.

Const p.

T1, t2, t3: gr_rvector2d // puntos del triángulo.
): bolean.

Begin.

Result := false.

If gr_productocruz(gr_resta (p, t1), gr_resta (t2, t1)) < 0 then exit.

If gr_productocruz(gr_resta (p, t2), gr_resta (t3, t2)) < 0 then exit.

If gr_productocruz(gr_resta (p, t3), gr_resta (t1, t3)) < 0 then exit.

Result := true.

End.
//------------------------------------------------------------------

Function ch_contienepuntotriángulo2d(.

Const p.

T1, t2, t3: gr_rvector2d // puntos del triángulo.
): bolean.

Var.

Pab, pbc, pca: single.

Begin.

Result := false.

Pab := gr_productocruz(gr_resta (p, t1), gr_resta (t2, t1)).

Pbc := gr_productocruz(gr_resta (p, t2), gr_resta (t3, t2)).

If sign(pab) <> sign(pbc) then exit.

Pca := gr_productocruz(gr_resta (p, t3), gr_resta (t1, t3)).

If sign(pab) <> sign(pca) then exit.

Result := true.

End.
//------------------------------------------------------------------

Function ch_contienepuntotriángulocontrareloj(.

Const p: gr_rvector3d.

T1, t2, t3: gr_rvector3d // puntos del triángulo.
): bolean.

Var.

Ab, ac, bc, c, b: single.

Begin.

Result := false.

T1 := gr_resta (t1, p).

T2 := gr_resta (t2, p).

T3 := gr_resta (t3, p).

Ab := gr_productopunto (t1, t2).

Ac := gr_productopunto (t1, t3).

Bc := gr_productopunto (t2, t3).

C := gr_productopunto (t3, t3).

If bc*ac-c*ab < 0 then exit.

B := gr_productopunto (t2, t2).

If ab*bc-ac*b < 0 then exit.

Result := true.

End.
//------------------------------------------------------------------

Function ch_contienepuntopoligono (.

Const p1: gr_rvector3d.

Const p2: gr_rpoligono3d.
): bolean.

Var.

Menor, mayor, medio: integer.

Begin.

Result := false.

Menor := 0.

Mayor := length(p2. V).

Repeat.

Medio := (menor+mayor) shr 1.

If gr_triángulocontrareloj(p2. V[0], p2. V[medio], p1) then.

Menor := medio else.

Mayor := medio.

Until menor+1 >= mayor.

If (menor = 0) or (mayor = length(p2. V)) then exit.

Result := gr_triángulocontrareloj(p2. V[menor], p2. V[mayor], p1).

End.
//------------------------------------------------------------------

Function ch_traslapapuntopolihedro (.

Const p: gr_rvector3d.

Const planos: gr_adrplano3d; // polihedro.

Planonormalizado: bolean.
): bolean.

Var.

I: integer.

Begin.

Result := false.

For I := 0 todo high(planos) do.

Begin.

If ch_distanciapuntoplano (p, planos[i], planonormalizado) > 0 then exit.

End.

Result := true.

End.
//------------------------------------------------------------------

Function ch_traslapasegmento2dsegmento2d(.

Const sa1, sa2, // puntos que limitan el segmento a.

Sb1, sb2: gr_rvector2d; // puntos que limitan el segmento b.

Var t: single; // valor de intersección sobre el segmento a.

Var p: gr_rvector2d // punto de intersección.
): bolean.

Var.

A1, a2, a3, a4: single.

Begin.

Result := false.

A1 := gr_areatriánguloconsigno (sa1, sa2, sb2).

A2 := gr_areatriánguloconsigno (sa1, sa2, sb1).

If a1*a2 < 0 then.

Begin.

A3 := gr_areatriánguloconsigno (sb1, sb2, sa1).

A4 := a3+a2-a1.

If a3*a4 < 0 then.

Begin.

T := a3/(a3-a4).

P := gr_suma (sa1, gr_multiplica (gr_resta (sa2, sa1), t)).

Result := true.

End.

End.

End.
//------------------------------------------------------------------
// basado en:
// real-time collision detection, p. 460 (p. 176 no maneja división entre 0).

Function ch_intersecasegmentoplano (.

Const s1, s2: gr_rvector3d; // puntos del segmento.

Const p1: gr_rplano3d.

Var t: single.

Var p: gr_rvector3d.
): bolean.

Var.

Ab: gr_rvector3d.

Tn, TD, k: int64.

V: gr_rvector3d.

Begin.

Result := false.
{ versión de la página 176:
Result := true.

Ab := gr_resta (s2, s1).

T := (p1. P-gr_productopunto (p1. N, s1))/gr_productopunto (p1. N, ab).

If (t >= 0) and (t <= 1) then.

Begin.

P := gr_suma (s1, gr_multiplica (ab, t)).

Exit.

End.

Result := false.
}.

Ab := gr_resta (s2, s1).

Tn := trunc(p1. P-gr_productopunto (p1. N, s1)).

Td := trunc(gr_productopunto (p1. N, ab)).

If TD = 0 then exit.

If TD < 0 then.

Begin.

Tn := -TN.

Td := -td.

End.

If (TN < 0) or (TN > td) then exit.

V := gr_creavector3d.

K := td-1.

If TD > 0 then k := -k.

If p1. N.x > 0 then v.x := +k else.

If p1. N.x < 0 then v.x := -k.

If p1. N. Y > 0 then v. Y := +k else.

If p1. N. Y < 0 then v. Y := -k.

If p1. N. Z > 0 then v. Z := +k else.

If p1. N. Z < 0 then v. Z := -k.

P := gr_suma (s1, gr_divide (gr_suma (gr_multiplica (ab, TN), v), td)).

Result := true.

End.
//------------------------------------------------------------------

Function ch_intersecasegmentotriángulo (.

Const s1, s2, // puntos del segmento.

T1, t2, t3: gr_rvector3d; // puntos del triángulo.

Var u, v, w, // coordenadas baricéntricas.

T: single.
): bolean.

Var.

Ab, ac, qp, ap, n: gr_rvector3d.

D, id: single.

Begin.

Result := false.

Ab := gr_resta (t2, t1).

Ac := gr_resta (t3, t1).

Qp := gr_resta (s1, s2).

N := gr_productocruz(ab, ac).

D := gr_productopunto (qp, n).

If d <= 0 then exit.

Ap := gr_resta (s1, t1).

T := gr_productopunto (ap, n).

If < 0 then exit.

If > d then exit.

E := gr_productocruz(qp, ap).

V := gr_productopunto (ac, e).

If (v < 0) or (v > d) then exit.
W := -gr_productopunto (ab, e).

If (w < 0) or (v+w > d) then exit.

Id := 1/d.

T := t+id.

V := v+id.
W := w+id.

U := 1-V-w.

Result := true.

End.
//------------------------------------------------------------------

Function ch_intersecasegmentotriánguloplanos(.

Const s1, s2: gr_rvector3d; // puntos del segmento.

Const t1: gr_rtriánguloplanar3d.

Var u, v, w, // coordenadas baricéntricas.

T: single.

Var s: gr_rvector3d // punto de intersección.
): bolean.

Var.

Dp, dq, d: single.

Begin.

Result := false.

Dp := gr_productopunto (s1, t1. P. N)-t1. P. P.

If DP < 0 then exit.

Dq := gr_productopunto (s2, t1. P. N)-t1. P. P.

If dq >= 0 then exit.

D := DP-dq.

T := DP/d.

S := gr_suma (s1, gr_multiplica (gr_resta (s2, s1), t)).

U := gr_productopunto (s, t1. Bordebc. N)-t1. Bordebc. P.

If (u < 0) or (u > 1) then exit.

V := gr_productopunto (s, t1. Bordeca. N)-t1. Bordeca. P.

If v < 0 then exit.
W := 1-u-v.

If w < 0 then exit.

Result := true.

End.
//------------------------------------------------------------------

Function ch_traslapasegmentocajaeje1(.

Const s1, s2: gr_rvector3d; // puntos del segmento.

Const c: ch_rcajaeje1.
): bolean.

Var.

C1, m: gr_rvector3d.

E, d: gr_rvector3d.

Adx, ady, adz: single.

Begin.

Result := false.

C1 := gr_multiplica (gr_suma (c. Menor, c. Mayor), 0.5).

E := gr_resta (c. Mayor, c1).

Vaya := gr_multiplica (gr_suma (s1, s2), 0.5).

D := gr_resta (s2, m).

Vaya := gr_resta (m, c1).

Adx := abs(d.x).

If abs(m.x) > e.x+adx then exit.

Ady := abs(d. Y).

If abs(m. Y) > e. Y+ady then exit.

Adz := abs(d. Z).

If abs(m. Z) > e. Z+adz then exit.

Adx := adx+gr_epsilon.

Ady := ady+gr_epsilon.

Adz := adz+gr_epsilon.

If abs(m. Y*d. Z-m. Z*d. Y) > e. Y*adz+e. Z*ady then exit.

If abs(m. Z*d.x-m.x*d. Z) > e.x*adz+e. Z*adx then exit.

If abs(m.x*d. Y-m. Y*d.x) > e.x*ady+e. Y*adx then exit.

Result := true.

End.
//------------------------------------------------------------------

Function ch_intersecasegmentocilindro (.

Const s1, s2, // puntos del segmento.

C1, c2: gr_rvector3d; // puntos del cilíndro.

R: single; // radio del cilíndro.

Var t: single.
): bolean.

Var.

D, n: gr_rvector3d.

Md, nd, d, n, mn, a, k, c, b, discr: single.

Begin.

Result := false.

D := gr_resta (c2, c1).

Vaya := gr_resta (s1, c1).

N := gr_resta (s2, s1).

Md := gr_productopunto (m, d).

Nd := gr_productopunto (n, d).

D := gr_productopunto (d, d).

If (md < 0) and (md+nd < 0) then exit.

If (md > d) and (md+nd > d) then exit.

N := gr_productopunto (n, n).

Mn := gr_productopunto (m, n).

A := d*n-nd*nd.

K := gr_productopunto (m, m)-r*r.

C := d*k-md*md.

If abs(a) < gr_epsilon then.

Begin.

If c > 0 then exit.

If md < 0 then := -mn/n else.

If md > d then := (nd-mn)/n else.

T := 0.

Result := true.

Exit.

End.

B := d*mn-nd*md.

Discr := b*b-a*c.

If discr < 0 then exit.

T := (-b-sqrt(discr))/a.

If (t < 0) or (t > 1) then exit.

If md+t*nd < 0 then.

Begin.

If nd <= 0 then exit.

T := -md/nd.

Result := k+2*t*(mn+t*n) <= 0.

Exit.

End else.

If md+t*nd > d then.

Begin.

If nd >= 0 then exit.

T := (d-md)/nd.

Result := k+d-2*md+t*(2*(mn-nd)+t*n) <= 0.

Exit.

End.

Result := true.

End.
//------------------------------------------------------------------

Function ch_intersecasegmentopolihedro (.

Const s1, s2: gr_rvector3d; // puntos del segmento.

Const planos: gr_adrplano3d; // planos del polihedro.

Var tprimero, tultimo: single.
): bolean.

Var.

D: gr_rvector3d.

I: integer.

Denom, Dist, t: single.

Begin.

Result := false.

D := gr_resta (s2, s1).

Tprimero := 0.

Túltimo := 0.

For I := 0 todo high(planos) do.

Begin.

Denom := gr_productopunto (planos[i]. N, d).

Dist := planos[i]. P-gr_productopunto (planos[i]. N, s1).

If denom = 0 then.

Begin.

If Dist > 0 then exit.

End else.

Begin.

T := Dist/denom.

If denom < 0 then.

Begin.

If > tprimero then tprimero := t.

End else.

Begin.

If < túltimo then túltimo := t.

End.

If tprimero > túltimo then exit.

End.

End.

Result := true.

End.
//------------------------------------------------------------------

Function ch_intersecalineatriángulo (.

Const l1, l2, // puntos sobre la línea.

T1, t2, t3: gr_rvector3d; // puntos del triángulo.

Var u, v, w: single // coordenadas baricéntricas de intersección.
): bolean.

Var.

Pq, pa, pb, PC: gr_rvector3d.

D: single.

Begin.

Result := false.

Pq := gr_resta (l2, l1).

Para := gr_resta (t1, l1).

Pb := gr_resta (t2, l1).

Pc := gr_resta (t3, l1).

U := gr_productotripleescalar(pq, PC, pb).

If u < 0 then exit.

V := gr_productotripleescalar(pq, pa, PC).

If v < 0 then exit.
W := gr_productotripleescalar(pq, pb, pa).

If w < 0 then exit.

D := 1/(u+v+w).

U := u*d.

V := v*d.
W := w*d.

Result := true.

End.
//------------------------------------------------------------------

Function ch_intersecalineacuadrilaterocontrareloj(.

Const l1, l2, // puntos de la línea.

C1, c2, c3, c4: gr_rvector3d; // puntos del cuadrilátero contra reloj.

Var p: gr_rvector3d // punto de intersección.
): bolean.

Var.

Pq, pa, pb, PC, pd, m: gr_rvector3d.

U, v, w, denom: single.

Begin.

Result := false.

Pq := gr_resta (l2, l1).

Para := gr_resta (c1, l1).

Pb := gr_resta (c2, l1).

Pc := gr_resta (c3, l1).

Vaya := gr_productocruz(pc, pq).

V := gr_productopunto (pa, m).

If v >= 0 then.

Begin.

U := -gr_productopunto (pb, m).

If u < 0 then exit.
W := gr_productotripleescalar(pq, pb, pa).

If w < 0 then exit.

Denom := 1/(u+v+w).

U := u*denom.

V := v*denom.
W := w*denom.

P := gr_suma (gr_suma (gr_multiplica (c1, u), gr_multiplica (c2, v)).

Gr_multiplica (c3, w)).

End else.

Begin.

Posdata := gr_resta (c4, l1).

U := gr_productopunto (pd, m).

If u < 0 then exit.
W := gr_productotripleescalar(pq, pa, pd).

If w < 0 then exit.

V := -v.

Denom := 1/(u+v+w).

U := u*denom.

V := v*denom.
W := w*denom.

P := gr_suma (gr_suma (gr_multiplica (c1, u), gr_multiplica (c4, v)).

Gr_multiplica (c3, w)).

End.

Result := true.

End.
//------------------------------------------------------------------
// basado en:
// http://www.cs.lth, se/home/tomas_akenine_moller/raytri/.

Function ch_intersecarayotriángulo (.

Const o, // origen del rayo.

D, // dirección del rayo tt1, t2, t3: gr_rvector3d; // puntos del triángulo.

Var t, // distancia del origen del rayo al punto de.
// intersección.

U, v: single // coordenadas baricéntricas.
): bolean.

Var.

B1, b2, televisión, pv, qv: gr_rvector3d.

D1, id1: single.

Begin.

Result := false.

B1 := gr_resta (t2, t1).

B2 := gr_resta (t3, t1).

Pv := gr_productocruz(d, b2).

D1 := gr_productopunto (b1, pv).

If d1 > gr_epsilon then.

Begin.

Tv := gr_resta (o, t1).

U := gr_productopunto (tv, pv).

If (u < 0) or (u > d1) then exit.

Qv := gr_productocruz(tv, b1).

V := gr_productopunto (d, qv).

If (v < 0) or (u+v > d1) then exit.

End else.

If d1 < -gr_epsilon then.

Begin.

Tv := gr_resta (o, t1).

U := gr_productopunto (tv, pv).

If (u > 0) or (u < d1) then exit.

Qv := gr_productocruz(tv, b1).

V := gr_productopunto (d, qv).

If (v > 0) or (u+v < d1) then exit.

End else.

Begin.

Exit.

End.

Id1 := 1/d1.

T := gr_productopunto (b2, qv)*id1.

U := u*id1.

V := v*id1.

Result := true.

End.
//------------------------------------------------------------------

Function ch_intersecarayoesfera (.

Const o: gr_rvector3d; // origen del rayo.

Const d: gr_rvector3d; // dirección del rayo.

Const e: ch_resfera.

Var t: single.

Var p: gr_rvector3d // punto de intersección.
): bolean.

Var.

M: gr_rvector3d.

B, c, ds: single.

Begin.

Result := false.

Vaya := gr_resta (o, e. C).

B := gr_productopunto (m, d).

C := gr_productopunto (m, m)-e. R*e. R.

If (c > 0) and (b > 0) then exit.

Ds := b*b-c.

If ds < 0 then exit.

T := -b-sqrt(ds).

If < 0 then := 0.

P := gr_suma (o, gr_multiplica (d, t)).

Result := true.

End.
//------------------------------------------------------------------

Function ch_traslaparayoesfera (.

Const o: gr_rvector3d; // origen del rayo.

Const d: gr_rvector3d; // dirección del rayo.

Const e: ch_resfera.
): bolean.

Var.

M: gr_rvector3d.

B, c, ds: single.

Begin.

Result := true.

Vaya := gr_resta (o, e. C).

C := gr_productopunto (m, m)-e. R*e. R.

If c <= 0 then exit.

Result := false.

B := gr_productopunto (m, d).

If b > 0 then exit.

Ds := b*b-c.

If ds < 0 then exit.

Result := true.

End.
//------------------------------------------------------------------

Function ch_intersecarayocajaeje1(.

Const o: gr_rvector3d.

Const d: gr_rvector3d.

Const c: ch_rcajaeje1.

Var tmenor: single.

Var p: gr_rvector3d.
): bolean.

Var.

Tmayor, id, t1, t2: single.

I: integer.

Begin.

Result := false.

Tmenor := 0.

Tmayor := maxsingle.

For I := 0 todo 2 do.

Begin.

If abs(d. M[i]) < gr_epsilon then.

Begin.

If (o. M[i] < c. Menor. M[i]) or (p. M[i] > c. Mayor. M[i]) then exit.

End else.

Begin.

Id := 1/d. M[i].

T1 := (c. Menor. M[i]-o. M[i])*id.

T2 := (c. Mayor. M[i]-o. M[i])*id.

If t1 > t2 then cm_intercambia (t1, t2).

Tmenor := maxvalue ([tmenor, t1]).

Tmayor := minvalue ([tmayor, t2]).

If tmenor > tmayor then exit.

End.

End.

P := gr_suma (o, gr_multiplica (d, tmenor)).

Result := true.

End.
//------------------------------------------------------------------

Function ch_intersecaplanoplano (.

Const p1, p2: gr_rplano3d.

Var p: gr_rvector3d.

Var d: gr_rvector3d.
): bolean.

Var.

D1: single.

Begin.

Result := false.

D := gr_productocruz(p1. N, p2. N).

D1 := gr_productopunto (d, d).

If d1 < gr_epsilon then exit.

P := gr_divide (gr_productocruz(gr_resta (.

Gr_multiplica (p2. N, p1. P), gr_multiplica (p1. N, p2. P)), d), d1).

Result := true.

End.
//------------------------------------------------------------------

Function ch_intersecaplanoplanoplano (.

Const p1, p2, p3: gr_rplano3d.

Var p: gr_rvector3d.
): bolean.

Var.

U: gr_rvector3d.

Denom: single.

Begin.

Result := false.

U := gr_productocruz(p2. N, p3. N).

Denom := gr_productopunto (p1. N, u).

If abs(denom) < gr_epsilon then exit.

P := gr_divide (gr_suma (gr_multiplica (u, p1. P), gr_productocruz(.

P1. N, gr_resta (gr_multiplica (p2. N, p3. P).

Gr_multiplica (p3. N, p2. P)))), denom).

Result := true.

End.
//------------------------------------------------------------------
// basado en:
// http://www.cs.lth, se/home/tomas_akenine_moller/code/.

Function ch_traslapaplanocajaeje3(.

Const p: gr_rplano3d.

Const c: ch_rcajaeje3.
): bolean.

Var.

I: integer.

Vmenor,vmayor: gr_rvector3d.

V: single.

Begin.

Result := false.

For I := 0 todo 2 do.

Begin.

V := c. C. M[i].

If p. N. M[i] > 0 then.

Begin.

Vmenor. M[i] := -c. R. M[i]-v.

Vmayor. M[i] := c. R. M[i]-v.

End else.

Begin.

Vmenor. M[i] := c. R. M[i]-v.

Vmayor. M[i] := -c. R. M[i]-v.

End.

End.

If gr_productopunto (p. N, vmenor) > 0 then exit.

If gr_productopunto (p. N, vmayor) < 0 then exit.

Result := true.

End.
//------------------------------------------------------------------
// basado en:
// http://jgt, akpeters.com/papers/moller97/.

Function ch_intersecatriángulotriángulo (.

Const ta1, ta2, ta3, // puntos del triángulo a.

Tb1, tb2, tb3: gr_rvector3d // puntos del triángulo b.
): bolean.

Var.

E1, e2, n1, n2, DV: gr_rvector3d.

Is1, is2: array [0.1] of single.

D1, d2, du0, du1, du2, dv0, DV 1, dv2: single.

Du01, du02, dv01, dv02: single.

Vp0, vp1, vp2: single.

Up0, up1, up2: single.

B, c, mayor: single.

A, b, c, x0, x1: single.

D, f, y0, y1: single.

Xx y, xxy, t: single.

I: integer.

Function calculaintervalos(.

Const v0, v1, v2, d0, d1, d2, d0d1, d0d2: single.

Var a, b, c, x0, x1: single.

Var resultado: bolean.
): bolean.

Begin.

Result := false.

If d0d1 > 0 then.

Begin.

A := v2.

B := (v0-v2)*d2.

C := (v1-v2)*d2.

X0 := d2-d0.

X1 := d2-d1.

End else.

If d0d2 > 0 then.

Begin.

A := v1.

B := (v0-v1)*d1.

C := (v2-v1)*d1.

X0 := d1-d0.

X1 := d1-d2.

End else.

If (d1*d2 > 0) or (d0 <> 0) then.

Begin.

A := v0.

B := (v1-v0)*d0.

C := (v2-v0)*d0.

X0 := d0-d1.

X1 := d0-d2.

End else.

If d1 <> 0 then.

Begin.

A := v1.

B := (v0-v1)*d1.

C := (v2-v1)*d1.

X0 := d1-d0.

X1 := d1-d2.

End else.

If d2 <> 0 then.

Begin.

A := v2.

B := (v0-v2)*d2.

C := (v1-v2)*d2.

X0 := d2-d0.

X1 := d2-d1.

End else.

Begin.

Result := true.

Resultado := gr_triánguloscoplanares(n1, ta1, ta2, ta3, tb1, tb2, tb3).

End.

End.

Begin.

Result := false.

E1 := gr_resta (ta2, ta1).

E2 := gr_resta (ta3, ta1).

N1 := gr_productocruz(e1, e2).

D1 := -gr_productopunto (n1, ta1).

Du0 := gr_productopunto (n1, tb1)+d1.

Du1 := gr_productopunto (n1, tb2)+d1.

Du2 := gr_productopunto (n1, tb3)+d1.

If abs(du0) < gr_epsilon then du0 := 0.

If abs(du1) < gr_epsilon then du1 := 0.

If abs(du2) < gr_epsilon then du2 := 0.

Du01 := du0*du1.

Du02 := du0*du2.

If (du01 > 0) and (du02 > 0) then exit.

E1 := gr_resta (tb2, tb1).

E2 := gr_resta (tb3, tb1).

N2 := gr_productocruz(e1, e2).

D2 := -gr_productopunto (n2, tb1).

Dv0 := gr_productopunto (n2, ta1)+d2.

Dv1 := gr_productopunto (n2, ta2)+d2.

Dv2 := gr_productopunto (n2, ta3)+d2.

If abs(dv0) < gr_epsilon then dv0 := 0.

If abs(DV 1) < gr_epsilon then DV 1 := 0.

If abs(dv2) < gr_epsilon then dv2 := 0.

Dv01 := dv0*DV 1.

Dv02 := dv0*dv2.

If (dv01 > 0) and (dv02 > 0) then exit.

Dv := gr_productocruz(n1, n2).

Mayor := abs(dv. M[0]).

I := 0.

B := abs(dv. M[1]).

C := abs(dv. M[2]).

If b > mayor then.

Begin.

Mayor := b.

I := 1.

End.

If c > mayor then.

Begin.
// mayor := c.

I := 2.

End.

Vp0 := ta1. M[i].

Vp1 := ta2. M[i].

Vp2 := ta3. M[i].

Up0 := tb1. M[i].

Up1 := tb2. M[i].

Up2 := tb3. M[i].

If calculaintervalos(vp0, vp1, vp2, dv0, DV 1, dv2, dv01, dv02, a, b, c.

X0, x1, result) then exit.

If calculaintervalos(up0, up1, up2, du0, du1, du2, du01, du02, d, f.

Y0, y1, result) then exit.

Xx := x0*x1.

Y := y0*y1.

Xxy := xx*y.

T := a*xxy.

Is1[0] := t+b*x1*y.

Is1[1] := t+c*x0*y.

T := d*xxy.

Is2[0] := t+e*xx*y1.

Is2[1] := t+f*xx*y0.

Cm_asciente (is1[0], is1[1]).

Cm_asciente (is2[0], is2[1]).

If (is1[1] < is2[0]) or (is2[1] < is1[0]) then exit.

Result := false.

End.
//------------------------------------------------------------------
// tomado de:
// http://www.cs.lth, se/home/tomas_akenine_moller/code/.

Function ch_traslapatriángulocajaeje3(.

Const t1, t2, t3: gr_rvector3d; // puntos del triángulo.

Const c: ch_rcajaeje3.
): bolean.

Var.

V1, v2, v3: gr_rvector3d.

Menor, mayor, p1, p2, p3, r, fex, fey, fez: single.

E1, e2, e3: gr_rvector3d.

Function pruebaejex01(.

A, b, fa, fb: single.
): bolean.

Begin.

P1 := a*v1. Y-b*v1. Z.

P3 := a*v3. Y-b*v3. Z.

If p1 < p3 then.

Begin.

Menor := p1.

Mayor := p3.

End else.

Begin.

Menor := p3.

Mayor := p1.

End.

R := fa*c. R. Y+fb*c. R. Z.

Result := (menor > r) or (mayor < -r).

End.

Function pruebaejex2(.

A, b, fa, fb: single.
): bolean.

Begin.

P1 := a*v1. Y-b*v1. Z.

P2 := a*v2. Y-b*v2. Z.

If p1 < p2 then.

Begin.

Menor := p1.

Mayor := p2.

End else.

Begin.

Menor := p2.

Mayor := p1.

End.

R := fa*c. R. Y+fb*c. R. Z.

Result := (menor > r) or (mayor < -r).

End.

Function pruebaejey02(.

A, b, fa, fb: single.
): bolean.

Begin.

P1 := -a*v1.x+b*v1. Z.

P3 := -a*v3.x+b*v3. Z.

If p1 < p3 then.

Begin.

Menor := p1.

Mayor := p3.

End else.

Begin.

Menor := p3.

Mayor := p1.

End.

R := fa*c. R.x+fb*c. R. Z.

Result := (menor > r) or (mayor < -r).

End.

Function pruebaejey1(.

A, b, fa, fb: single.
): bolean.

Begin.

P1 := -a*v1.x+b*v1. Z.

P2 := -a*v2.x+b*v2. Z.

If p1 < p2 then.

Begin.

Menor := p1.

Mayor := p2.

End else.

Begin.

Menor := p2.

Mayor := p1.

End.

R := fa*c. R.x+fb*c. R. Z.

Result := (menor > r) or (mayor < -r).

End.

Function pruebaejez12(.

A, b, fa, fb: single.
): bolean.

Begin.

P2 := a*v2.x-b*v2. Y.

P3 := a*v3.x-b*v3. Y.

If p3 < p2 then.

Begin.

Menor := p3.

Mayor := p2.

End else.

Begin.

Menor := p2.

Mayor := p3.

End.

R := fa*c. R.x+fb*c. R. Y.

Result := (menor > r) or (mayor < -r).

End.

Function pruebaejez0(.

A, b, fa, fb: single.
): bolean.

Begin.

P1 := a*v1.x-b*v1. Y.

P2 := a*v2.x-b*v2. Y.

If p1 < p2 then.

Begin.

Menor := p1.

Mayor := p2.

End else.

Begin.

Menor := p2.

Mayor := p1.

End.

R := fa*c. R.x+fb*c. R. Y.

Result := (menor > r) or (mayor < -r).

End.

Procedure extremos(.

X1, x2, x3: single).

Begin.

Menor := x1.

Mayor := x1.

If x2 < menor then menor := x2.

If x2 > mayor then mayor := x2.

If x3 < menor then menor := x3.

If x3 > mayor then mayor := x3.

End.

Begin.

Result := false.

V1 := gr_resta (t1, c. C).

V2 := gr_resta (t2, c. C).

V3 := gr_resta (t3, c. C).

E1 := gr_resta (v2, v1).

E2 := gr_resta (v3, v2).

E3 := gr_resta (v1, v3).

Fex := abs(e1.x).

Fey := abs(e1. Y).

Fez := abs(e1. Z).

If pruebaejex01(e1. Z, e1. Y, fez, fey) then exit.

If pruebaejey02(e1. Z, e1.x, fez, fex) then exit.

If pruebaejez12(e1. Y, e1.x, fey, fex) then exit.

Fex := abs(e2.x).

Fey := abs(e2. Y).

Fez := abs(e2. Z).

If pruebaejex01(e2. Z, e2. Y, fez, fey) then exit.

If pruebaejey02(e2. Z, e2.x, fez, fex) then exit.

If pruebaejez0(e2. Y, e2.x, fey, fex) then exit.

Fex := abs(e3.x).

Fey := abs(e3. Y).

Fez := abs(e3. Z).

If pruebaejex2(e3. Z, e3. Y, fez, fey) then exit.

If pruebaejey1(e3. Z, e3.x, fez, fex) then exit.

If pruebaejez12(e3. Y, e3.x, fey, fex) then exit.

Extremos(v1.x, v2.x, v3.x).

If (menor > c. R.x) or (mayor < -c. R.x) then exit.

Extremos(v1. Y, v2. Y, v3. Y).

If (menor > c. R. Y) or (mayor < -c. R. Y) then exit.

Extremos(v1. Z, v2. Z, v3. Z).

If (menor > c. R. Z) or (mayor < -c. R. Z) then exit.

If not ch_traslapaplanocajaeje3(gr_creaplano3d(gr_productocruz(e1, e2).

Gr_productopunto (e1, e2)), ch_creacajaeje3(v1, c. R)) then exit.

Result := true.

End.
//------------------------------------------------------------------

Function ch_traslapaesferaplano (.

Const e: ch_resfera.

Const p: gr_rplano3d.
): bolean.

Begin.

Result := abs(gr_productopunto (e. C, p. N)-p. P) <=
E. R.

End.
//------------------------------------------------------------------

Function ch_traslapaesferamedioplano (.

Const e: ch_resfera.

Const p: gr_rplano3d.
): bolean.

Begin.

Result := gr_productopunto (e. C, p. N)-p. P <= e. R.

End.
//------------------------------------------------------------------

Function ch_traslapaesferatriángulo (.

Const e: ch_resfera.

Const t1, t2, t3: gr_rvector3d; // puntos del triángulo.

Var p: gr_rvector3d.
): bolean.

Var.

V: gr_rvector3d.

Begin.

Ch_mascercapuntotriángulo (e. C, t1, t2, t3, p).

V := gr_resta (por ejemplo C).

Result := gr_productopunto (v, v) <= e. R*e. R.

End.
//------------------------------------------------------------------

Function ch_traslapaesferaesfera (.

Const e1, e2: ch_resfera.
): bolean.

Var.

D2, r: single.

Begin.

D2 := gr_distanciacuadrada (e1. C, e2. C).

R := e1. R+e2. R.

Result := d2 <= r*r.

End.
//------------------------------------------------------------------

Function ch_traslapaesferacajaeje1(.

Const e: ch_resfera.

Const c: ch_rcajaeje1.
): bolean.

Begin.

Result := ch_distanciacuadradapuntocajaeje (e. C, c) <= e. R*e. R.

End.
//------------------------------------------------------------------

Function ch_traslapaesferacajaeje1(.

Const e: ch_resfera.

Const c: ch_rcajaeje1.

Var p: gr_rvector3d.
): bolean.

Var.

V: gr_rvector3d.

Begin.

Ch_mascercapuntocajaeje (e. C, c, p).

V := gr_resta (por ejemplo C).

Result := gr_productopunto (v, v) <= e. R*e. R.

End.
//------------------------------------------------------------------

Function ch_traslapaesferacajalibre (.

Const e: ch_resfera.

Const c: ch_rcajalibre.

Var p: gr_rvector3d.
): bolean.

Var.

V: gr_rvector3d.

Begin.

Ch_mascercapuntocajalibre (e. C, c, p).

V := gr_resta (por ejemplo C).

Result := gr_productopunto (v, v) <= e. R*e. R.

End.
//------------------------------------------------------------------

Function ch_traslapaesferacapsula (.

Const e: ch_resfera.

Const c: ch_rcapsula.
): bolean.

Var.

D2, r: single.

Begin.

D2 := ch_distanciacuadradapuntosegmento (c. A, c. B, e. C).

R := e. R+c. R.

Result := d2 <= r*r.

End.
//------------------------------------------------------------------

Function ch_traslapaesferapoligono (.

Const e: ch_resfera.

Const p: gr_rpoligono3d.
): bolean.

Var.

M: gr_rplano3d.

I, k: integer.

T: single.

Que: gr_rvector3d.

Begin.

Result := false.

M. N := gr_normaliza (gr_productocruz(gr_resta (p. V[1], p. V[0]), gr_resta (.

P. V[2], p. V[0]))).

M. P := -gr_productopunto (m. N, p. V[0]).

If not ch_traslapaesferaplano (e, m) then exit.

K := length(p. V).

I := 0.

J := k-1.
While i < k do.

Begin.

If ch_intersecarayoesfera (p. V[j], gr_resta (p. V[i], p. V[j]), t, que) and.
(T <= 1) then exit.

J := i.

Inc(i).

End.

Ch_mascercapuntoplano (e. C, que).

Result := ch_contienepuntopoligono (que, p).

End.
//------------------------------------------------------------------

Function ch_contienecajaeje1punto (.

Const c: ch_rcajaeje1.

Const p: gr_rvector3d.
): bolean.

Begin.

Result :=
((p.x >= c. Menor.x) and (p.x <= c. Mayor.x)) and.
((p. Y >= c. Menor. Y) and (p. Y <= c. Mayor. Y)) and.
((p. Z >= c. Menor. Z) and (p. Z <= c. Mayor. Z)).

End.
//------------------------------------------------------------------

Function ch_traslapacajaeje1plano (.

Const c: ch_rcajaeje1.

Const p: gr_rplano3d.
): bolean.

Var.

C1, e: gr_rvector3d.

R, s: single.

Begin.

C1 := gr_multiplica (gr_suma (c. Mayor, c. Menor), 0.5).

E := gr_resta (c. Mayor, c1).

R := e.x*abs(p. N.x)+e. Y*abs(p. N. Y)+e. Z*abs(p. N. Z).

S := gr_productopunto (p. N, c1)-p. P.

Result := abs(s) <= r.

End.
//------------------------------------------------------------------

Function ch_traslapacajaeje1cajaeje1(.

Const c1, c2: ch_rcajaeje1.
): bolean.

Begin.

Result :=
(c1. Mayor.x >= c2. Menor.x) and (c1. Menor.x <= c2. Mayor.x) and.
(C1. Mayor. Y >= c2. Menor. Y) and (c1. Menor. Y <= c2. Mayor. Y) and.
(C1. Mayor. Z >= c2. Menor. Z) and (c1. Menor. Z <= c2. Mayor. Z).

End.
//------------------------------------------------------------------

Function ch_traslapacajaeje2cajaeje2(.

Const c1, c2: ch_rcajaeje2.
): bolean.

Var.

T: single.

Begin.

Result := false.

T := c1. Menor.x-c2. Menor.x.

If (t > c2. D.x) or (-t > c1. D.x) then exit.

T := c1. Menor. Y-c2. Menor. Y.

If (t > c2. D. Y) or (-t > c1. D. Y) then exit.

T := c1. Menor. Z-c2. Menor. Z.

If (t > c2. D. Z) or (-t > c1. D. Z) then exit.

Result := true.

End.
//------------------------------------------------------------------

Function ch_traslapacajaeje3cajaeje3(.

Const c1, c2: ch_rcajaeje3.
): bolean.

Begin.

Result :=
(abs(c1. C.x-c2. C.x) <= (c1. R.x+c2. R.x)) and.
(Abs(c1. C. Y-c2. C. Y) <= (c1. R. Y+c2. R. Y)) and.
(Abs(c1. C. Z-c2. C. Z) <= (c1. R. Z+c2. R. Z)).

End.
//------------------------------------------------------------------

Function ch_traslapacajalibreplano (.

Const c: ch_rcajalibre.

Const p: gr_rplano3d.
): bolean.

Var.

R, s: single.

Begin.

R :=
C. R.x*abs(gr_productopunto (p. N, c. U[0]))+.

C. R. Y*abs(gr_productopunto (p. N, c. U[1]))+.

C. R. Z*abs(gr_productopunto (p. N, c. U[2])).

S := gr_productopunto (p. N, c. C)-p. P.

Result := abs(s) <= r.

End.
//------------------------------------------------------------------

Function ch_traslapacajalibrecajalibre (.

Const c1, c2: ch_rcajalibre.
): bolean.

Var.

R1, r2: single.

R, ar: gr_rmatriz3x3.

I, j: integer.

T: gr_rvector3d.

Begin.

Result := false.

For I := 0 todo 2 do.

For := 0 todo 2 do.

R. M[i,j] := gr_productopunto (c1. U[i], c2. U[j]).

T := gr_resta (c2. C, c1. C).

T := gr_creavector3d(gr_productopunto (t, c1. U[0]), gr_productopunto (t.

C1. U[1]), gr_productopunto (t, c1. U[2])).

For I := 0 todo 2 do.

For := 0 todo 2 do.

Ar. M[i,j] := abs(r. M[i,j])+gr_epsilon.

For I := 0 todo 2 do.

Begin.

R1 := c1. R. M[i].

R2 := c2. R. M[0]*ar. M[i,0]+c2. R. M[1]*ar. M[i,1]+c2. R. M[2]*ar. M[i,2].

If abs(t. M[i]) > r1+r2 then exit.

End.

For I := 0 todo 2 do.

Begin.

R1 := c1. R. M[0]*ar. M[0,i]+c1. R. M[1]*ar. M[1,i]+c1. R. M[2]*ar. M[2,i].

R2 := c2. R. M[i].

If abs(t. M[0]*r. M[0,i]+t. M[1]*r. M[1,i]+t. M[2]*r. M[2,i]) > r1+r2 then exit.

End.

R1 := c1. R. M[1]*ar. M[2,0]+c1. R. M[2]*ar. M[1,0].

R2 := c2. R. M[1]*ar. M[0,2]+c2. R. M[2]*ar. M[0,1].

If abs(t. M[2]*r. M[1,0]-t. M[1]*r. M[2,0]) > r1+r2 then exit.

R1 := c1. R. M[1]*ar. M[2,1]+c1. R. M[2]*ar. M[1,1].

R2 := c2. R. M[0]*ar. M[0,2]+c2. R. M[2]*ar. M[0,0].

If abs(t. M[2]*r. M[1,1]-t. M[1]*r. M[2,1]) > r1+r2 then exit.

R1 := c1. R. M[1]*ar. M[2,2]+c1. R. M[2]*ar. M[1,2].

R2 := c2. R. M[0]*ar. M[0,1]+c2. R. M[1]*ar. M[0,0].

If abs(t. M[2]*r. M[1,2]-t. M[1]*r. M[2,2]) > r1+r2 then exit.

R1 := c1. R. M[0]*ar. M[2,0]+c1. R. M[2]*ar. M[0,0].

R2 := c2. R. M[1]*ar. M[1,2]+c2. R. M[2]*ar. M[1,1].

If abs(t. M[0]*r. M[2,0]-t. M[2]*r. M[0,0]) > r1+r2 then exit.

R1 := c1. R. M[0]*ar. M[2,1]+c1. R. M[2]*ar. M[0,1].

R2 := c2. R. M[0]*ar. M[1,2]+c2. R. M[2]*ar. M[1,0].

If abs(t. M[0]*r. M[2,1]-t. M[2]*r. M[0,1]) > r1+r2 then exit.

R1 := c1. R. M[0]*ar. M[2,2]+c1. R. M[2]*ar. M[0,2].

R2 := c2. R. M[0]*ar. M[1,1]+c2. R. M[1]*ar. M[1,0].

If abs(t. M[0]*r. M[2,2]-t. M[2]*r. M[0,2]) > r1+r2 then exit.

R1 := c1. R. M[0]*ar. M[1,0]+c1. R. M[1]*ar. M[0,0].

R2 := c2. R. M[1]*ar. M[2,2]+c2. R. M[2]*ar. M[2,1].

If abs(t. M[1]*r. M[0,0]-t. M[0]*r. M[1,0]) > r1+r2 then exit.

R1 := c1. R. M[0]*ar. M[1,1]+c1. R. M[1]*ar. M[0,1].

R2 := c2. R. M[0]*ar. M[2,2]+c2. R. M[2]*ar. M[2,0].

If abs(t. M[1]*r. M[0,1]-t. M[0]*r. M[1,1]) > r1+r2 then exit.

R1 := c1. R. M[0]*ar. M[1,2]+c1. R. M[1]*ar. M[0,2].

R2 := c2. R. M[0]*ar. M[2,1]+c2. R. M[1]*ar. M[2,0].

If abs(t. M[1]*r. M[0,2]-t. M[0]*r. M[1,2]) > r1+r2 then exit.

Result := true.

End.
//------------------------------------------------------------------

Function ch_traslapacapsulacapsula (.

Const c1, c2: ch_rcapsula.
): bolean.

Var.

S, t, d2, r: single.

Pc1, pc2: gr_rvector3d.

Begin.

D2 := ch_mascercasegmentosegmento (c1. A, c1. B, c2. A, c2. B, t, pc1, pc2).

R := c1. R+c2. R.

Result := d2 <= r*r.

End.
//------------------------------------------------------------------

Function ch_traslapapolitopopolitopo (.

Const p1, p2: ch_rpolitopo // politopues del mismo orden par.
): bolean.

Var.

I: integer.

Begin.

Result := false.

For I := 0 todo (length(p1. Menores) shr 1)-1 do.

Begin.

If (p1. Menores[i] > p2. Mayores[i]) or (p1. Mayores[i] < p2. Menores[i]) then.

Exit.

End.

Result := true.

End.

End.

Mañana te explico, y te indico donde hay recursos que te puedan ayudar. Ya está un poco tarde por aquí.

[aprendiz]

Bueno pues espero con ganas que me contextes mañana, mientras mirare ese código, creyéndome que lo estoy entendiendo (mi primer contacto hoy con este lenguaje y ya tengo ganas de aprenderlo, aunque antes quiero acabar el juego que estoy haciendo).

Pues lo de las colisiones yo en Blitz conseguí lo de que la esfera choque contra un polígono (sin usar las colisiones del Blitz), pero no sabía que fuera tan complejo a nivel de un motor. Realmente quería entender como colisionar una esfera contra un polígono porque así podría invertir el proceso, es decir, lo que quería era lo contrario -> polígono a esfera, ya que Blitz3d no soporta este tipo de colisión.

Y no acabo de entender lo de las colisiones y el hardware.

Con el tema de ayudarte, va a ser que no podría, por lo menos de momento, para cuando pueda hacerlo ya habrás acabado supongo. Saludos y muchas gracias.

[marcoantap]

Hola amigo aprendiz, aquí me encontré varios recursos que te pueden ser útiles para aprender object pascal: http://www.frepascal.es/index.php. http://www.frepascal.es/cursos.php.

Básicamente para probar si un polígono, choca con una esfera, necesitas descomponer la Maya en sus triángulos, y probar cada triángulo contra la esfera. Esto es un poco lento en Blitz, pero se puede lograr. Si la Maya es muy compleja, puedes usar una versión en bajos polígonos para obtener una aproximación más rápido. Si quieres mejor abre un tema aparte y te ayudo en lo que pueda.

Bueno, yo también necesito terminar mi juego primero. Tal vez en el futuro podamos hablar del motor nuevamente. Saludos.

Marco.

[aprendiz]

Pues gracias por tu ayuda. Pues si me esperas para continuar el motor mejor, me haría mucha ilusión poder ayudar en un proyecto de ese tamaño, y aprendería bastante también, para poder crear yo un motor después.

Releyendo uno de tus mensajes, en uno que me ponías que aprendiera protocolos, transmisiones etc, a que te referias? Para hacer un juego en línea dices?
El tema de las colisiones podemos abrir un tema en la sección videojuegos, si te parece, y hay te muestro mi código.bb y tu me dices que hago mal, o que no hago, ¿ok?
Posdata: piensas vender el motor?
Edito: ya había abierto un hilo de colisiones Blitz, ahora puse los códigos que cree, hechos íntegramente por mi. Pero como podrás ver, tienen múltiples fallos, además de que las frames por segundo van a caer muy rápido si incluyo física, BB en un juego. Bueno, espero que puedas ayudarme porque pause el proyecto que no sabía cómo continuar. Esta aquí: https://www.foro3d.com/f113/Blitz-ba...nes-94358.html.

[marcoantap]

Sí, deberías aprender a hacer juegos en línea, y eso lleva un poco de bajo nivel. Por ejemplo, tienes que trabajar con encriptación, compresión, protocolos, seguridad de servidores, y si te vas más abajo hasta con la configuración de redes y ensamblaje de servidores.

Sobre el motor, pues quiero venderlo claro, después de tantos años trabajando en este se vuelve necesario. Pero quiero hacerlo de manera que, esté al alcance de otros indie developers como nosotros. Más adelante podría verse el tema de las licencias.

Voy a mirar el tema que abriste y te escribo ahí.

[aprendiz]

Ok, parece que este hilo fue creado para mi. Bueno, hablamos en la sección videojuegos, que creo que es mejor allí preguntarte todas mis dudas.

Por cierto, he mirado las páginas que me pusiste de pascal, y se ve interesante. En cuanto acabe el juego que estoy haciendo (ayudado por una persona) pues ampliaré a algo más. Pero, tenía en mente C++, aunque viendo pascal parece más fácil, que me recomiendas? Tu has echo el motor solo en pascal? Dime así a tu modo de ver las diferencias, no sé.oriéntame un poco. Gracias.

[marcoantap]

Les tengo la noticia que ya comenzamos a formar el equipo y tenemos el primer modelo, el caballero de armadura ligera creado en Cinema 4D:


Además, parece que pronto tendremos la melodía de fondo del juego.

Aún hay vacantes para la creación de los efectos de sonido, y necesitamos más manos en modelado y texturizado. Un saludo.

Marco.

[marcoantap]

Tenemos una demo no-jugable de este personaje:
demo 1.

[marcoantap]

Ya tenemos bastante material, seguiré subiendo más muestras a esta galería: http://wcu.co/@marco/gamedev/castle_questívg=c.

Y aún hay vacantes *** únete a este proyecto ***.