C/OSCAR
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
OSCAR/DEMO/DEMO.CPP
jdg 0f24b3477e First commit 16/08/1996
2021-09-12 19:50:38 +02:00

898 lines
17 KiB
C++
Raw Permalink Blame History

//Bibliotecas
#include <mem.h>
#include <mem.h>
#include<stdio.h>
#include<conio.h>
#include<math.h>
#include<graphics.h>
#include<dos.h>
#include<ctype.h>
#include<string.h>
#include<stdlib.h>
//variables constantes
#define RES_X 640
#define RES_Y 480
#define ERROR 1
#define OK 1
#define k (2*3.14159/360)
#define RADIO 255
#define SALTOS_PROFUNDOS 8
#define SALTOS_ANCHOS 7
#define BLOQUEO_RADIO 1
#define INCREMENTAL 1
#define PROFUNDIDAD_TUNEL 35
#define FACTOR_SERPIENTE 0.015F
//estructuras y tipos
typedef struct
{
unsigned char R, G, B;
} ColorValue;
typedef ColorValue VGAPaletteType[256];
VGAPaletteType Pal;
extern int far _Cdecl Svga256_fdriver[];
//funciones
int MuestraImagen( char *file );
int CargaPaleta(char *file);
void InicializaSVGA(void);
void InicializaSVGA(void);
void RellenaTablas(void);
void Put( int x, int y, char c);
void Circulo( int x, int y, int radio, int giro, int Color );
void CirculoB( int x, int y, int radio, int giro );
void TunelEstrellas(void);
void ReadPal( VGAPaletteType K );
void WritePal( VGAPaletteType K );
void CreaPaleta(void);
void letrasm(char texto[100]);
void demo1(void);
void demo2(void);
void demo3(void);
void demo4(void);
void demo5(void);
void demo6(void);
//variables externas
int huge DetectVGA256(){ return 2; }
int MuestraImagen( char *file );
int CargaPaleta(char *file );
int PERFECCION_CIRCULO = 8;
int qeu = 0;
int Incremento = -1, contador = 0;
int XSinMov[256], YSinMov[256];
int TSin[360+90];
int letras[29][56]={
//espacio en blanco
0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,
// la A
0,0,0,1,1,0,0,0,
0,0,1,1,1,1,0,0,
0,1,1,0,0,1,1,0,
0,1,1,0,0,1,1,0,
0,1,1,1,1,1,1,0,
0,1,1,0,0,1,1,0,
0,1,1,0,0,1,1,0,
// la B
1,1,1,1,1,1,0,0,
0,1,1,0,0,1,1,0,
0,1,1,0,0,1,1,0,
0,1,1,1,1,1,0,0,
0,1,1,0,0,1,1,0,
0,1,1,0,0,1,1,0,
1,1,1,1,1,1,0,0,
// la C
0,0,1,1,1,1,0,0,
0,1,1,0,0,1,1,0,
1,1,0,0,0,0,0,0,
1,1,0,0,0,0,0,0,
1,1,0,0,0,0,0,0,
0,1,1,0,0,1,1,0,
0,0,1,1,1,1,0,0,
// la D
1,1,1,1,1,0,0,0,
0,1,1,0,1,1,0,0,
0,1,1,0,0,1,1,0,
0,1,1,0,0,1,1,0,
0,1,1,0,0,1,1,0,
0,1,1,0,1,1,0,0,
1,1,1,1,1,0,0,0,
// la E
1,1,1,1,1,1,1,0,
0,1,1,0,0,0,1,0,
0,1,1,0,1,0,0,0,
0,1,1,1,1,0,0,0,
0,1,1,0,1,0,0,0,
0,1,1,0,0,0,1,0,
1,1,1,1,1,1,1,0,
// la F
1,1,1,1,1,1,1,0,
0,1,1,0,0,0,1,0,
0,1,1,0,1,0,0,0,
0,1,1,1,1,0,0,0,
0,1,1,0,1,0,0,0,
0,1,1,0,0,0,0,0,
1,1,1,1,0,0,0,0,
// la G
0,0,1,1,1,1,0,0,
0,1,1,0,0,1,1,0,
1,1,0,0,0,0,0,0,
1,1,0,0,0,0,0,0,
1,1,0,0,1,1,1,0,
1,1,0,0,0,1,1,0,
0,1,1,1,1,1,1,0,
// la H
0,1,1,0,0,1,1,0,
0,1,1,0,0,1,1,0,
0,1,1,0,0,1,1,0,
0,1,1,1,1,1,1,0,
0,1,1,0,0,1,1,0,
0,1,1,0,0,1,1,0,
0,1,1,0,0,1,1,0,
// la I
0,1,1,1,1,1,1,0,
0,0,0,1,1,0,0,0,
0,0,0,1,1,0,0,0,
0,0,0,1,1,0,0,0,
0,0,0,1,1,0,0,0,
0,0,0,1,1,0,0,0,
0,1,1,1,1,1,1,0,
// la J
0,0,0,1,1,1,1,0,
0,0,0,0,1,1,0,0,
0,0,0,0,1,1,0,0,
0,0,0,0,1,1,0,0,
1,1,0,0,1,1,0,0,
1,1,0,0,1,1,0,0,
0,1,1,1,1,0,0,0,
// la K
1,1,1,0,0,1,1,0,
0,1,1,0,0,1,1,0,
0,1,1,0,1,1,0,0,
0,1,1,1,1,0,0,0,
0,1,1,0,1,1,0,0,
0,1,1,0,0,1,1,0,
1,1,1,0,0,1,1,0,
// la L
1,1,1,1,0,0,0,0,
0,1,1,0,0,0,0,0,
0,1,1,0,0,0,0,0,
0,1,1,0,0,0,0,0,
0,1,1,0,0,0,1,0,
0,1,1,0,0,1,1,0,
1,1,1,1,1,1,1,0,
// la M
1,1,0,0,0,1,1,0,
1,1,1,0,1,1,1,0,
1,1,1,1,1,1,1,0,
1,1,1,1,1,1,1,0,
1,1,0,1,0,1,1,0,
1,1,0,0,0,1,1,0,
1,1,0,0,0,1,1,0,
// la N
1,1,0,0,0,1,1,0,
1,1,1,0,0,1,1,0,
1,1,1,1,0,1,1,0,
1,1,0,1,1,1,1,0,
1,1,0,0,1,1,1,0,
1,1,0,0,0,1,1,0,
1,1,0,0,0,1,1,0,
// la <20>
0,1,1,0,0,0,1,0,
1,0,0,1,1,1,0,0,
0,0,0,0,0,0,0,0,
1,1,1,0,0,1,1,0,
1,1,0,1,0,1,1,0,
1,1,0,0,1,1,1,0,
1,1,0,0,0,1,1,0,
// la O
0,0,1,1,1,0,0,0,
0,1,1,0,1,1,0,0,
1,1,0,0,0,1,1,0,
1,1,0,0,0,1,1,0,
1,1,0,0,0,1,1,0,
0,1,1,0,1,1,0,0,
0,0,1,1,1,0,0,0,
// la P
1,1,1,1,1,1,0,0,
0,1,1,0,0,1,1,0,
0,1,1,0,0,1,1,0,
0,1,1,1,1,1,0,0,
0,1,1,0,0,0,0,0,
0,1,1,0,0,0,0,0,
1,1,1,1,0,0,0,0,
// la Q
0,0,1,1,1,0,0,0,
0,1,1,0,1,1,0,0,
1,1,0,0,0,1,1,0,
1,1,0,0,0,1,1,0,
1,1,0,1,1,0,1,0,
1,1,0,0,1,1,0,0,
0,1,1,1,0,1,1,0,
// la R
1,1,1,1,1,1,0,0,
0,1,1,0,0,1,1,0,
0,1,1,0,0,1,1,0,
0,1,1,1,1,1,0,0,
0,1,1,0,1,1,0,0,
0,1,1,0,0,1,1,0,
1,1,1,1,0,1,1,0,
// la S
0,0,1,1,1,1,0,0,
0,1,1,0,0,1,1,0,
0,1,1,0,0,0,0,0,
0,0,1,1,1,1,0,0,
0,0,0,0,0,1,1,0,
0,1,1,0,0,1,1,0,
0,0,1,1,1,1,0,0,
// la T
0,1,1,1,1,1,1,0,
0,1,0,1,1,0,1,0,
0,0,0,1,1,0,0,0,
0,0,0,1,1,0,0,0,
0,0,0,1,1,0,0,0,
0,0,0,1,1,0,0,0,
0,0,1,1,1,1,0,0,
// la U
0,1,1,0,0,1,1,0,
0,1,1,0,0,1,1,0,
0,1,1,0,0,1,1,0,
0,1,1,0,0,1,1,0,
0,1,1,0,0,1,1,0,
0,1,1,0,0,1,1,0,
0,0,1,1,1,1,0,0,
// la V
0,1,1,0,0,1,1,0,
0,1,1,0,0,1,1,0,
0,1,1,0,0,1,1,0,
0,1,1,0,0,1,1,0,
0,1,1,0,0,1,1,0,
0,0,1,1,1,1,0,0,
0,0,0,1,1,0,0,0,
// la W
1,1,0,0,0,1,1,0,
1,1,0,0,0,1,1,0,
1,1,0,0,0,1,1,0,
1,1,0,1,0,1,1,0,
1,1,1,1,1,1,1,0,
1,1,1,0,1,1,1,0,
1,1,0,0,0,1,1,0,
// la X
1,1,0,0,0,1,1,0,
0,1,1,0,1,1,0,0,
0,0,1,1,1,0,0,0,
0,0,1,1,1,0,0,0,
0,1,1,0,1,1,0,0,
1,1,0,0,0,1,1,0,
1,1,0,0,0,1,1,0,
// la Y
0,1,1,0,0,1,1,0,
0,1,1,0,0,1,1,0,
0,1,1,0,0,1,1,0,
0,0,1,1,1,1,0,0,
0,0,0,1,1,0,0,0,
0,0,0,1,1,0,0,0,
0,0,1,1,1,1,0,0,
// la Z
0,1,1,1,1,1,1,0,
1,0,0,0,0,0,0,1,
1,0,1,0,0,1,0,1,
1,0,0,0,0,0,0,1,
1,0,1,1,1,1,0,1,
1,1,0,0,0,0,1,1,
0,1,1,1,1,1,1,0,
};
//Funcion principal
void main()
{
int gdriver=DETECT,gmode;
initgraph(&gdriver,&gmode,"c:\\program\\borlandc\\bgi");
clearviewport();
demo1();
letrasm(" GRAFICOS IMPRESIONANTEMENTE CUTRES PA LLORA");
demo2();
letrasm(" HAY VA UNA CAIDITA DE LINEAS ASEXUALES");
demo3();
letrasm(" VAMO A DADLE A LAS IMAGENES");
demo4();
letrasm(" Y QUE TAL UN TUNEL INCREIBLEBLE");
demo5();
demo6();
}
//DEMO1
void demo1()
{
char texto1[100]={"OGA MUESTRA"};
int V;
int a=0,ac1,color;
int i=0;
int n[100],l;
int c=48,c1=0,x=0,y=250;
delay(500);
//Flan
l=strlen(texto1);
for(a=0;a<l;a++)
{
if(toascii(texto1[a]-65)<14)
n[a]=toascii(texto1[a]-64);
else if(texto1[a]=='<EFBFBD>')
n[a]=15;
else if(texto1[a]==' ')
n[a]=0;
else
n[a]=toascii(texto1[a]-63);
}
a=0;
while(kbhit())getch();
while(y>170&&!kbhit())
{
while(a<l)
{
x=x+7;
if(letras[n[a]][c]==0||y<190) setcolor(0);
else { randomize();color=rand() %14+1;setcolor(color);}
for(i=1;i<10;i++)
{
line(x+i,1,x+i,y);
delay(1);
}
c++;
if(c==56-c1) {a++;c=48-c1;}
}
c1=c1+8;
c=c-8;
a=0;
x=0;
y=y-10;
}
sleep(1);
//Borrado
for(a=170;a<260;a++)
{
for(x=1;x<640;x++)
{
putpixel(x,a,0);
}
delay(5);
}
clearviewport();
}
//DEMO2
void demo2()
{
int b=10,p=0,i,j,cont=0,a=0,x;
char c;
while(cont<25&&!kbhit())
{
clearviewport();
x=(rand() %14)+1;
setcolor(x);
for(i=0;i<360;i++)
{
line(320+p*cos(b*i),230+p*sin(b*i),320+p*cos(b*(i+1)),230+p*sin(b*(i+1)));
a++;
if (a==4)
{
a=0;
p=p+4;
}
delay(1);
}
//nuevos valores para variables
delay(500);
b=b+1;
p=0;
cont++;
}
setcolor(0);
for(i=0;i<480;i=i+2)
{
line(0,i,640,i);
line(0,479-i,640,479-i);
delay(20);
}
}
//DEMO3
void demo3()
{
int x,y,cont=0,x1,y1;
while(cont<4&&!kbhit())
{
for(x=1;x<320;x++)
{
for(y=1;y<360;y++)
{
if(cont==0) {x1=y+160+x*cos(y);y1=x+10+x*sin(y);}
if(cont==1) {x1=y+160+x*cos(y);y1=x+10+x*tan(y);}
if(cont==2) {x1=y+160+x*cos(y);y1=x+10+x*cos(y);}
if(cont==3) {x1=y+160+x*tan(y);y1=x+10+x*sin(y);}
putpixel(x1,y1,cont+1);
}
delay(10);
}
sleep(1);
cont++;
clearviewport();
}
}
//DEMO4
void demo4()
{
// Inicializamos el modo SVGA 640*480 256 c. ( VESA )
closegraph();
InicializaSVGA();
MuestraImagen( "dac.pcx" );
sleep(5);
clearviewport();
//closegraph();
}
int MuestraImagen( char *file )
{
int alto, ancho, contador;
unsigned char byte;
FILE *fp;
CargaPaleta( file );
if ( (fp = fopen( file,"rb")) != NULL )
{
// Saltamos la cabecera
fseek( fp, 128, SEEK_SET );
for(alto=0; alto<RES_Y; alto++)
{
for(ancho=0; ancho<RES_X; )
{
byte=getc(fp);
if(byte<=0xC0)
{
putpixel (ancho, alto, byte);
ancho++;
} else {
contador=byte&0x3F; byte=getc(fp);
for(; contador>0; contador--)
{
putpixel (ancho, alto, byte);
ancho++;
}
}
}
}
fclose(fp);
} else return ERROR;
return OK;
}
int CargaPaleta(char *file)
{
int index;
FILE *fp;
if ( (fp=fopen( file, "rb" ) ) == NULL )
return ERROR;
if ( fseek( fp, -768L, SEEK_END ) == 0 )
{
for (index=0; index<256; index++)
{
// get the red component
// get the green component
// get the blue component
// set components
setrgbpalette( index, (getc(fp) >> 2), (getc(fp) >> 2), (getc(fp) >> 2) );
} // end for index
}
fclose( fp );
return OK;
}
void InicializaSVGA(void) {
int Gd = DETECT, Gm;
int Drv, errorcode;
installuserdriver("Svga256",DetectVGA256);
// registerfarbgidriver(Svga256_fdriver);
initgraph(&Gd,&Gm,"c:\\program\\borlandc\\bgi");
/* read result of initialization */
errorcode = graphresult();
if (errorcode != grOk) /* an error occurred */
{
cprintf("Graphics error: %s\n", grapherrormsg(errorcode));
cprintf("Presione una tecla para finalizar:");
getch();
exit(1); /* return with error code */
}
}
//DEMO5
void demo5()
{
int ok=0;
RellenaTablas();
// Cambiamos a modo grafico
asm mov ax, 0x13
asm int 0x10
// <20> Porque no mejoramos la paleta 16x2 ?
CreaPaleta();
ReadPal(Pal);
{
auto int I, J;
/* // (* Use this if you want to view the palette *)
for( I=0; I<255; I++ )
{
for( J=0; J<20; J++ )
Put(I,J,I);
}
getch();
*/
}
while( kbhit() ) getch();
ok = 0;
//TUNEL
while(ok<4000&&!kbhit())
{
TunelEstrellas();
ok++;
}
// PERFECCION_CIRCULO = 360;
/*while( !ok )
{
if ( kbhit() )
switch( getch() )
{
case 13:
qeu = !qeu;
Pal[0].R = qeu ? 255:0;
Pal[0].G = qeu ? 255:0;
Pal[0].B = qeu ? 255:0;
WritePal(Pal);
break;
case 32:
getch();
break;
case 27:
ok = 1;
break;
case '+':
PERFECCION_CIRCULO++;
_fmemset( MK_FP( 0xA000, 0 ), 0, 320*200 );
break;
case '-':
PERFECCION_CIRCULO--;
if ( PERFECCION_CIRCULO < 1 ) PERFECCION_CIRCULO = 1;
_fmemset( MK_FP( 0xA000, 0 ), 0, 320*200 );
break;
}
*/
//}
// Cambiamos a modo texto
asm mov ax, 3
asm int 0x10
}
//Funcion de DEMO5
void RellenaTablas(void)
{
float angle;
angle = 0;
while( angle < 256 )
{
XSinMov[angle] = YSinMov[angle] = (int)( sin( (2*M_PI*angle*1.4)/360 ) * 360) / (2*M_PI);
YSinMov[angle] = 0;
angle+=1;
};
angle = 0;
while( angle < (360+90) )
{
TSin[angle] = (int)(sin( (2*M_PI*angle)/360 ) * 360 / (2*M_PI) );
angle+=1;
};
}
//Funcion de DEMO5
void Put( int x, int y, char c)
{
if ( x < 0 || x >= 320 ) return;
if ( y < 0 || y >= 200 ) return;
// { Written by Matt Sottile }
asm mov ax,y
asm mov bx,ax
asm shl ax,8
asm shl bx,6
asm add bx,ax
asm add bx,x
asm mov ax,0xa000
asm mov es,ax
asm mov al,c
asm mov es:[bx],al
};
//Funcion de DEMO5
// Circulo con impresi<73>n de giro ( MEJORA POR JD )
void Circulo( int x, int y, int radio, int giro, int Color )
{
int angle;
for ( angle = 0; angle < 360; angle+=PERFECCION_CIRCULO )
Put( x + (radio*FACTOR_SERPIENTE*TSin[ (giro + angle)%360 + 90 ]), y + (radio*FACTOR_SERPIENTE*TSin[ (giro+angle)%360 ]), angle >= 0 && angle <= 50 ? (Color-PROFUNDIDAD_TUNEL) : Color );
};
//Funcion de DEMO5
// Circulo con impresi<73>n de giro ( MEJORA POR JD )
void CirculoB( int x, int y, int radio, int giro )
{
int angle;
for ( angle = 0; angle < 360; angle+=PERFECCION_CIRCULO )
Put( x + (radio*FACTOR_SERPIENTE*TSin[ (giro + angle)%360 + 90 ]), y + (radio*FACTOR_SERPIENTE*TSin[ (giro+angle)%360 ]), 0 );
};
//Funcion de DEMO5
void TunelEstrellas(void)
{
int depth, Color;
static unsigned char ZMov = 0;
static int GiroAngular = 0;
unsigned char Movimiento = ZMov;
static Subidon = 255;
static Velocidad = 0;
// Controles de giro por JD:
// SUAVE ZMov
// DURO Movimiento
int OGiroAngular = GiroAngular = 60;
// GiroAngular = ( GiroAngular++ ) % 360;
ZMov ++;
Movimiento = ZMov;
Color = 255-PROFUNDIDAD_TUNEL;
// Color = 255;
Velocidad++;
if ( Velocidad == 5 )
{
Velocidad = 0;
// Subidon --; if ( Subidon < 255-PROFUNDIDAD_TUNEL ) Subidon = 255;
Subidon = (Subidon++)%PROFUNDIDAD_TUNEL;
}
for ( depth=0; depth<SALTOS_ANCHOS*PROFUNDIDAD_TUNEL; depth+=SALTOS_ANCHOS*INCREMENTAL, Movimiento+=SALTOS_PROFUNDOS, Color++ )
// for ( depth=INCREMENTAL*SALTOS_ANCHOS*(PROFUNDIDAD_TUNEL-1); depth>=0; depth-=SALTOS_ANCHOS*INCREMENTAL, Movimiento+=SALTOS_PROFUNDOS, Color-- )
{
/*
OGiroAngular = GiroAngular;
GiroAngular = ( GiroAngular++ ) % 360;
*/
// Borra el anterior
CirculoB( XSinMov[(unsigned char)(Movimiento-1)] + 160, YSinMov[(unsigned char)(Movimiento-1)] + 100, RADIO - depth*BLOQUEO_RADIO, OGiroAngular + 0*Movimiento );
Subidon = (Subidon++)%PROFUNDIDAD_TUNEL;
// Dibuja el nuevo circulo
// Circulo( XSinMov[Movimiento] + 160, YSinMov[Movimiento] + 100, RADIO - depth*BLOQUEO_RADIO, GiroAngular + 0*Movimiento, (Subidon >= Color && Subidon <= Color + 2 ) ? 1: Color );
Circulo( XSinMov[Movimiento] + 160, YSinMov[Movimiento] + 100, RADIO - depth*BLOQUEO_RADIO, GiroAngular + 0*Movimiento, Subidon%6 == 0 || Subidon%6 == 1 ? 1+Subidon : Color);
}
// delay(10);
}
//Funcion de DEMO5
void ReadPal( VGAPaletteType K )
{
struct REGPACK outR;
outR.r_ax = 0x1017;
outR.r_bx = 0;
outR.r_cx = 256;
outR.r_es = FP_SEG(K);
outR.r_dx = FP_OFF(K);
while( ( inport(0x03DA) & 0x08 ) == 0x08 ); // {Wait for rescan}
intr( 0x10, &outR );
};
//Funcion de DEMO5
void WritePal( VGAPaletteType K )
{
struct REGPACK outR;
outR.r_ax = 0x1012;
outR.r_bx = 0;
outR.r_cx = 256;
outR.r_es = FP_SEG(K);
outR.r_dx = FP_OFF(K);
while( ( inport(0x03DA) & 0x08 ) == 0x08 ); // {Wait for rescan}
intr( 0x10, &outR );
};
//Funcion de DEMO5
void CreaPaleta(void)
{
unsigned char I;
memset( Pal, 0, sizeof(Pal) );
Pal[1].R = 255;
Pal[1].G = 255;
Pal[1].B = 255;
Pal[255].R = 20;
Pal[255].G = 0;
Pal[255].B = 0;
for ( I=254/*MaxColor*/; I > 254-PROFUNDIDAD_TUNEL; I-- )
{
Pal[I] = Pal[I+1];
{
if ( Pal[I].R<63 ) Pal[I].R++;
if ( Pal[I].R<63 ) Pal[I].R++;
if ( (I % 2==0) && (Pal[I].G<53) ) Pal[I].G++;
if ( (I % 2==0) && (Pal[I].B<63) ) Pal[I].B++;
}
}
#ifdef TODO_GRIS
Pal[5].R = 255;
Pal[5].G = 255;
Pal[5].B = 255;
for ( I=5; I < 255; I++ )
{
Pal[I] = Pal[I-1];
{
Pal[I].R--;
Pal[I].G--;
Pal[I].B--;
}
}
#endif
Pal[255-PROFUNDIDAD_TUNEL+1].R = 0;
Pal[255-PROFUNDIDAD_TUNEL+1].G = 0;
Pal[255-PROFUNDIDAD_TUNEL+1].B = 20;
for ( I=/*MaxColor*/255-PROFUNDIDAD_TUNEL; I > 255-2*PROFUNDIDAD_TUNEL; I-- )
{
Pal[I] = Pal[I+1];
{
if ( Pal[I].B<63 ) Pal[I].B++;
if ( Pal[I].B<63 ) Pal[I].B++;
if ( (I % 2==0) && (Pal[I].G<53) ) Pal[I].G++;
if ( (I % 2==0) && (Pal[I].R<63) ) Pal[I].R++;
}
}
#ifdef TODO_BLANCO
memset( Pal, 255, sizeof(Pal) );
Pal[0].R = 0;
Pal[0].G = 0;
Pal[0].B = 0;
#endif
WritePal(Pal);
}
//DEMO6
void demo6()
{
int y;
int gdriver=DETECT,gmode;
char texto[5][100]={"Programador:Oscar","Musica:NO HAY",
"Agradecimientos a:","Jose David(el tunel es de el)",
"PROMETO MEJORAR"};
initgraph(&gdriver,&gmode,"c:\\program\\borlandc\\bgi");
clearviewport();
for(y=440;y>-70;y--)
{
setcolor(15);
if(y>1) outtextxy(230,y,texto[0]);
if(y>-20&&y<430) outtextxy(230,y+20,texto[1]);
if(y>-40&&y<420) outtextxy(230,y+40,texto[2]);
if(y>-60&&y<410) outtextxy(230,y+60,texto[3]);
delay(20);
setcolor(0);
if(y>1) outtextxy(230,y,texto[0]);
if(y>-20&&y<430) outtextxy(230,y+20,texto[1]);
if(y>-40&&y<420) outtextxy(230,y+40,texto[2]);
if(y>-60&&y<410) outtextxy(230,y+60,texto[3]);
}
clearviewport();
letrasm(" QUIERO LA REVANCHAAAAAA ZZZZZ ");
closegraph();
}
//LETRAS
void letrasm(char texto[100])
{
//Letras moviendose
int V;
int finali=8,i=0,c3=0;
int r=0,i1=0,ac3=0,c4=0;
int n[100],l;
int c=0,c1=640,x=0,y=0;
int a=0,ac1=c1,color;
randomize();
color=rand()%14+1;
l=strlen(texto);
for(a=0;a<l;a++)
{
if(toascii(texto[a]-65)<14)
n[a]=toascii(texto[a]-64);
else if(texto[a]=='<EFBFBD>')
n[a]=15;
else if(texto[a]==' ')
n[a]=0;
else
n[a]=toascii(texto[a]-63);
}
while(c3!=l&&!kbhit())
{
while(y<70)
{
if(c3<l)
{
if(letras[n[c3]][i]==1) setcolor(color);
else setcolor(0);
}
//V =20*sin(x*k);
outtextxy(x,200+y,"*");
if(x>=c1||c1<0) {i++;}
if(i==finali) {i=finali-8;c3++;}
x=x+10;
if(x==640)
{
c1=ac1;x=0;y=y+10;c3=ac3;c=c+8;i=c+i1;finali=c+8;}
}
x=0;y=0;
finali=8;
i=0;
c=0;
delay(10);
c1=c1-10;
ac1=c1;
if(c1<0)
{
i1=0;
if(c1>-640)
r=10;
else
r=abs(c1)-640;
while(y<r)
{
i++;
if(i==finali) {i=finali-8;c3++;}
x=x+10;
if(x==640)
{c1=ac1;x=0;y=y+10;c3=ac3;c=c+8;i=c+i1;finali=c+8;}
if(x==abs(c1)) break;
}
c4++;
}
if(c4==8) {c4=0;ac3++;ac1=0;}
y=0;x=0;
i1=i;
}
}
Reference in New Issue View Git Blame Copy Permalink