Add more structure constructor tests.
[piglit/hramrach.git] / tests / glslparsertest / glsl2 / gst-gl-twirl.frag
blobecf0523aaa8889895efefd4255ae86bf79df762f
1 /*
2  * GStreamer
3  * Copyright (C) 2008 Filippo Argiolas <filippo.argiolas@gmail.com>
4  *
5  * This library is free software; you can redistribute it and/or
6  * modify it under the terms of the GNU Library General Public
7  * License as published by the Free Software Foundation; either
8  * version 2 of the License, or (at your option) any later version.
9  *
10  * This library is distributed in the hope that it will be useful,
11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
13  * Library General Public License for more details.
14  *
15  * You should have received a copy of the GNU Library General Public
16  * License along with this library; if not, write to the
17  * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
18  * Boston, MA 02111-1307, USA.
19  */
21 #extension GL_ARB_texture_rectangle : enable
22 uniform sampler2DRect tex;
23 uniform float width, height;
24 void main () {
25   vec2 tex_size = vec2 (width, height);
26   vec2 texturecoord = gl_TexCoord[0].xy;
27   vec2 normcoord;
28   normcoord = texturecoord / tex_size - 1.0;
29   float r =  length (normcoord);
30   float phi = atan (normcoord.y, normcoord.x);
31   phi += (1.0 - smoothstep (-0.6, 0.6, r)) * 4.8;
32   normcoord.x = r * cos(phi);
33   normcoord.y = r * sin(phi);
34   texturecoord = (normcoord + 1.0) * tex_size;
35   vec4 color = texture2DRect (tex, texturecoord);
36   gl_FragColor = color;