0022819: Redesign of OpenGl driver
[occt.git] / src / OpenGl / OpenGl_depthcue.cxx
1 /***********************************************************************
2
3 FONCTION :
4 ----------
5 File OpenGl_depthcue :
6
7
8 REMARQUES:
9 ---------- 
10
11
12 HISTORIQUE DES MODIFICATIONS   :
13 --------------------------------
14 xx-xx-xx : xxx ; Creation.
15 11-03-96 : FMN ; Correction warning compilation
16 01-04-96 : CAL ; Integration MINSK portage WNT
17 12-02-97 : FMN ; Suppression de TelGetDepthCueRep
18
19 ************************************************************************/
20
21 /*----------------------------------------------------------------------*/
22 /*
23 * Includes
24 */
25
26
27 #include <OpenGl_tgl_all.hxx>
28
29 #include <stdlib.h>
30 #include <stdio.h>
31 #include <stddef.h>
32
33 #include <OpenGl_cmn_varargs.hxx>
34 #include <OpenGl_telem.hxx>
35 #include <OpenGl_telem_view.hxx>
36 #include <OpenGl_tsm_ws.hxx>
37 #include <OpenGl_telem_depthcue.hxx>
38 #include <OpenGl_Memory.hxx>
39
40 /*----------------------------------------------------------------------*/
41 /*
42 * Definition des types
43 */
44
45 struct TEL_DEPTHCUE_DATA
46 {
47   Tint           dcid;
48   TEL_DEPTHCUE   dc;
49   IMPLEMENT_MEMORY_OPERATORS
50 };
51 typedef TEL_DEPTHCUE_DATA* tel_depthcue_data;
52
53 struct TEL_WS_DEPTHCUES
54 {
55   Tint    num;    /* number of depthcues for a workstation */
56   Tint    siz;    /* size allocated */
57   tel_depthcue_data  data; /* depthcue definitions for the workstation */
58 };
59 typedef TEL_WS_DEPTHCUES* tel_ws_depthcues;
60
61 #define  GROW_SIZE   25
62
63 /*----------------------------------------------------------------------*/
64
65 static  Tint
66 b_s( Tint  id, tel_depthcue_data tbl, Tint low, Tint high )
67 {
68   register  Tint  mid, i;
69
70   if( low > high )
71     return -1;
72
73   mid = low+high, mid /= 2;
74   i = id - tbl[mid].dcid;
75
76   return i == 0 ? mid : i < 0 ? b_s( id, tbl, low, mid-1 ) :
77   b_s( id, tbl, mid+1, high );
78 }
79
80 /*----------------------------------------------------------------------*/
81
82 static  int
83 lnumcomp( const void *a, const void *b )
84 {
85   return *(  ( int* )a  )- *(  ( int* )b  );
86 }
87
88 /*----------------------------------------------------------------------*/
89
90 TStatus
91 TelSetDepthCueRep( Tint Wsid, Tint dcid, tel_depthcue dc )
92 {
93   CMN_KEY_DATA    key;
94   tel_depthcue_data  dcptr;
95   tel_ws_depthcues   ws_dcues;
96   register  Tint  i;
97
98   TsmGetWSAttri( Wsid, WSDepthCues, &key );
99   ws_dcues = (tel_ws_depthcues)key.pdata ; /* Obtain list of defined depthcues*/
100
101   if( !ws_dcues )  /* no depthcues defined yet */
102   {                 /* allocate */
103     //cmn_memreserve( ws_dcues, 1, 0 );
104     ws_dcues = new TEL_WS_DEPTHCUES();
105     if( !ws_dcues )
106       return TFailure;
107
108     ws_dcues->data = new TEL_DEPTHCUE_DATA[GROW_SIZE];
109     if( !ws_dcues->data )
110       return TFailure;
111
112     ws_dcues->siz = GROW_SIZE;
113     ws_dcues->num = 0;
114
115     key.pdata = ws_dcues;/* Set list for the workstation */
116     TsmSetWSAttri( Wsid, WSDepthCues, &key );
117   }
118   else if( ws_dcues->num == ws_dcues->siz ) /* insufficient memory */
119   {                                           /* realloc */
120 #if defined(__SUNPRO_CC) && (__SUNPRO_CC <= 0x530)
121     ws_dcues->data = (TEL_DEPTHCUE_DATA*)realloc( ws_dcues->data, (ws_dcues->siz
122       + GROW_SIZE)*sizeof(TEL_DEPTHCUE_DATA) );
123 #else
124     ws_dcues->data = cmn_resizemem<TEL_DEPTHCUE_DATA>( ws_dcues->data, ws_dcues->siz
125       + GROW_SIZE );
126 #endif
127     if( !ws_dcues )
128       return TFailure;
129
130     ws_dcues->siz += GROW_SIZE;
131
132     key.pdata = ws_dcues;             /* Reset list for the workstation */
133     TsmSetWSAttri( Wsid, WSDepthCues, &key );
134   }
135   dcptr = 0; /* Locate depthcue if already defined */
136   i = b_s( dcid, ws_dcues->data, 0, ws_dcues->num-1 );
137   if( i != -1 )
138     dcptr = &ws_dcues->data[i]; /* depthcue already defined */
139
140   if( !dcptr ) /* new depthcue */
141   {
142     dcptr = &ws_dcues->data[ws_dcues->num];
143     dcptr->dcid  = dcid;           /* depthcues for the workstation */
144     ws_dcues->num++;           /* and sort the entries */
145     qsort( ws_dcues->data, ws_dcues->num,
146       sizeof(TEL_DEPTHCUE_DATA), lnumcomp );
147   }
148
149   dcptr->dc = *dc; /* copy depthcue definition */
150
151   return TSuccess;
152 }
153
154 /*----------------------------------------------------------------------*/
155
156 TStatus
157 TelGetGLDepthCue( Tint Wsid, Tint Vid, Tint dcid, tel_gl_depthcue gldc )
158 {
159   CMN_KEY_DATA    key;
160   tel_depthcue_data  dcptr;
161   tel_ws_depthcues   ws_dcues;
162   TEL_VIEW_REP       vrep;
163   register  Tint     i;
164   Tfloat             ramp;
165
166   TsmGetWSAttri( Wsid, WSDepthCues, &key );
167   ws_dcues = (tel_ws_depthcues)key.pdata ; /* Obtain list of defined depthcues */
168
169   if( !ws_dcues )
170     return TFailure; /* no depthcues defined */
171
172   dcptr = 0; /* Locate depthcue if already defined */
173   i = b_s( dcid, ws_dcues->data, 0, ws_dcues->num-1 );
174   if( i == -1 )
175     return TFailure; /* dcid undefined */
176
177   if( TelGetViewRepresentation( Wsid, Vid, &vrep ) == TFailure )
178     return TFailure; /* Bad View Rep */
179
180   dcptr = &ws_dcues->data[i];
181   gldc->dcrep = dcptr->dc;
182   if( dcptr->dc.mode == TelDCAllowed )
183   {
184     ramp = (dcptr->dc.planes[1] - dcptr->dc.planes[0]) /
185       (dcptr->dc.scales[1] - dcptr->dc.scales[0]) ;
186     gldc->dist[0] = dcptr->dc.planes[0] - (1-dcptr->dc.scales[0]) * ramp;
187     gldc->dist[1] = dcptr->dc.planes[1] +    dcptr->dc.scales[1]  * ramp;
188     ramp = vrep.extra.map.fpd - vrep.extra.map.bpd;
189     gldc->dist[0] = gldc->dist[0]*ramp - vrep.extra.map.fpd;
190     gldc->dist[1] = gldc->dist[1]*ramp - vrep.extra.map.fpd;
191 #ifdef TRACE
192     printf( "Dist: Near: %f\tFar: %f\n", gldc->dist[0], gldc->dist[1] );
193     printf( "Scal: Near: %f\tFar: %f ramp %f\n",dcptr->dc.scales[0], dcptr->dc.scales[1],ramp );
194     printf( "map Near: %f\tFar: %f\n",vrep.extra.map.fpd,vrep.extra.map.bpd);
195 #endif
196   }
197
198   return TSuccess;
199 }
200
201 /*----------------------------------------------------------------------*/
202
203 void
204 TelPrintDepthCueRep( Tint Wsid, Tint dcid )
205 {
206   CMN_KEY_DATA    key;
207   tel_depthcue_data  dcptr;
208   tel_ws_depthcues   ws_dcues;
209   register  Tint  i;
210
211   TsmGetWSAttri( Wsid, WSDepthCues, &key );
212   ws_dcues = (tel_ws_depthcues)key.pdata ; /* Obtain list of defined depthcues */
213
214   if( !ws_dcues )
215     return; /* no depthcues defined */
216
217   dcptr = 0; /* Locate depthcue if already defined */
218   i = b_s( dcid, ws_dcues->data, 0, ws_dcues->num-1 );
219   if( i == -1 )
220   {
221     fprintf( stdout, "\nBad DepthCue %d\n", dcid );
222     return; /* dcid undefined */
223   }
224
225   dcptr = &ws_dcues->data[i];
226   fprintf( stdout, "\nDepthCue Id: %d", dcid );
227   fprintf( stdout, "\nDepthCue mode: %s", dcptr->dc.mode == TelDCAllowed ?
228     "TelDCAllowed" : "TelDCSuppressed" );
229   fprintf( stdout, "\n\tPlanes: Near %f\tFar %f",
230     dcptr->dc.planes[0], dcptr->dc.planes[1] );
231   fprintf( stdout, "\n\tScales: Near %f\tFar %f",
232     dcptr->dc.scales[0], dcptr->dc.scales[1] );
233   fprintf( stdout, "\n\tColour: %f %f %f",
234     dcptr->dc.col.rgb[0],
235     dcptr->dc.col.rgb[1],
236     dcptr->dc.col.rgb[2] );
237   fprintf( stdout, "\n" );
238
239   return;
240 }
241
242 /*----------------------------------------------------------------------*/
243
244 TStatus
245 TelDeleteDepthCuesForWS( Tint wsid )
246 {
247   CMN_KEY_DATA key;
248   tel_ws_depthcues d;
249
250   TsmGetWSAttri( wsid, WSDepthCues, &key );
251   d = (tel_ws_depthcues)key.pdata;
252
253   if( !d )
254     return TSuccess;
255
256   //cmn_freemem( d );
257   delete d;
258
259   return TSuccess;
260 }
261
262 /*----------------------------------------------------------------------*/