0023022: This is desirable to access OpenGl extensions and core API (1.2+) in one...
[occt.git] / src / OpenGl / OpenGl_telem_util.cxx
CommitLineData
7fd59977 1/***********************************************************************
2
3FONCTION :
4----------
5File OpenGl_telem_util :
6
7
8REMARQUES:
9----------
10
11
12HISTORIQUE DES MODIFICATIONS :
13--------------------------------
14xx-xx-xx : xxx ; Creation.
1507-02-96 : FMN ; - Ajout trace
16- Suppression code inutile
1708-03-96 : FMN ; - Ajout include manquant
1801-04-96 : CAL ; Integration MINSK portage WNT
1915-04-96 : CAL ; Integration travail PIXMAP de Jim ROTH
2022-04-96 : FMN ; Ajout TelReadImage TelDrawImage
2110-05-96 : CAL ; Ajout d'un nouveau delta dans les copies
22de pixels (voir CALL_DEF_DELTA)
2325-06-96 : FMN ; Suppression utilisation de glScissor.
2402-07-96 : FMN ; Suppression WSWSHeight et WSWSWidth
25Suppression glViewport inutile.
2618-07-96 : FMN ; Suppression TelFlush inutile.
2708-07-96 : FMN ; Suppression de OPENGL_DEBUG inutile avec la nouvelle
28version de ogldebug.
2924-10-96 : CAL ; Portage WNT
3023-01-97 : CAL ; Suppression de TelClearViews dans TelCopyBuffers
3130-01-97 : FMN ; Ajout commentaires + WNT.
3212-02-97 : FMN ; Suppression TelEnquireFacilities()
3322-04-97 : FMN ; Ajout affichage du cadre pour la copie de buffer
3430-06-97 : FMN ; Suppression OpenGl_telem_light.h
3518-07-97 : FMN ; Utilisation de la toolkit sur les lights
3607-10-97 : FMN ; Simplification WNT + correction Transient
3705-12-97 : FMN ; PRO11168: Suppression TglActiveWs pour project/unproject
3823-12-97 : FMN ; Suppression TelSetFrontFaceAttri et TelSetBackFaceAttri
3930-12-97 : FMN ; CTS18312: Correction back material
4004-05-98 : CAL ; Contournement bug SGI octane bavure de pixels (PRO12899)
4130-09-98 : CAL ; Optimisation pour eviter de charger inutilement
42les matrices de la vue.
4319-10-98 : FMN ; Suppression de glPixelTransferi dans TelEnable() car cela
44rentre en conflit avec l'utilisation d'une image de fond.
4502.14.100 : JR : Warnings on WNT truncations from double to float
4608-03-01 : GG ; BUC60823 Avoid crash in the normal computation method
47when a face has confused or aligned points.
48
49************************************************************************/
50
5f8b738e 51#include <OpenGl_GlCore11.hxx>
7fd59977 52
7fd59977 53#include <OpenGl_telem_util.hxx>
2166f0fa
SK
54#include <InterfaceGraphic_Graphic3d.hxx>
55#include <InterfaceGraphic_Visual3d.hxx>
7fd59977 56
7fd59977 57#define GPRECIS 0.000001
58Tint TelGetPolygonNormal(tel_point pnts, Tint* indexs, Tint npnt, Tfloat *norm ) {
59 Tint status=0;
60
61 norm[0] = norm[1] = norm[2] = 0.;
62 if( npnt > 2 ) {
63 Tfloat a[3], b[3], c[3];
64 Tint i,j,i0,ii=0,jj;
65
66 i0 = 0; if( indexs ) i0 = indexs[0];
67 for( i=1 ; i<npnt ; i++ ) {
68 ii = i; if( indexs ) ii = indexs[i];
69 vecsub( a, pnts[ii].xyz, pnts[i0].xyz );
70 if( vecmg2(a) > GPRECIS ) break;
71 }
72 if( i < npnt-1 ) {
73 for( j=i+1 ; j<npnt ; j++ ) {
74 jj = j; if( indexs ) jj = indexs[j];
75 vecsub( b, pnts[jj].xyz, pnts[i0].xyz );
76 vecsub( c, pnts[jj].xyz, pnts[ii].xyz );
77 if( (vecmg2(b) > GPRECIS) && (vecmg2(c) > GPRECIS) ) break;
78 }
79 if( j < npnt ) {
80 Tfloat d;
81 veccrs( norm, a, b );
82 d = vecnrmd( norm, d );
83 status = (d > 0.) ? 1 : 0;
84 }
85 }
86 }
87#ifdef DEB
88 if( !status )
89 printf(" *** OpenGl_TelGetPolygonNormal.has found confused or aligned points\n");
90#endif
91
92 return status;
93}
94
95Tint TelGetNormal(Tfloat *data1, Tfloat *data2, Tfloat *data3, Tfloat *norm ) {
96 Tfloat a[3], b[3];
97 Tint status=0;
98
99 norm[0] = norm[1] = norm[2] = 0.;
100 vecsub( a, data2, data1 );
101 vecsub( b, data3, data2 );
102 if( (vecmg2(a) > GPRECIS) && (vecmg2(b) > GPRECIS) ) {
103 Tfloat d;
104 veccrs( norm, a, b );
105 d = vecnrmd( norm, d );
106 status = (d > 0.) ? 1 : 0;
107 }
108#ifdef DEB
109 if( !status )
110 printf(" *** OpenGl_TelGetNormal.has found confused or aligned points\n");
111#endif
112
113 return status;
114}
7fd59977 115
2166f0fa 116void TelMultiplymat3 (Tmatrix3 c, Tmatrix3 a, Tmatrix3 b)
7fd59977 117{
118 Tint row, col, i;
119 Tmatrix3 res;
120 Tint dim = 4;
121
122 /* on multiplie d'abord les 2 matrices dim x dim */
123 for (row = 0; row < dim; row++) {
124 for (col = 0; col < dim; col++) {
125 Tfloat sum = ( float )0.0;
126 for (i = 0; i < dim; i++)
127 sum += a[row][i] * b[i][col];
128 res[row][col] = sum;
129 }
130 }
131
132 /* on copie ensuite le resultat */
133 matcpy (c, res);
134
135 return;
136}