Méltó megemlékezés március 15-ről

/*
 *    Kokárda - az expal.c (Allegro csomag, http://allegro.cc) átirata.
 *    (c) 2007 Martinek Vilmos <m2marvil@radnoti-szeged.sulinet.hu>
 *    Fordítás: gcc -o kokarda kokarda.c `allegro-config --libs`
 *    Közreadja: Kovács Zoltán <kovzol@gmail.com>, Vilmos tanára
 */

#include <allegro.h>

int main(void)
{
   PALETTE palette;
   RGB temp;
   int c;

   if (allegro_init() != 0)
      return 1;
   install_keyboard(); 
   if (set_gfx_mode(GFX_AUTODETECT, 800, 600, 0, 0) != 0) {
      if (set_gfx_mode(GFX_AUTODETECT, 800, 600, 0, 0) != 0) {
         allegro_message("Hiba: %s\n", allegro_error);
         return 1;
      }
   }

   set_palette(black_palette);

   acquire_screen();

   for (c=255; c>0; c--)
      circlefill(screen, SCREEN_W/2, SCREEN_H/2, c, c);

   release_screen();

   install_mouse();
   show_mouse(screen);

   for (c=0; c<85; c++) {
      palette[c].r = 255;
      palette[c].g = 0;
      palette[c].b = 0;
   }
  
   for (c=86; c<171; c++) {
      palette[c].r = 0;
      palette[c].g = 255;
      palette[c].b = 0;
   }
   for (c=172; c<256; c++) {
      palette[c].r = 255;
      palette[c].g = 255;
      palette[c].b = 255;
   }

   while (!keypressed()) {
      temp = palette[255];
      for (c=255; c>0; c--)
         palette[c] = palette[c-1];
      palette[0] = temp;
      set_palette(palette);
   }

   return 0;
}

END_OF_MAIN()

Egy 7. osztályos (igen tehetséges) tanítványom csinálta, átírva egy Allegro mintaprogramot. A kód innen is letölthető.