sprint

# Classe VA Liceo Classico A. Zoli - Atri
# www.atrizoli.net
# (C) 2006 - licenza GNU
# Gruppo formato da:
# Ruggieri Sara - Sannicandro Angela - Scocchia Sonia

#include <allegro.h>
int main() {
allegro_init();
install_keyboard();
install_mouse();
set_gfx_mode(GFX_AUTODETECT_WINDOWED,640,480,0,0);
clear_to_color(screen, makecol(255,255,255));
putpixel(screen,200,200,makecol(255,0,0));
rectfill(screen,0,0,640,380,makecol(111,221,241));
rectfill(screen,0,380,640,480,makecol(124,114,114));

circlefill(screen,190,440,30,makecol(0,0,0));
circlefill(screen,430,440,30,makecol(0,0,0));
circlefill(screen,190,440,15,makecol(100,0,0));
circlefill(screen,430,440,15,makecol(100,0,0));
rectfill(screen,70,430,110,450,makecol(0,0,0));
rectfill(screen,90,410,110,430,makecol(0,0,0));
line(screen,30,430,60,430,makecol(0,0,0));
line(screen,30,440,60,440,makecol(0,0,0));
line(screen,30,450,60,450,makecol(0,0,0));
triangle(screen,190,200,70,410,190,410,makecol(255,0,200));
rectfill(screen,190,290,300,410,makecol(255,0,200));
rectfill(screen,300,220,320,410,makecol(255,0,200));
rectfill(screen,320,290,430,410,makecol(255,0,200));
rectfill(screen,430,290,520,410,makecol(255,0,200));
triangle(screen,520,290,520,410,580,410,makecol(255,0,200));
rectfill(screen,190,200,430,220,makecol(255,0,200));
rectfill(screen,210,310,240,320,makecol(255,100,250));
rectfill(screen,340,310,370,320,makecol(255,100,250));
triangle(screen,430,200,430,290,480,290,makecol(0,0,100));
triangle(screen,550,350,560,350,560,370,makecol(255,255,0));
rectfill(screen,200,260,220,290,makecol(0,0,0));
rectfill(screen,320,260,340,290,makecol(0,0,0));
while (!key[KEY_ESC])
{};
return 0;
}
END_OF_MAIN ();