geometrie/src/pir_surface.cpp

//------------------------------------------------------------
//------------------------------------------------------------
//  MAGiC
//  Jean Christophe Cuilli�re et Vincent FRANCOIS
//  D�partement de G�nie M�canique - UQTR
//------------------------------------------------------------
//  Le projet MAGIC est un projet de recherche du d�partement
//  de g�nie m�canique de l'Universit� du Qu�bec �
//  Trois Rivi�res
//  Les librairies ne peuvent �tre utilis�es sans l'accord
//  des auteurs (contact : francois@uqtr.ca)
//------------------------------------------------------------
//------------------------------------------------------------
//
//       pir_surface.cpp
//
//------------------------------------------------------------
//------------------------------------------------------------
//  COPYRIGHT 2000
//  Version du 02/03/2006 � 11H22
//------------------------------------------------------------
//------------------------------------------------------------


#include "gestionversion.h"

#ifdef BREP_PIRATE

#include "pir_surface.h"


PIR_SURFACE::PIR_SURFACE(unsigned long num,PG_SURFACE *srf):MG_SURFACE(num),surface(srf)
{
    pos=new PG_POSITION2D(*surface);
    u_min=pos->get_umin();
    u_max=pos->get_umax();
    v_min=pos->get_vmin();
    v_max=pos->get_vmax();
}

PIR_SURFACE::PIR_SURFACE(PG_SURFACE *srf):MG_SURFACE(),surface(srf)
{
    pos=new PG_POSITION2D(*surface);
    u_min=pos->get_umin();
    u_max=pos->get_umax();
    v_min=pos->get_vmin();
    v_max=pos->get_vmax();
}

PIR_SURFACE::PIR_SURFACE(PIR_SURFACE& mdd):MG_SURFACE(mdd),surface(mdd.surface)
{
    pos=new PG_POSITION2D(*surface);
    u_min=pos->get_umin();
    u_max=pos->get_umax();
    v_min=pos->get_vmin();
    v_max=pos->get_vmax();
}


PIR_SURFACE::~PIR_SURFACE()
{
    delete pos;
}

void  PIR_SURFACE::evaluer(double *uv,double *xyz)
{
    surface->evaluer(uv,xyz);
}

void  PIR_SURFACE::deriver(double *uv,double *xyzdu, double *xyzdv)
{
    double *ds[2] = {xyzdu,xyzdv};
    surface->deriver(uv,ds);
}

void  PIR_SURFACE::deriver_seconde(double *uv,double* xyzduu,double* xyzduv,double* xyzdvv,double *xyz, double *xyzdu, double *xyzdv)
{
    double pt[3]= { 0.0 , 0.0 , 0.0 };
    double du[3] = { 0.0, 0.0, 0.0 };
    double dv[3] = { 0.0, 0.0, 0.0 };
    if (xyz==NULL) xyz=pt;
    if (xyzdu==NULL) xyzdu=du;
    if (xyzdv==NULL) xyzdv=dv;
    double* d0n[]={ xyz, xyzdv, xyzdvv };
    double* d1n[]={ xyzdu, xyzduv };
    double* d2n[]={ xyzduu  };
    double** ds[] = { d0n, d1n, d2n };
    pos->deriver_seconde( uv, ds );

}

void  PIR_SURFACE::inverser(double* uv,double *xyz,double precision)
{
    pos->localiser(xyz,uv,precision);
}

int PIR_SURFACE::est_periodique_u(void)
{
    return surface->estFermee_en_u();
}

int PIR_SURFACE::est_periodique_v(void)
{
    return surface->estFermee_en_v();
}

double PIR_SURFACE::get_periode_u(void)
{
    if (surface->estFermee_en_u()==0) return 0.;
    return surface->get_periode_u();
}

double PIR_SURFACE::get_periode_v(void)
{
    if (surface->estFermee_en_v()==0) return 0.;
    return surface->get_periode_v();
}


void  PIR_SURFACE::enregistrer(ostream& o,double version)
{
    o << "%" << get_id() << "=SURFACE_PIRATE("<< surface->get_id()<< ");" << endl;
}
#endif


Revision:	763
Committed:	Wed Dec 2 19:55:53 2015 UTC (9 years, 5 months ago) by francois
File size:	3283 byte(s)
Log Message:	Le fichier MAGiC est maintenant versionné. LA version actuelle est 2.0. L'ancienne version est 1.0. Tout est transparent pour l'utilisateur. Les vieilles versions sont lisibles mais les nouveaux enregistrements sont dans la version la plus récente. Changement des conditions aux limites : ajout d'un parametre pour dire si la condition numerique est une valeur ou une formule ou un lien vers une autre entité magic. Les parametres pour saisir sont maintenant -ccf -ccfi -ccff -ccft -ccfit -ccfft
#	User	Rev	Content
1	francois	283	//------------------------------------------------------------
2			//------------------------------------------------------------
3			// MAGiC
4			// Jean Christophe Cuilli�re et Vincent FRANCOIS
5			// D�partement de G�nie M�canique - UQTR
6			//------------------------------------------------------------
7			// Le projet MAGIC est un projet de recherche du d�partement
8			// de g�nie m�canique de l'Universit� du Qu�bec �
9			// Trois Rivi�res
10			// Les librairies ne peuvent �tre utilis�es sans l'accord
11			// des auteurs (contact : francois@uqtr.ca)
12			//------------------------------------------------------------
13			//------------------------------------------------------------
14			//
15			// pir_surface.cpp
16			//
17			//------------------------------------------------------------
18			//------------------------------------------------------------
19			// COPYRIGHT 2000
20			// Version du 02/03/2006 � 11H22
21			//------------------------------------------------------------
22			//------------------------------------------------------------
23
24
25			#include "gestionversion.h"
26
27			#ifdef BREP_PIRATE
28
29			#include "pir_surface.h"
30
31
32
33
34
35			PIR_SURFACE::PIR_SURFACE(unsigned long num,PG_SURFACE *srf):MG_SURFACE(num),surface(srf)
36			{
37			pos=new PG_POSITION2D(*surface);
38			u_min=pos->get_umin();
39			u_max=pos->get_umax();
40			v_min=pos->get_vmin();
41			v_max=pos->get_vmax();
42			}
43
44			PIR_SURFACE::PIR_SURFACE(PG_SURFACE *srf):MG_SURFACE(),surface(srf)
45			{
46			pos=new PG_POSITION2D(*surface);
47			u_min=pos->get_umin();
48			u_max=pos->get_umax();
49			v_min=pos->get_vmin();
50			v_max=pos->get_vmax();
51			}
52
53			PIR_SURFACE::PIR_SURFACE(PIR_SURFACE& mdd):MG_SURFACE(mdd),surface(mdd.surface)
54			{
55			pos=new PG_POSITION2D(*surface);
56			u_min=pos->get_umin();
57			u_max=pos->get_umax();
58			v_min=pos->get_vmin();
59			v_max=pos->get_vmax();
60			}
61
62
63
64			PIR_SURFACE::~PIR_SURFACE()
65			{
66			delete pos;
67			}
68
69			void PIR_SURFACE::evaluer(double uv,double xyz)
70			{
71			surface->evaluer(uv,xyz);
72			}
73
74			void PIR_SURFACE::deriver(double uv,double xyzdu, double *xyzdv)
75			{
76			double *ds[2] = {xyzdu,xyzdv};
77			surface->deriver(uv,ds);
78			}
79
80			void PIR_SURFACE::deriver_seconde(double uv,double xyzduu,double* xyzduv,double* xyzdvv,double xyz, double xyzdu, double *xyzdv)
81			{
82			double pt[3]= { 0.0 , 0.0 , 0.0 };
83			double du[3] = { 0.0, 0.0, 0.0 };
84			double dv[3] = { 0.0, 0.0, 0.0 };
85			if (xyz==NULL) xyz=pt;
86			if (xyzdu==NULL) xyzdu=du;
87			if (xyzdv==NULL) xyzdv=dv;
88			double* d0n[]={ xyz, xyzdv, xyzdvv };
89			double* d1n[]={ xyzdu, xyzduv };
90			double* d2n[]={ xyzduu };
91			double** ds[] = { d0n, d1n, d2n };
92			pos->deriver_seconde( uv, ds );
93
94			}
95
96			void PIR_SURFACE::inverser(double* uv,double *xyz,double precision)
97			{
98			pos->localiser(xyz,uv,precision);
99			}
100
101			int PIR_SURFACE::est_periodique_u(void)
102			{
103			return surface->estFermee_en_u();
104			}
105
106			int PIR_SURFACE::est_periodique_v(void)
107			{
108			return surface->estFermee_en_v();
109			}
110
111			double PIR_SURFACE::get_periode_u(void)
112			{
113			if (surface->estFermee_en_u()==0) return 0.;
114			return surface->get_periode_u();
115			}
116
117			double PIR_SURFACE::get_periode_v(void)
118			{
119			if (surface->estFermee_en_v()==0) return 0.;
120			return surface->get_periode_v();
121			}
122
123
124	francois	763	void PIR_SURFACE::enregistrer(ostream& o,double version)
125	francois	283	{
126			o << "%" << get_id() << "=SURFACE_PIRATE("<< surface->get_id()<< ");" << endl;
127			}
128			#endif
129
130