//---------------------------------------------------------------------------//
//                 Autor: Jose Manuel Toledo Fernandez                       //
//                 Fecha: 28-2-2006                                          //
//                 Nombre MPlano.cpp                                         //
//                                                                           //
//  Descripcion: Este módulo se encarga de dibujar el plano en perspectiva   //
//               de la posición de cada uno de los satélites captados        //
//---------------------------------------------------------------------------//

#include <vcl.h>
#pragma hdrstop

#include <math.h>
#include "MPlano.h"
#include "UFprincipal.h"

#define N_SATS 12
#define Pi 3.1415926536
//---------------------------------------------------------------------------

#pragma package(smart_init)
#pragma resource "*.dfm"

TFormPlano *FormPlano;
//---------------------------------------------------------------------------
/*! El constructor inicializa valores */
__fastcall TFormPlano::TFormPlano(TComponent* Owner)
        : TForm(Owner)
{
  int aux=0;

  Timer1->Enabled=false;
  Ultimo = false;
  activado = false;
  sat = new Ssatel;
  recibido_rt2=false;


  Satelite[0]=Image2;
  Satelite[1]=Image3;
  Satelite[2]=Image4;
  Satelite[3]=Image5;
  Satelite[4]=Image6;
  Satelite[5]=Image7;
  Satelite[6]=Image8;
  Satelite[7]=Image9;
  Satelite[8]=Image10;
  Satelite[9]=Image11;
  Satelite[10]=Image12;
  Satelite[11]=Image13;

  P_Card[0]=Norte;
  P_Card[1]=Este;
  P_Card[2]=Sur;
  P_Card[3]=Oeste;

  sat->n_sat=0;
  AngNorte=0;

  while (aux<N_SATS)
  {
     X[aux]=0;
     Y[aux]=0;
     Alt_sats[aux]=0;
     Satelite[aux]->Visible=false;
     sat->id_sat[aux]=0;
     sat->elevacion[aux]=0;
     sat->acimut[aux]=0;
     sat->SNR[aux]=0;
     sat->health[aux]=1;

     aux++;
  }
}
//---------------------------------------------------------------------------
void __fastcall TFormPlano::FormActivate(TObject *Sender)
{
   rt2==false;

   if((activado == false)&&(FormPlano->Visible == true))
   {
      Timer1->Enabled = false;
      activado = true;
      tiempo_agotado = false;
      Borrar();

      FormPrincipal->HiloEsc->SC->Acquire();
      try
      {
/*        FormPrincipal->HiloEsc->cadena="LOG SATVISA ONNEXT"; //solicitamos la trama ----- cada seg
        FormPrincipal->HiloEsc->transmitido=true;
        while(FormPrincipal->HiloEsc->transmitido==true){};  //esperamos la transmision
*/
        FormPrincipal->HiloEsc->cadena="LOG SATVISA ONTIME 9"; //solicitamos la trama ----- cada seg
        FormPrincipal->HiloEsc->transmitido=true;
        while(FormPrincipal->HiloEsc->transmitido==true){};  //esperamos la transmision*/
      }
       __finally
      {
         FormPrincipal->HiloEsc->SC->Release();
      }

      Timer1->Interval=20000;     //cargamos y activamos el timer
      recibido_rt2=false;
      Timer1->Enabled=true;
   }
}
//---------------------------------------------------------------------------
/*! A partir de los datos de la trama GPGSV calcula las posiciones X,Y de los
    satélites en este plano */
void __fastcall TFormPlano::Calcula_pos()
{
  int aux=0;              //Para la cuenta en los bucles
  double dir_aux;
  double x1,y1,x2,y2;
  AnsiString cadena;

  aux = 0;

  FormPrincipal->HiloPpal->SC->Acquire();
  try
  {

     for (aux=0;aux<sat->n_sat;aux++)
     {

       X[aux]= cos ((sat->elevacion[aux]*Pi/180))
            * sin(( (sat->acimut[aux]+AngNorte) *Pi/180));
       Y[aux]=cos ((sat->elevacion[aux]*Pi/180))
            *cos(((sat->acimut[aux]+AngNorte)*Pi/180));

       X[aux]=(X[aux]*0.8*ClientWidth/2)+(ClientWidth/2);
       Y[aux]=(-Y[aux]*0.6*ClientHeight/2)+(ClientHeight/2);

       Alt_sats[aux]=(Y[aux]*40/ClientHeight)+30;
       Alt_sats[aux]=(int)((double)Alt_sats[aux])*((double)ClientHeight/250);
       X[aux]-=(Alt_sats[aux]/2);
       Y[aux]-=(Alt_sats[aux]/2);

       Estado[aux]=sat->health[aux];

       if(sat->elevacion[aux] < 11)
          Satelite[aux]->Picture->LoadFromFile(".\\Ilustraciones\\SatRojo.bmp");
       else
          Satelite[aux]->Picture->LoadFromFile(".\\Ilustraciones\\SatVerde.bmp");

       Satelite[aux]->Hint = "\nNº Satelite = "+(AnsiString)sat->id_sat[aux]+"\nElevación = "+(AnsiString)sat->elevacion[aux]+"º\nAzimuth = "+(AnsiString)sat->acimut[aux]+"º";
      }

     for (;aux<N_SATS;aux++)
     {
       X[aux]=0;
       Y[aux]=0;
       Estado[aux]=1;
     }
     aux = 0;
     for (aux=0;aux<N_SATS;aux++)
     {
       Satelite[aux]->Height=Alt_sats[aux];
       Satelite[aux]->Width=Satelite[aux]->Height;
       Satelite[aux]->Left=(int)X[aux];
       Satelite[aux]->Top=(int)Y[aux];

       if(Estado[aux]==1)
       {
          Satelite[aux]->Visible=false;
       }
       else if(Estado[aux]==0)
       {
         Satelite[aux]->Visible=true;
       }
  }

  // Cambiamos el tamaño del plano

  Image1->Height=ClientHeight;
  Image1->Width=ClientWidth;
  }
  __finally
  {
      FormPrincipal->HiloPpal->SC->Release();
  }
}
//---------------------------------------------------------------------------
/*! Al cambiar el tamaño de la ventana es necesario resituar ciertos
    elementos */
void __fastcall TFormPlano::FormResize(TObject *Sender)
{
   Height=Width/2;
   CambiaNorte();
}
//---------------------------------------------------------------------------
/*! Actualiza el valor de AngNorte y luego llama a los métodos necesarios para
    actualizar en el plano todos los cambios que esto conlleva */
void __fastcall TFormPlano::PonNorte(double angulo)
{
  AngNorte=angulo;
  CambiaNorte();
}

//---------------------------------------------------------------------------
/*! Cambia la posición de los cuatro puntos cardinales de forma coherente*/
void __fastcall TFormPlano::CambiaNorte()
{
  int aux;

  aux = 0;
 //  FormPrincipal->HiloPpal->SC->Acquire();
 //  try
 //  {
     for (aux=0;aux<4;aux++)
     {
       P_Card[aux]->Left=(sin((AngNorte+aux*90)*Pi/180)*0.9*ClientWidth/2)+(ClientWidth/2);
       P_Card[aux]->Top=-(cos((AngNorte+aux*90)*Pi/180)*0.85*ClientHeight/2)+(ClientHeight/2);
       P_Card[aux]->Height=((P_Card[aux]->Top)*10/ClientHeight)+20;
       P_Card[aux]->Height=(int)((double)P_Card[aux]->Height)*((double)ClientHeight/250);
       P_Card[aux]->Width=P_Card[aux]->Height;
       P_Card[aux]->Left-=P_Card[aux]->Width/2;
       P_Card[aux]->Top-=P_Card[aux]->Height/2;
      }
/*   }
   __finally
   {
      FormPrincipal->HiloPpal->SC->Release();
   }*/
   Calcula_pos();
}
//---------------------------------------------------------------------------
/*! Toma la trama recibida y llama al método que calcula las posiciones de los
    satélites en el Plano X,Y */
void __fastcall TFormPlano::Muestra(Trama *aux)
{
   int i=0;
   int max=4;
   int j=0;

   FormPrincipal->HiloPpal->SC->Acquire();
   try
   {
      if(aux->Tipo=="GPGSV")
      {
          j=4*((aux->gpgsv.id_msg)-1);
         if(aux->gpgsv.id_msg==aux->gpgsv.n_msg)  //Si es la última trama
         {
            sat->n_sat=aux->gpgsv.n_sat;
            max=(aux->gpgsv.n_sat)-4*((aux->gpgsv.n_msg)-1);
         }
         while(i<max)
         {
           sat->id_sat[j]=aux->gpgsv.id_sat[i];
           sat->elevacion[j]=aux->gpgsv.elevacion[i];
           sat->acimut[j]=aux->gpgsv.acimut[i];
           sat->SNR[j]=aux->gpgsv.SNR[i];
           sat->health[j]=0;
           i++;
           j++;
         }
         if(aux->gpgsv.id_msg==aux->gpgsv.n_msg)
         {
            Ultimo = true;
         }
      }
      if((aux->Tipo=="SATVISA")&&(aux->satvisa.sat_vis==true))
      {
         sat->n_sat=aux->satvisa.n_sat;

/*         if(sat->n_sat>12)
         {
            sat->n_sat=max=12;
         }
         else
            max=sat->n_sat;      */

         i=j=sat->n_sat - 1;
         while(i>=0)        //sale cuando llenamos los campos de todos los satelites o cuando no hay mas.
         {
            sat->id_sat[j]=aux->satvisa.id_sat[i];
            sat->elevacion[j]=aux->satvisa.elevacion[i];
            sat->acimut[j]=aux->satvisa.acimut[i];
            sat->health[j]=aux->satvisa.health[i];
            j--;
            i--;
         }
         recibido_rt2 = true;
         Ultimo = true;
      }
   }
   __finally
   {
      FormPrincipal->HiloPpal->SC->Release();
   }
   if ((Ultimo)&&(Visible == true)) //si esta cerrada la ventana no lo muestra
   {
      Timer1->Interval = 1;
      Timer1->Enabled = true;
      while(Ultimo){};  //esperamos a que termine de gestionar la trama;
   }

}
//---------------------------------------------------------------------------
/*! Al cerra esta ventana levantamos el botón correspondiente de la ficha
    principal */
void __fastcall TFormPlano::FormClose(TObject *Sender, TCloseAction &Action)
{
  Timer1->Enabled = false;
  FormPrincipal->HiloEsc->SC->Acquire();
  try
  {
     FormPrincipal->HiloEsc->cadena="UNLOG SATVISA";  //Dejamos de solicitar tramas GPGSV
     FormPrincipal->HiloEsc->transmitido=true;
     while(FormPrincipal->HiloEsc->transmitido==true){};

     FormPrincipal->HiloEsc->cadena="UNLOG GPGSV";  //Dejamos de solicitar tramas --------
     FormPrincipal->HiloEsc->transmitido=true;
     while(FormPrincipal->HiloEsc->transmitido==true){};
   }
   __finally
   {
      FormPrincipal->HiloEsc->SC->Release();
   }
   Borrar();
   activado = false;
   Ultimo = false;     //Evitamos que se pueda quedar pillado el hilo principal
   FormPlano->Visible = false;

}
//---------------------------------------------------------------------------

void __fastcall TFormPlano::Timer1Timer(TObject *Sender)
{
   Timer1->Enabled=false;

      if ((recibido_rt2 == true)&&(!tiempo_agotado)) //si el tiempo de recepcion de la primera trama
      {                                            //satvisa aun no ha expirado y hemos recibido una cambiamo el perio de recepcion a 60sec
         tiempo_agotado = true;  //para que solo entre una vez desde que se inicia el form plano
         FormPrincipal->HiloEsc->SC->Acquire();
         try
         {
            FormPrincipal->HiloEsc->cadena="LOG SATVISA ONTIME 60"; //solicitamos la trama ----- cada seg
            FormPrincipal->HiloEsc->transmitido=true;
            while(FormPrincipal->HiloEsc->transmitido==true){};  //esperamos la transmision
         }
          __finally
         {
            FormPrincipal->HiloEsc->SC->Release();
         }

         Calcula_pos();
         if(Visible==true)
            Repaint();
      }
      else if(recibido_rt2!=true)
      {
         recibido_rt2 = true;
         tiempo_agotado = true;       //para que no vuelva a enviar tramas satvisa
         FormPrincipal->HiloEsc->SC->Acquire();
         try
         {
           FormPrincipal->HiloEsc->cadena="UNLOG SATVISA"; //Dejamos de pedir la trama SATVISA
           FormPrincipal->HiloEsc->transmitido=true;
           while(FormPrincipal->HiloEsc->transmitido==true){};  //esperamos la transmision

           FormPrincipal->HiloEsc->cadena="LOG GPGSV ONTIME 600";  //solicita la trama gpgsv cada seg
           FormPrincipal->HiloEsc->transmitido=true;
           while(FormPrincipal->HiloEsc->transmitido==true){};  //esperamos la transmision
         }
         __finally
        {
           FormPrincipal->HiloEsc->SC->Release();
        }
        ShowMessage("El equipo no está trabajando en modo RT2.\n Iniciando comunicación en modo estandar");
      }
      else if (Ultimo)
      {
         Calcula_pos();
         if(Visible==true)
            Repaint();
      }
      Ultimo = false;
}
//---------------------------------------------------------------------------
void __fastcall TFormPlano::Borrar()
{
  int aux = 0;
  while (aux<N_SATS)
  {
     sat->id_sat[aux]=0;
     sat->elevacion[aux]=0;
     sat->acimut[aux]=0;
     sat->SNR[aux]=0;
     sat->health[aux]=1;
     Estado[aux] = 1;
     X[aux]=0;
     Y[aux]=0;
     Alt_sats[aux]=0;
     Satelite[aux]->Visible=false;
     aux++;
  }

  sat->n_sat=0;
}

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="es">
	<head>
            <title>e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.</title>

                <meta http-equiv="Content-Type" content="text/html; charset=utf-8"/>
<meta name="description" content="Buscador de proyectos ETSI" />
<meta name="author" content="Daniel Callejo"/>
<meta name="author" content="Federico L&oacute;pez"/>
<meta name="author" content="Juli&aacute;n P&eacute;rez"/>
<meta name="author" content="Jos&eacute; Mar&iacute;a Vidal Vidal"/>
<base href="/bibing/proyectos/" /><link rel="shortcut icon" href="./favicon.ico" />
<link rel="stylesheet" href="./publico/css/estructura.css" type="text/css" />
<link rel="stylesheet" href="./publico/css/bootstrap.css" type="text/css" media="screen"/>
<link rel="stylesheet" href="./publico/css/enlaces-capas.css" type="text/css"  />
<link rel="stylesheet" href="./publico/css/pestanas.css" type="text/css"  /> 
<link rel="stylesheet" href="./publico/css/formularios.css" type="text/css" />
<link rel="stylesheet" href="./publico/css/lightbox.css" type="text/css"  />
<link rel="stylesheet" href="./publico/css/autocompleter.css" type="text/css"  />
<link rel="stylesheet" href="./publico/css/resultados.css" type="text/css"  />
<link rel="stylesheet" href="./publico/css/milista.css" type="text/css"  />
<link rel="stylesheet" href="./publico/css/explorador.css" type="text/css"  />
<link rel="stylesheet" href="./publico/css/ultimos.css" type="text/css"  />
<link rel="stylesheet" href="./publico/css/contactar.css" type="text/css"  />
<!-- <link rel="stylesheet" href="./css/print.css" type="text/css" media="print" /> -->
<script src="./publico/javascript/jquery-1.9.1.min.js" type="text/javascript"></script>
<script src="./publico/javascript/bootstrap.js" type="text/javascript"></script>

<script src="./publico/javascript/mootools-1.2.4-core.js" type="text/javascript"></script>
<script src="./publico/javascript/mootools-1-1.2.4.2-more.js" type="text/javascript"></script>
<script src="./publico/javascript/targetbl.js" type="text/javascript"></script>
<script src="./publico/javascript/mensajes.js" type="text/javascript"></script>
<script src="./publico/javascript/form.js" type="text/javascript"></script>
<script src="./publico/javascript/autocompleter/Observer.js" type="text/javascript"></script>
<script src="./publico/javascript/autocompleter/Autocompleter.js" type="text/javascript"></script>
<script src="./publico/javascript/autocompleter/Autocompleter.Request.js" type="text/javascript"></script>
<script src="./publico/javascript/domready.js" type="text/javascript"></script>

<!-- Google tag (gtag.js) -->
<script async src="https://www.googletagmanager.com/gtag/js?id=G-8T1TSNC1QY"></script>
<script>
  window.dataLayer = window.dataLayer || [];
  function gtag(){dataLayer.push(arguments);}
  gtag('js', new Date());

  gtag('config', 'G-8T1TSNC1QY');
</script>



<script type="text/javascript">
function seleccionar_todo(){
   for (i=0;i<document.formulario_marcados.elements.length;i++)
      if(document.formulario_marcados.elements[i].type == "checkbox")
         document.formulario_marcados.elements[i].checked=1
}
function deseleccionar_todo(){
   for (i=0;i<document.formulario_marcados.elements.length;i++)
      if(document.formulario_marcados.elements[i].type == "checkbox")
         document.formulario_marcados.elements[i].checked=0
} 
</script>
	</head>
    <body style="min-width: 960px; background-color: #e2e2e2; height: 100%">	
		<a name="arriba"></a>
<div>
<div id="header">
    <table id="Tabla_01" height="105" border="0" cellpadding="0" cellspacing="0">
    <tr>
        <td>
            <img src="./publico/imagenes/cabecera/banner_new2_01.jpg" width="3" height="105" alt="">
        </td>
        <td>
            <img src="./publico/imagenes/cabecera/banner_new2_02.jpg" width="100" height="105" alt="">
        </td>
        <td width="100%" align="right"  style="min-width: 613px; background-repeat: no-repeat; background-position: top right; font-size: medium; font-weight: bold; color: white;">
            <table width="100%" height="105" border="0">
                <tr>
                    <td style=" vertical-align: top; width: 547px">
                        <!-- <a style="text-decoration: none" href="./"><img src="./publico/imagenes/cabecera/banner_new2_03.jpg"alt=""></a> -->
                        <a style="text-decoration: none" href="/bibing/proyectos/"><img src="./publico/imagenes/cabecera/banner_new2_03.jpg"alt=""></a>
                     </td>
                     <td  background="./publico/imagenes/cabecera/banner_new2_04.jpg" style="background-repeat: no-repeat; background-color: #c6d4e8;"><br><br><br>
                         &nbsp;
                        </td>
                    </tr>
             </table>
        </td>
    </tr>
    <tr style="border-top: 1px solid #ffffff;">
        <td colspan="3" id="menu_sup" style="font-size: small; text-align: right; background-color: #9c1f2f; vertical-align: bottom">
             
					<a href="/bibing/proyectos/" class="enlace " style=" color: #ffffff">Inicio&nbsp;&nbsp;|</a>
					<a href="/bibing/proyectos/acerca/" style=" color: #ffffff" class="enlace ">&nbsp;&nbsp;Acerca de&nbsp;&nbsp;|</a>
					
					<a href="/bibing/proyectos/contactar/" style=" color: #ffffff" class="enlace ">&nbsp;&nbsp;Contactar&nbsp;&nbsp;</a>
			 <!--       <a href="/bibing/proyectos/ayuda/" style=" color: #ffffff" class="enlace  ">&nbsp;&nbsp;Ayuda&nbsp;&nbsp;|</a> -->
					<!-- <form id="idioma" class=""  method="post" action="">
					<div class="inline" style="color: white">
					<input type="submit" class="tipo_letra " style=" color: #ffffff"name="idioma" value="Castellanossss" />&nbsp;&nbsp;
					</div>	
					</form> -->
			        </td>

    </tr>
    </table>
</div>
<br><br>
<div class="colmask rightmenu">
<div class="panel panel-default" style="margin:20px">
            <div class="panel-heading"><h4>SOFTWARE PARA LA MONITORIZACIÓN Y CONTROL DE RECEPTORES GPS. APLICACIÓN A RECEPTORES NOVATEL RT-2</h4><h5 style="color:grey"><span class="glyphicon glyphicon-user""></span> : <b>TOLEDO FERN�NDEZ, JOSÉ MANUEL</b><br><span class="glyphicon glyphicon-book""></span>  :<b> Ingenier&iacute;a Telecomunicación</b></h5></div><div class="panel-body"><div class="contenido_proyecto"><div class="titulo2_explorador">Contenido del proyecto:</div><div class="ruta"><a href="use/abreproy/11271">Directorio ra&iacute;z</a>&nbsp;&nbsp;>&nbsp;&nbsp;<a href="use/abreproy/11271/direccion/InterGPS%252F">InterGPS</a>&nbsp;&nbsp;>&nbsp;&nbsp;<a href="use/abreproy/11271/direccion/InterGPS%252FInterGPS_codigo%252F">InterGPS_codigo</a>&nbsp;&nbsp;>&nbsp;&nbsp;<a href="use/abreproy/11271/direccion/InterGPS%252FInterGPS_codigo%252FPlano%252F">Plano</a>&nbsp;&nbsp;>&nbsp;&nbsp;<a href="use/abreproy/11271/direccion/InterGPS%252FInterGPS_codigo%252FPlano%252FMPlano.cpp%252F">MPlano.cpp</a></div><div class="listing"></div></div></div></div>
</div>
</div>

        
	</body>
 
 
<!-- Inicio Google Analytics -->
<!--
	<script type="text/javascript">
		var gaJsHost = (("https:" == document.location.protocol) ? "https://ssl." : "http://www.");
		document.write(unescape("%3Cscript src='" + gaJsHost + "google-analytics.com/ga.js' type='text/javascript'%3E%3C/script%3E"));
	</script>
	
	<script type="text/javascript">
		try {
		var pageTracker = _gat._getTracker("UA-7789620-1");
		pageTracker._trackPageview();
	} 
		catch(err) {}
	</script>
-->
<!-- Fin Google Analytics -->

</html>