mountains

# Classe VA Liceo Classico A. Zoli - Atri
# www.atrizoli.net
# (C) 2006 - licenza GNU
# Gruppo formato da:
# Manco Alessandra - Nespoli Lara

#include <allegro.h>

int main (int argc, char *argv[])
{

allegro_init();

install_keyboard();

set_gfx_mode(GFX_AUTODETECT_WINDOWED,640,480,0,0);
rectfill(screen,0,0,680,300,makecol(0,0,255));
rectfill(screen,70,30,130,60,makecol(255,255,255));
rectfill(screen,110,50,170,80,makecol(255,255,255));
rectfill(screen,140,60,200,90,makecol(255,255,255));
rectfill(screen,80,70,140,100,makecol(255,255,255));
rectfill(screen,330,50,390,80,makecol(255,255,255));
rectfill(screen,380,30,430,60,makecol(255,255,255));
rectfill(screen,370,60,440,100,makecol(255,255,255));
rectfill(screen,430,70,465,90,makecol(255,255,255));
line(screen,140,110,160,130,makecol(255,255,255));
line(screen,150,110,150,130,makecol(255,255,255));
line(screen,160,110,140,130,makecol(255,255,255));
line(screen,160,120,140,120,makecol(255,255,255));
line(screen,130,150,130,170,makecol(255,255,255));
line(screen,140,150,120,170,makecol(255,255,255));
line(screen,120,160,140,160,makecol(255,255,255));
line(screen,120,150,140,170,makecol(255,255,255));
triangle(screen,90,160,160,300,20,300,makecol(102,84,28));
triangle(screen,230,160,300,300,160,300,makecol(102,84,28));
triangle(screen,370,160,440,300,300,300,makecol(102,84,28));
triangle(screen,510,160,580,300,440,300,makecol(102,84,28));
triangle(screen,90,160,120,220,60,220,makecol(255,255,255));
triangle(screen,230,160,250,200,210,200,makecol(255,255,255));
triangle(screen,370,160,400,220,340,220,makecol(255,255,255));
triangle(screen,510,160,530,200,490,200,makecol(255,255,255));
rectfill(screen,0,295,680,480,makecol(0,255,0));
rectfill(screen,0,460,680,480,makecol(255,255,255));
rectfill(screen,50,390,130,470,makecol(255,0,0));
rectfill(screen,110,350,120,380,makecol(102,84,28));
rectfill(screen,70,400,110,420,makecol(255,255,255));
rectfill(screen,70,400,80,420,makecol(47,210,128));
rectfill(screen,100,400,110,420,makecol(47,210,128));
rectfill(screen,80,440,100,470,makecol(102,84,28));

triangle(screen,90,340,130,390,50,390,makecol(255,255,255));
rectfill(screen,150,420,160,470,makecol(102,84,28));
circlefill(screen,145,420,20,makecol(40,128,50));
circlefill(screen,135,410,20,makecol(40,128,50));
circlefill(screen,175,400,20,makecol(40,128,50));
circlefill(screen,160,390,20,makecol(40,128,50));
circlefill(screen,130,390,20,makecol(255,255,255));
circlefill(screen,150,370,20,makecol(255,255,255));
circlefill(screen,170,380,20,makecol(255,255,255));
line(screen,210,250,230,270,makecol(255,255,255));
line(screen,220,250,220,270,makecol(255,255,255));
line(screen,230,250,210,270,makecol(255,255,255));
line(screen,230,260,210,260,makecol(255,255,255));
line(screen,420,240,420,260,makecol(255,255,255));
line(screen,430,240,410,260,makecol(255,255,255));
line(screen,430,250,410,250,makecol(255,255,255));
line(screen,410,240,430,260,makecol(255,255,255));
rectfill(screen,220,290,280,470,makecol(201,142,50));
triangle(screen,220,290,250,245,280,290,makecol(255,255,255));
rectfill(screen,240,300,260,340,makecol(255,255,255));
rectfill(screen,245,300,255,315,makecol(33,31,28));
line(screen,250,315,260,320,makecol(33,31,28));
rectfill(screen,240,390,260,470,makecol(155,127,82));
line(screen,250,390,250,470,makecol(33,31,28));
rectfill(screen,280,320,320,470,makecol(205,172,82));
circlefill(screen,300,335,10,makecol(255,255,255));
circle(screen,300,335,10,makecol(33,31,28));
triangle(screen,280,320,300,280,320,320,makecol(255,255,255));
line(screen,300,322,300,335,makecol(33,31,28));
line(screen,300,335,305,335,makecol(33,31,28));
rectfill(screen,330,255,370,470,makecol(82,154,205));
rectfill(screen,290,440,310,470,makecol(33,31,28));
line(screen,300,255,300,280,makecol(33,31,28));
line(screen,290,265,310,265,makecol(33,31,28));
rectfill(screen,340,260,345,265,makecol(255,255,255));
rectfill(screen,360,300,365,305,makecol(255,255,255));
rectfill(screen,350,275,355,280,makecol(255,255,255));
rectfill(screen,334,289,346,300,makecol(255,255,255));

rectfill(screen,348,267,355,270,makecol(255,255,255));
rectfill(screen,363,259,365,263,makecol(255,255,255));
rectfill(screen,349,448,350,450,makecol(255,255,255));
rectfill(screen,365,453,369,460,makecol(255,255,255));
rectfill(screen,349,430,353,450,makecol(255,255,255));
rectfill(screen,332,400,344,420,makecol(255,255,255));
triangle(screen,330,255,350,230,370,255,makecol(255,255,255));
rectfill(screen,350,240,360,225,makecol(255,255,255));
rectfill(screen,370,470,450,410,makecol(245,191,242));
triangle(screen,370,410,410,370,450,410,makecol(255,255,255));
rectfill(screen,390,420,430,440,makecol(239,227,37));
circlefill(screen,490,450,30,makecol(255,255,255));
triangle(screen,480,400,500,400,490,380,makecol(255,0,0));
circlefill(screen,490,410,15,makecol(255,255,255));
rectfill(screen,475,430,455,420,makecol(255,255,255));
rectfill(screen,505,430,525,420,makecol(255,255,255));
circlefill(screen,490,440,7,makecol(37,84,239));
circlefill(screen,490,460,7,makecol(37,84,239));
circlefill(screen,485,410,4,makecol(33,31,28));
circlefill(screen,495,410,4,makecol(33,31,28));
readkey();

return 0;
}

END_OF_MAIN()