//|  Libreria bsica para trabajar con el modo 13h en C++
//|  autor: DidE
//|  Web: http://dide.bitacoras.com
//|  Licencia: ESTE DOCUMENTO EST BAJO LICENCIA CREATIVE COMMONS ( http://creativecommons.org/ )
//|______________________________________________________________________________________________________________________
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

#include <stdio.h>
#include <stdlib.h>
#include <conio.h>
#include <dos.h>
#include <math.h>
#include <string.h>


/////////////////////////////////////////////////////////
// Declaracin de Constantes 
/////////////////////////////////////////////////////////
#define INT_MOUSE 0x33
#define SERV_ACTIVA_MOUSE 0x00
#define SERV_GET_MOUSE_STATUS 0x03
#define SERV_SET_MOUSE_XY 0x04
#define VVID 0xA0000000L
#define CANT 500
#define LX_MOUSE 640
#define LY_MOUSE 200
////////////////////////////////////////////////////////
// Tipos de Datos.
/////////////////////////////////////////////////////////
// Declaracin del tipo de datos Booleano.
/////////////////////////////////////////////////////////
typedef enum{F,V} boolea;         
/////////////////////////////////////////////////////////
// Declaracin de variables globales.
/////////////////////////////////////////////////////////
int x_mouse=0; int y_mouse=0;
int _mouse_pulsado=0;
int _mouse_cargado=0;
int _cursor_cargado=0;
int activa_mouse();               // Inicializacin del ratn
int get_x_mouse();                // Devuelve la coordenada x actual del ratn
int get_y_mouse();                // Devuelve la coordenada y actual del ratn
int pulsado_left();               // Devuelve true si esta pulsado el botn izquierdo del ratn
int pulsado_right();              // Devuelve true si esta pulsado el botn derecho del ratn
int mouse_movido();               // Devuelve true si el ratn ha cambiado de posicin
/////////////////////////////////////////////////////////
// Listado de Prototipos de las funciones implementadas.
/////////////////////////////////////////////////////////

char Sgn(int x);
void IniMode (char Mode);         // Inicializa un modo de video determinado ( 0x13 video , 0x03 texto ...)
int get_pixel(int x, int y);      // Devuelve el color del pixel situado en las coordenadas pasadas como parametros.
void pon_punto(int x,int y,unsigned char color);         // Procedimiento que visualiza un punto en pantalla en modo 13h
void lineaH(int x1,int x2,int y,int color);              // dibuja una linea horizontal en modo 13h
void lineaV(int y1,int y2,int x, int color);             // dibuja una linea vertical  en modo 13h
void recta(int x1, int y1, int x2, int y2,int color);    // dibuja un rectangulo en modo 13 h
void cuadro13(int x1,int y1, int x2, int y2, int color); // dibuja un rectangulo relleno en modo 13h
void linea(int x1, int y1,int x2,int y2,char color);      // dibuja una linea en modo 13h
void cambiarcolor( unsigned char color, unsigned char r, unsigned char v, unsigned char a ); // cambia un color determinado segun paleta RGB

///////////////// Definiciones /////////////////////////

char Sgn(int x)
{	char res;
	if(x>0)
		res=1;
	if(x==0)
		res=0;
	if(x<0)
		res=-1;
	   return(res);
}	
void linea(int x1, int y1, int x2, int y2, char Color)
{
  int i, s, d1x, d1y, d2x, d2y, u=x2-x1, v=y2 - y1, m, n;
  d2x = Sgn(u); d1y= Sgn(v);
  d2y = 0; d1x= Sgn(u);
  m = abs(u); n = abs(v);
  if(m>n==0)
  { d2x = 0 ;
    d2y = Sgn(v);
    m = abs(v);
    n = abs(u);
  }
  s=m>>1;
  for(i=0;i<=m;i++)
  { pon_punto(x1,y1,Color);
    s+=n;
    if(s<m==0) 
    { s -= m;
      x1 += d1x;
      y1 += d1y;
    }
    else 
	{ x1 += d2x;
      y1 += d2y;
} } }

void cambiarcolor( unsigned char color, unsigned char r, unsigned char v, unsigned char a )
{	outportb( 0x03c8, color );
	outportb( 0x03c9, r );
	outportb( 0x03c9, v );
	outportb( 0x03c9, a );
}

int get_pixel(int x, int y)
{	char color;
	int offset=320*y+x;
	color=peekb(0xA000,offset);
	return color;
}

void IniMode(char Mode) 
{
 asm xor ah, ah
 asm mov al, Mode
 asm int 10h
}

//Procedimiento que visualiza un punto en pantalla, esta implementado en asm para mejorara su velocidad y portabilidad.
void pon_punto(int x,int y,unsigned char color)   
{	asm{
	mov     ax,0xA000
	mov     es,ax             //      {; Punto al segmento de la pantalla }
	mov     dx,[y]
	mov     bx, dx            //      {; bx = dx}
	mov     dh, dl            //      {; dx = dx * 256}
	xor     dl, dl
	shl     bx, 1
	shl     bx, 1
	shl     bx, 1
	shl     bx, 1
	shl     bx, 1
        shl     bx, 1             //      {; bx = bx * 64}
        add     dx, bx            //      {; dx = dx + bx (ie y*320)}
	mov     bx,[x]            //      {; get our x}
        add     bx, dx            //      {; finalise location}
        mov     di, bx            //      {; di = offset }
	               		  //      {; es:di = where to go}
	mov     ah, [color]
	mov     es:[di],ah    //          {; mueve el valor de ah a la pantalla
			      //	       point es:[di] }
   }                                    //equivale a esto:
//   pokeb(0xA000,y*320+x,Color);       //Ponemos un byte en la memoria de vdeo
}
//  RECTANGLE CON LOS BORDER DE COLORES
void lineaH(int x1,int x2,int y,int color)
{	int i;
	for(i=x1;i<=x2;i++)
		pon_punto(i,y,color);
}
void lineaV(int y1,int y2,int x, int color)
{	int i;
	for(i=y1;i<=y2;i++)
		pon_punto(x,i,color);
}

void recta(int x1, int y1, int x2, int y2,int color)
{	lineaH(x1,x2,y1,color);
	lineaH(x1,x2,y2,color);
	lineaV(y1,y2,x1,color);
	lineaV(y1,y2,x2,color);
}
void cuadro13(int x1,int y1, int x2, int y2, int color)
{	int i;
	for(i=y1-1;i<y2;i++)
		lineaH(x1,x2,i,color);
}
int activa_mouse()
{
	union REGS r;


	r.x.ax=SERV_ACTIVA_MOUSE;

	int86(INT_MOUSE,&r,&r);
	if (r.x.ax){
		_mouse_cargado=1;
		return 1;
	}
	return 0;
}

int get_x_mouse()
{
	union REGS r;

	r.x.ax=SERV_GET_MOUSE_STATUS;
	int86(INT_MOUSE,&r,&r);
	return r.x.cx;
}
int get_y_mouse()
{
	union REGS r;

	r.x.ax=SERV_GET_MOUSE_STATUS;
	int86(INT_MOUSE,&r,&r);
	return r.x.dx;
}

int pulsado_left()
{
	union REGS r;

	r.x.ax=SERV_GET_MOUSE_STATUS;
	int86(INT_MOUSE,&r,&r);
	return r.x.bx&1;
}
int pulsado_right()
{
	union REGS r;

	r.x.ax=SERV_GET_MOUSE_STATUS;
	int86(INT_MOUSE,&r,&r);
	return r.x.bx&2;
}



void set_xy_mouse(int x,int y)
{
	union REGS r;

	r.x.ax=SERV_SET_MOUSE_XY;
	r.x.cx=x;
	r.x.dx=y;
	int86(INT_MOUSE,&r,&r);
}