homenight

# Classe VA Liceo Classico A. Zoli - Atri
# www.atrizoli.net
# (C) 2006 - licenza GNU
# Gruppo formato da:
# Consorti Pierdomenico - Croce Marco - De Simone Alfredo

#include <allegro.h>
int main() {
int r;
allegro_init();
install_keyboard();
install_mouse();
set_gfx_mode(GFX_AUTODETECT_WINDOWED, 640, 480, 0, 0);
clear_to_color(screen, makecol(0,0,255));
rectfill(screen, 0,400,640,480, makecol (10,255,100));
circlefill(screen,50,50,30, makecol (255,255,255));
rectfill(screen, 500,400 ,520,200, makecol(100,29,90));
circlefill(screen, 450, 150, 60, makecol (0,255,0));
circlefill(screen, 570, 150, 60, makecol (0,255,0));
circlefill(screen, 500, 100, 70, makecol (0,255,0));
circlefill(screen, 510, 120, 40, makecol (0,255,0));
circlefill(screen, 510, 160, 40, makecol (0,255,0));
rectfill (screen,0,200,200,400, makecol (255,0,0));
triangle (screen, 0,200, 200, 200,100, 100, makecol (50,10,100));
rectfill (screen, 60, 300, 120, 400, makecol (50,10,100));
rectfill (screen, 20, 220, 60, 280, makecol (0, 0, 220));
rectfill (screen, 120, 220, 160, 280, makecol (0,0,220));
rectfill (screen, 350, 230,500,250, makecol (100,29,90));
rect (screen , 410, 230, 410, 360, makecol (29,100,90));
rect (screen, 480, 230, 480, 360, makecol (29,100,90));
rectfill (screen, 410, 350, 480, 360, makecol (100, 29,90));
rectfill (screen, 50,400 , 130, 380, makecol (100,29,90));
rectfill (screen, 60, 400, 120,480, makecol (150,150,150));
circlefill (screen, 570, 370, 40, makecol (0,255,0));
circlefill (screen, 640, 370,40, makecol (0,255,0));
circlefill (screen,600, 330,40, makecol (0,255,0));
rectfill (screen, 580, 380, 630,420, makecol (100,29,90));
triangle (screen, 160, 10, 130, 40, 190, 40, makecol (10,100,100));
triangle (screen, 130, 20, 190,20,160,50, makecol (0,100,140));
circlefill (screen, 110,340, 5, makecol (255,255,255));
circlefill (screen, 550, 100, 10, makecol (255,0,0)); circlefill (screen, 520, 50,10,makecol (255,0,0));
circlefill (screen, 500,150,10,makecol (255,0,0));
circlefill (screen,400, 150, 10, makecol (255,0,0));
circlefill (screen,480, 100,10, makecol (255,0,0));
circlefill (screen, 600, 150,10, makecol (255,0,0));
rectfill (screen, 220,350,350,340, makecol (100,29,90));
rectfill (screen, 340,400,350,340, makecol (100,29,90));
rectfill (screen, 220, 400,230,340, makecol (140,29,90));
rectfill (screen, 230, 350, 240, 300, makecol (100,29,90));
rectfill (screen, 330, 350,340,300 , makecol (100,29,90));
rectfill (screen, 220,320,350,290,makecol (100,29,90));
circlefill (screen, 235,300,5,makecol (255,255,255));
circlefill (screen, 340,300,5,makecol (255,255,255));

while (!key[KEY_ESC]);
return 0;
}

END_OF_MAIN();