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