esfera.C

Ir a la documentación de este archivo.

//===========================================================================
//= esfera.cc                                                 Julio de 1998 =
//=-------------------------------------------------------------------------=
//= Definiciones basicas para las clases de geometria                       =
//=-------------------------------------------------------------------------=
//= ADVERTENCIA: ESTE SOFTWARE NO ESTA CONCEBIDO NI DISENNADO PARA EL USO   =
//= EN EQUIPO DE CONTROL EN LINEA EN ENTORNOS PELIGROSOS QUE REQUIERAN UN   =
//= DESEMPENNO LIBRE DE FALLAS, COMO LA OPERACION DE PLANTAS NUCLEARES,     = 
//= SISTEMAS DE NAVEGACION O COMUNICACION EN AVIONES, TRAFICO AEREO,        =
//= EQUIPO MEDICO DEL CUAL DEPENDAN VIDAS HUMANAS O SISTEMAS DE ARMAMENTO,  =
//= EN LOS CUALES UNA FALLA EN EL SOFTWARE PUEDA IMPLICAR DIRECTAMENTE LA   =
//= MUERTE, DANNOS PERSONALES O DANNOS FISICOS Y/O AMBIENTALES GRAVES       =
//= ("ACTIVIDADES DE ALGO RIESGO").                                         =
//=-------------------------------------------------------------------------=
//= Autor original: Oscar J. Chavarro G.  A.K.A. JEDILINK. Copyright (c),   =
//= 1997 - 2003, oscarchavarro@hotmail.com                                  =
//= AQUYNZA es software libre, y se rige bajo los terminos de la licencia   =
//= LGPL de GNU (http://www.gnu.org). Para mayor informacion respecto a la  =
//= licencia de uso, consulte el archivo ./doc/LICENCIA en la distribucion. =
//===========================================================================

#include "toolkits/geom/geometria.h"

#ifdef VEL_ROSITA
    #include "toolkits/geom/esfera.h"
#endif

#include <stdio.h>

//===========================================================================
//= Clase ESFERA                                                            =
//===========================================================================

ESFERA::ESFERA(double r)
{
    _radio = r;
    _lod = 500;

    #ifdef GL_ENABLED
    Textura_glu = gluNewQuadric();
    _paralelos = 10;
    _meridianos = 16;
    #endif
    imagen = NULL;
}

ESFERA::~ESFERA()
{
    if ( imagen ) delete imagen;
    #ifdef GL_ENABLED
    if ( Textura_glu ) gluDeleteQuadric(Textura_glu);
    #endif
}

double
ESFERA::radio(void)
{
    return _radio;
}

void
ESFERA::set_radio(double r)
{
    if ( r > EPSILON  ) {
        _radio = r;
    }
}

void
ESFERA::activar_lod(void)
{
    unsigned long int p, nt;

    for ( p = 2; p < 400; p++ ) {
        nt = 2 * p * (long int)((double)p * 1.5);
        if ( nt >= _lod ) {
            _paralelos = (int)p;
            _meridianos = (int)((double)p * 1.5);
            break;
        }
    }
    if ( p == 400 ) {
        _paralelos = (int)p;
        _meridianos = (int)((double)p * 1.5);
    }
}

void
ESFERA::set_lod(unsigned long int lod)
{
    _lod = lod;
    activar_lod();
}

void
ESFERA::anexar_textura(IMAGEN *img)
{
    if ( imagen ) delete imagen;
    imagen = img;
}

int
ESFERA::clasificar_punto(VECTOR p)
{
    double d = DISTANCIA(0, 0, 0, p.x, p.y, p.z);

    if ( IGUAL(_radio, d ) ) {
        return 0;
      }
      else if ( d < _radio ) {
        return 1;
      }
      else {
        return -1;
      }
    ;
}

void
ESFERA::minmax(VECTOR *min, VECTOR *max)
{
    min->x = -_radio;
    min->y = -_radio;
    min->z = -_radio;
    max->x = _radio;
    max->y = _radio;
    max->z = _radio;
}

#ifdef GL_ENABLED

void
ESFERA::pintar_gl(CALIDAD_VISUAL *Calidad, MATERIAL* Material,
                  CAMARA * /*Camara*/)
{
    //- Pintado de bordes --------------------------------------------------
    COLOR cb(1, 0, 0);

    if ( Calidad->con_bordes ) {
        Calidad->activar_bordes_gl(cb, Material);
        // Voy a poner caras
        gluQuadricDrawStyle(Textura_glu, (GLenum)GLU_LINE);  
        gluQuadricOrientation(Textura_glu, (GLenum)GLU_OUTSIDE);
        gluQuadricNormals(Textura_glu, (GLenum)GLU_FLAT);
        gluQuadricTexture(Textura_glu, GL_FALSE);
        gluSphere(Textura_glu, _radio, _meridianos, _paralelos);
    }

    if ( Calidad->con_cajas ) PINTAR_MINMAX_GL();

    //- Pintado de caras ---------------------------------------------------
    COLOR c(1, 1, 1);

    if ( Calidad->con_caras ) {
        // Voy a poner caras
        gluQuadricDrawStyle(Textura_glu, (GLenum)GLU_FILL);  
        gluQuadricOrientation(Textura_glu, (GLenum)GLU_OUTSIDE);
        //gluQuadricOrientation(Textura_glu, (GLenum)GLU_INSIDE);

        Material->activar_gl();
        Calidad->activar_caras_gl(c, Material);

        switch ( Calidad->calidad_caras ) {
          case CVC_CONSTANTE: gluQuadricNormals(Textura_glu, (GLenum)GLU_FLAT);
            break;
          case CVC_SHADE:
            gluQuadricNormals(Textura_glu, (GLenum)GLU_SMOOTH);
            break;
          case CVC_FLAT: default:
            gluQuadricNormals(Textura_glu, (GLenum)GLU_FLAT);
            break;
        }

        if ( imagen && Calidad->con_textura ) {
            imagen->activar_gl();
            gluQuadricTexture(Textura_glu, GL_TRUE);
            glEnable(GL_TEXTURE_2D);
            Calidad->activar_textura_gl();
          }
          else if ( Calidad->con_caustics ) {
            gluQuadricTexture(Textura_glu, GL_TRUE);
            Calidad->activar_textura_gl();
          }
          else {
            gluQuadricTexture(Textura_glu, GL_FALSE);
            glDisable(GL_TEXTURE_2D);
        }

        ACTIVAR_POLYGON_OFFSET();
        gluSphere(Textura_glu, _radio, _meridianos, _paralelos);
        DESACTIVAR_POLYGON_OFFSET();
        glDisable(GL_TEXTURE_2D);
    }

}
#endif

void
ESFERA::pintar_povray(FILE *fd)
{
    fprintf(fd,
        "sphere {\n"
        "    <0, 0, 0>, %f\n",
        _radio
    );
}

void
ESFERA::pintar_aqz(FILE *fd)
{
    char num[200];

    sprintf(num, "%f", _radio);
    simplifique_real(num);
    fprintf(fd, "    geometria ESFERA %s \"%s\"\n", num, "");
}

GEOMETRIA *
ESFERA::crear_copia(void)
{
    ESFERA *e;

    e = new ESFERA(_radio);
    if ( !e ) return NULL;

    (*e) = (*this);

    #ifdef GL_ENABLED
    e->Textura_glu = gluNewQuadric();

    if ( imagen ) {
        e->imagen = imagen->copie();
        if ( !e->imagen ) {
            fprintf(stderr,
            "<ESFERA> Warning: no se pudo replicar una textura.\n");
            fflush(stderr);
        }
    }
    #endif

    return (GEOMETRIA *)e;
}

//===========================================================================
//= EOF                                                                     =
//===========================================================================

---

Este archivo HTML ha sido generado automáticamente a partir del código fuente AQUYNZA. NO LO EDITE. Para mayor información contacte al autor.