casa

# Classe VA Liceo Classico A. Zoli - Atri
# www.atrizoli.net
# (C) 2006 - licenza GNU
# Gruppo formato da:
# Di Febo Michele - Antonelli Mariacarla - Gianforte Francesca
# include <allegro.h>
int main () {
allegro_init ();
install_keyboard ();
install_mouse ();
set_gfx_mode (GFX_AUTODETECT_WINDOWED,640,480,0,0);
putpixel (screen,200,200,makecol (255,0,0));
rectfill(screen,0,0,640,280,makecol (86,245,255));
rectfill(screen,0,280,640,480,makecol (0,225,0));
rectfill(screen,40,200,80,280,makecol (155,64,9));
circlefill(screen,60,160,40,makecol (0,200,0));
rectfill(screen,200,160,320,280,makecol (239,132,239));
rectfill(screen,220,180,240,200,makecol (7,103,239));
rectfill(screen,280,180,300,200,makecol (7,130,239));
rectfill(screen,240,240,280,280,makecol (255,109,45));
triangle(screen,260,40,200,160,320,160,makecol (255,0,0));
circlefill(screen,460,80,60,makecol(252,255,9));
circlefill(screen,440,60,10,makecol(255,255,255));
circlefill(screen,480,60,10,makecol(255,255,255));
circlefill(screen,440,60,3,makecol(0,0,0));
circlefill(screen,480,60,3,makecol(0,0,0));
arc(screen, 460,80,itofix(160),itofix(224),40, makecol(255,0,0));
rectfill(screen,320,240,640,250,makecol(255,27,236));
rectfill(screen,340,220,350,280,makecol(255,27,236));
rectfill(screen,400,220,410,280,makecol(255,27,236));
rectfill(screen,430,220,440,280,makecol(255,27,236));
rectfill(screen,460,220,470,280,makecol(255,27,236));
rectfill(screen,490,220,500,280,makecol(255,27,236));
rectfill(screen,520,220,530,280,makecol(255,27,236));
rectfill(screen,550,220,560,280,makecol(255,27,236));
rectfill(screen,580,220,590,280,makecol(255,27,236));
rectfill(screen,610,220,620,280,makecol(255,27,236));
rectfill(screen,640,220,650,280,makecol(255,27,236));
rectfill(screen,370,220,380,280,makecol(255,27,236));
circlefill(screen,60,40,20,makecol(255,255,255));
circlefill(screen,80,40,20,makecol(255,255,255));
circlefill(screen,100,40,20,makecol(255,255,255));
circlefill(screen,120,40,20,makecol(255,255,255));
circlefill(screen,40,140,5,makecol(255,0,0));
circlefill(screen,70,140,5,makecol(255,0,0));
rectfill(screen,220,280,300,480,makecol(152,146,146));
circlefill(screen,60,160,5,makecol(255,0,0));
circlefill(screen,50,180,5,makecol(255,0,0));
circlefill(screen,80,150,5,makecol(255,0,0));
circlefill(screen,40,160,5,makecol(255,0,0));
ellipsefill(screen,410,410,100,50,makecol(17,229,242));





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