Attachment:
Oracion.sh
Description: Bourne shell script
#include <time.h> #include <stdio.h> #include <conio.h> #include <mouse.h> #include <stdarg.h> #include <stdlib.h> #include <graphics.h> int x, y; int gprintf(int *xloc, int *yloc, char *fmt, ... ); void raton(); void start(); void iniciar(); void creditos(); void plataforma(); void main(void) { iniciar(); plataforma(); } /*Define la funcion para iniciar el modo grafico */ void iniciar() { int modo, adaptador, error=0, cont; char *ruta = "D:\MARCELO\TC\BIN"; clrscr(); for(cont=0; cont < 3;cont++) { adaptador=DETECT; initgraph(&adaptador,&modo,ruta); error=graphresult(); if(error) { printf("\n\n%s",grapherrormsg(error)); printf("\nIntroduzca el camino del manejador *.bgi : "); gets(ruta); } else break; } if(cont==3) { printf("\n\No se pudo inicializar modo grafico"); exit(1); } } /* Define la funcion que crea el plataforma del compilador*/ void plataforma() { char timebuf[9]; /*FONDO AZUL */ setcolor(BLUE); rectangle(0,0,639,459); setfillstyle(SOLID_FILL,BLUE); floodfill(1,1,BLUE); /*BARRA INICIO */ setcolor(LIGHTBLUE); rectangle(0,460,639,479); setfillstyle(SOLID_FILL,LIGHTBLUE); floodfill(1,461,LIGHTBLUE); /*BOTON INICIO */ setcolor(GREEN); rectangle(0,460,75,479); setfillstyle(SOLID_FILL,GREEN); floodfill(1,461,GREEN); setcolor(WHITE); settextstyle(2,0,4); outtextxy(30,464,"Inicio"); /* CARA FELIZ */ setcolor(YELLOW); circle(17,469,7); setfillstyle(SOLID_FILL,YELLOW); floodfill(17,469,YELLOW); setcolor(BLACK); circle(14,467,2); circle(20,467,2); setfillstyle(SOLID_FILL,BLACK); floodfill(14,467,BLACK); floodfill(20,467,BLACK); arc(17,471,180,0,4); /*BOTON HORA*/ setcolor(BLUE); rectangle(575,461,638,478); setfillstyle(SOLID_FILL,BLUE); floodfill(576,462,BLUE); setcolor(WHITE); _strtime(timebuf); x=590;y=463; gprintf( &x, &y, "%.5s", timebuf ); raton(); } /* Se usa como printf pero se utiliza en modo grafico*/ int gprintf( int *xloc, int *yloc, char *fmt, ... ) { va_list argptr; /* Argument list pointer */ char str[140]; /* Buffer to build sting into */ int cnt; /* Result of SPRINTF for return */ va_start( argptr, fmt ); /* Initialize va_ functions */ cnt = vsprintf( str, fmt, argptr ); /* prints string to buffer */ outtextxy( *xloc, *yloc, str ); /* Send string in graphics mode */ *yloc += textheight( "H" ) + 2; /* Advance to next line */ va_end( argptr ); /* Close va_ functions */ return( cnt ); /* Return the conversion count */ } void raton() { int i=0; char datebuf[9]; mtest(); msituar(1,319,239); mver(); while(1) { /* INICIO */ if( mxpos(1) > 0 && mxpos(1) < 75 && mypos(1) > 460 && mypos(1) < 479 && mclick() == 1 ) { i=1; start(); } /* CERRAR */ if( i==1 && mxpos(1) > 72 && mxpos(1) < 88 && mypos(1) > 437 && mypos(1) < 453 && mclick() == 1 ) { exit(0); } /* HORA DERECHO*/ if( mxpos(1) > 575 && mxpos(1) < 638 && mypos(1) > 461 && mypos(1) < 478 && mclick() == 2 ) { i=0; setcolor(BLUE); rectangle(0,190,183,459); setfillstyle(SOLID_FILL,BLUE); floodfill(1,191,BLUE); setcolor(YELLOW); rectangle(550,430,600,440); setfillstyle(SOLID_FILL,YELLOW); floodfill(551,431,YELLOW); setcolor(BLACK); _strdate(datebuf); x=551;y=429; gprintf( &x, &y, "%s", datebuf); delay(1500); setcolor(BLUE); rectangle(549,429,601,441); setfillstyle(SOLID_FILL,BLUE); floodfill(550,430,BLUE); } /* AYUDA */ if( i==1 && mxpos(1) > 22 && mxpos(1) < 38 && mypos(1) > 267 && mypos(1) < 283 && mclick() == 1 ) { } /* CREDITOS */ if( i==1 && mxpos(1) > 22 && mxpos(1) < 38 && mypos(1) > 297 && mypos(1) < 313 && mclick() == 1 ) { mocultar(); creditos(); mver(); } /* VER */ if( i==1 && mxpos(1) > 22 && mxpos(1) < 38 && mypos(1) > 337 && mypos(1) < 353 && mclick() == 1 ) { } /* CREAR */ if( i==1 && mxpos(1) > 22 && mxpos(1) < 38 && mypos(1) > 363 && mypos(1) < 383 && mclick() == 1 ) { } /* COMPILAR */ if( i==1 && mxpos(1) > 22 && mxpos(1) < 38 && mypos(1) > 397 && mypos(1) < 413 && mclick() == 1 ) { } /*AFUERA*/ if( mxpos(1) > 75 && mxpos(1) < 639 && mypos(1) > 460 && mypos(1) < 479 && mclick() == 1 ) { i=0; setcolor(BLUE); rectangle(0,190,183,459); setfillstyle(SOLID_FILL,BLUE); floodfill(1,191,BLUE); } if( mxpos(1) > 183 && mxpos(1) < 639 && mypos(1) > 0 && mypos(1) < 479 && mclick() == 1 ) { i=0; setcolor(BLUE); rectangle(0,190,183,459); setfillstyle(SOLID_FILL,BLUE); floodfill(1,191,BLUE); } if( mxpos(1) > 0 && mxpos(1) < 183 && mypos(1) > 170 && mypos(1) < 190 && mclick() == 1 ) { mocultar(); i=0; setcolor(BLUE); rectangle(0,190,183,459); setfillstyle(SOLID_FILL,BLUE); floodfill(1,191,BLUE); mver(); } if( mxpos(1) > 0 && mxpos(1) < 183 && mypos(1) > 0 && mypos(1) < 170 && mclick() == 1 ) { i=0; setcolor(BLUE); rectangle(0,190,183,459); setfillstyle(SOLID_FILL,BLUE); floodfill(1,191,BLUE); } } } void start() { /* MENU*/ setcolor(LIGHTGRAY); rectangle(0,190,183,459); setfillstyle(SOLID_FILL, LIGHTBLUE); floodfill(1,191,LIGHTGRAY); setcolor(WHITE); rectangle(1,250,182,429); setfillstyle(SOLID_FILL, WHITE); floodfill(2,251,WHITE); /*BOTON APAGAR*/ setcolor(WHITE); x=98;y=439; settextstyle(2,0,4); gprintf( &x, &y, "Cerrar sesi¢n" ); rectangle(72,437,88,453); setfillstyle(SOLID_FILL,LIGHTRED); floodfill(73,438,WHITE); setcolor(WHITE); circle(80,445,5); line(80,442,80,448); /*MEMBRETE*/ rectangle(10,200,60,240); setfillstyle(SOLID_FILL,GREEN); floodfill(11,201,WHITE); setcolor(YELLOW); circle(35,220,17); setfillstyle(SOLID_FILL,YELLOW); floodfill(36,221,YELLOW); setcolor(BLACK); circle(28,215,3); circle(43,215,3); setfillstyle(SOLID_FILL,BLACK); floodfill(28,215,BLACK); floodfill(43,215,BLACK); arc(35,223,180,0,10); setcolor(WHITE); x=72,y=195; gprintf( &x, &y, "PROG. GRAFICA" ); x=72;y=215; gprintf( &x, &y, "MARCELO GUTIERREZ" ); x=72;y=235; gprintf( &x, &y, "3M1-CO" ); setcolor(LIGHTGRAY); line(11,325,171,325); rectangle(22,267,38,283); setfillstyle(SOLID_FILL,YELLOW); floodfill(23,268,LIGHTGRAY); rectangle(22,297,38,313); setfillstyle(SOLID_FILL,LIGHTMAGENTA); floodfill(23,298,LIGHTGRAY); rectangle(22,337,38,353); setfillstyle(SOLID_FILL,LIGHTRED); floodfill(23,338,LIGHTGRAY); rectangle(22,367,38,383); setfillstyle(SOLID_FILL,LIGHTGREEN); floodfill(23,368,LIGHTGRAY); rectangle(22,397,38,413); setfillstyle(SOLID_FILL,LIGHTBLUE); floodfill(23,398,LIGHTGRAY); setcolor(BLACK); x=60,y=270; gprintf( &x, &y, "Ayuda" ); x=60,y=300; gprintf( &x, &y, "Creditos" ); x=60,y=340; gprintf( &x, &y, "Ver Archivo" ); x=60,y=370; gprintf( &x, &y, "Crear Archivo" ); x=60,y=400; gprintf( &x, &y, "Compilar Archivo" ); } void creditos() { int poly[]={70,450,170,450,200,380,125,320,40,380}; cleardevice(); /*Dibuja el borde de la pantalla*/ { setcolor(WHITE); rectangle(0,479,639,0); } /*Rellena el fondo de la pantalla*/ { setfillstyle(INTERLEAVE_FILL,BLUE); floodfill(1,1,WHITE); } /*Dibuja el logotipo de la uni*/ { setcolor(WHITE); moveto(20,150); lineto(20,30); lineto(50,30); lineto(50,120); lineto(100,120); lineto(100,70); lineto(130,70); lineto(130,150); lineto(20,150); moveto(60,110); lineto(60,30); lineto(170,30); lineto(170,120); lineto(180,120); lineto(180,70); lineto(210,70); lineto(210,150); lineto(140,150); lineto(140,60); lineto(90,60); lineto(90,110); lineto(60,110); moveto(180,30); lineto(210,30); lineto(210,60); lineto(180,60); lineto(180,30); } /*Pinta el interior del logotipo de la uni*/ { setfillstyle(INTERLEAVE_FILL,10); floodfill(21,148,WHITE); floodfill(61,109,WHITE); floodfill(181,31,WHITE); } /*Dibuja el logotipo del ies*/ { setcolor(WHITE); moveto(425,30); lineto(455,30); lineto(405,150); lineto(374,150); lineto(425,30); moveto(475,30); lineto(535,30); lineto(522,65); lineto(460,65); lineto(475,30); moveto(455,75); lineto(515,75); lineto(500,110); lineto(470,110); lineto(465,120); lineto(495,120); lineto(482,150); lineto(425,150); lineto(455,75); moveto(570,30); lineto(610,30); lineto(600,65); lineto(580,65); moveto(510,150); lineto(555,150); moveto(510,150); lineto(520,119); lineto(550,119); arc(580,69,105,225,40); arc(560,115,265,65,35); arc(580,75,90,245,10); arc(546,108,300,65,11); } /*Pinta el interior del logotipo del ies*/ { setfillstyle(INTERLEAVE_FILL,MAGENTA); floodfill(436,31,WHITE); floodfill(476,31,WHITE); floodfill(456,76,WHITE); floodfill(570,130,WHITE); } /*Escribe varias lineas de texto en la pantalla*/ { setcolor(10); settextstyle(1,0,1); outtextxy(220,250,"PROGRAMACION GRAFICA"); setcolor(MAGENTA); outtextxy(240,310,"MARCELO GUTIERREZ"); setcolor(10); outtextxy(300,370,"3M1-CO"); } /*Dibuja un poligono*/ { setcolor(WHITE); drawpoly(5,poly); setfillstyle(INTERLEAVE_FILL,MAGENTA); fillpoly(5,poly); } /*Dibuja otro poligono*/ { setcolor(WHITE); moveto(520,450); lineto(540,400); lineto(595,380); lineto(540,360); lineto(520,310); lineto(500,360); lineto(445,380); lineto(500,400); lineto(520,450); setfillstyle(INTERLEAVE_FILL,10); floodfill(520,440,WHITE); } sleep(3); cleardevice(); plataforma(); }