tomjer

# 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[])
{

int giallo, rosso, grigio, marrone, bianco;
allegro_init();

install_keyboard();

set_gfx_mode(GFX_AUTO:wqDETECT_WINDOWED, 640,480,0,0);
//set_color_depth(24);
giallo = makecol(0,255,255);
rosso = makecol(255,0,0);
grigio = makecol(100,100,100);
marrone = makecol(180,0,50);
bianco = makecol(255,255,255);

clear_to_color(screen,bianco);
triangle(screen, 130,60, 220,320,40,320, marrone);
triangle(screen, 60,20,110,44,76,74, marrone);
triangle(screen, 200,20,160,44,190,80, marrone);
circlefill(screen, 130,100,62,marrone);
triangle(screen, 130,110,150,88,110,88, rosso);
circlefill(screen,110,70,10, bianco);
circlefill(screen,150,70,10, bianco);
circlefill(screen,110,72,2, makecol(0,255,0));
circlefill(screen,150,72,2, makecol(0,255,0));
rectfill(screen,100,220,160,340, marrone);
circlefill(screen,90,88,10, rosso);
circlefill(screen,170,88,10, rosso);
line(screen,100,220,160,220, makecol(150,100,150));
line(screen,100,220,100,340, makecol(150,100,150));
line(screen,100,340,160,340, makecol(150,100,150));
line(screen,160,340,160,220, makecol(150,100,150));
line(screen,130,220,130,340, makecol(150,100,150));
line(screen,160,130,100,130, makecol(150,100,150));

line(screen,130,110,130,140, makecol(150,100,150));
rectfill(screen,210,300,260,310, marrone);
line(screen,170,110,220,110, makecol(150,100,150));
line(screen,170,113,220,113, makecol(150,100,150));
line(screen,170,116,220,116, makecol(150,100,150));
line(screen,100,110,50,110, makecol(150,100,150));
line(screen,100,113,50,113, makecol(150,100,150));
line(screen,100,116,50,116, makecol(150,100,150));
circlefill(screen,370,258,45, grigio);
circlefill(screen,370,184,30, grigio);
circlefill(screen,340,180,10, makecol(150,100,150));
circlefill(screen,410,162,25, grigio);
circlefill(screen,368,172,5, bianco);
circlefill(screen,368,170,2, makecol(0,0,255));
circlefill(screen,410,162,10, makecol(247,141,189));
rectfill(screen,364,298,374,320, grigio);
rectfill(screen,344,320,380,330, grigio);
line(screen,400,286,500,286, makecol(247,141,189));
circlefill(screen,370,250,20, makecol(247,141,189));

readkey();

return 0;
}

END_OF_MAIN()