Realizar este sencillo ejercicio en Delphi.

[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.

[elpupas7]

Empezado por 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.

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.

[Casimiro Noteví]

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

[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.