Realizar este sencillo ejercicio en Delphi.
 

LA PRUEBA:
Pantalla de 640x480.
Un objeto dado (32x32) en pantalla que rebota en todas las paredes.
Ver cuantos objetos hacen falta para que el fps caiga a 10.
O bien ver cuantos soporta a 50.
O para los engines ultrarápidos ver cuantos fps con 20.000 objetos.

Resumen de pruebas:

Stand-Alone (.exe)
Fps=50.

P4 3 GHz, 2 GB Ram, Geforce 6600

1. mmf2 std : 920
2. mmf2 hwa: 20.000 (51 fps)
3. gamemaker: 2.500
4. scirra: 7.800
--------------------------------------------------------------------------
IMAC i7 2.93 Quad, 4 GB Ram, Ati hd5750 (vmware fusion - WinXP)

1. mmf2 std: 1.500
2. mmf2 hwa: 20.000 (100 fps)
3. gamemaker: 1.900 (curioso el bajo rendimiento)
4. scirra: 21.300 (con breves caidas a 15 fps cada 10 segundos)
---------------------------------------------------------------------------
Falta por compararlo con los pesos pesados, vease C/C++, Delphi ...
-----------------------
Podeis ver los ejemplos que tenemos hasta ahora en el siguiente link:
Buscar en Taringa: " el engine mas rapido".

PREGUNTA:
¿Y no será más fácil poner el link?

Bienvenido a los foros.

¿Está hecho en Delphi?
¿Código fuente?
¿?¿?

Creo recordar que los novatos no pueden poner enlaces. Lo que no sé es si además identifica URLs y las anula o algo, que puede ser.

-------------
No me deja poner links.
De momento está hecho en Multimedia Fusion, Gamemaker y Scirra.
El tema es hacerlo en Delphi, C/C++ ...
-------------
De todos modos, gracias por interesarte.
Saludos.

Para el moderador:
----------
Se trata de hacer el mismo ejercicio en todos los engines/lenguajes mas habituales.
-------
No es una prueba definitiva pero es sencilla y es clarificadora.
-------
En este site se pide realizarlo en los lenguajes que aquí se manejan.
--------
No sé si está posteado en la sección que le corresponde ...
en todo caso puedes moverllo al mas adecuado.
---------
Gracias a tí tambien por interesarte.

En taringa: buscar el único post de elpupas7

Ahora en serio, te lo diré directamente.

¿Pretendes que te hagamos el programa nosotros? Porque si es eso, dudo que alguien lo haga. Este foro es para resolver dudas, no para hacer el trabajo de nadie, ni tareas del colegio, ni exámenes, ni nada de eso.

Si hay algo que no entiendes, busca, y si no encuentras una buena aclaración entonces expón tu duda siguiendo las recomendaciones de la Guía de estilo.

Bien, último intento.
-------------------
Se trata de hacer un ejercicio común para los lenguages mas populares.
Se ha escogido este por ser sencillo y a la vez practico.
-----
Se hará público el pgma con el nombre del programador.
-----
Ni se me ocurre programar esto en todos los engines. Lo mas sencillo es pedirlo a quienes dominen el lenguaje. Por mi parte ya lo he hecho con 3 motores.
----
Ni es trabajo escolar ni nada por el estilo.
Esto surgió en un foro, en concreto en el "mmfzone" dedicado al multimedia fusion, del que soy uno de los administradores y me pareció una buena idea universalizar este propósito.
Se ha hecho también en Java y en Flash.
No hay en toda la web un ejercicio de este estilo y es hora de que exista alguno.
---
Por último si a alguien le parece bien echar una mano con esto pues adelante. Y si no, pues tampoco pasa nada.
---
Saludos.

¿Y por qué no has explicado todo eso antes?, es que parece que gusta ocultar información y eso sólo crea desconfianza.
Debías haber empezado explicando en qué consiste el proyecto, para qué, cómo se está haciendo, la web donde se muestran los programas en diferentes lenguajes, resultados de las pruebas, un lugar donde descargar esos programas para que la gente los pruebes, ver el código fuente de todos ellos para tener claro de qué va y cómo hacerlo, etc. resumiendo: información. Y no lo que has hecho, ocultación.

Puedes hacerlo, todavía estamos a tiempo :)

OK. Intentaré añadir algo de luz al tema.

Se trata de un post existente en Taringa aqui; Dado que hay que registrarse para verlo, aprovechemos que yo ya lo estoy, y os adjunto la versión pdf, para que podáis leerlo.

Por si a alguien le interesa participar.

Sería necesario, por no decir imprecindible tener acceso a los códigos fuentes de las aplicaciones.
Si no todo esto pierde su gracia. :(

1. Estan posteadas las distintas pruebas en Taringa. A parte de en nuestro foro, claro está. El sistema no me deja poner links. Esto ya estaba dicho.
Poner el Taringa en el buscador "elpupas7" y lo podreis ver.
2. Las descargas en el mismo sitio.
3. El código fuente pertenece al programador, no se pide ni se ofrece.
4. El ejercicio a realizar está explicado. Es sumamente sencillo.
Resumiendo.
a. No hay ocultación por ningún sitio.
b. No falta información.

Discrepo: no has dado información "vital" en tus tres primeros mensajes, por lo que no sabíamos qué estás buscando o cuál es tu problema. Ahora que ya está aclarado ese punto, pues hay menos ocultación.

Referente a lo del código fuente, como bien dices es propiedad del autor del mismo y se hará lo que este quiera, pero me parece bastante inútil no publicarlo en este caso puesto que el rendimiento depende mucho de la implementación (por ejemplo, ¿usa listas simples o enlazadas para almacenar y recorrer los objetos? ¿Los objetos son bitmaps, vectoriales, poligonales...? ¿Para evitar parpadeos usa doble-buffer, triple-buffer, paginación, copia, dirty-rectangles... o da igual si parpadea o no?). Si lo que se busca es comparar el rendimiento de dos motores/bibliotecas/compiladores diferentes (o de sus distintas combinaciones) es imprescindible saber qué algoritmos utiliza (nótese el plural de "algoritmos"). Un cambio en una sóla línea puede afectar dramáticamente al rendimiento, así como las muchas opciones de compilación existentes: manejo de pilas, marcos de memoria, cachés, microprocesador de destino, etc. Y ojo, que un algoritmo/opción que funcione "bien" con un motor puede funcionar "mal" en otro, y viceversa.

Voy a aportar mi granito de arena con un ejemplo que colgué en esta página de la Wiki de Allegro.pas, para mostrar el uso de "timers". A partir de él es fácil crear un programa que haga lo que pides usando Allegro.pas.

Código Delphi [-]
(* An example to keep speed on different computers. *)
PROGRAM timers2;
 
USES
  allegro, sysutils;
 
TYPE
(* Defines the ball "sprite". *)
  TSprite = RECORD
  (* Center. *)
    X, Y,
  (* How it is. *)
    Color,
  (* Movement. *)
    SpeedX, SpeedY: INTEGER;
  END;
 
 
 
VAR
(* Count how many ticks are in queue. *)
   CntTicks: INTEGER;
(* Some color "constants". *)
   BackgroundColor, ShadowColor: INTEGER;
(* Ball values. *)
   Ball: ARRAY [1..10] OF TSprite;
(* DoubleBuffer. *)
   BackBuffer: AL_BITMAPptr;
   CntBall: INTEGER;
 
 
 
(* Helper for errors.  Ensures a clean exit. *)
  PROCEDURE RaiseError (Message: STRING);
  BEGIN
    al_message (Message);
    al_exit;
  END;
 
 
 
(* Interruption procedure: adds one tick to the ticks queue. *)
  PROCEDURE IntTicks; CDECL;
  BEGIN
    INC (CntTicks);
  END;
 
 
 
(* Program starts here. *)
BEGIN
{ Initialization. }
  IF NOT al_init THEN
  BEGIN
    WriteLn ('Error initializing Allegro!');
    EXIT;
  END;
  IF NOT al_set_gfx_mode (AL_GFX_SAFE, 640, 480, 0, 0) THEN
  BEGIN
    RaiseError ('Can''t initialize graphics mode');
    EXIT;
  END;
  BackBuffer := al_create_bitmap (AL_SCREEN_W, AL_SCREEN_H);
  IF BackBuffer = NIL THEN
  BEGIN
    RaiseError ('Can''t create double buffer!');
    EXIT;
  END;
  ShadowColor := al_makecol (0, 0, 0);
  BackgroundColor := al_makecol (255, 255, 255);
  al_install_keyboard;
{ Installs the timer interrupt.  Executes it 50 times each second. }
  al_install_timer;
  IF NOT al_install_int_ex (@IntTicks,  AL_BPS_TO_TIMER (50)) THEN
  BEGIN
    RaiseError ('Can''t intall timer interruption');
    EXIT;
  END;
{ Initialize balls. }
  Randomize;
  FOR CntBall := 1 TO 10 DO
  BEGIN
    Ball[CntBall].X := Random (AL_SCREEN_W - 50) + 25;
    Ball[CntBall].Y := Random (AL_SCREEN_H - 50) + 25;
    Ball[CntBall].Color := al_makecol (Random (64) * 3, Random (64) * 3, Random (64) * 3);
    REPEAT
      Ball[CntBall].SpeedX := Random (8) - 4;
      Ball[CntBall].SpeedY := Random (8) - 4;
    { To prevent static balls. }
    UNTIL (Ball[CntBall].SpeedX <> 0) AND (Ball[CntBall].SpeedY <> 0);
   END;
{ Main loop. }
  CntTicks := 1; { One tick in queue. }
  REPEAT
  { If there are ticks in the queue, updates the animation. }
    WHILE CntTicks > 0 DO
    BEGIN
      FOR CntBall := 1 TO 10 DO
      BEGIN
      { Animates the ball. }
        INC (Ball[CntBall].X, Ball[CntBall].SpeedX);
        INC (Ball[CntBall].Y, Ball[CntBall].SpeedY);
      { Collision. }
        IF ((Ball[CntBall].X < 25) AND (Ball[CntBall].SpeedX < 0))
        OR ((Ball[CntBall].X > AL_SCREEN_W - 25) AND (Ball[CntBall].SpeedX > 0))
        THEN
          Ball[CntBall].SpeedX := -Ball[CntBall].SpeedX;
        IF ((Ball[CntBall].Y < 25) AND (Ball[CntBall].SpeedY < 0))
        OR ((Ball[CntBall].Y > AL_SCREEN_H - 25) AND (Ball[CntBall].SpeedY > 0))
        THEN
          Ball[CntBall].SpeedY := -Ball[CntBall].SpeedY;
      END;
    { One tick less. }
      DEC (CntTicks);
    { If there are more than 25 frames in queue then may be the computer is too much slow! }
      IF CntTicks > 25 THEN
      BEGIN
        RaiseError ('Your computer is too much slow and I can''t keep the rithm!');
        EXIT;
      END;
    END;
  { Updates screen. }
    al_clear_to_color (BackBuffer, BackgroundColor);
    FOR CntBall := 1 TO 10 DO
      al_circlefill (BackBuffer, Ball[CntBall].X + 2, Ball[CntBall].Y + 2, 25, ShadowColor);
    FOR CntBall := 1 TO 10 DO
      al_circlefill (BackBuffer, Ball[CntBall].X, Ball[CntBall].Y, 25, Ball[CntBall].Color);
    al_vsync; { To prevent "waveing". }
    al_blit (BackBuffer, al_screen, 0, 0, 0, 0, AL_SCREEN_W, AL_SCREEN_H);
  { Until user press a key. }
  UNTIL al_keypressed;
{ End. }
  al_exit;
END.

Ojo que usa "timers" para mantener la velocidad de la animación lo más constante que se pueda, por lo que habría que quitarlo para obtener la máxima velocidad, aparte de añadir más interacción para que el usuario "añada" o "elimine" bolas para comprobar cómo afecta al rendimiento, poner un contador de bolas, etc. Además, usa un doble-buffer simple que puede mejorarse muchísimo (paginación y/o triple-buffer o simplemente añadir dirty-rectangles aceleraría mucho la cosa) y seguro que pueden optimizarse otro montón y medio de cosas. Ahora no voy a hacerlo porque estoy en el curro, y luego... Bueno, hay un par de bugs en Allegro.pas que requieren mi atención "urgentísimamente", así que por ahora no haré mucho más. :p

Sí ha habido ocultación de información.
Si no hay código fuente de los demás entonces esto no vale nada.
Sí puedes poner links, 'disimulándola', ejemplo: ttp://www.loquesea.com/

Solicito de algún Moderador que elimine este hilo.

Gracias.

Hola elpupas7.

No veo nada en este hilo que amerite ser eliminado, ¿ Serías tan amable de indicarnos el motivo de tu pedido ?

Saludos.

Salvo que exista alguna razón de peso (y no se me ocurre ninguna por ahora) para tu petición, no me parece correcto hacer eso, pues es un hilo que aunque tú has abierto, contiene participaciones y código de otros usuarios. La eliminación supondría eliminar también esas contribuciones.

Si explicas las razones de tu petición (o hazlo en privado, si lo deseas) podemos buscar alguna solución, pero la que propones no parece factible.

Un saludo.

Sin problema.

Pero, lo primero, manifestarte mi extrañeza en cuanto a que se necesitan méritos para eliminar un hilo. ¿ No se necesitarán para que permanezca ?

Te cuento mis razones, no porque crea que os puedan ser suficientes (cada foro tiene su talante y sobre esto nada que decir, aunque si lo que se puede esperar) sino porque soy persona educada y ante una pregunta formalmente correcta, que menos que una sincera respuesta.

A groso modo:

1. El motivo que me ha impulsado a crear este hilo ya no existe. Es más, lo considero un error.

2. Se hace referencia a un post creado en Taringa, dónde estaban alojadas las distintas implementaciones del ejercicio propuesto, que ya no existe.

3. Ya soy mayorcito para que nadie me acuse de "ocultación". No será que se confunde una posible "falta de información" con "ocultación". La ocultación entraña voluntariedad, por lo tanto "intencionalidad" y dudo mucho de la capacidad para que nadie pueda leer mi intención al punto de formular tal acusación. Y digo esto para que puedas calibrar el mérito o demérito de los post de este hilo. Mi opinión es que mucha no tienen.

4. El único post que se puede salvar de forma relativa es el que hace referencia a un listado de código, que ya está posteado en otro site, que no responde a lo que se pedía y que tiene en palabras de su autor correcciones a realizar. En todo caso, por ser un intento de aproximación, lo considero el único post con "méritos" suficientes.

5. En definitiva y por no alargar esto demasiado, este hilo es bastante lamentable y me avergüenza figurar en él. Con mayor razón por haber disparado tal suerte de desatinos.

Claro está, es mi opinión y otros tendrán la suya.

Y que nadie "lea" en esto algún síntoma de acritud o desdén hacia nadie, que no hay tal. Simplemente, ha sido un error y preferiría que este error se suprimiese. Creo que a nadie le gusta ir dejando lastre de sus errores. En todo caso, a mi, no.

Saludos.

Desgraciadamente, todos nos equivocamos alguna vez (muchas veces) y no por ello podemos "desequivocarnos" (justo aprendemos de los errores).
¿Te imaginas a la gente pidiendo que modifiquen en libros cosas que dijeron? (*), lo dicho, dicho está.
Todos hemos dicho/escrito cosas de las que nos avergonzamos, pero ahí están y no vamos a ir a borrar los posts, quemar los libros, eliminar las cintas de VHS, etc.
No se debe eliminar el mensaje porque incluso se ha aportado código.
De todas formas, si estás tan preocupado por tu imagen, ¿quién va a hacer una búsqueda por "elpupas7" cuando quieran saber de ti?.
Evidentemente, nadie.
Creo que todos estamos de acuerdo en que no se borre, aunque podemos pasarlo a la sección de "Humor" o a "La taberna", si quieres.

Saludos

(*) En 1984 lo hacen, tenían a gente para modificar los periódicos antiguos, incluso :)

Me lo has dejado en bandeja.

Si no me arrepiento de mis propios post, sino del hilo en si, en concreto de algunas respuestas que, efectivamente, son más un chiste que una respuesta.
Creía que este era un foro "serio", de ahí el error, cuando se trata de un foro con algunos "chistosos".

Primero me acusas de "ocultación" y veo que no hay rectificación. No contento con ello, hablas de mi preocupación por mi imagen y de que nadie va a buscar mi nick en buscador alguno. ¿ Qué será lo siguiente ? Si, tienes razón, será mejor poner este hilo en la sección de chistes.

Comparar un hilo editable o suprimible con un libro publicado es sin duda uno de tus chistes. ¿ No te agota tanta hilaridad ?

Pero mira, no pido que se suprima el hilo, acabo de cambiar de opinión. Que se deje el primer post y el que contiene el código. El resto, a la sección de humor.

A ver que disparate se te ocurre ahora, porque callado no te vas a quedar, no. De eso podemos estar seguros.

Saludos, igualmente.

Disculpa, pero para "chistoso", tu primer post, demuestra entre otras cosas que ni te has molestado en conocer las normas de estos foros.
Y efectivamente, es un foro serio, tú eres el chistoso en este caso.

Está claro que así ha sido, no contaste "toda la historia", sólo lo que te interesó. Y vuelvo a decir lo mismo, es de chiste tu primer post.

Según tu criterio, entonces, se debería permitir que el estado o las empresas encargadas puedan leer nuestros emails privados, ya que no están en un papel escrito y en un sobre que no tienen que abrir.
Otro chiste por parte tuya, ¡vaya mentalidad!

No, amigo, el hilo completo se quedará ahí, para que todos puedan conocer el chiste y puedan reirse a gusto, no vamos a dejar a los demás sin conocer el final de la historia.

Disparate el tuyo, un gran disparate, es tan grande tu disparate que quieres eliminarlo para que nadie se entere.

Saludos

Ná.

Juegas al "y tu más".
El recurso de los "sin recursos". Total falta de ingenio. Retiro lo de "chistoso", no das la talla.
Una pequeña decepción, tengo que admitirlo. Esperaba algo más.

Y no, ya no quiero que se elimine. Que cada uno quede retratado. La vergüenza ajena tiene su límite, por fortuna el umbral es bajo.

Ciao.

No, amigo, lo del "y tú más" son los argumentos de los políticos para justificarse. Aquí no hay nada de eso.

El caso es que no has dado ni una explicación y ni un argumento convincente para que se borre el hilo.
Siento que te moleste, pero así son las cosas, hoy tú quieres que se borre algo que dijiste, mañana otro forero pedirá que se borre algún insulto que soltó y finalmente nos pasaremos el día editando mensajes para cambiar según nos convenga a cada momento.

Yo también tengo muchas cosas dichas/escritas que no me gustaría haberlas dicho/escrito, muchas de ellas están en estos foros, por lo que puedo editarlas, borrarlas y hacerlas desaparecer, pero no lo hago, así cuando las veo (y me averguenzo de leer lo que yo mismo escribí) me sirve de aprendizaje para otras veces no volver a cometer el mismo error.

No les des tanta importancia a este asunto, no la tiene, todos los que te quieren van a seguir queriéndote igual, y seguro que eres una estupenda persona y tienes a gente que te aprecia.

Saludos, amigo :)

Nada, tranquilo.

Ya he visto que en el site se respira bastante humor, lo cual me alegra, por lo que si en algún momento he podido pensar que este hilo podría tener algo de "impropio", ya no lo veo así.

Nada, paz y después gloria.

Por cierto, en Fahrenheit 451... se quemaban libros.
Ahora intenta hilar esto con lo de 1984.
5 a 1 a qué no.

Salud.

Cierto, pero tú no estarás de acuerdo en que se quemen libros y se pierda lo escrito, ¿no? ;)

Claro que no.

Soy de los que montan en cólera cuando se me cambia el formato de las películas.
El legado cultural es de los bienes más preciados y su defensa no admite excusa. Eso sí, conservando el original, el que ha querido el autor, no el que quiere el exhibidor (hablo de cine).

Ahora bien, y veo que insistes en el tema, hay ciertas obras de pretendido culto, que creo que la humanidad no se perdería gran cosa con su desaparición.
Sin ir más lejos, ciertas películas de Ferreri por ejemplo. Y esto es aplicable a cualquier otro ámbito. Pero... me puede el respeto al autor y tener un espíritu contra-censura, de modo que no seré yo quién encienda la mecha. Pero tampoco será por mí, que se intoxiquen las mentes del respetable, es decir... que no las voy a recomendar, ni siquiera como mal ejemplo.

Salud.

Marco Ferreri es un caso bastante peculiar, sus películas provocan bastante polémica entre una parte importante de la gente, personalmente no me gustan, aunque los temas que trata pienso que se les puede sacar buen partido, pero de otra forma.

Bueno, por fin he conseguido que el sistema me notificase de forma "instantánea" los nuevos post a temas suscritos. Ya estaba un poco mosca.

No, si al final nos vamos a llevar bien y todo. El hecho de que conozcas al amigo Marco ya es un punto a tu favor.
Tan solo decirte que en mi vida me he salido del cine en dos ocasiones. Y una fue con "Historia de Piera" (titulo en España, no sé si estás aquí o no, aunque supongo que sí por el horario). El que ha hecho "el cochecito" "el pisito" o hasta "Dillinger ha muerto" y que haga esta... cosa !

En fin, he citado a Ferreri, por no citar a otros, era sólo un ejemplo.

Este hilo esta perdiendo su propósito inicial y no quiero que me acusen de una hábil maniobra para que lo eliminen. :)

Por mi, la cosa ha quedado zanjada.
Tan sólo pedir a los anfitriones que tengan un poco más de "mano izquierda" con los nuevos visitantes, que tampoco cuesta tanto.
Un moderador debería (entiendo yo), dar al menos el beneficio de la duda antes de precipitarse a realizar acusaciones aventuradas. No sabes con quién te puedes encontrar, por lo tanto un poco de paciencia no vendría mal. Los juicios anticipados no son buena moneda de cambio.

Aún así, también entiendo el hastío al que se puede llegar tras una estancia prolongada en cualquier plaza.

Y con esto quisiera dejar terminado este pequeño "malentendido".
Por mi parte, todo ok.

Salud.

En Málaga

Saludos ^\||/

Mi opinión como moderador es cerrarlo.
Este hilo ya no da más de si.

Pues si no hay más que decir ciérralo:
Closed
geschlossen
fermé
κλειστό
chiuso
закрыто
關閉

amen. ^\||/

Un saludo.

P.D.: Al final hemos conseguido un buen forero y un mejor amigo.

He decidido hacer el ejercicio en Delphi, cuando lo termine en Visual C++ (lo estoy haciendo a ratos libres, va lento).
Por lo cual, quizás sea preferible no cerrarlo. Ya puestos, porque no terminar lo propuesto y cerrarlo debidamente.

En todo caso, a mandar. Tampoco me cuesta nada abrir uno nuevo cuando el tema esté resuelto.

Una cuestión: ¿ No se pueden postear ficheros SWF (flash) o en HTML5 ?

Saludos.

Ejercicio "Rebotes"

Pongo aquí el ejercicio pretendido que próximamente subiré en Delphi, con su código fuente, como está mandado.

Saludos.

^\||/..........

Pues a mi este hilo me parece muy bueno, creo que hubo cierto malentendido al principio, pero son cosas que pasan.

En todo caso el tema planteado por elpupas7 es muy interesante, porque puede servir, aunque mucha gente de aqui ya lo sabe, para que quienes desconocen pascal, object pascal o Delphi, se den cuenta de lo que no sabían, o de lo equivocados que podían estar. Como digo, nosotros ya lo sabemos, pero "ahí afuera" hay mucha gente programando que tiene una idea muy equivocada de lo que es Delphi y pascal. O ninguna idea. Por ejemplo, toda esa gente que se piensa que java es lo mejor, o los pobrecillos del "Pascal es para aprender".

Una misma aplicación hecha con distintos lenguajes es una muy buena forma de divulgación. Sobre todo una como esta, con unos bichos pegandose torzazos contra las paredes, que digo yo que no debe ser nada fácil hacerla bien hecha.

Ahora falta ver si puede mejorarse, claro. :D

Un saludo!