Hello Edgar
Yes, This is what I mean, and I will attach a C program
Hello Peter
Yes, the problem is related to ALLEGRO_TIMEOUT
(1) The Ring code uses a pointer for the ALLEGRO_TIMEOUT and doing the initialize operation just one time! ---> (I fixed that to avoid the problem, Thanks 
)
(2) It was also a change in behavior between Allegro 5.1.11 and Allegro 5.2.4 where the problem doesn't exist in Allegro 5.1.11
Attached the C source code, written just for testing to demonstrate the change.
1#include "stdlib.h"
2#include "stdio.h"
3
4#define ALLEGRO_NO_MAGIC_MAIN
5
6#include <allegro5/allegro.h>
7#include <allegro5/allegro_color.h>
8
9int SCREEN_W = 800;
10int SCREEN_H = 600;
11int FPS = 60;
12int Counter = 0;
13int RunProgram = 1;
14int Wait = 7;
15
16ALLEGRO_EVENT_QUEUE *event_queue = NULL;
17ALLEGRO_DISPLAY *display = NULL;
18ALLEGRO_TIMER *timer = NULL;
19
20void Setup(void);
21void EventsLoop(void);
22void DrawScene(void);
23void FreeResources(void);
24
25int main(int argc,char *argv) {
26 printf("Welcome to the Timer test program!\n");
27 printf("The program must wait for around 7 seconds then exit!\n");
28 Setup();
29 EventsLoop();
30 FreeResources();
31 return 0;
32}
33
34void Setup(void) {
35 al_init();
36 al_set_new_display_flags(ALLEGRO_OPENGL);
37 al_set_new_display_option(ALLEGRO_DEPTH_SIZE, 16, ALLEGRO_SUGGEST);
38 display = al_create_display(SCREEN_W,SCREEN_H);
39 al_set_window_title(display,"Test Timer");
40 al_clear_to_color(al_map_rgb(0,0,0));
41 event_queue = al_create_event_queue();
42 al_register_event_source(event_queue,al_get_display_event_source(display));
43 timer = al_create_timer(1.0 / FPS);
44 al_register_event_source(event_queue,al_get_timer_event_source(timer));
45 al_start_timer(timer);
46 al_install_mouse();
47 al_register_event_source(event_queue, al_get_mouse_event_source());
48 al_install_keyboard();
49 al_register_event_source(event_queue, al_get_keyboard_event_source());
50 al_flip_display();
51}
52
53void EventsLoop(void) {
54 int redraw = 0 ;
55 while (RunProgram) {
56 ALLEGRO_EVENT ev ;
57 ALLEGRO_TIMEOUT timeout ;
58 // We can ignore the next line in Allegro 5.1.11 (But we can't do that for Allegro 5.2.4)
59 // al_init_timeout(&timeout, 0.06);
60 al_wait_for_event_until(event_queue, &ev, &timeout);
61 switch( ev.type ) {
62 case ALLEGRO_EVENT_DISPLAY_CLOSE :
63 RunProgram = 0;
64 break;
65 case ALLEGRO_EVENT_TIMER :
66 redraw = 1;
67 break;
68 }
69 if (redraw && al_is_event_queue_empty(event_queue) ) {
70 redraw = 0 ;
71 DrawScene();
72 }
73 }
74}
75
76void DrawScene(void) {
77 Counter++;
78 if (Counter == FPS * Wait ) RunProgram = 0 ;
79}
80
81void FreeResources(void) {
82 al_destroy_display(display);
83 al_destroy_event_queue(event_queue);
84 al_destroy_timer(timer);
85}
Greetings,
Mahmoud