0024381: Visualization, TKOpenGl - revise matrices stack and usage of temporary matrices
[occt.git] / src / OpenGl / OpenGl_ShaderProgram.hxx
1 // Created on: 2013-09-19
2 // Created by: Denis BOGOLEPOV
3 // Copyright (c) 2013-2014 OPEN CASCADE SAS
4 //
5 // This file is part of Open CASCADE Technology software library.
6 //
7 // This library is free software; you can redistribute it and/or modify it under
8 // the terms of the GNU Lesser General Public License version 2.1 as published
9 // by the Free Software Foundation, with special exception defined in the file
10 // OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
11 // distribution for complete text of the license and disclaimer of any warranty.
12 //
13 // Alternatively, this file may be used under the terms of Open CASCADE
14 // commercial license or contractual agreement.
15
16 #ifndef _OpenGl_ShaderProgram_Header
17 #define _OpenGl_ShaderProgram_Header
18
19 #include <NCollection_DataMap.hxx>
20 #include <NCollection_Sequence.hxx>
21 #include <TCollection_AsciiString.hxx>
22
23 #include <Graphic3d_ShaderObject.hxx>
24 #include <Graphic3d_ShaderProgram.hxx>
25
26 #include <InterfaceGraphic_tgl_all.hxx>
27
28 #include <OpenGl_Vec.hxx>
29 #include <OpenGl_Matrix.hxx>
30 #include <OpenGl_ShaderObject.hxx>
31 #include <Handle_OpenGl_ShaderProgram.hxx>
32
33 //! The enumeration of OCCT-specific OpenGL/GLSL variables.
34 enum OpenGl_StateVariable
35 {
36   // OpenGL matrix state
37   OpenGl_OCC_MODEL_WORLD_MATRIX,
38   OpenGl_OCC_WORLD_VIEW_MATRIX,
39   OpenGl_OCC_PROJECTION_MATRIX,
40   OpenGl_OCC_MODEL_WORLD_MATRIX_INVERSE,
41   OpenGl_OCC_WORLD_VIEW_MATRIX_INVERSE,
42   OpenGl_OCC_PROJECTION_MATRIX_INVERSE,
43   OpenGl_OCC_MODEL_WORLD_MATRIX_TRANSPOSE,
44   OpenGl_OCC_WORLD_VIEW_MATRIX_TRANSPOSE,
45   OpenGl_OCC_PROJECTION_MATRIX_TRANSPOSE,
46   OpenGl_OCC_MODEL_WORLD_MATRIX_INVERSE_TRANSPOSE,
47   OpenGl_OCC_WORLD_VIEW_MATRIX_INVERSE_TRANSPOSE,
48   OpenGl_OCC_PROJECTION_MATRIX_INVERSE_TRANSPOSE,
49
50   // OpenGL clip planes state
51   OpenGl_OCC_CLIP_PLANE_EQUATIONS,
52   OpenGl_OCC_CLIP_PLANE_SPACES,
53   OpenGl_OCC_CLIP_PLANE_COUNT,
54
55   // OpenGL light state
56   OpenGl_OCC_LIGHT_SOURCE_COUNT,
57   OpenGl_OCC_LIGHT_SOURCE_TYPES,
58   OpenGl_OCC_LIGHT_SOURCE_PARAMS,
59   OpenGl_OCC_LIGHT_AMBIENT,
60
61   // Material state
62   OpenGl_OCCT_ACTIVE_SAMPLER,
63   OpenGl_OCCT_TEXTURE_ENABLE,
64   OpenGl_OCCT_DISTINGUISH_MODE,
65   OpenGl_OCCT_FRONT_MATERIAL,
66   OpenGl_OCCT_BACK_MATERIAL,
67   OpenGl_OCCT_COLOR,
68
69   OpenGl_OCCT_POINT_SIZE,
70
71   // DON'T MODIFY THIS ITEM (insert new items before it)
72   OpenGl_OCCT_NUMBER_OF_STATE_VARIABLES
73 };
74
75 class OpenGl_ShaderProgram;
76
77 //! Interface for generic setter of user-defined uniform variables.
78 struct OpenGl_SetterInterface
79 {
80   //! Sets user-defined uniform variable to specified program.
81   virtual void Set (const Handle(OpenGl_Context)&           theCtx,
82                     const Handle(Graphic3d_ShaderVariable)& theVariable,
83                     OpenGl_ShaderProgram*                   theProgram) = 0;
84
85   //! Destructor
86   virtual ~OpenGl_SetterInterface() {}
87 };
88
89 //! List of OpenGL shader objects.
90 typedef NCollection_Sequence<Handle(OpenGl_ShaderObject)>    OpenGl_ShaderList;
91
92 //! List of shader variable setters.
93 typedef NCollection_DataMap<size_t, OpenGl_SetterInterface*> OpenGl_SetterList;
94
95 //! Support tool for setting user-defined uniform variables.
96 class OpenGl_VariableSetterSelector
97 {
98 public:
99
100   //! Creates new setter selector.
101   OpenGl_VariableSetterSelector();
102
103   //! Releases memory resources of setter selector.
104   ~OpenGl_VariableSetterSelector();
105
106   //! Sets user-defined uniform variable to specified program.
107   void Set (const Handle(OpenGl_Context)&           theCtx,
108             const Handle(Graphic3d_ShaderVariable)& theVariable,
109             OpenGl_ShaderProgram*                   theProgram) const;
110
111 private:
112
113   //! List of variable setters.
114   OpenGl_SetterList mySetterList;
115 };
116
117 //! Defines types of uniform state variables.
118 enum OpenGl_UniformStateType
119 {
120   OpenGl_LIGHT_SOURCES_STATE,
121   OpenGl_CLIP_PLANES_STATE,
122   OpenGl_MODEL_WORLD_STATE,
123   OpenGl_WORLD_VIEW_STATE,
124   OpenGl_PROJECTION_STATE,
125   OpenGl_MATERIALS_STATE
126 };
127
128 //! Total number of state types.
129 const int MaxStateTypes = 6;
130
131 //! Wrapper for OpenGL program object.
132 class OpenGl_ShaderProgram : public OpenGl_Resource
133 {
134   friend class OpenGl_Workspace;
135
136 public:
137
138   //! Non-valid shader name.
139   static const GLuint NO_PROGRAM = 0;
140
141   //! Invalid location of uniform/attribute variable.
142   static const GLint INVALID_LOCATION = -1;
143
144   //! List of pre-defined OCCT state uniform variables.
145   static Standard_CString PredefinedKeywords[OpenGl_OCCT_NUMBER_OF_STATE_VARIABLES];
146
147 protected:
148
149   //! Creates uninitialized shader program.
150   Standard_EXPORT OpenGl_ShaderProgram (const Handle(Graphic3d_ShaderProgram)& theProxy = NULL);
151
152   static OpenGl_VariableSetterSelector mySetterSelector;
153
154 public:
155
156   //! Releases resources of shader program.
157   Standard_EXPORT virtual ~OpenGl_ShaderProgram();
158
159   //! Creates new empty shader program of specified type.
160   Standard_EXPORT Standard_Boolean Create (const Handle(OpenGl_Context)& theCtx);
161
162   //! Destroys shader program.
163   Standard_EXPORT virtual void Release (OpenGl_Context* theCtx);
164
165   //! Attaches shader object to the program object.
166   Standard_EXPORT Standard_Boolean AttachShader (const Handle(OpenGl_Context)&      theCtx,
167                                                  const Handle(OpenGl_ShaderObject)& theShader);
168
169   //! Detaches shader object to the program object.
170   Standard_EXPORT Standard_Boolean DetachShader (const Handle(OpenGl_Context)&      theCtx,
171                                                  const Handle(OpenGl_ShaderObject)& theShader);
172
173   //! Initializes program object with the list of shader objects.
174   Standard_EXPORT Standard_Boolean Initialize (const Handle(OpenGl_Context)&     theCtx,
175                                                const Graphic3d_ShaderObjectList& theShaders);
176
177   //! Links the program object.
178   Standard_EXPORT Standard_Boolean Link (const Handle(OpenGl_Context)& theCtx);
179
180   //! Fetches information log of the last link operation.
181   Standard_EXPORT Standard_Boolean FetchInfoLog (const Handle(OpenGl_Context)& theCtx,
182                                                  TCollection_AsciiString&      theLog);
183
184   //! Fetches uniform variables from proxy shader program.
185   Standard_EXPORT Standard_Boolean ApplyVariables (const Handle(OpenGl_Context)& theCtx);
186
187   //! @return true if current object was initialized
188   inline bool IsValid() const
189   {
190     return myProgramID != NO_PROGRAM;
191   }
192
193   //! @return program ID
194   inline GLuint ProgramId() const
195   {
196     return myProgramID;
197   }
198
199 private:
200
201   //! Returns index of last modification of variables of specified state type.
202   Standard_EXPORT Standard_Size ActiveState (const OpenGl_UniformStateType theType) const;
203
204   //! Updates index of last modification of variables of specified state type.
205   Standard_EXPORT void UpdateState (const OpenGl_UniformStateType theType,
206                                     const Standard_Size           theIndex);
207
208 public:
209
210   //! Returns location of the specific uniform variable.
211   Standard_EXPORT GLint GetUniformLocation (const Handle(OpenGl_Context)& theCtx,
212                                             const GLchar*                 theName) const;
213
214   //! Returns index of the generic vertex attribute by variable name.
215   Standard_EXPORT GLint GetAttributeLocation (const Handle(OpenGl_Context)& theCtx,
216                                               const GLchar*                 theName) const;
217
218   //! Returns location of the OCCT state uniform variable.
219   Standard_EXPORT GLint GetStateLocation (const GLuint theVariable) const;
220
221 public:
222
223   //! Returns the value of the integer uniform variable.
224   Standard_EXPORT Standard_Boolean GetUniform (const Handle(OpenGl_Context)& theCtx,
225                                                const GLchar*                 theName,
226                                                OpenGl_Vec4i&                 theValue) const;
227
228   Standard_EXPORT Standard_Boolean GetUniform (const Handle(OpenGl_Context)& theCtx,
229                                                GLint                         theLocation,
230                                                OpenGl_Vec4i&                 theValue) const;
231
232   //! Returns the value of the float uniform variable.
233   Standard_EXPORT Standard_Boolean GetUniform (const Handle(OpenGl_Context)& theCtx,
234                                                const GLchar*                 theName,
235                                                OpenGl_Vec4&                  theValue) const;
236
237   //! Returns the value of the float uniform variable.
238   Standard_EXPORT Standard_Boolean GetUniform (const Handle(OpenGl_Context)& theCtx,
239                                                GLint                         theLocation,
240                                                OpenGl_Vec4&                  theValue) const;
241
242 public:
243
244   //! Returns the integer vertex attribute.
245   Standard_EXPORT Standard_Boolean GetAttribute (const Handle(OpenGl_Context)& theCtx,
246                                                  const GLchar*                 theName,
247                                                  OpenGl_Vec4i&                 theValue) const;
248
249   //! Returns the integer vertex attribute.
250   Standard_EXPORT Standard_Boolean GetAttribute (const Handle(OpenGl_Context)& theCtx,
251                                                  GLint                         theIndex,
252                                                  OpenGl_Vec4i&                 theValue) const;
253
254   //! Returns the float vertex attribute.
255   Standard_EXPORT Standard_Boolean GetAttribute (const Handle(OpenGl_Context)& theCtx,
256                                                  const GLchar*                 theName,
257                                                  OpenGl_Vec4&                  theValue) const;
258
259   //! Returns the float vertex attribute.
260   Standard_EXPORT Standard_Boolean GetAttribute (const Handle(OpenGl_Context)& theCtx,
261                                                  GLint                         theIndex,
262                                                  OpenGl_Vec4&                  theValue) const;
263
264 public:
265
266   //! Wrapper for glBindAttribLocation()
267   Standard_EXPORT Standard_Boolean SetAttributeName (const Handle(OpenGl_Context)& theCtx,
268                                                      GLint                         theIndex,
269                                                      const GLchar*                 theName);
270
271   //! Wrapper for glVertexAttrib1f()
272   Standard_EXPORT Standard_Boolean SetAttribute (const Handle(OpenGl_Context)& theCtx,
273                                                  const GLchar*                 theName,
274                                                  GLfloat                       theValue);
275
276   //! Wrapper for glVertexAttrib1f()
277   Standard_EXPORT Standard_Boolean SetAttribute (const Handle(OpenGl_Context)& theCtx,
278                                                  GLint                         theIndex,
279                                                  GLfloat                       theValue);
280
281   //! Wrapper for glVertexAttrib2fv()
282   Standard_EXPORT Standard_Boolean SetAttribute (const Handle(OpenGl_Context)& theCtx,
283                                                  const GLchar*                 theName,
284                                                  const OpenGl_Vec2&            theValue);
285
286   //! Wrapper for glVertexAttrib2fv()
287   Standard_EXPORT Standard_Boolean SetAttribute (const Handle(OpenGl_Context)& theCtx,
288                                                  GLint                         theIndex,
289                                                  const OpenGl_Vec2&            theValue);
290
291   //! Wrapper for glVertexAttrib3fv()
292   Standard_EXPORT Standard_Boolean SetAttribute (const Handle(OpenGl_Context)& theCtx,
293                                                  const GLchar*                 theName,
294                                                  const OpenGl_Vec3&            theValue);
295
296   //! Wrapper for glVertexAttrib3fv()
297   Standard_EXPORT Standard_Boolean SetAttribute (const Handle(OpenGl_Context)& theCtx,
298                                                  GLint                         theIndex,
299                                                  const OpenGl_Vec3&            theValue);
300
301   //! Wrapper for glVertexAttrib4fv()
302   Standard_EXPORT Standard_Boolean SetAttribute (const Handle(OpenGl_Context)& theCtx,
303                                                  const GLchar*                 theName,
304                                                  const OpenGl_Vec4&            theValue);
305
306   //! Wrapper for glVertexAttrib4fv()
307   Standard_EXPORT Standard_Boolean SetAttribute (const Handle(OpenGl_Context)& theCtx,
308                                                  GLint                         theIndex,
309                                                  const OpenGl_Vec4&            theValue);
310
311 public:
312
313   //! Specifies the value of the integer uniform variable.
314   Standard_EXPORT Standard_Boolean SetUniform (const Handle(OpenGl_Context)& theCtx,
315                                                const GLchar*                 theName,
316                                                GLint                         theValue);
317
318   //! Specifies the value of the integer uniform variable.
319   Standard_EXPORT Standard_Boolean SetUniform (const Handle(OpenGl_Context)& theCtx,
320                                                GLint                         theLocation,
321                                                GLint                         theValue);
322
323   //! Specifies the value of the integer uniform 2D vector.
324   Standard_EXPORT Standard_Boolean SetUniform (const Handle(OpenGl_Context)& theCtx,
325                                                const GLchar*                 theName,
326                                                const OpenGl_Vec2i&           theValue);
327
328   //! Specifies the value of the integer uniform 2D vector.
329   Standard_EXPORT Standard_Boolean SetUniform (const Handle(OpenGl_Context)& theCtx,
330                                                GLint                         theLocation,
331                                                const OpenGl_Vec2i&           theValue);
332
333   //! Specifies the value of the integer uniform 3D vector.
334   Standard_EXPORT Standard_Boolean SetUniform (const Handle(OpenGl_Context)& theCtx,
335                                                const GLchar*                 theName,
336                                                const OpenGl_Vec3i&           theValue);
337
338   //! Specifies the value of the integer uniform 3D vector.
339   Standard_EXPORT Standard_Boolean SetUniform (const Handle(OpenGl_Context)& theCtx,
340                                                GLint                         theLocation,
341                                                const OpenGl_Vec3i&           theValue);
342
343   //! Specifies the value of the integer uniform 4D vector.
344   Standard_EXPORT Standard_Boolean SetUniform (const Handle(OpenGl_Context)& theCtx,
345                                                const GLchar*                 theName,
346                                                const OpenGl_Vec4i&           theValue);
347
348   //! Specifies the value of the integer uniform 4D vector.
349   Standard_EXPORT Standard_Boolean SetUniform (const Handle(OpenGl_Context)& theCtx,
350                                                GLint                         theLocation,
351                                                const OpenGl_Vec4i&           theValue);
352
353 public:
354
355   //! Specifies the value of the 64-bit unsigned integer uniform variable.
356   Standard_EXPORT Standard_Boolean SetUniform (const Handle(OpenGl_Context)& theCtx,
357                                                const GLchar*                 theName,
358                                                GLuint64                      theValue);
359
360   //! Specifies the value of the 64-bit unsigned integer uniform variable.
361   Standard_EXPORT Standard_Boolean SetUniform (const Handle(OpenGl_Context)& theCtx,
362                                                GLint                         theLocation,
363                                                GLuint64                      theValue);
364
365   //! Specifies the value of the 64-bit unsigned integer uniform array.
366   Standard_EXPORT Standard_Boolean SetUniform (const Handle(OpenGl_Context)& theCtx,
367                                                const GLchar*                 theName,
368                                                const GLsizei                 theCount,
369                                                const GLuint64*               theValue);
370
371   //! Specifies the value of the 64-bit unsigned integer uniform array.
372   Standard_EXPORT Standard_Boolean SetUniform (const Handle(OpenGl_Context)& theCtx,
373                                                GLint                         theLocation,
374                                                const GLsizei                 theCount,
375                                                const GLuint64*               theValue);
376
377 public:
378
379   //! Specifies the value of the float uniform variable.
380   Standard_EXPORT Standard_Boolean SetUniform (const Handle(OpenGl_Context)& theCtx,
381                                                const GLchar*                 theName,
382                                                GLfloat                       theValue);
383
384   //! Specifies the value of the float uniform variable.
385   Standard_EXPORT Standard_Boolean SetUniform (const Handle(OpenGl_Context)& theCtx,
386                                                GLint                         theLocation,
387                                                GLfloat                       theValue);
388
389   //! Specifies the value of the float uniform 2D vector.
390   Standard_EXPORT Standard_Boolean SetUniform (const Handle(OpenGl_Context)& theCtx,
391                                                const GLchar*                 theName,
392                                                const OpenGl_Vec2&            theValue);
393
394   //! Specifies the value of the float uniform 2D vector.
395   Standard_EXPORT Standard_Boolean SetUniform (const Handle(OpenGl_Context)& theCtx,
396                                                GLint                         theLocation,
397                                                const OpenGl_Vec2&            theValue);
398
399   //! Specifies the value of the float uniform 3D vector.
400   Standard_EXPORT Standard_Boolean SetUniform (const Handle(OpenGl_Context)& theCtx,
401                                                const GLchar*                 theName,
402                                                const OpenGl_Vec3&            theValue);
403
404   //! Specifies the value of the float uniform 3D vector.
405   Standard_EXPORT Standard_Boolean SetUniform (const Handle(OpenGl_Context)& theCtx,
406                                                GLint                         theLocation,
407                                                const OpenGl_Vec3&            theValue);
408
409   //! Specifies the value of the float uniform 4D vector.
410   Standard_EXPORT Standard_Boolean SetUniform (const Handle(OpenGl_Context)& theCtx,
411                                                const GLchar*                 theName,
412                                                const OpenGl_Vec4&            theValue);
413
414   //! Specifies the value of the float uniform 4D vector.
415   Standard_EXPORT Standard_Boolean SetUniform (const Handle(OpenGl_Context)& theCtx,
416                                                GLint                         theLocation,
417                                                const OpenGl_Vec4&            theValue);
418
419 public:
420
421   //! Specifies the value of the float uniform 4x4 matrix.
422   Standard_EXPORT Standard_Boolean SetUniform (const Handle(OpenGl_Context)& theCtx,
423                                                const GLchar*                 theName,
424                                                const OpenGl_Mat4&            theValue,
425                                                GLboolean                     theTranspose = GL_FALSE);
426
427   //! Specifies the value of the float uniform 4x4 matrix.
428   Standard_EXPORT Standard_Boolean SetUniform (const Handle(OpenGl_Context)& theCtx,
429                                                GLint                         theLocation,
430                                                const OpenGl_Mat4&            theValue,
431                                                GLboolean                     theTranspose = GL_FALSE);
432
433   //! Specifies the value of the float uniform 4x4 matrix.
434   Standard_EXPORT Standard_Boolean SetUniform (const Handle(OpenGl_Context)& theCtx,
435                                                const GLchar*                 theName,
436                                                const OpenGl_Matrix&          theValue,
437                                                GLboolean                     theTranspose = GL_FALSE);
438
439   //! Specifies the value of the float uniform 4x4 matrix.
440   Standard_EXPORT Standard_Boolean SetUniform (const Handle(OpenGl_Context)& theCtx,
441                                                GLint                         theLocation,
442                                                const OpenGl_Matrix&          theValue,
443                                                GLboolean                     theTranspose = GL_FALSE);
444
445   //! Specifies the value of the float uniform array
446   Standard_EXPORT Standard_Boolean SetUniform (const Handle(OpenGl_Context)& theCtx,
447                                                GLint                         theLocation,
448                                                GLuint                        theCount,
449                                                const Standard_ShortReal*     theData);
450
451   //! Specifies the value of the float2 uniform array
452   Standard_EXPORT Standard_Boolean SetUniform (const Handle(OpenGl_Context)& theCtx,
453                                                GLint                         theLocation,
454                                                GLuint                        theCount,
455                                                const OpenGl_Vec2*            theData);
456
457   //! Specifies the value of the float3 uniform array
458   Standard_EXPORT Standard_Boolean SetUniform (const Handle(OpenGl_Context)& theCtx,
459                                                GLint                         theLocation,
460                                                GLuint                        theCount,
461                                                const OpenGl_Vec3*            theData);
462
463   //! Specifies the value of the float4 uniform array
464   Standard_EXPORT Standard_Boolean SetUniform (const Handle(OpenGl_Context)& theCtx,
465                                                GLint                         theLocation,
466                                                GLuint                        theCount,
467                                                const OpenGl_Vec4*            theData);
468
469   //! Specifies the value of the integer uniform array
470   Standard_EXPORT Standard_Boolean SetUniform (const Handle(OpenGl_Context)& theCtx,
471                                                GLint                         theLocation,
472                                                GLuint                        theCount,
473                                                const Standard_Integer*       theData);
474
475   //! Specifies the value of the int2 uniform array
476   Standard_EXPORT Standard_Boolean SetUniform (const Handle(OpenGl_Context)& theCtx,
477                                                GLint                         theLocation,
478                                                GLuint                        theCount,
479                                                const OpenGl_Vec2i*           theData);
480
481   //! Specifies the value of the int3 uniform array
482   Standard_EXPORT Standard_Boolean SetUniform (const Handle(OpenGl_Context)& theCtx,
483                                                GLint                         theLocation,
484                                                GLuint                        theCount,
485                                                const OpenGl_Vec3i*           theData);
486
487   //! Specifies the value of the int4 uniform array
488   Standard_EXPORT Standard_Boolean SetUniform (const Handle(OpenGl_Context)& theCtx,
489                                                GLint                         theLocation,
490                                                GLuint                        theCount,
491                                                const OpenGl_Vec4i*           theData);
492
493 public:
494
495   //! Specifies the value of the sampler uniform variable.
496   Standard_EXPORT Standard_Boolean SetSampler (const Handle(OpenGl_Context)& theCtx,
497                                                const GLchar*                 theName,
498                                                const GLenum                  theTextureUnit);
499
500   //! Specifies the value of the sampler uniform variable.
501   Standard_EXPORT Standard_Boolean SetSampler (const Handle(OpenGl_Context)& theCtx,
502                                                GLint                         theLocation,
503                                                const GLenum                  theTextureUnit);
504
505 protected:
506
507   //! Increments counter of users.
508   //! Used by OpenGl_ShaderManager.
509   //! @return true when resource has been restored from delayed release queue
510   bool Share()
511   {
512     return ++myShareCount == 1;
513   }
514
515   //! Decrements counter of users.
516   //! Used by OpenGl_ShaderManager.
517   //! @return true when there are no more users of this program has been left
518   bool UnShare()
519   {
520     return --myShareCount == 0;
521   }
522
523 protected:
524
525   GLuint                          myProgramID;     //!< Handle of OpenGL shader program
526   OpenGl_ShaderList               myShaderObjects; //!< List of attached shader objects
527   Handle(Graphic3d_ShaderProgram) myProxy;         //!< Proxy shader program (from application layer)
528   Standard_Integer                myShareCount;    //!< program users count, initialized with 1 (already shared by one user)
529
530 protected:
531
532   Standard_Size myCurrentState[MaxStateTypes];  //!< defines last modification for variables of each state type
533
534   //! Stores locations of OCCT state uniform variables.
535   GLint myStateLocations[OpenGl_OCCT_NUMBER_OF_STATE_VARIABLES];
536
537 public:
538
539   DEFINE_STANDARD_RTTI (OpenGl_ShaderProgram)
540   friend class OpenGl_ShaderManager;
541
542 };
543
544 template<class T>
545 struct OpenGl_VariableSetter : public OpenGl_SetterInterface
546 {
547   virtual void Set (const Handle(OpenGl_Context)&           theCtx,
548                     const Handle(Graphic3d_ShaderVariable)& theVariable,
549                     OpenGl_ShaderProgram*                   theProgram)
550   {
551     theProgram->SetUniform (theCtx,
552                             theVariable->Name().ToCString(),
553                             theVariable->Value()->As<T>());
554   }
555 };
556
557 namespace OpenGl_HashMapInitializer
558 {
559   template<class K, class V>
560   struct MapListOfType
561   {
562     NCollection_DataMap<K, V> myDictionary;
563
564     MapListOfType (K theKey, V theValue)
565     {
566       myDictionary.Bind (theKey, theValue);
567     }
568
569     MapListOfType& operator() (K theKey, V theValue)
570     {
571       myDictionary.Bind (theKey, theValue);
572       return *this;
573     }
574
575     operator const NCollection_DataMap<K, V>& () const
576     {
577       return myDictionary;
578     }
579   };
580
581   template<class K, class V>
582   MapListOfType<K, V> CreateListOf (K theKey, V theValue)
583   {
584     return MapListOfType<K, V> (theKey, theValue);
585   }
586 }
587
588 #endif // _OpenGl_ShaderProgram_Header