#include <graphics.h>
#include <stdlib.h>
#include <stdio.h>
#include <conio.h>
int main(void)
{
/* request auto detection */
int gdriver = DETECT, gmode, errorcode;
int midx, midy;
int radius;
/* initialize graphics and local variables */
initgraph(&gdriver, &gmode, "c:\tc\bgi");
/* read result of initialization */
errorcode = graphresult();
if (errorcode != grOk) /* an error occurred */
{
printf("Graphics error: %sn", grapherrormsg(errorcode));
printf("Press any key to halt:");
getch();
exit(1); /* terminate with an error code */
}
midx = getmaxx() / 2;
midy = getmaxy() / 2;
setcolor(getmaxcolor());
/* draw ellipse */
ellipse(172, 260, 240, 100,5, 10);//faro
ellipse(212, 205, 197, 190,7, 10);//cabeza mono
/* draw the circle */
textbackground(GREEN);
circle(420,280,radius=10);//centro llanta derecha
circle(177,215,radius=5); //volante
circle(177,215,radius=2);//claxon
circle(420, 280, radius=35);
circle(220,280,radius=10);
circle(220, 280, radius=35);
/* draw a rectangle */
rectangle(170,220,220,190);
line(375,282,375,159);//escalera linea 4
line(372,282,372,159);//escalera linea 3
putpixel(345,500,16);
line(345,282,345,159);//escalera linea 2
line(342,282,342,159);//escalera linea 1
line(345,242,372,242);//escalon numero 6 abajo->arriba
line(345,245,372,245);//escalon numero 5
line(345,255,372,255);//escalon numero 4
line(345,258,372,258);//escalon 3
line(345,268,372,268);//escalon 2
line(345,271,372,271);//escalon 1
line(345,229,372,229);//escalon 8
line(345,232,372,232);//escalon 7
line(345,216,372,216);//escalon 10
line(345,219,372,219);//escalon 9
line(345,203,372,203);//escalon12
line(345,206,372,206);//escalon 11
line(345,190,372,190);//escalon 14
line(345,193,372,193);//escalon 13
line(345,177,372,177);//escalon 16
line(345,180,372,180);//escalon 15
setbkcolor(0);
line(180,150,253,150);//techo corto1
line(170,158,250,158);//techo corto 2
line(480,150,469,158);//techo derecha
line(180,150,169,158);//techo izquierda
line(296,150,479,150);//techo largo 1
line(296,158,470,158);//techo largo 2
line(470,283,470,159);//opuesta 1
line(480,273,480,151);//opuesta 2
line(470,283,480,274);//techo inferior derecha
line(456,283,469,283);//linea inferior derecha ultima
line(256,283,384,283);//linea inferior centro
line(170,283,184,283);//linea inferior izquierda
line(170,283,170,159);//Linea vertical enfrente
line(207,212,183,214);//Mano mono
line(217,213,217,220);//Espalda mono
line(207,218,207,220);//pecho mono
line(0,380,800,380);//banketa inferior
line(0,258,169,258);//banketa superior iz
line(0,266,169,266);//banketa superior abajo iz
line(480,258,800,258);//banketa superior der
line(480,266,800,266);//banketa superior abajo der
line(0,228,169,228);//base edificio iz
line(480,228,800,228);//base edificio der
line(250,158,250,180);//linea 3d iz 2
line(296,158,296,180);//linea 3d der
line(253,151,249,158);//union de techos cortos
line(250,180,295,180);
arc(50, 50, 30, 20, radius=20);//Luna
circle(59,55,radius=2);
circle(42,44,radius=2);
circle(54,40,radius=2);
/* clean up */
getch();
closegraph();
return 0;
}