ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/libgender/shader.h
Revision: 1.17
Committed: Fri Oct 29 15:58:50 2004 UTC (19 years, 7 months ago) by root
Content type: text/plain
Branch: MAIN
Changes since 1.16: +111 -34 lines
Log Message:
*** empty log message ***

File Contents

# Content
1 #ifndef SHADER_H
2 #define SHADER_H
3
4 #include <cassert>
5
6 #include <map>
7 #include <sstream>
8
9 #include "opengl.h"
10 #include "util.h"
11
12 namespace shader {
13
14 using namespace std;
15
16 const int NAMELEN = 32;
17
18 template<class T>
19 struct sl_expr {
20 const T t;
21 sl_expr (const T &t) : t(t) { }
22 void operator ()() const { t (); }
23 template<typename expr>
24 const sl_expr &operator =(const expr &e) const;
25 };
26
27 template<class A, class B>
28 struct sl_concat2
29 {
30 const A a; const B b;
31 sl_concat2 (const A &a, const B &b) : a(a), b(b) { }
32 void operator ()() const { a (); b (); }
33 };
34
35 template<class A, class B, class C>
36 struct sl_concat3
37 {
38 const A a; const B b; const C c;
39 sl_concat3 (const A &a, const B &b, const C &c) : a(a), b(b), c(c) { }
40 void operator ()() const { a (); b (); c (); }
41 };
42
43 template<class A, class B, class C, class D>
44 struct sl_concat4
45 {
46 const A a; const B b; const C c; const D d;
47 sl_concat4 (const A &a, const B &b, const C &c, const D &d) : a(a), b(b), c(c), d(d) { }
48 void operator ()() const { a (); b (); c (); d(); }
49 };
50
51 struct sl_func0
52 {
53 const char *name_par;
54 sl_func0 (const char *name_par) : name_par(name_par) { }
55 void begin () const;
56 void comma () const;
57 void end () const;
58 void operator ()() const
59 {
60 begin ();
61 end ();
62 }
63 };
64
65 template<class A>
66 struct sl_func1 : sl_func0
67 {
68 const A a;
69 sl_func1 (const char *name, const A &a) : sl_func0(name), a(a) { }
70 void operator ()() const { begin (); a (); end (); }
71 };
72
73 template<class A, class B>
74 struct sl_func2 : sl_func0
75 {
76 const A a; const B b;
77 sl_func2 (const char *name, const A &a, const B &b) : sl_func0(name), a(a), b(b) { }
78 void operator ()() const { begin (); a (); comma (); b (); end (); }
79 };
80
81 template<class A, class B, class C>
82 struct sl_func3 : sl_func0
83 {
84 const A a; const B b; const C c;
85 sl_func3 (const char *name, const A &a, const B &b, const C &c) : sl_func0(name), a(a), b(b), c(c) { }
86 void operator ()() const { begin (); a (); comma (); b (); comma (); c (); end (); }
87 };
88
89 template<class A, class B, class C, class D>
90 struct sl_func4 : sl_func0
91 {
92 const A a; const B b; const C c; const D d;
93 sl_func4 (const char *name, const A &a, const B &b, const C &c, const D &d) : sl_func0(name), a(a), b(b), c(c), d(d) { }
94 void operator ()() const { begin (); a (); comma (); b (); comma (); c (); comma (); d(); end (); }
95 };
96
97 class refcounted
98 {
99 template<class type> friend class ref;
100 mutable int refcnt;
101 void refcnt_inc () const { refcnt++; }
102 void refcnt_dec () const;
103 public:
104 refcounted () : refcnt(0) { }
105 virtual ~refcounted ();
106 };
107
108 template<class type>
109 struct ref
110 {
111 type *p;
112
113 ref ()
114 {
115 p = new type;
116 p->refcnt_inc ();
117 }
118
119 ref (type &d)
120 {
121 d.refcnt_inc ();
122 p = &d;
123 }
124
125 ref (const ref &r)
126 {
127 r.p->refcnt_inc ();
128 p = r.p;
129 }
130
131 template<class type2>
132 ref (const ref<type2> &r)
133 {
134 r.p->refcnt_inc ();
135 p = r.p;
136 }
137
138 ~ref ()
139 {
140 p->refcnt_dec ();
141 }
142
143 ref &operator =(type &d)
144 {
145 d.refcnt_inc ();
146 p->refcnt_dec ();
147 p = &d;
148 return *this;
149 }
150
151 type *operator ->() const { return p; }
152
153 operator type &() const { return *p; }
154
155 template<class type2>
156 bool operator ==(const ref<type2> b) const
157 {
158 return (void *)p == (void *)b.p;
159 }
160 };
161
162 // ref with auto-construct
163 template<class type>
164 struct auto_ref0 : ref<type>
165 {
166 auto_ref0 () : ref<type> (*new type ()) { }
167 };
168
169 template<class type, typename arg1>
170 struct auto_ref1 : ref<type>
171 {
172 auto_ref1 (arg1 a) : ref<type> (*new type (a)) { }
173 };
174
175 template<class type>
176 struct auto_lvalue_ref0 : ref<type>
177 {
178 auto_lvalue_ref0 () : ref<type> (*new type ()) { }
179 template<typename expr>
180 const auto_lvalue_ref0 &operator =(const expr &e) const;
181 };
182
183 template<class type, typename arg1>
184 struct auto_lvalue_ref1 : ref<type>
185 {
186 auto_lvalue_ref1 (arg1 a) : ref<type> (*new type (a)) { }
187 template<class expr>
188 const auto_lvalue_ref1 &operator =(const expr &e) const;
189 };
190
191 extern const char str_float [];
192 extern const char str_vec2 [];
193 extern const char str_vec3 [];
194 extern const char str_vec4 [];
195 extern const char str_mat2 [];
196 extern const char str_mat3 [];
197 extern const char str_mat4 [];
198
199 extern const char str_sampler_1d [];
200 extern const char str_sampler_1d_shadow [];
201 extern const char str_sampler_2d [];
202 extern const char str_sampler_2d_shadow [];
203 extern const char str_sampler_2d_rect [];
204 extern const char str_sampler_2d_rect_shadow [];
205 extern const char str_sampler_3d [];
206 extern const char str_sampler_3d_rect [];
207 extern const char str_sampler_cube [];
208
209 typedef ref<struct var_i> var;
210 typedef ref<struct uniform_i> uniform;
211
212 struct shader_builder
213 {
214 vector<uniform> refs; // uniform parameters
215 vector<var> temps; // temporary variables
216 vector<var> streams; // varying inputs & outputs
217
218 ostringstream source;
219
220 template<typename type>
221 shader_builder &operator <<(const type &t)
222 {
223 source << t;
224 return *this;
225 }
226 };
227
228 struct fragment_i : refcounted
229 {
230 virtual void build (shader_builder &b) = 0;
231 };
232
233 typedef ref<fragment_i> fragment;
234
235 struct lvalue_i : fragment_i
236 {
237 };
238
239 // a simple predeclared variable with unspecified type
240 struct gluvar_i : lvalue_i
241 {
242 const char *name;
243 void build (shader_builder &b);
244 gluvar_i (const char *name) : name (name) { }
245 };
246
247 typedef auto_lvalue_ref1<gluvar_i, const char *> gluvar;
248
249 struct var_i : lvalue_i
250 {
251 static unsigned int next_id;
252
253 char name[NAMELEN];
254 const char *typestr;
255
256 void build (shader_builder &b);
257 virtual void build_decl (ostringstream &b);
258
259 var_i (const char *typestr);
260 ~var_i ();
261 };
262
263 struct uniform_i : var_i
264 {
265 void build (shader_builder &b);
266 void build_decl (ostringstream &b);
267
268 GLint location ();
269
270 uniform_i (const char *strtype);
271 };
272
273 template<int dimension, typename gltype, const char *strtype>
274 struct uniform2_i : uniform_i
275 {
276 gltype data[dimension];
277
278 uniform2_i () : uniform_i (strtype) { }
279 };
280
281 template<int dimension, const char *strtype>
282 struct uniform_f_i : uniform2_i<dimension, GLfloat, strtype>
283 {
284 };
285
286 struct uniform_1f_i : uniform_f_i<1, str_float> {
287 void set (GLfloat v)
288 {
289 data[0] = v;
290 glUniform1fvARB (location(), 1, data);
291 }
292 };
293
294 struct uniform_2f_i : uniform_f_i<2, str_vec2> {
295 void set (GLfloat x, GLfloat y)
296 {
297 data[0] = x;
298 data[1] = y;
299 glUniform2fvARB (location(), 2, data);
300 }
301
302 void set (const vec2 &v) { set (v.x, v.y); }
303 };
304
305 struct uniform_3f_i : uniform_f_i<3, str_vec3> {
306 void set (GLfloat x, GLfloat y, GLfloat z)
307 {
308 data[0] = x;
309 data[1] = y;
310 data[2] = z;
311 glUniform3fvARB (location(), 3, data);
312 }
313
314 void set (const vec3 &v) { set (v.x, v.y, v.z); }
315 };
316
317 struct uniform_4f_i : uniform_f_i<4, str_vec4> {
318 void set (GLfloat x, GLfloat y, GLfloat z, GLfloat w)
319 {
320 data[0] = x;
321 data[1] = y;
322 data[2] = z;
323 data[3] = w;
324
325 glUniform4fvARB (location(), 4, data);
326 }
327
328 void set (const vec4 &v) { set (v.x, v.y, v.z, v.w); }
329 };
330
331 struct uniform_matrix_2f_i : uniform_f_i< 4, str_mat2>
332 {
333 void set (const GLfloat d[4])
334 {
335 memcpy (data, d, 4 * sizeof (GLfloat));
336 glUniformMatrix2fvARB (location (), 4, 0, data);
337 }
338 };
339
340 struct uniform_matrix_3f_i : uniform_f_i< 9, str_mat3>
341 {
342 void set (const GLfloat d[9])
343 {
344 memcpy (data, d, 9 * sizeof (GLfloat));
345 glUniformMatrix3fvARB (location (), 9, 0, data);
346 }
347 };
348
349 struct uniform_matrix_4f_i : uniform_f_i<16, str_mat4>
350 {
351 void set (const gl::matrix &m)
352 {
353 memcpy (data, m.data, 16 * sizeof (GLfloat));
354 glUniformMatrix4fvARB (location (), 16, 0, data);
355 }
356 };
357
358 template<class var_i>
359 struct var_ref : ref<var_i>
360 {
361 var_ref (const char *glname = 0)
362 : ref<var_i> (*new var_i)
363 {
364 if (glname)
365 strcpy ((*this)->name, glname);
366 }
367 };
368
369 typedef var_ref<uniform_1f_i> uniform_1f;
370 typedef var_ref<uniform_2f_i> uniform_2f;
371 typedef var_ref<uniform_3f_i> uniform_3f;
372 typedef var_ref<uniform_4f_i> uniform_4f;
373 typedef var_ref<uniform_matrix_2f_i> uniform_matrix_2f;
374 typedef var_ref<uniform_matrix_3f_i> uniform_matrix_3f;
375 typedef var_ref<uniform_matrix_4f_i> uniform_matrix_4f;
376
377 struct stream_i : var_i
378 {
379 void build (shader_builder &b);
380 void build_decl (ostringstream &b);
381 stream_i (const char *strtype);
382 };
383
384 template<int dimension, GLenum gltype, const char *strtype>
385 struct varying_i : stream_i
386 {
387 varying_i () : stream_i (strtype) { }
388
389 void set (GLsizei stride, GLvoid *ptr)
390 {
391 //cgGLSetParameterPointer (param, dimension, gltype, stride, ptr);
392 }
393 };
394
395 template<int dimension, const char *strtype>
396 struct varying_f_i : varying_i<dimension, GL_FLOAT, strtype>
397 {
398 void set (const gl::vertex_buffer_object &vb, GLint offset)
399 {
400 varying_i<dimension, GL_FLOAT, strtype>::set (gl::format_stride (vb.format), (GLvoid *)(long)offset);
401 }
402 };
403
404 struct varying_1f_i : varying_f_i<1, str_float>
405 {
406 };
407
408 struct varying_2f_i : varying_f_i<2, str_vec2>
409 {
410 void set_t (const gl::vertex_buffer_object &vb)
411 {
412 set (vb, gl::format_offset_t (vb.format));
413 }
414 };
415
416 struct varying_3f_i : varying_f_i<3, str_vec3>
417 {
418 void set_p (const gl::vertex_buffer_object &vb)
419 {
420 set (vb, gl::format_offset_p (vb.format));
421 }
422
423 void set_n (const gl::vertex_buffer_object &vb)
424 {
425 set (vb, gl::format_offset_n (vb.format));
426 }
427 };
428
429 struct varying_4f_i : varying_f_i<4, str_vec4>
430 {
431 };
432
433 typedef var_ref<varying_1f_i> varying_1f;
434 typedef var_ref<varying_2f_i> varying_2f;
435 typedef var_ref<varying_3f_i> varying_3f;
436 typedef var_ref<varying_4f_i> varying_4f;
437
438 struct temporary_i : var_i
439 {
440 void build (shader_builder &b);
441
442 temporary_i (const char *strtype);
443 };
444
445 template<const char *strtype>
446 struct temp_ref : ref<temporary_i>
447 {
448 temp_ref ()
449 : ref<temporary_i> (*new temporary_i (strtype))
450 {
451 }
452
453 #if 0
454 template<typename expr>
455 temp_ref (const expr &e)
456 : ref<temporary_i> (*new temporary_i (strtype))
457 {
458 (*this) = e;
459 }
460 #endif
461
462 template<typename expr>
463 const temp_ref &operator =(const expr &e) const;
464 };
465
466 typedef temp_ref<str_float> temp_1f;
467 typedef temp_ref<str_vec2> temp_2f;
468 typedef temp_ref<str_vec3> temp_3f;
469 typedef temp_ref<str_vec4> temp_4f;
470 typedef temp_ref<str_mat2> temp_matrix_2f;
471 typedef temp_ref<str_mat3> temp_matrix_3f;
472 typedef temp_ref<str_mat4> temp_matrix_4f;
473
474 struct texture_units
475 {
476 static GLenum units[8];
477 static int unit_count;
478
479 static GLenum get_texture_unit ()
480 {
481 assert (unit_count);
482 return units[--unit_count];
483 }
484
485 static void put_texture_unit (GLenum unit)
486 {
487 assert (unit_count < 8);
488 units[unit_count++] = unit;
489 }
490 };
491
492 template<GLenum gltype, const char *strtype>
493 struct sampler_i : uniform_i, texture_units
494 {
495 GLenum unit;
496 GLuint name;
497
498 void update ()
499 {
500 if (dirty)
501 {
502 //cgGLSetTextureParameter (param, texture);
503 dirty = false;
504 }
505 }
506
507 void enable ()
508 {
509 #if DEBUG
510 assert (unit < GL_TEXTURE0);
511 #endif
512
513 unit = get_texture_unit ();
514 glActiveTexture (unit);
515 glBindTexture (gltype, name);
516 }
517
518 void disable ()
519 {
520 put_texture_unit (unit);
521 #if DEBUG
522 assert (unit >= GL_TEXTURE0);
523 unit = GL_ZERO;
524 #endif
525 }
526
527 template<class bufferclass, class vectype>
528 void set (const gl::vertex_buffer_object &vb, const vectype bufferclass::*vp)
529 {
530 glTexCoordPointer (
531 vector_traits<vectype>::dimension (),
532 gltype_traits<typename vector_traits<vectype>::basetype>::gltype,
533 sizeof (bufferclass),
534 (GLvoid)(char bufferclass::*)vp
535 );
536 }
537
538 sampler_i (GLuint texture)
539 : uniform_i (strtype)
540 , name (texture)
541 #if DEBUG
542 , unit (GL_ZERO)
543 #endif
544 {
545 }
546 };
547
548 struct sampler_1d_i : sampler_i<GL_TEXTURE_1D, str_sampler_1d>
549 {
550 sampler_1d_i (GLuint texture) : sampler_i<GL_TEXTURE_1D, str_sampler_1d> (texture) { }
551 };
552
553 struct sampler_1d_shadow_i : sampler_i<GL_TEXTURE_1D, str_sampler_1d_shadow>
554 {
555 sampler_1d_shadow_i (GLuint texture) : sampler_i<GL_TEXTURE_1D, str_sampler_1d_shadow> (texture) { }
556 };
557
558 struct sampler_2d_i : sampler_i<GL_TEXTURE_2D, str_sampler_2d>
559 {
560 sampler_2d_i (GLuint texture) : sampler_i<GL_TEXTURE_2D, str_sampler_2d> (texture) { }
561 };
562
563 struct sampler_2d_shadow_i : sampler_i<GL_TEXTURE_2D, str_sampler_2d_shadow>
564 {
565 sampler_2d_shadow_i (GLuint texture) : sampler_i<GL_TEXTURE_2D, str_sampler_2d_shadow> (texture) { }
566 };
567
568 struct sampler_2d_rect_i : sampler_i<GL_TEXTURE_2D, str_sampler_2d_rect>
569 {
570 sampler_2d_rect_i (GLuint texture) : sampler_i<GL_TEXTURE_2D, str_sampler_2d_rect> (texture) { }
571 };
572
573 struct sampler_2d_rect_shadow_i : sampler_i<GL_TEXTURE_2D, str_sampler_2d_rect_shadow>
574 {
575 sampler_2d_rect_shadow_i (GLuint texture) : sampler_i<GL_TEXTURE_2D, str_sampler_2d_rect_shadow> (texture) { }
576 };
577
578 struct sampler_3d_i : sampler_i<GL_TEXTURE_3D, str_sampler_3d>
579 {
580 sampler_3d_i (GLuint texture) : sampler_i<GL_TEXTURE_3D, str_sampler_3d> (texture) { }
581 };
582
583 struct sampler_3d_rect_i : sampler_i<GL_TEXTURE_3D, str_sampler_3d_rect>
584 {
585 sampler_3d_rect_i (GLuint texture) : sampler_i<GL_TEXTURE_3D, str_sampler_3d_rect> (texture) { }
586 };
587
588 struct sampler_cube_i : sampler_i<GL_TEXTURE_CUBE_MAP, str_sampler_cube>
589 {
590 sampler_cube_i (GLuint texture) : sampler_i<GL_TEXTURE_CUBE_MAP, str_sampler_cube> (texture) { }
591 };
592
593 template<class sampler_i>
594 struct sampler_ref : auto_ref1<sampler_i, GLuint>
595 {
596 sampler_ref (GLuint texture)
597 : auto_ref1<sampler_i, GLuint> (texture)
598 {
599 }
600 };
601
602 typedef sampler_ref<sampler_1d_i> sampler_1d;
603 typedef sampler_ref<sampler_1d_shadow_i> sampler_1d_shadow;
604 typedef sampler_ref<sampler_2d_i> sampler_2d;
605 typedef sampler_ref<sampler_2d_shadow_i> sampler_2d_shadow;
606 typedef sampler_ref<sampler_2d_rect_i> sampler_2d_rect;
607 typedef sampler_ref<sampler_2d_rect_shadow_i> sampler_2d_rect_shadow;
608 typedef sampler_ref<sampler_3d_i> sampler_3d;
609 typedef sampler_ref<sampler_3d_rect_i> sampler_3d_rect;
610 typedef sampler_ref<sampler_cube_i> sampler_cube;
611
612 struct fragment_const_string_i : fragment_i
613 {
614 const char *str;
615
616 void build (shader_builder &b);
617
618 fragment_const_string_i (const char *str) : str(str) { }
619 };
620
621 typedef auto_ref1<fragment_const_string_i, const char *> fragment_const_string;
622
623 struct fragment_string_i : fragment_i
624 {
625 char *str;
626
627 void build (shader_builder &b);
628
629 fragment_string_i (const char *str) : str (strdup (str)) { }
630 ~fragment_string_i ();
631 };
632
633 struct fragment_vector_i : fragment_i, vector<fragment>
634 {
635 void build (shader_builder &b);
636
637 template<class fragment_i>
638 void append (const ref<fragment_i> &f)
639 {
640 push_back (f);
641 }
642
643 template<class expr>
644 void append (const sl_expr<expr> &e)
645 {
646 e ();
647 }
648
649 void append_const (const char *s)
650 {
651 push_back (*new fragment_const_string_i (s));
652 }
653
654 void append_string (const char *s)
655 {
656 push_back (*new fragment_string_i (s));
657 }
658 };
659
660 typedef ref<fragment_vector_i> fragment_vector;
661
662 struct shader_object_i : fragment_vector_i
663 {
664 GLenum type;
665 GLuint id; // GLhandleARB, but 2.0 will use uint
666
667 string source ();
668 void compile ();
669 void start ();
670 void stop ();
671
672 shader_object_i (GLenum type);
673 ~shader_object_i ();
674 };
675
676 extern shader_object_i *cur; // record actions to this shader
677
678 template<GLenum type>
679 struct shader_object : ref<shader_object_i>
680 {
681 shader_object ()
682 : ref<shader_object_i> (*new shader_object_i (type))
683 {
684 }
685 };
686
687 typedef shader_object<GL_VERTEX_SHADER_ARB> vertex_shader;
688 typedef shader_object<GL_FRAGMENT_SHADER_ARB> fragment_shader;
689
690 struct program_object
691 {
692 static struct program_object *cur; // currently bound program
693
694 GLuint id;
695
696 vertex_shader vsh;
697 fragment_shader fsh;
698
699 map<uniform_i *,GLint> uloc; // uniform location
700
701 program_object ();
702 ~program_object ();
703
704 void link ();
705
706 void enable ()
707 {
708 glUseProgramObjectARB (id);
709 cur = this;
710 }
711
712 void disable ()
713 {
714 glUseProgramObjectARB (0);
715 cur = 0;
716 }
717 };
718
719 template<typename T>
720 struct sl_append
721 {
722 T t;
723
724 sl_append (const T &t) : t(t) { }
725
726 void operator ()() const
727 {
728 cur->push_back (t);
729 }
730 };
731
732 template<int length>
733 struct sl_string
734 {
735 char str[length];
736
737 void operator ()() const
738 {
739 cur->push_back (*new fragment_string_i (str));
740 }
741 };
742
743 struct sl_float
744 {
745 const GLfloat c;
746
747 sl_float (GLfloat c) : c(c) { }
748
749 void operator ()() const;
750 };
751
752 template<class A, class B>
753 inline sl_expr< sl_concat2<A, B> >
754 concat (const A &a, const B &b)
755 {
756 typedef sl_concat2<A, B> expr;
757 return sl_expr<expr> (expr (a, b));
758 }
759
760 template<class A, class B, class C>
761 inline sl_expr< sl_concat3<A, B, C> >
762 concat (const A &a, const B &b, const C &c)
763 {
764 typedef sl_concat3<A, B, C> expr;
765 return sl_expr<expr> (expr (a, b, c));
766 }
767
768 template<class A, class B, class C, class D>
769 inline sl_expr< sl_concat4<A, B, C, D> >
770 concat (const A &a, const B &b, const C &c, const D &d)
771 {
772 typedef sl_concat4<A, B, C, D> expr;
773 return sl_expr<expr> (expr (a, b, c, d));
774 }
775
776 template<typename expr>
777 struct sl_convert
778 {
779 typedef sl_expr<expr> T;
780 static inline const T &convert (const T &e)
781 {
782 return e;
783 }
784 };
785
786 template<>
787 struct sl_convert<GLfloat>
788 {
789 typedef sl_expr<sl_float> T;
790 static inline const T convert (GLfloat f)
791 {
792 return sl_float (f);
793 }
794 };
795
796 template<>
797 struct sl_convert<GLdouble>
798 {
799 typedef sl_expr<sl_float> T;
800 static inline const T convert (GLdouble d)
801 {
802 return sl_float (d);
803 }
804 };
805
806 template<>
807 struct sl_convert<GLint>
808 {
809 typedef sl_expr<sl_float> T;
810 static inline const T convert (GLint i)
811 {
812 return sl_float (i);
813 }
814 };
815
816 template<>
817 struct sl_convert<vec2>
818 {
819 typedef sl_expr< sl_string<60> > T;
820 static const T convert (const vec2 &v);
821 };
822
823 template<>
824 struct sl_convert<vec3>
825 {
826 typedef sl_expr< sl_string<80> > T;
827 static const T convert (const vec3 &v);
828 };
829
830 template<>
831 struct sl_convert<vec4>
832 {
833 typedef sl_expr< sl_string<100> > T;
834 static const T convert (const vec4 &v);
835 };
836
837 template<>
838 template<class V>
839 struct sl_convert< var_ref<V> >
840 {
841 typedef sl_expr< sl_append< var_ref<V> > > T;
842 static inline const T convert (const var_ref<V> &v)
843 {
844 return sl_append< var_ref<V> > (v);
845 }
846 };
847
848 template<>
849 struct sl_convert<gluvar>
850 {
851 typedef sl_expr< sl_append<gluvar> > T;
852 static inline const T convert (const gluvar &v)
853 {
854 return sl_append<gluvar> (v);
855 }
856 };
857
858 template<>
859 template<const char *strtype>
860 struct sl_convert< temp_ref<strtype> >
861 {
862 typedef sl_expr< sl_append< temp_ref<strtype> > > T;
863 static inline const T convert (const temp_ref<strtype> &v)
864 {
865 return sl_expr< sl_append< temp_ref<strtype> > >(
866 sl_append< temp_ref<strtype> > (v)
867 );
868 }
869 };
870
871 template<>
872 template<class sampler_i>
873 struct sl_convert< sampler_ref<sampler_i> >
874 {
875 typedef sl_expr< sl_append< sampler_ref<sampler_i> > > T;
876 static inline const T convert (const sampler_ref<sampler_i> &v)
877 {
878 return sl_append< sampler_ref<sampler_i> > (v);
879 }
880 };
881
882 extern const fragment_const_string str_2sp;
883 extern const fragment_const_string str_equal;
884 extern const fragment_const_string str_comma;
885 extern const fragment_const_string str_endl;
886
887 template<class fragment, typename expr>
888 inline void sl_assign (const fragment &f, const expr &e)
889 {
890 cur->append (str_2sp);
891 cur->append (f);
892 cur->append (str_equal);
893 sl_convert<expr>::convert (e) ();
894 cur->append (str_endl);
895 }
896
897 template<class type>
898 template<typename expr>
899 inline const auto_lvalue_ref0<type> &auto_lvalue_ref0<type>::operator =(const expr &e) const
900 {
901 sl_assign (*this, e);
902 return *this;
903 }
904
905 template<class type, typename arg1>
906 template<typename expr>
907 inline const auto_lvalue_ref1<type,arg1> &auto_lvalue_ref1<type,arg1>::operator =(const expr &e) const
908 {
909 sl_assign (*this, e);
910 return *this;
911 }
912
913 template<class T>
914 template<typename expr>
915 inline const sl_expr<T> &sl_expr<T>::operator =(const expr &e) const
916 {
917 sl_assign (*this, e);
918 return *this;
919 }
920
921 template<const char *strtype>
922 template<typename expr>
923 inline const temp_ref<strtype> &temp_ref<strtype>::operator =(const expr &e) const
924 {
925 sl_assign (*this, e);
926 return *this;
927 }
928
929 struct sl_append_const_string
930 {
931 fragment_const_string str;
932 sl_append_const_string (const char *s)
933 : str (s)
934 { }
935
936 void operator ()() const
937 {
938 cur->push_back (str);
939 }
940 };
941
942 extern const sl_append_const_string str_lpar;
943 extern const sl_append_const_string str_rpar;
944
945 template<class A, class B, class C>
946 struct sl_binop
947 {
948 const A a; const B b; const C c;
949 sl_binop (const A &a, const B &b, const C &c) : a(a), b(b), c(c) { }
950 void operator ()() const { str_lpar (); a (); b (); c (); str_rpar (); }
951 };
952
953 # define SHADER_BINOP(op, str) \
954 extern const sl_append_const_string str_ ## str; \
955 template<typename A, typename B> \
956 inline const sl_expr< sl_binop< typename sl_convert<A>::T, \
957 sl_append_const_string, \
958 typename sl_convert<B>::T > > \
959 operator op(const A &a, const B &b) \
960 { \
961 return sl_binop< typename sl_convert<A>::T, sl_append_const_string, typename sl_convert<B>::T > \
962 (sl_convert<A>::convert (a), str_ ## str, sl_convert<B>::convert (b)); \
963 }
964
965 SHADER_BINOP (+, plus);
966 SHADER_BINOP (-, minus);
967 SHADER_BINOP (*, mul);
968 SHADER_BINOP (/, div);
969 SHADER_BINOP (%, mod);
970
971 # undef SHADER_BINOP
972
973 void swizzle_mask (sl_string<7> &s, int mask);
974
975 template<typename T>
976 inline const sl_expr< sl_concat3< sl_append_const_string,
977 typename sl_convert<T>::T,
978 sl_string<7>
979 > >
980 swizzle (const T &t, int a, int b = 0, int c = 0, int d = 0)
981 {
982 sl_string<7> s;
983 swizzle_mask (s, ((d * 5 + c) * 5 + b) * 5 + a);
984 return concat (str_lpar, sl_convert<T>::convert (t), s);
985 }
986
987 # define SHADER_SWIZZLE_OP(abcd,type) \
988 template<typename T> \
989 inline const sl_expr< sl_concat3< sl_append_const_string, \
990 typename sl_convert<T>::T, \
991 sl_string<7> \
992 > > \
993 type (const T &t) \
994 { \
995 return swizzle (t, (abcd / 1000) % 5, (abcd / 100) % 5, (abcd / 10) % 5, (abcd / 1) % 5); \
996 }
997
998 // brute force is lovely, ain't it?
999 SHADER_SWIZZLE_OP (1 , x ) SHADER_SWIZZLE_OP (11 , xx ) SHADER_SWIZZLE_OP (111 , xxx ) SHADER_SWIZZLE_OP (1111, xxxx)
1000 SHADER_SWIZZLE_OP (1112, xxxy) SHADER_SWIZZLE_OP (1113, xxxz) SHADER_SWIZZLE_OP (1114, xxxw) SHADER_SWIZZLE_OP (112 , xxy )
1001 SHADER_SWIZZLE_OP (1121, xxyx) SHADER_SWIZZLE_OP (1122, xxyy) SHADER_SWIZZLE_OP (1123, xxyz) SHADER_SWIZZLE_OP (1124, xxyw)
1002 SHADER_SWIZZLE_OP (113 , xxz ) SHADER_SWIZZLE_OP (1131, xxzx) SHADER_SWIZZLE_OP (1132, xxzy) SHADER_SWIZZLE_OP (1133, xxzz)
1003 SHADER_SWIZZLE_OP (1134, xxzw) SHADER_SWIZZLE_OP (114 , xxw ) SHADER_SWIZZLE_OP (1141, xxwx) SHADER_SWIZZLE_OP (1142, xxwy)
1004 SHADER_SWIZZLE_OP (1143, xxwz) SHADER_SWIZZLE_OP (1144, xxww) SHADER_SWIZZLE_OP (12 , xy ) SHADER_SWIZZLE_OP (121 , xyx )
1005 SHADER_SWIZZLE_OP (1211, xyxx) SHADER_SWIZZLE_OP (1212, xyxy) SHADER_SWIZZLE_OP (1213, xyxz) SHADER_SWIZZLE_OP (1214, xyxw)
1006 SHADER_SWIZZLE_OP (122 , xyy ) SHADER_SWIZZLE_OP (1221, xyyx) SHADER_SWIZZLE_OP (1222, xyyy) SHADER_SWIZZLE_OP (1223, xyyz)
1007 SHADER_SWIZZLE_OP (1224, xyyw) SHADER_SWIZZLE_OP (123 , xyz ) SHADER_SWIZZLE_OP (1231, xyzx) SHADER_SWIZZLE_OP (1232, xyzy)
1008 SHADER_SWIZZLE_OP (1233, xyzz) SHADER_SWIZZLE_OP (1234, xyzw) SHADER_SWIZZLE_OP (124 , xyw ) SHADER_SWIZZLE_OP (1241, xywx)
1009 SHADER_SWIZZLE_OP (1242, xywy) SHADER_SWIZZLE_OP (1243, xywz) SHADER_SWIZZLE_OP (1244, xyww) SHADER_SWIZZLE_OP (13 , xz )
1010 SHADER_SWIZZLE_OP (131 , xzx ) SHADER_SWIZZLE_OP (1311, xzxx) SHADER_SWIZZLE_OP (1312, xzxy) SHADER_SWIZZLE_OP (1313, xzxz)
1011 SHADER_SWIZZLE_OP (1314, xzxw) SHADER_SWIZZLE_OP (132 , xzy ) SHADER_SWIZZLE_OP (1321, xzyx) SHADER_SWIZZLE_OP (1322, xzyy)
1012 SHADER_SWIZZLE_OP (1323, xzyz) SHADER_SWIZZLE_OP (1324, xzyw) SHADER_SWIZZLE_OP (133 , xzz ) SHADER_SWIZZLE_OP (1331, xzzx)
1013 SHADER_SWIZZLE_OP (1332, xzzy) SHADER_SWIZZLE_OP (1333, xzzz) SHADER_SWIZZLE_OP (1334, xzzw) SHADER_SWIZZLE_OP (134 , xzw )
1014 SHADER_SWIZZLE_OP (1341, xzwx) SHADER_SWIZZLE_OP (1342, xzwy) SHADER_SWIZZLE_OP (1343, xzwz) SHADER_SWIZZLE_OP (1344, xzww)
1015 SHADER_SWIZZLE_OP (14 , xw ) SHADER_SWIZZLE_OP (141 , xwx ) SHADER_SWIZZLE_OP (1411, xwxx) SHADER_SWIZZLE_OP (1412, xwxy)
1016 SHADER_SWIZZLE_OP (1413, xwxz) SHADER_SWIZZLE_OP (1414, xwxw) SHADER_SWIZZLE_OP (142 , xwy ) SHADER_SWIZZLE_OP (1421, xwyx)
1017 SHADER_SWIZZLE_OP (1422, xwyy) SHADER_SWIZZLE_OP (1423, xwyz) SHADER_SWIZZLE_OP (1424, xwyw) SHADER_SWIZZLE_OP (143 , xwz )
1018 SHADER_SWIZZLE_OP (1431, xwzx) SHADER_SWIZZLE_OP (1432, xwzy) SHADER_SWIZZLE_OP (1433, xwzz) SHADER_SWIZZLE_OP (1434, xwzw)
1019 SHADER_SWIZZLE_OP (144 , xww ) SHADER_SWIZZLE_OP (1441, xwwx) SHADER_SWIZZLE_OP (1442, xwwy) SHADER_SWIZZLE_OP (1443, xwwz)
1020 SHADER_SWIZZLE_OP (1444, xwww) SHADER_SWIZZLE_OP (2 , y ) SHADER_SWIZZLE_OP (21 , yx ) SHADER_SWIZZLE_OP (211 , yxx )
1021 SHADER_SWIZZLE_OP (2111, yxxx) SHADER_SWIZZLE_OP (2112, yxxy) SHADER_SWIZZLE_OP (2113, yxxz) SHADER_SWIZZLE_OP (2114, yxxw)
1022 SHADER_SWIZZLE_OP (212 , yxy ) SHADER_SWIZZLE_OP (2121, yxyx) SHADER_SWIZZLE_OP (2122, yxyy) SHADER_SWIZZLE_OP (2123, yxyz)
1023 SHADER_SWIZZLE_OP (2124, yxyw) SHADER_SWIZZLE_OP (213 , yxz ) SHADER_SWIZZLE_OP (2131, yxzx) SHADER_SWIZZLE_OP (2132, yxzy)
1024 SHADER_SWIZZLE_OP (2133, yxzz) SHADER_SWIZZLE_OP (2134, yxzw) SHADER_SWIZZLE_OP (214 , yxw ) SHADER_SWIZZLE_OP (2141, yxwx)
1025 SHADER_SWIZZLE_OP (2142, yxwy) SHADER_SWIZZLE_OP (2143, yxwz) SHADER_SWIZZLE_OP (2144, yxww) SHADER_SWIZZLE_OP (22 , yy )
1026 SHADER_SWIZZLE_OP (221 , yyx ) SHADER_SWIZZLE_OP (2211, yyxx) SHADER_SWIZZLE_OP (2212, yyxy) SHADER_SWIZZLE_OP (2213, yyxz)
1027 SHADER_SWIZZLE_OP (2214, yyxw) SHADER_SWIZZLE_OP (222 , yyy ) SHADER_SWIZZLE_OP (2221, yyyx) SHADER_SWIZZLE_OP (2222, yyyy)
1028 SHADER_SWIZZLE_OP (2223, yyyz) SHADER_SWIZZLE_OP (2224, yyyw) SHADER_SWIZZLE_OP (223 , yyz ) SHADER_SWIZZLE_OP (2231, yyzx)
1029 SHADER_SWIZZLE_OP (2232, yyzy) SHADER_SWIZZLE_OP (2233, yyzz) SHADER_SWIZZLE_OP (2234, yyzw) SHADER_SWIZZLE_OP (224 , yyw )
1030 SHADER_SWIZZLE_OP (2241, yywx) SHADER_SWIZZLE_OP (2242, yywy) SHADER_SWIZZLE_OP (2243, yywz) SHADER_SWIZZLE_OP (2244, yyww)
1031 SHADER_SWIZZLE_OP (23 , yz ) SHADER_SWIZZLE_OP (231 , yzx ) SHADER_SWIZZLE_OP (2311, yzxx) SHADER_SWIZZLE_OP (2312, yzxy)
1032 SHADER_SWIZZLE_OP (2313, yzxz) SHADER_SWIZZLE_OP (2314, yzxw) SHADER_SWIZZLE_OP (232 , yzy ) SHADER_SWIZZLE_OP (2321, yzyx)
1033 SHADER_SWIZZLE_OP (2322, yzyy) SHADER_SWIZZLE_OP (2323, yzyz) SHADER_SWIZZLE_OP (2324, yzyw) SHADER_SWIZZLE_OP (233 , yzz )
1034 SHADER_SWIZZLE_OP (2331, yzzx) SHADER_SWIZZLE_OP (2332, yzzy) SHADER_SWIZZLE_OP (2333, yzzz) SHADER_SWIZZLE_OP (2334, yzzw)
1035 SHADER_SWIZZLE_OP (234 , yzw ) SHADER_SWIZZLE_OP (2341, yzwx) SHADER_SWIZZLE_OP (2342, yzwy) SHADER_SWIZZLE_OP (2343, yzwz)
1036 SHADER_SWIZZLE_OP (2344, yzww) SHADER_SWIZZLE_OP (24 , yw ) SHADER_SWIZZLE_OP (241 , ywx ) SHADER_SWIZZLE_OP (2411, ywxx)
1037 SHADER_SWIZZLE_OP (2412, ywxy) SHADER_SWIZZLE_OP (2413, ywxz) SHADER_SWIZZLE_OP (2414, ywxw) SHADER_SWIZZLE_OP (242 , ywy )
1038 SHADER_SWIZZLE_OP (2421, ywyx) SHADER_SWIZZLE_OP (2422, ywyy) SHADER_SWIZZLE_OP (2423, ywyz) SHADER_SWIZZLE_OP (2424, ywyw)
1039 SHADER_SWIZZLE_OP (243 , ywz ) SHADER_SWIZZLE_OP (2431, ywzx) SHADER_SWIZZLE_OP (2432, ywzy) SHADER_SWIZZLE_OP (2433, ywzz)
1040 SHADER_SWIZZLE_OP (2434, ywzw) SHADER_SWIZZLE_OP (244 , yww ) SHADER_SWIZZLE_OP (2441, ywwx) SHADER_SWIZZLE_OP (2442, ywwy)
1041 SHADER_SWIZZLE_OP (2443, ywwz) SHADER_SWIZZLE_OP (2444, ywww) SHADER_SWIZZLE_OP (3 , z ) SHADER_SWIZZLE_OP (31 , zx )
1042 SHADER_SWIZZLE_OP (311 , zxx ) SHADER_SWIZZLE_OP (3111, zxxx) SHADER_SWIZZLE_OP (3112, zxxy) SHADER_SWIZZLE_OP (3113, zxxz)
1043 SHADER_SWIZZLE_OP (3114, zxxw) SHADER_SWIZZLE_OP (312 , zxy ) SHADER_SWIZZLE_OP (3121, zxyx) SHADER_SWIZZLE_OP (3122, zxyy)
1044 SHADER_SWIZZLE_OP (3123, zxyz) SHADER_SWIZZLE_OP (3124, zxyw) SHADER_SWIZZLE_OP (313 , zxz ) SHADER_SWIZZLE_OP (3131, zxzx)
1045 SHADER_SWIZZLE_OP (3132, zxzy) SHADER_SWIZZLE_OP (3133, zxzz) SHADER_SWIZZLE_OP (3134, zxzw) SHADER_SWIZZLE_OP (314 , zxw )
1046 SHADER_SWIZZLE_OP (3141, zxwx) SHADER_SWIZZLE_OP (3142, zxwy) SHADER_SWIZZLE_OP (3143, zxwz) SHADER_SWIZZLE_OP (3144, zxww)
1047 SHADER_SWIZZLE_OP (32 , zy ) SHADER_SWIZZLE_OP (321 , zyx ) SHADER_SWIZZLE_OP (3211, zyxx) SHADER_SWIZZLE_OP (3212, zyxy)
1048 SHADER_SWIZZLE_OP (3213, zyxz) SHADER_SWIZZLE_OP (3214, zyxw) SHADER_SWIZZLE_OP (322 , zyy ) SHADER_SWIZZLE_OP (3221, zyyx)
1049 SHADER_SWIZZLE_OP (3222, zyyy) SHADER_SWIZZLE_OP (3223, zyyz) SHADER_SWIZZLE_OP (3224, zyyw) SHADER_SWIZZLE_OP (323 , zyz )
1050 SHADER_SWIZZLE_OP (3231, zyzx) SHADER_SWIZZLE_OP (3232, zyzy) SHADER_SWIZZLE_OP (3233, zyzz) SHADER_SWIZZLE_OP (3234, zyzw)
1051 SHADER_SWIZZLE_OP (324 , zyw ) SHADER_SWIZZLE_OP (3241, zywx) SHADER_SWIZZLE_OP (3242, zywy) SHADER_SWIZZLE_OP (3243, zywz)
1052 SHADER_SWIZZLE_OP (3244, zyww) SHADER_SWIZZLE_OP (33 , zz ) SHADER_SWIZZLE_OP (331 , zzx ) SHADER_SWIZZLE_OP (3311, zzxx)
1053 SHADER_SWIZZLE_OP (3312, zzxy) SHADER_SWIZZLE_OP (3313, zzxz) SHADER_SWIZZLE_OP (3314, zzxw) SHADER_SWIZZLE_OP (332 , zzy )
1054 SHADER_SWIZZLE_OP (3321, zzyx) SHADER_SWIZZLE_OP (3322, zzyy) SHADER_SWIZZLE_OP (3323, zzyz) SHADER_SWIZZLE_OP (3324, zzyw)
1055 SHADER_SWIZZLE_OP (333 , zzz ) SHADER_SWIZZLE_OP (3331, zzzx) SHADER_SWIZZLE_OP (3332, zzzy) SHADER_SWIZZLE_OP (3333, zzzz)
1056 SHADER_SWIZZLE_OP (3334, zzzw) SHADER_SWIZZLE_OP (334 , zzw ) SHADER_SWIZZLE_OP (3341, zzwx) SHADER_SWIZZLE_OP (3342, zzwy)
1057 SHADER_SWIZZLE_OP (3343, zzwz) SHADER_SWIZZLE_OP (3344, zzww) SHADER_SWIZZLE_OP (34 , zw ) SHADER_SWIZZLE_OP (341 , zwx )
1058 SHADER_SWIZZLE_OP (3411, zwxx) SHADER_SWIZZLE_OP (3412, zwxy) SHADER_SWIZZLE_OP (3413, zwxz) SHADER_SWIZZLE_OP (3414, zwxw)
1059 SHADER_SWIZZLE_OP (342 , zwy ) SHADER_SWIZZLE_OP (3421, zwyx) SHADER_SWIZZLE_OP (3422, zwyy) SHADER_SWIZZLE_OP (3423, zwyz)
1060 SHADER_SWIZZLE_OP (3424, zwyw) SHADER_SWIZZLE_OP (343 , zwz ) SHADER_SWIZZLE_OP (3431, zwzx) SHADER_SWIZZLE_OP (3432, zwzy)
1061 SHADER_SWIZZLE_OP (3433, zwzz) SHADER_SWIZZLE_OP (3434, zwzw) SHADER_SWIZZLE_OP (344 , zww ) SHADER_SWIZZLE_OP (3441, zwwx)
1062 SHADER_SWIZZLE_OP (3442, zwwy) SHADER_SWIZZLE_OP (3443, zwwz) SHADER_SWIZZLE_OP (3444, zwww) SHADER_SWIZZLE_OP (4 , w )
1063 SHADER_SWIZZLE_OP (41 , wx ) SHADER_SWIZZLE_OP (411 , wxx ) SHADER_SWIZZLE_OP (4111, wxxx) SHADER_SWIZZLE_OP (4112, wxxy)
1064 SHADER_SWIZZLE_OP (4113, wxxz) SHADER_SWIZZLE_OP (4114, wxxw) SHADER_SWIZZLE_OP (412 , wxy ) SHADER_SWIZZLE_OP (4121, wxyx)
1065 SHADER_SWIZZLE_OP (4122, wxyy) SHADER_SWIZZLE_OP (4123, wxyz) SHADER_SWIZZLE_OP (4124, wxyw) SHADER_SWIZZLE_OP (413 , wxz )
1066 SHADER_SWIZZLE_OP (4131, wxzx) SHADER_SWIZZLE_OP (4132, wxzy) SHADER_SWIZZLE_OP (4133, wxzz) SHADER_SWIZZLE_OP (4134, wxzw)
1067 SHADER_SWIZZLE_OP (414 , wxw ) SHADER_SWIZZLE_OP (4141, wxwx) SHADER_SWIZZLE_OP (4142, wxwy) SHADER_SWIZZLE_OP (4143, wxwz)
1068 SHADER_SWIZZLE_OP (4144, wxww) SHADER_SWIZZLE_OP (42 , wy ) SHADER_SWIZZLE_OP (421 , wyx ) SHADER_SWIZZLE_OP (4211, wyxx)
1069 SHADER_SWIZZLE_OP (4212, wyxy) SHADER_SWIZZLE_OP (4213, wyxz) SHADER_SWIZZLE_OP (4214, wyxw) SHADER_SWIZZLE_OP (422 , wyy )
1070 SHADER_SWIZZLE_OP (4221, wyyx) SHADER_SWIZZLE_OP (4222, wyyy) SHADER_SWIZZLE_OP (4223, wyyz) SHADER_SWIZZLE_OP (4224, wyyw)
1071 SHADER_SWIZZLE_OP (423 , wyz ) SHADER_SWIZZLE_OP (4231, wyzx) SHADER_SWIZZLE_OP (4232, wyzy) SHADER_SWIZZLE_OP (4233, wyzz)
1072 SHADER_SWIZZLE_OP (4234, wyzw) SHADER_SWIZZLE_OP (424 , wyw ) SHADER_SWIZZLE_OP (4241, wywx) SHADER_SWIZZLE_OP (4242, wywy)
1073 SHADER_SWIZZLE_OP (4243, wywz) SHADER_SWIZZLE_OP (4244, wyww) SHADER_SWIZZLE_OP (43 , wz ) SHADER_SWIZZLE_OP (431 , wzx )
1074 SHADER_SWIZZLE_OP (4311, wzxx) SHADER_SWIZZLE_OP (4312, wzxy) SHADER_SWIZZLE_OP (4313, wzxz) SHADER_SWIZZLE_OP (4314, wzxw)
1075 SHADER_SWIZZLE_OP (432 , wzy ) SHADER_SWIZZLE_OP (4321, wzyx) SHADER_SWIZZLE_OP (4322, wzyy) SHADER_SWIZZLE_OP (4323, wzyz)
1076 SHADER_SWIZZLE_OP (4324, wzyw) SHADER_SWIZZLE_OP (433 , wzz ) SHADER_SWIZZLE_OP (4331, wzzx) SHADER_SWIZZLE_OP (4332, wzzy)
1077 SHADER_SWIZZLE_OP (4333, wzzz) SHADER_SWIZZLE_OP (4334, wzzw) SHADER_SWIZZLE_OP (434 , wzw ) SHADER_SWIZZLE_OP (4341, wzwx)
1078 SHADER_SWIZZLE_OP (4342, wzwy) SHADER_SWIZZLE_OP (4343, wzwz) SHADER_SWIZZLE_OP (4344, wzww) SHADER_SWIZZLE_OP (44 , ww )
1079 SHADER_SWIZZLE_OP (441 , wwx ) SHADER_SWIZZLE_OP (4411, wwxx) SHADER_SWIZZLE_OP (4412, wwxy) SHADER_SWIZZLE_OP (4413, wwxz)
1080 SHADER_SWIZZLE_OP (4414, wwxw) SHADER_SWIZZLE_OP (442 , wwy ) SHADER_SWIZZLE_OP (4421, wwyx) SHADER_SWIZZLE_OP (4422, wwyy)
1081 SHADER_SWIZZLE_OP (4423, wwyz) SHADER_SWIZZLE_OP (4424, wwyw) SHADER_SWIZZLE_OP (443 , wwz ) SHADER_SWIZZLE_OP (4431, wwzx)
1082 SHADER_SWIZZLE_OP (4432, wwzy) SHADER_SWIZZLE_OP (4433, wwzz) SHADER_SWIZZLE_OP (4434, wwzw) SHADER_SWIZZLE_OP (444 , www )
1083 SHADER_SWIZZLE_OP (4441, wwwx) SHADER_SWIZZLE_OP (4442, wwwy) SHADER_SWIZZLE_OP (4443, wwwz) SHADER_SWIZZLE_OP (4444, wwww)
1084
1085 # undef SHADER_SWIZZLE_OP
1086
1087 # define SHADER_FUNC0_(name, glname) \
1088 template<typename A> \
1089 inline const sl_expr<sl_func0> \
1090 name () \
1091 { \
1092 return sl_func0 (#glname " ("); \
1093 }
1094
1095 # define SHADER_FUNC0(name) SHADER_FUNC0_(name,name)
1096
1097 # define SHADER_FUNC1_(name, glname) \
1098 template<typename A> \
1099 inline const sl_expr< sl_func1<typename sl_convert<A>::T> > \
1100 name (const A &a) \
1101 { \
1102 return sl_func1<typename sl_convert<A>::T> (#glname " (", sl_convert<A>::convert (a));\
1103 }
1104
1105 # define SHADER_FUNC1(name) SHADER_FUNC1_(name,name)
1106
1107 # define SHADER_FUNC2_(name, glname) \
1108 template<typename A, typename B> \
1109 inline const sl_expr< sl_func2<typename sl_convert<A>::T, typename sl_convert<B>::T> > \
1110 name (const A &a, const B &b) \
1111 { \
1112 return sl_func2<typename sl_convert<A>::T, typename sl_convert<B>::T> (#glname " (", sl_convert<A>::convert (a), sl_convert<B>::convert (b));\
1113 }
1114
1115 # define SHADER_FUNC2(name) SHADER_FUNC2_(name,name)
1116
1117 # define SHADER_FUNC3_(name, glname) \
1118 template<typename A, typename B, typename C> \
1119 inline const sl_expr< sl_func3<typename sl_convert<A>::T, typename sl_convert<B>::T, typename sl_convert<C>::T> > \
1120 name (const A &a, const B &b, const C &c) \
1121 { \
1122 return sl_func3<typename sl_convert<A>::T, typename sl_convert<B>::T, typename sl_convert<C>::T> (#glname " (", sl_convert<A>::convert (a), sl_convert<B>::convert (b), sl_convert<C>::convert (c));\
1123 }
1124
1125 # define SHADER_FUNC3(name) SHADER_FUNC3_(name,name)
1126
1127 # define SHADER_FUNC4_(name, glname) \
1128 template<typename A, typename B, typename C, typename D> \
1129 inline const sl_expr< sl_func4<typename sl_convert<A>::T, typename sl_convert<B>::T, typename sl_convert<C>::T, typename sl_convert<D>::T > > \
1130 name (const A &a, const B &b, const C &c, const D &d) \
1131 { \
1132 return sl_func4<typename sl_convert<A>::T, typename sl_convert<B>::T, typename sl_convert<C>::T, typename sl_convert<D>::T> (#glname " (", sl_convert<A>::convert (a), sl_convert<B>::convert (b), sl_convert<C>::convert (c), sl_convert<D>::convert (d));\
1133 }
1134
1135 # define SHADER_FUNC4(name) SHADER_FUNC4_(name,name)
1136
1137 SHADER_FUNC1 (abs)
1138 SHADER_FUNC1 (acos)
1139 SHADER_FUNC1 (all)
1140 SHADER_FUNC1 (any)
1141 SHADER_FUNC1 (asin)
1142 SHADER_FUNC1 (atan)
1143 SHADER_FUNC2 (atan)
1144 SHADER_FUNC1 (ceil)
1145 SHADER_FUNC3 (clamp)
1146 SHADER_FUNC1 (cos)
1147 SHADER_FUNC2 (cross)
1148 SHADER_FUNC1 (dFdx)
1149 SHADER_FUNC1 (dFdy)
1150 SHADER_FUNC1 (degrees)
1151 SHADER_FUNC2 (distance)
1152 SHADER_FUNC2 (dot)
1153 SHADER_FUNC2_(equal, equal)
1154 SHADER_FUNC1 (exp)
1155 SHADER_FUNC1 (exp2)
1156 SHADER_FUNC3 (faceforward)
1157 SHADER_FUNC1 (floor)
1158 SHADER_FUNC1 (fract)
1159 SHADER_FUNC0 (ftransform)
1160 SHADER_FUNC1 (fwidth)
1161 SHADER_FUNC2_(greater_than_equal, greaterThanEqual)
1162 SHADER_FUNC2_(greater_then, greaterThan)
1163 SHADER_FUNC1 (inversesqrt)
1164 SHADER_FUNC1 (length)
1165 SHADER_FUNC2_(less_than, lessThan)
1166 SHADER_FUNC2_(less_than_equal, lessThanEqual)
1167 SHADER_FUNC1 (log)
1168 SHADER_FUNC1 (log2)
1169 SHADER_FUNC2_(matrix_comp_mult, matrixCompMult)
1170 SHADER_FUNC2 (max)
1171 SHADER_FUNC2 (min)
1172 SHADER_FUNC3 (mix)
1173 SHADER_FUNC2 (mod)
1174 SHADER_FUNC1 (noise1)
1175 SHADER_FUNC1 (noise2)
1176 SHADER_FUNC1 (noise3)
1177 SHADER_FUNC1 (noise4)
1178 SHADER_FUNC1 (normalize)
1179 SHADER_FUNC1 (gl_not) // TODO
1180 SHADER_FUNC2_(notequal, notEqual)
1181 SHADER_FUNC2 (pow)
1182 SHADER_FUNC1 (radians)
1183 SHADER_FUNC2 (reflect)
1184 SHADER_FUNC3 (refract)
1185 SHADER_FUNC2_(shadow_1d, shadow1D)
1186 SHADER_FUNC3_(shadow_1d, shadow1D)
1187 SHADER_FUNC3_(shadow_1d_lod, shadow1DLod)
1188 SHADER_FUNC2_(shadow_1d_proj, shadow1DProj)
1189 SHADER_FUNC3_(shadow_1d_proj, shadow1DProj)
1190 SHADER_FUNC3_(shadow_1d_proj_lod, shadow1DProjLod)
1191 SHADER_FUNC2_(shadow_2d, shadow2D)
1192 SHADER_FUNC3_(shadow_2d, shadow2D)
1193 SHADER_FUNC3_(shadow_2d_lod, shadow2DLod)
1194 SHADER_FUNC2_(shadow_2d_proj, shadow2DProj)
1195 SHADER_FUNC3_(shadow_2d_proj, shadow2DProj)
1196 SHADER_FUNC3_(shadow_2d_proj_lod, shadow2DProjLod)
1197 SHADER_FUNC1 (sign)
1198 SHADER_FUNC1 (sin)
1199 SHADER_FUNC3 (smoothstep)
1200 SHADER_FUNC1 (sqrt)
1201 SHADER_FUNC2 (step)
1202 SHADER_FUNC1 (tan)
1203 SHADER_FUNC2_(texture_1d, texture1D)
1204 SHADER_FUNC3_(texture_1d, texture1D)
1205 SHADER_FUNC3_(texture_1d_lod, texture1DLod)
1206 SHADER_FUNC2_(texture_1d_proj, texture1DProj)
1207 SHADER_FUNC3_(texture_1d_proj, texture1DProj)
1208 SHADER_FUNC3_(texture_1d_proj_lod, texture1DProjLod)
1209 SHADER_FUNC2_(texture_2d, texture2D)
1210 SHADER_FUNC3_(texture_2d, texture2D)
1211 SHADER_FUNC3_(texture_2d_lod, texture2DLod)
1212 SHADER_FUNC2_(texture_2d_proj, texture2DProj)
1213 SHADER_FUNC3_(texture_2d_proj, texture2DProj)
1214 SHADER_FUNC3_(texture_2d_proj_lod, texture2DProjLod)
1215 SHADER_FUNC2_(texture_3d, texture3D)
1216 SHADER_FUNC3_(texture_3d, texture3D)
1217 SHADER_FUNC3_(texture_3d_lod, texture3DLod)
1218 SHADER_FUNC2_(texture_3d_proj, texture3DProj)
1219 SHADER_FUNC3_(texture_3d_proj, texture3DProj)
1220 SHADER_FUNC3_(texture_3d_proj_lod, texture3DProjLod)
1221 SHADER_FUNC2_(texture_cube, textureCube)
1222 SHADER_FUNC3_(texture_cube, textureCube)
1223 SHADER_FUNC3_(texture_cude_lod, textureCubeLod)
1224 SHADER_FUNC1 (vec2) SHADER_FUNC2 (vec2)
1225 SHADER_FUNC1 (vec3) SHADER_FUNC2 (vec3) SHADER_FUNC3 (vec3)
1226 SHADER_FUNC1 (vec4) SHADER_FUNC2 (vec4) SHADER_FUNC3 (vec4) SHADER_FUNC4 (vec4)
1227 SHADER_FUNC1 (mat2) SHADER_FUNC2 (mat2)
1228 SHADER_FUNC1 (mat3) SHADER_FUNC2 (mat3) SHADER_FUNC3 (mat3)
1229 SHADER_FUNC1 (mat4) SHADER_FUNC2 (mat4) SHADER_FUNC3 (mat4) SHADER_FUNC4 (mat4)
1230
1231 # undef SHADER_FUNC0
1232 # undef SHADER_FUNC0_
1233 # undef SHADER_FUNC1
1234 # undef SHADER_FUNC1_
1235 # undef SHADER_FUNC2
1236 # undef SHADER_FUNC2_
1237 # undef SHADER_FUNC3
1238 # undef SHADER_FUNC3_
1239 # undef SHADER_FUNC4
1240 # undef SHADER_FUNC5_
1241
1242 void debdebdebdebug ();//D
1243 }
1244
1245 #endif
1246
1247 #include "shader_vars.h"
1248
1249