Realizar este sencillo ejercicio en Delphi.

[elpupas7]

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.

[Casimiro Noteví]

¿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

[elpupas7]

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.

[Ñuño Martínez]

Empezado por elpupas7

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.

[Casimiro Noteví]

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/

[elpupas7]

Solicito de algún Moderador que elimine este hilo.

Gracias.

[ecfisa]

Hola elpupas7.

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

Saludos.

[Neftali [Germán.Estévez]]

Empezado por elpupas7

Solicito de algún Moderador que elimine este hilo.

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.

[Neftali [Germán.Estévez]]

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.

[Neftali [Germán.Estévez]]

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