First commit 09/03/1997
This commit is contained in:
906
DEMO.CPP
Normal file
906
DEMO.CPP
Normal file
@ -0,0 +1,906 @@
|
||||
#include <time.h>
|
||||
#include <string.h>
|
||||
#include <stdlib.h>
|
||||
#include <conio.h>
|
||||
#include <stdio.h>
|
||||
#include <math.h>
|
||||
#include <dos.h>
|
||||
#include <mem.h>
|
||||
|
||||
#include "demo.h"
|
||||
#include "..\modex\modex.h"
|
||||
|
||||
#define ERROR 1
|
||||
#define OK 0
|
||||
|
||||
char *Pato[3], *BufferV;
|
||||
int LeePato( char *file, char *dir );
|
||||
void ReducePato( char *Dest, char *Org, char Magn );
|
||||
|
||||
void LeeFuentes(char *file);
|
||||
void JugadorDyna( int x, int y, char mov );
|
||||
void BombaDyna( int x, int y, char mov );
|
||||
void MensajeIntermedio(char *buffer);
|
||||
void FuenteAmplia( char *Frase, p_Ampliada far *FA );
|
||||
void FuenteAmplia2( char *Frase, p_Ampliada far *FA );
|
||||
void PatoSimpsons(void);
|
||||
|
||||
char *ptr_char;
|
||||
|
||||
int XSinMov[256], YSinMov[256];
|
||||
int TSin[360+90];
|
||||
|
||||
/**************************************************************************\
|
||||
|* *|
|
||||
|* CargaPaleta *|
|
||||
|* *|
|
||||
|* Descripci<63>n: *|
|
||||
|* Carga la paleta con los colores por defecto *|
|
||||
|* *|
|
||||
|* *|
|
||||
|* Entradas: achivo PCX de donde cargar la paleta *|
|
||||
|* *|
|
||||
|* Salidas: OK Todo ha ido bien *|
|
||||
|* ERROR Algo va mal *|
|
||||
|* *|
|
||||
\**************************************************************************/
|
||||
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
|
||||
Palette256[index][0] = ( ( getc(fp) >> 2 ) )/* *63 )/255*/;
|
||||
Palette256[index][1] = ( ( getc(fp) >> 2 ) )/* *63 )/255*/;
|
||||
Palette256[index][2] = ( ( getc(fp) >> 2 ) )/* *63 )/255*/;
|
||||
} // end for index
|
||||
|
||||
}
|
||||
setvgapalette256( &Palette256 );
|
||||
|
||||
|
||||
fclose( fp );
|
||||
return OK;
|
||||
};
|
||||
|
||||
|
||||
void RellenaTablas(void)
|
||||
{
|
||||
float angle;
|
||||
|
||||
angle = 0;
|
||||
while( angle < 256 )
|
||||
{
|
||||
XSinMov[angle] = YSinMov[angle] = (int)( sin( (M_PI*angle*1.4)/180.0 ) * 180.0) / M_PI;
|
||||
YSinMov[angle] = 0;
|
||||
angle+=1;
|
||||
};
|
||||
|
||||
angle = 0;
|
||||
while( angle < (360+90) )
|
||||
{
|
||||
TSin[angle] = (int)(sin( (M_PI*angle)/180.0 ) * 100 );
|
||||
angle+=1;
|
||||
};
|
||||
|
||||
}
|
||||
|
||||
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
|
||||
};
|
||||
|
||||
//#define RADIO 255
|
||||
#define RADIO 255
|
||||
//#define SALTOS_PROFUNDOS 8
|
||||
#define SALTOS_PROFUNDOS 8
|
||||
//#define SALTOS_ANCHOS 7
|
||||
#define SALTOS_ANCHOS 7
|
||||
#define BLOQUEO_RADIO 1
|
||||
|
||||
|
||||
#define INCREMENTAL 1
|
||||
|
||||
#define PROFUNDIDAD_TUNEL 35
|
||||
//#define FACTOR_SERPIENTE 0.015F
|
||||
#define FACTOR_SERPIENTE 0.008594366927F
|
||||
|
||||
//#define TODO_BLANCO
|
||||
//#define TODO_GRIS
|
||||
|
||||
int PERFECCION_CIRCULO = 8;
|
||||
// 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) );
|
||||
|
||||
};
|
||||
|
||||
// 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 );
|
||||
};
|
||||
|
||||
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;
|
||||
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);
|
||||
}
|
||||
|
||||
typedef struct
|
||||
{
|
||||
unsigned char R, G, B;
|
||||
|
||||
} ColorValue;
|
||||
|
||||
typedef ColorValue VGAPaletteType[256];
|
||||
|
||||
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 );
|
||||
};
|
||||
|
||||
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}
|
||||
sync_display();
|
||||
intr( 0x10, &outR );
|
||||
};
|
||||
|
||||
VGAPaletteType Pal;
|
||||
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);
|
||||
}
|
||||
|
||||
|
||||
#define Longitud_Despedida (64+13)*8
|
||||
void DynaFin( char *buffer, char *buffer1 )
|
||||
{
|
||||
long i; char mov, acel;
|
||||
int salida, index, x, y;
|
||||
|
||||
p_Ampliada Despedida = { 0, 50, 40, 2, 2, 0, 255, 255 };
|
||||
|
||||
setvgapalette256( &PaletteDyn );
|
||||
|
||||
// Mostramos el mensaje de despedia.
|
||||
|
||||
i = 0;
|
||||
Despedida.AX = 2;
|
||||
Despedida.AY = 2;
|
||||
while ( i < Longitud_Despedida )
|
||||
{
|
||||
i++;
|
||||
FuenteAmplia( buffer, &Despedida );
|
||||
delay(3);
|
||||
};
|
||||
|
||||
i = 0;
|
||||
// Despedida.y += 30;
|
||||
Despedida.AX = 1;
|
||||
Despedida.AY = 1;
|
||||
while ( i < (28+24)*8 )
|
||||
{
|
||||
i++;
|
||||
FuenteAmplia( buffer1, &Despedida );
|
||||
delay(3);
|
||||
};
|
||||
|
||||
delay(2000);
|
||||
|
||||
// Acercamiento del mu<6D>eco, colocaci<63>n de la bomba, y alejamiento mu<6D>eco
|
||||
mov = 1; acel = 0;
|
||||
for ( x = 320; x > -30; x -=2 )
|
||||
{
|
||||
acel = (acel++) % 2;
|
||||
if ( acel == 1 )
|
||||
mov = (mov++) % 3;
|
||||
if ( x < 160 )
|
||||
BombaDyna( 160, 150, mov-1 );
|
||||
JugadorDyna( x, 150, mov-1 );
|
||||
delay(50);
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
// Explosion de la bomba
|
||||
// Gradiente rapidisimo hasta el blanco
|
||||
Palette256[64][0] = 32;
|
||||
Palette256[64][1] = 32;
|
||||
Palette256[64][2] = 32;
|
||||
memset( MK_FP( 0xA000, 0 ), 64, 320*200 );
|
||||
|
||||
salida = 0;
|
||||
for( ; salida == 0; )
|
||||
{
|
||||
for (index=100; index>=0; index--)
|
||||
{
|
||||
// set components
|
||||
if( Palette256[index][0]<63 ) Palette256[index][0] ++;
|
||||
if( Palette256[index][1]<63 ) Palette256[index][1] ++;
|
||||
if( Palette256[index][2]<63 ) Palette256[index][2] ++;
|
||||
if( Palette256[index][0]==63 && Palette256[index][1]==63 && Palette256[index][2]==63 )
|
||||
salida = 1;
|
||||
else
|
||||
salida = 0;
|
||||
} // end for index
|
||||
setvgapalette256( &Palette256 );
|
||||
}
|
||||
|
||||
delay(2000);
|
||||
|
||||
// Gradiente algo mas lento hacia el negro
|
||||
salida = 0;
|
||||
for( ; salida == 0; )
|
||||
{
|
||||
for (index=0; index<256; index++)
|
||||
{
|
||||
// set components
|
||||
if( Palette256[index][0]>0 ) Palette256[index][0] --;
|
||||
if( Palette256[index][1]>0 ) Palette256[index][1] --;
|
||||
if( Palette256[index][2]>0 ) Palette256[index][2] --;
|
||||
if( Palette256[index][0]==0 && Palette256[index][1]==0 && Palette256[index][2]==0 )
|
||||
salida = 1;
|
||||
else
|
||||
salida = 0;
|
||||
} // end for index
|
||||
setvgapalette256( &Palette256 );
|
||||
delay(50);
|
||||
}
|
||||
|
||||
|
||||
}
|
||||
|
||||
|
||||
void JugadorDyna( int x, int y, char mov )
|
||||
{
|
||||
char x1, y1;
|
||||
|
||||
if ( mov < 0 )
|
||||
{
|
||||
// Borra el mu<6D>eco anterior
|
||||
|
||||
} else {
|
||||
// Pinta el nuevo mu<6D>eco
|
||||
for ( x1=0; x1 < 23; x1++ )
|
||||
for ( y1=0; y1 < 23; y1++ )
|
||||
Put( x+x1, y+y1, DynaMovs[mov][y1][x1] );
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
void BombaDyna( int x, int y, char mov )
|
||||
{
|
||||
char x1, y1;
|
||||
|
||||
if ( mov < 0 )
|
||||
{
|
||||
// Borra el mu<6D>eco anterior
|
||||
|
||||
} else {
|
||||
// Pinta el nuevo mu<6D>eco
|
||||
for ( x1=0; x1 < 16; x1++ )
|
||||
for ( y1=0; y1 < 18; y1++ )
|
||||
Put( x+x1, y+y1, BombMovs[mov][y1][x1] );
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
|
||||
void CirculoGradiente(void)
|
||||
{
|
||||
int x, y;
|
||||
float angle; int radio;
|
||||
|
||||
VGAPaletteType K;
|
||||
|
||||
ReadPal( K );
|
||||
K[x].R =0;
|
||||
K[x].G =0;
|
||||
K[x].B =0;
|
||||
|
||||
// Intentemos mejorar la paleta
|
||||
for ( x = 1; x <= 127; x++ )
|
||||
{
|
||||
K[x].R = K[x-1].R+1;
|
||||
K[x].G = K[x-1].G+1;
|
||||
K[x].B = K[x-1].B+1;
|
||||
}
|
||||
for ( x = 127; x < 256; x++ )
|
||||
{
|
||||
K[x].R = K[255-x].R;
|
||||
K[x].G = 0*K[255-x].G;
|
||||
K[x].B = 0*K[255-x].B;
|
||||
}
|
||||
|
||||
|
||||
// Calculamos los circulos
|
||||
for ( radio = 1; radio < 320; radio++ )
|
||||
for ( angle = 0; angle < 360; angle+=0.1 )
|
||||
{
|
||||
x = 160 + (radio*sin( angle * M_PI / 180.0 ));
|
||||
y = 100 + ((radio/*+20*/)*cos( (angle-15) * M_PI / 180.0 ));
|
||||
if ( x >= 0 && x < 320 && y >= 0 && y < 200 )
|
||||
Put( x, y, (radio%(255/*-32*/))/*+32*/ );
|
||||
}
|
||||
|
||||
clock_t start, end;
|
||||
start = clock();
|
||||
while( ( ( clock() - start) / CLK_TCK ) < 30 )
|
||||
{
|
||||
for ( x = 0; x < 256; x++ )
|
||||
K[x]=K[ (x+1)%255+1 ];
|
||||
WritePal( K );
|
||||
}
|
||||
};
|
||||
|
||||
/*************************************************************************\
|
||||
|* *|
|
||||
|* El control es poder, y aqui esta el control de todo el demo... *|
|
||||
|* *|
|
||||
|* *|
|
||||
|* *|
|
||||
|* *|
|
||||
|* *|
|
||||
|* *|
|
||||
|* *|
|
||||
|* *|
|
||||
|* *|
|
||||
|* *|
|
||||
\*************************************************************************/
|
||||
void main(void)
|
||||
{
|
||||
int ok;
|
||||
|
||||
if ( ( ptr_char = (char *)malloc( 4096*sizeof(char) ) ) == NULL )
|
||||
return;
|
||||
LeeFuentes( "demo.fnt" );
|
||||
|
||||
RellenaTablas();
|
||||
|
||||
// Cambiamos a modo grafico
|
||||
asm mov ax, 0x13
|
||||
asm int 0x10
|
||||
|
||||
|
||||
while( kbhit() ) getch();
|
||||
|
||||
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20> Tunel de Estrellas (JD) <20> <20> <20><><EFBFBD><EFBFBD>۲<EFBFBD><DBB2><EFBFBD><EFBFBD><EFBFBD>
|
||||
PatoSimpsons();
|
||||
|
||||
MensajeIntermedio( "Que tal un poco de plasma para tus ojos" );
|
||||
|
||||
CirculoGradiente();
|
||||
|
||||
|
||||
MensajeIntermedio( "Waooo, eso ha estado bien, pero esto estar<61> aun mejor" );
|
||||
|
||||
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20> Tunel de Estrellas (JD) <20> <20> <20><><EFBFBD><EFBFBD>۲<EFBFBD><DBB2><EFBFBD><EFBFBD><EFBFBD>
|
||||
CreaPaleta(); // <20> Porque no mejoramos la paleta 16x2 ?
|
||||
ReadPal(Pal);
|
||||
|
||||
clock_t start, end;
|
||||
start = clock();
|
||||
while( ( ( clock() - start) / CLK_TCK ) < 30 )
|
||||
TunelEstrellas();
|
||||
|
||||
MensajeIntermedio( "Y por si fuera poco, miraa esto:" );
|
||||
|
||||
|
||||
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20> Mensaje y dyna poniendo una bomba <20> <20> <20><><EFBFBD><EFBFBD>۲<EFBFBD><DBB2><EFBFBD><EFBFBD><EFBFBD>
|
||||
DynaFin( " Agradecimiento a todos los que han hecho posible este demo. ", " Jose David Guillen 1997 (c)" );
|
||||
|
||||
|
||||
|
||||
// Cambiamos a modo texto
|
||||
asm mov ax, 3
|
||||
asm int 0x10
|
||||
/*
|
||||
gotoxy(1,1);
|
||||
cprintf( "C:\\>");
|
||||
sleep(30);
|
||||
cprintf( "\n\r Que no me he quedao' colgao' tio... " );
|
||||
cprintf( "\n\r -- Hasta el proximo intro -- " );
|
||||
cprintf( "\n\r Jos<6F> David Guill<6C>n 1997 (c) " );
|
||||
cprintf( "\n\r " );
|
||||
*/
|
||||
free ( ptr_char );
|
||||
}
|
||||
|
||||
void MensajeIntermedio(char *buffer)
|
||||
{
|
||||
char buffer1[500];
|
||||
long i, len;
|
||||
p_Ampliada Despedida = { 0, 50, 40, 1, 1, 0, 200, 200 };
|
||||
|
||||
memset( MK_FP( 0xA000, 0 ), 0, 320*200 );
|
||||
while( kbhit() ) getch();
|
||||
i = 0;
|
||||
sprintf( buffer1, " %s", buffer );
|
||||
len = (strlen( buffer1 ))*8;
|
||||
while ( i < len )
|
||||
{
|
||||
i++;
|
||||
FuenteAmplia2( buffer1, &Despedida );
|
||||
delay(3);
|
||||
};
|
||||
memset( MK_FP( 0xA000, 0 ), 0, 320*200 );
|
||||
}
|
||||
|
||||
|
||||
|
||||
/////<2F><>/////////////////////////////////////////////////////////////////////////////
|
||||
////<2F>/////////////////////////////////////////////////////////////////////////////////
|
||||
/////<2F><>/////<2F>///////////////////////////////////////////////////////////////////////
|
||||
//////<2F>///<2F>////<2F>/<2F>//////////////////////////////////////////////////////////////////
|
||||
///////<2F>/<2F>///<2F>//////////////////////////////////////////////////////////////////////
|
||||
////////<2F>//<2F>////<2F>///////////////////////////////////////////////////////////////////
|
||||
/////////<2F>////<2F>/////////////////////////////////////////////////////////////////////
|
||||
///////////<2F>////////////////////////////////////////////////////////////////////////
|
||||
#define TAMx 8
|
||||
#define TAMy 16
|
||||
void FuenteAmplia( char *Frase, p_Ampliada far *FA )
|
||||
{
|
||||
int i, j, k; // Variables de avance
|
||||
int c_elec; // Color en el momento de imprimir
|
||||
int PosX, PosY; // Posicion fisica final
|
||||
char LCaract; // Caracter de linea a tratar
|
||||
|
||||
if ( FA->Flen != _fstrlen( Frase ) ) // Reseteamos las variables de control interno
|
||||
{
|
||||
// Obtenemos la longitud de la frase. ( En d<>gitos )
|
||||
FA -> Flen = _fstrlen( Frase );
|
||||
// Contador de digito actual a cero
|
||||
FA -> BitByte = 0;
|
||||
// Posicion dentro de la frase
|
||||
FA -> currByte = 0;
|
||||
}
|
||||
|
||||
// Avance horizontal de bit's ( avance de digitos )
|
||||
for ( i = 0; i < ( TAMx * (FA -> ndigitos) ); i++ )
|
||||
{
|
||||
k = ( Frase[ ( (i+FA->BitByte)/TAMx + FA -> currByte ) % FA->Flen ] ) << 4;
|
||||
LCaract = ( (char)0x01 << (7 - (i+FA->BitByte)%TAMx) );
|
||||
PosX = FA -> x + FA->AX * i; // Posicion f<>sica horizontal
|
||||
// Avance vertical de bit's
|
||||
for ( j = 0; j < TAMy; j ++ )
|
||||
{
|
||||
PosY = FA -> y + FA->AY * j; // Posicion f<>sica vertical
|
||||
|
||||
if ( ptr_char[ k + j ] & LCaract )
|
||||
c_elec = FA->C2;
|
||||
else
|
||||
c_elec = FA->C1;
|
||||
|
||||
Put ( PosX, PosY, c_elec );
|
||||
}
|
||||
}
|
||||
// Tenemos en cuenta el avance dentro de la frase
|
||||
if ( ( FA -> BitByte ++ ) >= 7 )
|
||||
{
|
||||
FA -> BitByte = 0; FA -> currByte ++;
|
||||
if ( FA -> currByte >= FA -> Flen )
|
||||
FA -> currByte = 0;
|
||||
}
|
||||
|
||||
}
|
||||
#undef TAMy
|
||||
#undef TAMx
|
||||
|
||||
|
||||
#define TAMx 8
|
||||
#define TAMy 16
|
||||
void FuenteAmplia2( char *Frase, p_Ampliada far *FA )
|
||||
{
|
||||
int i, j, k; // Variables de avance
|
||||
int c_elec; // Color en el momento de imprimir
|
||||
int PosX, PosY; // Posicion fisica final
|
||||
char LCaract; // Caracter de linea a tratar
|
||||
|
||||
if ( FA->Flen != _fstrlen( Frase ) ) // Reseteamos las variables de control interno
|
||||
{
|
||||
// Obtenemos la longitud de la frase. ( En d<>gitos )
|
||||
FA -> Flen = _fstrlen( Frase );
|
||||
// Contador de digito actual a cero
|
||||
FA -> BitByte = 0;
|
||||
// Posicion dentro de la frase
|
||||
FA -> currByte = 0;
|
||||
}
|
||||
|
||||
// Avance horizontal de bit's ( avance de digitos )
|
||||
for ( i = 0; i < ( TAMx * (FA -> ndigitos) ); i++ )
|
||||
{
|
||||
k = ( Frase[ ( (i+FA->BitByte)/TAMx + FA -> currByte ) % FA->Flen ] ) << 4;
|
||||
LCaract = ( (char)0x01 << (7 - (i+FA->BitByte)%TAMx) );
|
||||
PosX = FA -> x + FA->AX * i; // Posicion f<>sica horizontal
|
||||
// Avance vertical de bit's
|
||||
for ( j = 0; j < TAMy; j ++ )
|
||||
{
|
||||
PosY = FA -> y + FA->AY * j; // Posicion f<>sica vertical
|
||||
|
||||
if ( ptr_char[ k + j ] & LCaract )
|
||||
c_elec = /*FA->C2*/PosX;
|
||||
else
|
||||
c_elec = FA->C1;
|
||||
|
||||
Put ( PosX, PosY, c_elec );
|
||||
}
|
||||
}
|
||||
// Tenemos en cuenta el avance dentro de la frase
|
||||
if ( ( FA -> BitByte ++ ) >= 7 )
|
||||
{
|
||||
FA -> BitByte = 0; FA -> currByte ++;
|
||||
if ( FA -> currByte >= FA -> Flen )
|
||||
FA -> currByte = 0;
|
||||
}
|
||||
|
||||
}
|
||||
#undef TAMy
|
||||
#undef TAMx
|
||||
|
||||
/* Setvgapalette256 sets the entire 256 color palette */
|
||||
/* PalBuf contains RGB values for all 256 colors */
|
||||
/* R,G,B values range from 0 to 63 */
|
||||
/* Usage: */
|
||||
/* DacPalette256 dac256; */
|
||||
/* */
|
||||
/* setvgapalette256(&dac256); */
|
||||
void setvgapalette256(DacPalette256 *PalBuf)
|
||||
{
|
||||
struct REGPACK reg;
|
||||
|
||||
reg.r_ax = 0x1012;
|
||||
reg.r_bx = 0;
|
||||
reg.r_cx = 256;
|
||||
reg.r_es = FP_SEG(PalBuf);
|
||||
reg.r_dx = FP_OFF(PalBuf);
|
||||
// while( ( inport(0x03DA) & 0x08 ) == 0x08 ); // {Wait for rescan}
|
||||
sync_display();
|
||||
intr(0x10,®);
|
||||
}
|
||||
|
||||
/*************************************************************************\
|
||||
|* *|
|
||||
|* LeeFuentes *|
|
||||
|* *|
|
||||
|* Descripcion: *|
|
||||
|* Lee el conjunto de fuentes del archivo especificado *|
|
||||
|* *|
|
||||
|* Entradas: puntero al nombre del archivo *|
|
||||
|* *|
|
||||
|* Salidas: (ninguna) *|
|
||||
|* *|
|
||||
\*************************************************************************/
|
||||
void LeeFuentes(char *file)
|
||||
{
|
||||
FILE *fich;
|
||||
/* Reservamos 4 Kb. para cargar la fuente en memoria */
|
||||
|
||||
/* Abrimos el fichero de la fuente */
|
||||
|
||||
if ((fich=fopen(file,"rb"))==NULL) {
|
||||
printf("\a\nArchivo %s no encontrado.\n",file);
|
||||
exit(1);
|
||||
}
|
||||
|
||||
fseek(fich, SEEK_SET, 0); /* Nos colocamos al principio del fichero */
|
||||
fread(ptr_char,1,4096,fich); /* Cargamos en memoria 4096 bytes del fichero */
|
||||
fclose(fich); /* Cerramos el fichero */
|
||||
}
|
||||
|
||||
#define RESP_X 151
|
||||
#define RESP_Y 141
|
||||
|
||||
|
||||
|
||||
void PatoSimpsons(void)
|
||||
{
|
||||
FILE *handle;
|
||||
char *Buffer2;
|
||||
int byteRot;
|
||||
int x, y, mov, i, ok;
|
||||
// Pido memoria para los tres patos 151x141
|
||||
if ( ( Pato[0] = (char *)malloc( sizeof(char)*155*145 ) ) == NULL ||
|
||||
( Pato[1] = (char *)malloc( sizeof(char)*155*145 ) ) == NULL ||
|
||||
( Pato[2] = (char *)malloc( sizeof(char)*155*145 ) ) == NULL ||
|
||||
( Buffer2 = (char *)malloc( sizeof(char)*320*200 ) ) == NULL ||
|
||||
( BufferV = (char *)malloc( sizeof(char)*320*200 ) ) == NULL
|
||||
) {
|
||||
printf( "\a" );
|
||||
return;
|
||||
}
|
||||
|
||||
// Buffer2 = (char *)MK_FP( 0xA000, 0 );
|
||||
|
||||
// Inicializamos la paleta
|
||||
CargaPaleta( "Pat0.pcx" );
|
||||
// Leemos los patos
|
||||
LeePato( "Pat0.pcx", Pato[0] );
|
||||
// Muestra el primer pato mientras acabamos los c<>lculos
|
||||
for ( x = 0; x < RESP_X; x ++ )
|
||||
for ( y = 0; y < RESP_Y; y ++ )
|
||||
Put( x+85, y+50, Pato[0][x + RESP_X*y] );
|
||||
LeePato( "Pat1.pcx", Pato[1] );
|
||||
LeePato( "Pat2.pcx", Pato[2] );
|
||||
|
||||
i = 0;
|
||||
while ( i < 5*6 )
|
||||
{
|
||||
i++;
|
||||
mov = (mov++) % 6;
|
||||
for ( x = 0; x < RESP_X; x ++ )
|
||||
for ( y = 0; y < RESP_Y; y ++ )
|
||||
Put( x+85, y+50, Pato[ mov > 3 ? (6 - mov) : (mov-1) ][x + RESP_X*y] );
|
||||
delay( 100 );
|
||||
}
|
||||
|
||||
// Tatatam tam
|
||||
sync_display(); memset( MK_FP( 0xA000, 0 ), 255, 320*200 ); delay( 50 ); sync_display(); memset( MK_FP( 0xA000, 0 ), 0, 320*200 ); delay( 50 );
|
||||
sync_display(); memset( MK_FP( 0xA000, 0 ), 255, 320*200 ); delay( 50 ); sync_display(); memset( MK_FP( 0xA000, 0 ), 0, 320*200 ); delay( 150 );
|
||||
sync_display(); memset( MK_FP( 0xA000, 0 ), 255, 320*200 ); delay( 50 ); sync_display(); memset( MK_FP( 0xA000, 0 ), 0, 320*200 );
|
||||
|
||||
// Patos reduciendoce:
|
||||
i = 1; ok = 0; byteRot = 0;
|
||||
int inc = 1, fVel = 0;
|
||||
float CosAngle, SinAngle;
|
||||
int xc, yc;
|
||||
|
||||
clock_t start, end;
|
||||
start = clock();
|
||||
while( ( ( clock() - start) / CLK_TCK ) < 30 )
|
||||
{
|
||||
fVel = (fVel++)%3;
|
||||
if ( fVel==1 )
|
||||
{
|
||||
i += inc; if ( i > 6 ) inc = -1; else if ( i < 2 ) inc = 1;
|
||||
}
|
||||
ReducePato( BufferV, Pato[ mov > 3 ? (6 - mov) : (mov-1) ], i );
|
||||
mov = (mov++) % 6;
|
||||
|
||||
/*
|
||||
Que tal una peque<75>a rotaci<63>n:
|
||||
*/
|
||||
byteRot = (byteRot+=8) % 360;
|
||||
CosAngle = TSin[ byteRot + 90 ] / 100.0;
|
||||
SinAngle = TSin[ byteRot ] / 100.0;
|
||||
|
||||
for ( x = 0; x < 320; x++ )
|
||||
// for ( y = 0; y < 200; y++ )
|
||||
for ( y = 0; y < 200; y++ )
|
||||
{
|
||||
xc = x - 160;
|
||||
yc = y - 100;
|
||||
|
||||
yc = xc * SinAngle + yc * CosAngle + 100;
|
||||
if ( yc >= 0 && yc < 200 )
|
||||
{
|
||||
xc = xc * CosAngle - ( y - 100 ) * SinAngle + 160;
|
||||
if ( xc >= 0 && xc < 320 )
|
||||
{
|
||||
Buffer2[ x + 320*y ] = BufferV[ xc + 320 * yc ];
|
||||
} else Buffer2[ x + 320*y ] = 0;
|
||||
} else Buffer2[ x + 320*y ] = 0;
|
||||
}
|
||||
sync_display(); memcpy( MK_FP( 0xA000, 0 ), Buffer2, 320*200 );
|
||||
delay( 100 );
|
||||
};
|
||||
|
||||
free( Pato[0] );
|
||||
free( Pato[1] );
|
||||
free( Pato[2] );
|
||||
free( BufferV );
|
||||
// free( Buffer2 );
|
||||
}
|
||||
|
||||
void ReducePato( char *Dest, char *Org, char Magn )
|
||||
{
|
||||
int x, y;
|
||||
int xR, yR;
|
||||
|
||||
// Escalamos el primer pato y despues...
|
||||
for ( x = 0, xR = 0; x < RESP_X; x +=Magn, xR++ )
|
||||
for ( y = 0, yR = 0; y < RESP_Y; y +=Magn, yR++ )
|
||||
Dest[xR + yR*320] = Org[x + y*RESP_X];
|
||||
|
||||
// Copiamos en el destino tantos patos reducidos como podamos
|
||||
// como la ovejita Dolly, pero con patos: a clonar se ha dicho...
|
||||
for ( x = 0; x < 320; x++ )
|
||||
for ( y = 0; y < 200; y++ )
|
||||
// for ( y = 0; y < 320; y++ )
|
||||
|
||||
Dest[x + y*320] = Dest[ (x%xR) + (y%yR)*320 ];
|
||||
|
||||
|
||||
}
|
||||
|
||||
|
||||
int LeePato( char *file, char *dir )
|
||||
{
|
||||
int alto, ancho, contador;
|
||||
unsigned char byte;
|
||||
FILE *fp;
|
||||
|
||||
if ( (fp = fopen( file,"rb")) != NULL )
|
||||
{
|
||||
// Saltamos la cabecera
|
||||
fseek( fp, 128, SEEK_SET );
|
||||
|
||||
for(alto=0; alto<RESP_Y; alto++)
|
||||
{
|
||||
for(ancho=0; ancho< (RESP_X+1); )
|
||||
{
|
||||
byte=getc(fp);
|
||||
if(byte<=0xC0)
|
||||
{
|
||||
// set_point (ancho, alto, byte);
|
||||
// ProcesaPunto( ancho, alto, byte );
|
||||
dir[ancho + alto*RESP_X] = byte;
|
||||
ancho++;
|
||||
} else {
|
||||
contador=byte&0x3F; byte=getc(fp);
|
||||
for(; contador>0; contador--)
|
||||
{
|
||||
// set_point (ancho, alto, byte);
|
||||
// ProcesaPunto( ancho, alto, byte );
|
||||
dir[ancho + alto*RESP_X] = byte;
|
||||
ancho++;
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
fclose(fp);
|
||||
} else return ERROR;
|
||||
|
||||
return OK;
|
||||
}
|
||||
Reference in New Issue
Block a user