C/LEDS
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

First commit 22/02/1998

Browse Source
This commit is contained in:
José David Guillén
2021-09-12 19:48:58 +02:00
commit 5fb7602006
5 changed files with 558 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

549
LEDS.CPP Normal file
View File

@ -0,0 +1,549 @@
#include <dos.h>
#include <mem.h>
#include <math.h>
#include <conio.h>
#include <ctype.h>
#include <stdio.h>
#include <string.h>
#include <graphics.h>
//#include "alum_def.h"
//extern void Error( int code, char *MensajeError );
char *ptr_char;
char *VidRam = (char *)MK_FP( 0xA000, 0);
void far PutPixel(unsigned int x, unsigned int y, int c_elec );
typedef struct
{
int x, y;
char ndigitos;
char AX, AY;
char C1, C2, C3;
} p_graphics;
typedef struct
{
int x, y; // Coordenadas iniciales de muestreo
char ndigitos; // n<>mero de digitos a mostrar
char AX, AY; // factor de espaciado
char C1, C2, C3; // colores de fondo, texto, borde
// Datos privados y uso interno exclusivamente
unsigned int Flen; // longitud de la frase actual
char BitByte; // bit del byte por el que va en el recorrido
char currByte; // byte actual dentro de la frase
} p_Ampliada;
int Numero_Digital( long numero, p_graphics *ND );
void Fuente_Amplia( char *Frase, p_graphics *FA );
/**************************************************************************\
|* *|
|* Numero_Digital *|
|* *|
|* Descripcion: *|
|* Muestra un numero, con forma digital en pantalla, *|
|* escalandolo seg<65>n los factores indicados en p_graphics *|
|* ( 9 digitos como m<>ximo ) *|
|* *|
|* Entradas: *|
|* N<>mero y estructura de muestreo *|
|* *|
|* Salidas: (ninguna) *|
|* *|
\**************************************************************************/
/*
int Numero_Digital( long numero, p_graphics *ND )
{
// Son 9 digitos VARIABLES
// 0
// _________ _________ _________ _________ _________ _________ _________
// |\______ /| |\______ /| |\______ /| |\______ /| |\______ /| |\______ /| |\______ /|
// | | | | | | | | | | | | | | | | | | | | | | | | | | | |
//3 | | 1 | | 5 | | | | | | | | | | | | | | | | | | | | | | | |
// | /-----\ | | /-----\ | | /-----\ | | /-----\ | | /-----\ | | /-----\ | | /-----\ |
// | \-----/ | | \-----/ | | \-----/ | | \-----/ | | \-----/ | | \-----/ | | \-----/ |
//4 | | | | 6 | | | | | | | | | | | | | | | | | | | | | | | |
// | |_____| | | |_____| | | |_____| | | |_____| | | |_____| | | |_____| | | |_____| |
// |/_______\| |/_______\| |/_______\| |/_______\| |/_______\| |/_______\| |/_______\|
// 2
static char dnumero[9] = { -1, -1, -1, -1, -1, -1, -1, -1, -1 };
static char Dn[9] = { 0, 0, 0, 0, 0, 0, 0, 0, 0 };
static char vez = 0;
static p_graphics ND1;
char dnum=0, i, j, digital;
int punto[10];
int CONST = 0;
char DnTmp[2];
char signo = 0;
static old_signo = 0;
// Si ha cambiado la posicion, el n<> de digitos, o el factor de escala
// habr<62> que recalcularlo todo.
if (
ND1.x != ND -> x || ND1.y != ND -> y ||
ND1.ndigitos != ND -> ndigitos ||
ND1.AX != ND -> AX || ND1.AY != ND -> AY
)
{
dnumero[0] = -1; dnumero[1] = -1; dnumero[2] = -1;
dnumero[3] = -1; dnumero[4] = -1; dnumero[5] = -1;
dnumero[6] = -1; dnumero[7] = -1; dnumero[8] = -1;
Dn[0] = 0; Dn[1] = 0; Dn[2] = 0;
Dn[3] = 0; Dn[4] = 0; Dn[5] = 0;
Dn[6] = 0; Dn[7] = 0; Dn[8] = 0;
//ndigitos1 = ndigitos;
ND1 = *ND;
vez = 0;
}
// Miramos el signo del n<>mero
if ( numero < 0 )
{
numero *= -1;
signo = 1;
}
if ( signo != old_signo ) vez = 0;
setcolor(ND -> C3);
// Miro todas las cifras que componen el n<>mero
for( i=0; i < ND -> ndigitos; i++ )
{
dnum = numero % 10;
digital = numero;
numero /= 10;
// Si el n<>mero pintado con anterioridad es distinto al actual, lo dibujamos
if ( dnumero[ ND -> ndigitos - 1 - i] != dnum || digital == 0 || vez == 0 )
{
// digital = dnumero[5 - i];
dnumero[ND -> ndigitos - 1 - i] = dnum;
//////// Esta parte del c<>digo imprime el digito en pantalla
CONST = 12*ND -> AX*(ND -> ndigitos - 1 - i);
DnTmp[1] = Dn[ND -> ndigitos - 1 -i];
// Antes de nada, eliminamos los cero a la izquierda
if ( digital == 0 && i != 0 ) { Dn[ND -> ndigitos - 1 -i] = 0; dnumero[ND -> ndigitos - 1 - i] = -1; } else
switch( dnum )
{
case 0:
Dn[ND -> ndigitos - 1 -i] = 0x7D; // 0111 1101
break;
case 1:
Dn[ND -> ndigitos - 1 -i] = 0x60; // 0110 0000
break;
case 2:
Dn[ND -> ndigitos - 1 -i] = 0x37; // 0011 0111
break;
case 3:
Dn[ND -> ndigitos - 1 -i] = 0x67; // 0110 0111
break;
case 4:
Dn[ND -> ndigitos - 1 -i] = 0x6A; // 0110 1010
break;
case 5:
Dn[ND -> ndigitos - 1 -i] = 0x4F; // 0100 1111
break;
case 6:
Dn[ND -> ndigitos - 1 -i] = 0x5F; // 0101 1111
break;
case 7:
Dn[ND -> ndigitos - 1 -i] = 0x61; // 0110 0001
break;
case 8:
Dn[ND -> ndigitos - 1 -i] = 0x7F; // 0111 1111
break;
case 9:
Dn[ND -> ndigitos - 1 -i] = 0x6F; // 0110 1111
break;
}
DnTmp[0] = Dn[ND -> ndigitos - 1 -i];
for( j=0; j<7; j++ )
{
if ( DnTmp[1]%2 != DnTmp[0]%2 || vez == 0 )
{
if ( DnTmp[0]%2 )
setfillstyle(SOLID_FILL, ND -> C1);
else
setfillstyle(SOLID_FILL, ND -> C2);
switch( j )
{
case 0:
punto[0] = 0*ND -> AX + CONST + ND -> x; punto[1] = 0*ND -> AY + ND -> y;
punto[2] = 10*ND -> AX + CONST + ND -> x; punto[3] = 0*ND -> AY + ND -> y;
punto[4] = 8*ND -> AX + CONST + ND -> x; punto[5] = 2*ND -> AY + ND -> y;
punto[6] = 2*ND -> AX + CONST + ND -> x; punto[7] = 2*ND -> AY + ND -> y;
punto[8] = 0*ND -> AX + CONST + ND -> x; punto[9] = 0*ND -> AY + ND -> y;
fillpoly( 5, punto );
break;
case 3:
punto[0] = 0*ND -> AX + CONST + ND -> x; punto[1] = 0*ND -> AY + ND -> y;
punto[2] = 2*ND -> AX + CONST + ND -> x; punto[3] = 2*ND -> AY + ND -> y;
punto[4] = 2*ND -> AX + CONST + ND -> x; punto[5] = 9*ND -> AY + ND -> y;
punto[6] = 1*ND -> AX + CONST + ND -> x; punto[7] = 10*ND -> AY + ND -> y;
punto[8] = 0*ND -> AX + CONST + ND -> x; punto[9] = 9*ND -> AY + ND -> y;
fillpoly( 5, punto );
break;
case 5:
punto[0] = 10*ND -> AX + CONST + ND -> x; punto[1] = 0*ND -> AY + ND -> y;
punto[2] = 10*ND -> AX + CONST + ND -> x; punto[3] = 9*ND -> AY + ND -> y;
punto[4] = 9*ND -> AX + CONST + ND -> x; punto[5] = 10*ND -> AY + ND -> y;
punto[6] = 8*ND -> AX + CONST + ND -> x; punto[7] = 9*ND -> AY + ND -> y;
punto[8] = 8*ND -> AX + CONST + ND -> x; punto[9] = 2*ND -> AY + ND -> y;
fillpoly( 5, punto );
break;
case 1:
int punto1[12];
punto1[0] = 1*ND -> AX + CONST + ND -> x; punto1[1] = 10*ND -> AY + ND -> y;
punto1[2] = 2*ND -> AX + CONST + ND -> x; punto1[3] = 9*ND -> AY + ND -> y;
punto1[4] = 8*ND -> AX + CONST + ND -> x; punto1[5] = 9*ND -> AY + ND -> y;
punto1[6] = 9*ND -> AX + CONST + ND -> x; punto1[7] = 10*ND -> AY + ND -> y;
punto1[8] = 8*ND -> AX + CONST + ND -> x; punto1[9] = 11*ND -> AY + ND -> y;
punto1[10] = 2*ND -> AX + CONST + ND -> x; punto1[11] = 11*ND -> AY +ND -> y;
fillpoly( 6, punto1 );
break;
case 4:
punto[0] = 1*ND -> AX + CONST + ND -> x; punto[1] = 10*ND -> AY + ND -> y;
punto[2] = 2*ND -> AX + CONST + ND -> x; punto[3] = 11*ND -> AY + ND -> y;
punto[4] = 2*ND -> AX + CONST + ND -> x; punto[5] = 18*ND -> AY + ND -> y;
punto[6] = 0*ND -> AX + CONST + ND -> x; punto[7] = 20*ND -> AY + ND -> y;
punto[8] = 0*ND -> AX + CONST + ND -> x; punto[9] = 11*ND -> AY + ND -> y;
fillpoly( 5, punto );
break;
case 6:
punto[0] = 9*ND -> AX + CONST + ND -> x; punto[1] = 10*ND -> AY + ND -> y;
punto[2] = 10*ND -> AX + CONST + ND -> x; punto[3] = 11*ND -> AY + ND -> y;
punto[4] = 10*ND -> AX + CONST + ND -> x; punto[5] = 20*ND -> AY + ND -> y;
punto[6] = 8*ND -> AX + CONST + ND -> x; punto[7] = 18*ND -> AY + ND -> y;
punto[8] = 8*ND -> AX + CONST + ND -> x; punto[9] = 11*ND -> AY + ND -> y;
fillpoly( 5, punto );
break;
case 2:
punto[0] = 2*ND -> AX + CONST + ND -> x; punto[1] = 18*ND -> AY + ND -> y;
punto[2] = 8*ND -> AX + CONST + ND -> x; punto[3] = 18*ND -> AY + ND -> y;
punto[4] = 10*ND -> AX + CONST + ND -> x; punto[5] = 20*ND -> AY + ND -> y;
punto[6] = 0*ND -> AX + CONST + ND -> x; punto[7] = 20*ND -> AY + ND -> y;
punto[8] = 2*ND -> AX + CONST + ND -> x; punto[9] = 18*ND -> AY + ND -> y;
fillpoly( 5, punto );
break;
default:
break;
}
}
DnTmp[0] /= 2;
DnTmp[1] /= 2;
}
}
}
if ( signo != old_signo )
{
if ( (old_signo = signo) == 1 )
{
setfillstyle(SOLID_FILL, ND -> C1);
int punto1[12];
punto1[0] = 1*ND -> AX + ND -> x; punto1[1] = 10*ND -> AY + ND -> y;
punto1[2] = 2*ND -> AX + ND -> x; punto1[3] = 9*ND -> AY + ND -> y;
punto1[4] = 8*ND -> AX + ND -> x; punto1[5] = 9*ND -> AY + ND -> y;
punto1[6] = 9*ND -> AX + ND -> x; punto1[7] = 10*ND -> AY + ND -> y;
punto1[8] = 8*ND -> AX + ND -> x; punto1[9] = 11*ND -> AY + ND -> y;
punto1[10] = 2*ND -> AX + ND -> x; punto1[11] = 11*ND -> AY +ND -> y;
fillpoly( 6, punto1 );
}
}
vez = 1;
return 0;
}
*/
////////////////////////////////////////////////////////////////////////////////////
void far PutPixel(unsigned int x, unsigned int y, int c_elec )
{
if ( x < 320 && y < 200 )
*(VidRam + (x + y*320) ) = c_elec;
}
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);
// Error(0, "No se encuentra el archivo de fuentes");
}
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 TAMx 8
#define TAMy 8
void Fuente_Amplia( 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 = ( (unsigned char)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;
putpixel ( 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 Fuente_Amplia3( 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 = ( (unsigned char)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;
PutPixel ( 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
/////<2F><>/////////////////////////////////////////////////////////////////////////////
////<2F>/////////////////////////////////////////////////////////////////////////////////
/////<2F><>/////<2F>///////////////////////////////////////////////////////////////////////
//////<2F>///<2F>////<2F>/<2F>//////////////////////////////////////////////////////////////////
///////<2F>/<2F>///<2F>//////////////////////////////////////////////////////////////////////
////////<2F>//<2F>////<2F>///////////////////////////////////////////////////////////////////
/////////<2F>////<2F>/////////////////////////////////////////////////////////////////////
///////////<2F>////////////////////////////////////////////////////////////////////////
#define TAMx 8
#define TAMy 7//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
int LCaract; // Caracter de linea a tratar
if ( FA->C3 == -1 || 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 = ( (unsigned char)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;
PutPixel ( 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
void main(void)
{
p_Ampliada P;
int ok = 0;
unsigned delayT;
P.x = P.y = 0;
P.ndigitos = 1;
P.AX = P.AY = 1;
P.C1 = EGA_DARKGRAY;
P.C2 = EGA_RED;
if ( ( ptr_char = new char [4096] ) == NULL )
return;
// Cambiamos a 320x200
asm mov al, 0x13
asm mov ah, 0x00
asm int 0x10
LeeFuentes("leds.fnt");
ok = 0;
delayT = 1;
while( !ok )
{
if ( kbhit() )
{
switch( getch() )
{
case 0:
switch( getch() )
{
case 75:
P.AX--; if ( P.AX < 1 ) P.AX = 1;
break;
case 77:
P.AX++; if ( P.AX > 40 ) P.AX = 40;
break;
case 72:
P.AY--; if ( P.AY < 1 ) P.AY = 1;
break;
case 80:
P.AY++; if ( P.AY > 40 ) P.AY = 40;
break;
}
break;
case '1':
P.ndigitos--; if ( P.ndigitos < 1 ) P.ndigitos = 1;
break;
case '2':
P.ndigitos++; if ( P.ndigitos > 40 ) P.ndigitos = 40;
break;
case '3':
delayT--; if ( delayT < 1 ) delayT = 1;
break;
case '4':
delayT++; if ( delayT > 40 ) delayT = 40;
break;
case 27:
ok = 1;
break;
}
memset( VidRam, 0, 64000 );
}
FuenteAmplia( "Esto es una prueba para ver la relaci<63>n del texto y el tama<6D>o de la muestra", &P );
delay(delayT);
};
// Volvemos al modo texto
asm mov al, 0x03
asm mov ah, 0x00
asm int 0x10
delete [] ptr_char;
}

BIN
LEDS.EXE Normal file
View File

Binary file not shown.

BIN
LEDS.FNT Normal file
View File

Binary file not shown.

BIN
LEDS2.FNT Normal file
View File

Binary file not shown.

9
README.md Normal file
View File

@ -0,0 +1,9 @@
#LEDS
*22/02/1998*
ToDo: wwtcf?
![screenshot](/LEDS.png "Screenshot")