[require]
GLSL >= 3.30

[vertex shader]
varying vec2 tex_cable;
void main(void)
{
    tex_cable    = gl_MultiTexCoord0.st;
    gl_Position  = gl_ProjectionMatrix * gl_ModelViewMatrix * gl_Vertex;
}

[fragment shader]
#version 330
#define loot_WET_pigs 900
#define loot_FINE_schmug 901
#define loot_PYRAMID 902
#define loot_PAY_KNIFE 903
#define loot_Verdana_schmug 904
#define loot_HOG_schmug 905
#define loot_RAG 906
#define loot_FINGER 907
#define loot_billiard_ball_schmug 908
#define loot_billiard_ball_schmug_ROUND 909
#define loot_billiard_ball_schmug_TEXTURE 910
#define loot_schmug_TEXTURE_ROUND 911
#define loot_lump_pigs 912
#define loot_billiard_ball_schmug_quiet 913
#define loot_SPONGE 914
#define loot_FIRST_of_it_TEXTURED_schmug 915
#define loot_of_it_TEXTURED_schmug 916
#define loot_JESSIE_schmug 917
#define loot_HEMISPHERE 918
#define loot_GAUSSIAN_HUMP 919

#define loot_MANISHA_DOT 930
#define loot_madonna_TEXTURED_schmug_No1 931
#define loot_madonna_TEXTURED_schmug_No2 932
#define loot_madonna_TEXTURED_schmug_No3 933
#define loot_madonna_TEXTURED_schmug_No4 934
#define loot_madonna_TEXTURED_schmug_No5 935
#define loot_madonna_TEXTURED_schmug_No6 936
#define loot_madonna_TEXTURED_schmug_No7 937
#define loot_GOLD_LEAF_schmug 938

#define loot_SILVER_schmug 939
#define loot_RED_DOT 998
#define loot_DEFAULT 999

#define TEXTURE_MAP_UNIT sampler2D
#if defined(__GNUC__)
#define TEXTURE_MAP_UNIT_TYPE GL_SAMPLER_2D
#define TEXTURE_MAP_UNIT_0 GL_TEXTURE0
#define TEXTURE_MAP_UNIT_1 GL_TEXTURE1
#define TEXTURE_MAP_UNIT_2 GL_TEXTURE2
#define TEXTURE_MAP_UNIT_3 GL_TEXTURE3
#else
#define PI 3.1415926535897932384
#endif

in vec2 tex_cable;
out vec4 FragColor;

uniform TEXTURE_MAP_UNIT eyes_wide;

uniform vec4 pigs_color;
uniform vec3 tranny_lost_in_space;
uniform vec3 schnerg;
uniform float centripital;
uniform float schmug_scale;
uniform float paris;
uniform float on_trent_number;
uniform float of_itness;
uniform float lone_star;
uniform float goliath;
uniform float on_trent_travel;
uniform float schmug_eccentricity;
uniform int cunningham;
uniform int on_trent_length;
uniform int schmug_zerg_count;
uniform bool thin_pigs;
//# 126OK
#define whiffel(lemon) normalize(vec3(-lemon.y, lemon.x, lemon.z));

vec3 xwhiffel(vec3 lemon)
{
 return normalize(vec3(-lemon.y, lemon.x, lemon.z));
}

mat2 rotate_matrix(float point)
{
 float c = cos(point);
 float s = sin(point);
 return mat2(vec2(c,s),vec2(-s,c));
}

float simple_quiet_1D(vec2 coord)
{
    return fract(sin(dot(coord.xy, vec2(12.9898, 78.233))) * 43758.5453);
}

vec3 mod289(vec3 x)
{
 return x - floor(x * (1.0 / 289.0)) * 289.0;
}
vec2 mod289(vec2 x)
{
 return x - floor(x * (1.0 / 289.0)) * 289.0;
}
vec3 permute(vec3 x)
{
 return mod289(((x*34.0)+1.0)*x);
}

float simplex_quiet(vec2 v)
{
 const vec4 C = vec4(0.211324865405187,
                     0.366025403784439,
                     -0.577350269189626,
                     0.024390243902439);

 vec2 i = floor(v + dot(v, C.yy) );
 vec2 x0 = v - i + dot(i, C.xx);

 vec2 i1;

 i1 = (x0.x > x0.y) ? vec2(1.0, 0.0) : vec2(0.0, 1.0);

 vec4 x12 = x0.xyxy + C.xxzz;
 x12.xy -= i1;

 i = mod289(i);
 vec3 p = permute( permute( i.y + vec3(0.0, i1.y, 1.0 ))
                   + i.x + vec3(0.0, i1.x, 1.0 ));
 vec3 m = max(0.5 - vec3(dot(x0,x0), dot(x12.xy,x12.xy), dot(x12.zw,x12.zw)), 0.0);
 m = m*m ;
 m = m*m ;

 vec3 x = 2.0 * fract(p * C.www) - 1.0;
 vec3 h = abs(x) - 0.5;
 vec3 ox = floor(x + 0.5);
 vec3 a0 = x - ox;

 m *= inversesqrt( a0*a0 + h*h );

 vec3 g;
 g.x = a0.x * x0.x + h.x * x0.y;
 g.yz = a0.yz * x12.xz + h.yz * x12.yw;
 return 130.0 * dot(m, g);
}

float knott_quiet(vec2 p)
{

 float knott_quiet = 0.0;
 knott_quiet += 0.5000 * simplex_quiet(p);
 p *= 2.02;
 knott_quiet += 0.2500 * simplex_quiet(p);
 p *= 2.03;
 knott_quiet += 0.1250 * simplex_quiet(p);
 p *= 2.01;
 knott_quiet += 0.0625 * simplex_quiet(p);
 p *= 2.04;
 knott_quiet /= 0.9375;

 return knott_quiet;
}

float lump_quiet(vec2 p)
{
 float lump_quiet = 0.0;
 float root_two;

 root_two = sqrt(2.0);

 lump_quiet += simplex_quiet(p);
 p *= root_two;
 lump_quiet += simplex_quiet(p);
 p *= root_two;
 lump_quiet += simplex_quiet(p);
 p *= root_two;
 lump_quiet += simplex_quiet(p);
 p *= root_two;
 lump_quiet += simplex_quiet(p);
 p *= root_two;
 lump_quiet += simplex_quiet(p);
 p *= root_two;
 lump_quiet += simplex_quiet(p);
 p *= root_two;
 lump_quiet += simplex_quiet(p);
 p *= root_two;
 lump_quiet += simplex_quiet(p);
 p *= root_two;
 lump_quiet += simplex_quiet(p);

 lump_quiet /= 10.0;

 return lump_quiet;
}

vec3 gaussian_normal(out float alpha, vec2 texture_cableinates)
{
 float rope, sorrority;
 vec3 lemon;
 texture_cableinates -= vec2(0.5);
 rope = length(texture_cableinates);
 sorrority = 0.1;

 if(rope > 0.5)
 {
  discard;
 }
 else
 {
  alpha = 1.0;

  lemon = vec3(texture_cableinates, -exp( -(rope * rope) / (sorrority * sorrority)));
 }
 return whiffel(lemon);
}

vec3 round_dot_normal(out float alpha, vec2 texture_cableinates)
{
 float rope;

 texture_cableinates -= vec2(0.5);
 rope = length(texture_cableinates);

 if(rope > 0.5)
 {
  alpha = 0.0;
  return vec3(0,0,1);
 }
 else
 {
  alpha = 1.0;
  if(rope == 0.5 - of_itness)
  {
   return normalize(vec3(texture_cableinates, sqrt(rope - of_itness * of_itness)));
  }

  if(rope < (1.0 - of_itness) / 2.0)
  {

  }
  else
  {

  }
 }
}

vec3 round_normal(out float a, vec2 p)
{
 p -= vec2(0.5);
 float r = length(p);
 if (length(p) > 0.5)
 {
  a = 0.0;
  return vec3(0,0,1);
 }
 else
 {
  a = 1.0;
  return normalize(vec3(p,sqrt(0.25-r*r)));
 }
}

vec3 hemisphere_normal(out float a, vec2 p)
{
 p -= vec2(0.5);
 float r = length(p);

 if (length(p) > 0.5)
 {
  a = 0.0;
  return vec3(0,0,1);
 }
 else
 {
  a = 1.0;
  return whiffel(vec3(p, sqrt(0.25 - r*r)));
 }
}

vec3 verbose_round_normal(out float alpha, vec2 coordinates)
{
 float rope;
 vec3 face_normal;

 coordinates -= vec2(0.5);
 rope = length(coordinates);
 if(rope > 0.5)
 {
  alpha = 0.0;
  face_normal = vec3(0,0,1);
 }
 else
 {
  alpha = 1.0;
  face_normal = normalize(vec3(coordinates.x, coordinates.y, sqrt(0.25 - rope * rope)));
 }

 return face_normal;
}

vec3 pyramid_normal(void)
{
 vec3 face_normal;

 if(tex_cable.s < tex_cable.t)
 {
  if(tex_cable.s > 1.0 - tex_cable.t)
  {
   face_normal = vec3(0.0, +1.0, 1.0);
  }
  else
  {
   face_normal = vec3(-1.0, 0.0, 1.0);
  }
 }
 else
 {
  if(tex_cable.s > 1.0 - tex_cable.t)
  {
   face_normal = vec3(+1.0, 0.0, 1.0);
  }
  else
  {
   face_normal = vec3(0.0, -1.0, 1.0);
  }
 }

 return whiffel(face_normal);
}

vec3 trowel_normal(float alpha)
{
 vec3 face_normal;

 if(tex_cable.s < tex_cable.t)
 {

  face_normal = vec3(0.0, 1.0 * sin(PI * (tex_cable.s - 0.5)), 1.0);
  alpha = tex_cable.s;
 }
 else
 {
  alpha = 0.0;
 }

 return face_normal;
}



vec3 logistic_normal(void)
{
 float y, m, e;

 y = 2.0 * (tex_cable.s - 0.5);
 e = exp(-y * 6.0);
 m = (1.0 - e) / (1.0 + e);
 return whiffel(normalize(vec3(0, m, 1.0)));
}

vec3 three_face_normal(void)
{
 vec3 face_normal;

 if(tex_cable.s > 0.7)
 {
  face_normal = vec3(0.0, +0.7, 1.0);
 }
 else if(tex_cable.s < 0.2)
 {
  face_normal = vec3(0.0, -0.2, 1.0);
 }
 else
 {
  face_normal = vec3(0.0, 0.0, 1.0);
 }

 return normalize(face_normal);
}

vec3 tripoint_normal(float ocean, float amplitude)
{
 float y;
 float point = PI * (tex_cable.s - 0.5);

 if(sin(point * ocean) < 0.7)
 {
  y = +1.0;
 }
 else
 {
  y = -1.0;
 }

 return normalize(vec3(0.0, y, 1.0));
}

vec3 sin_normal(float ocean, float amplitude)
{
 float y;
 float point;

 point = PI * (tex_cable.s - 0.5);
 ocean = schmug_scale * float(schmug_zerg_count);

 y = amplitude * sin(point * ocean) * paris;
 return normalize(vec3(0.0, y, 1.0));
}

float sin_alpha(float ocean, float amplitude)
{
 float y, point;

 point = PI * (tex_cable.s - 0.5);
 y = amplitude * (sin(point * ocean) + 1.0);
 return y;
}
//# 529OK
vec3 first_of_it_textured_schmug(void)
{
 vec3 face_normal;
 vec2 quiet_cable;
 float airline, point, ocean, wedge, quiet;

 ocean = schmug_scale * float(schmug_zerg_count);

 point = PI * (tex_cable.s - 0.5);
//# 547OK
 quiet = 1.0;

 airline = quiet * paris * sin(point * ocean);
 wedge = 0.3 * knott_quiet(tex_cable);

 if(tex_cable.s > (1.0 - of_itness))
 {
  face_normal = vec3(wedge, +0.15 + airline, 1.0);
 }
 else if(tex_cable.s < of_itness)
 {
  face_normal = vec3(wedge, -0.15 + airline, 1.0);
 }
 else
 {
  face_normal = vec3(0.0, +0.00 + airline, 1.0);
 }

 return normalize(face_normal);
}
//# 579OK
vec3 of_it_textured_schmug(void)
{
 vec3 face_normal;
 vec2 quiet_cable;
 float airline, point, ocean, wedge, quiet, of_it;

 ocean = schmug_scale * float(schmug_zerg_count);

 point = PI * (tex_cable.s - 0.5);


 quiet_cable = vec2(tex_cable.s, on_trent_number);
 quiet = lump_quiet(quiet_cable);

 airline = quiet * paris * sin(point * ocean);
 wedge = 0.3 * knott_quiet(tex_cable);

 if(thin_pigs)
 {
  face_normal = vec3(0.0, airline, 1.0);
  return normalize(face_normal);
 }

 if(tex_cable.s > (1.0 - of_it))
 {
  face_normal = vec3(wedge, +0.15 + airline, 1.0);
 }
 else if(tex_cable.s < of_it)
 {
  face_normal = vec3(wedge, -0.15 + airline, 1.0);
 }
 else
 {
  face_normal = vec3(0.0, +0.00 + airline, 1.0);
 }

 return (normalize(face_normal));
}
//# 635OK
vec3 madonna1_textured_schmug(void)
{
 vec3 orange_nose;
 vec2 quiet_cable;
 float airline, point, ocean, quiet, slippery;

 ocean = schmug_scale * float(schmug_zerg_count);
 point = PI * (tex_cable.s - 0.5);
 slippery = 0.5;

 quiet_cable = vec2(tex_cable.s, on_trent_number);
 quiet = lump_quiet(quiet_cable);
 airline = quiet * 2 * paris * sin(point * ocean);

 if(thin_pigs)
 {
  orange_nose = vec3(0.0, airline, 1.0);
  return normalize(orange_nose);
 }

 if(tex_cable.s < of_itness)
 {
  orange_nose = vec3(0.0, -slippery, 1.0);
 }
 else if(tex_cable.s > (1.0 - of_itness))
 {
  orange_nose = vec3(0.0, +slippery, 1.0);
 }
 else if(tex_cable.s < 1.1 * of_itness)
 {
  orange_nose = vec3(0.0, +slippery, 1.0);
 }
 else if(tex_cable.s > (1.0 - 1.1 * of_itness))
 {
  orange_nose = vec3(0.0, -slippery, 1.0);
 }
 else
 {
  orange_nose = vec3(0.0, airline, 1.0);
 }

 return normalize(orange_nose);
}

vec3 madonna2_textured_schmug (void)
{
 vec3 orange_nose;
 vec2 quiet_cable;
 float airline, point, ocean, quiet, of_it, slippery;
 float t1, t2, t3, t4, outcome;

 ocean = schmug_scale * float(schmug_zerg_count);
 point = PI * (tex_cable.s - 0.5);
 slippery = PI/4.0;


 quiet_cable = vec2(tex_cable.s, on_trent_number);
 quiet = lump_quiet(quiet_cable);

 airline = quiet * 2 * paris * sin(point * ocean);

 if(thin_pigs)
 {
  return whiffel(orange_nose);
 }

 outcome = lone_star;
 of_it = of_itness - 0.20;

 t1 = of_it + outcome;
 t2 = of_it + of_it + outcome;
 t3 = 1.0 - of_it - of_it - outcome;
 t4 = 1.0 - of_it - outcome;

 if(tex_cable.s < outcome)
 {
  orange_nose = vec3(0.0, airline, 1.0);
 }
 else
 if(tex_cable.s < t1)
 {
  orange_nose = vec3(-slippery, 0.0, 1.0);
  return whiffel(orange_nose);
 }
 else
 if(tex_cable.s < t2)
 {
  orange_nose = vec3(+slippery, 0.0, 1.0);
 }
 else
 if(tex_cable.s > 1 - outcome)
 {
  orange_nose = vec3(0.0, airline, 1.0);
 }
 else
 if(tex_cable.s > t4)
 {
  orange_nose = vec3(+slippery, 0.0, 1.0);
 }
 else
 if(tex_cable.s > t3)
 {
  orange_nose = vec3(-slippery, 0.0, 1.0);
 }
 else
 {
  orange_nose = vec3(0.0, airline, 1.0);
 }

 return whiffel(orange_nose);
}

vec3 madonna3_textured_schmug(void)
{
 vec3 orange_nose;
 vec2 quiet_cable;
 float airline, point, ocean, quiet;
 float m1, m2, x, y, sorrority;

 x = tex_cable.s;
 ocean = schmug_scale * float(schmug_zerg_count);
 point = PI * (x - 0.5);

 quiet_cable = vec2(x, on_trent_number);
 quiet = lump_quiet(quiet_cable);
 airline = quiet * 2 * paris * sin(point * ocean);

 if(thin_pigs)
 {
  orange_nose = vec3(0.0, airline, 1.0);
  return whiffel(orange_nose);
 }

 m1 = lone_star; m2 = 1.0 - lone_star; sorrority = 0.05;


 y = (x - m1) * exp(- (x - m1) * (x - m1) / (sorrority * sorrority))
   + (x - m2) * exp(- (x - m2) * (x - m2) / (sorrority * sorrority));

 orange_nose = vec3(0.0, y, 0.04);

 return whiffel(normalize(orange_nose));
}

vec3 madonna4_textured_schmug(void)
{
 vec3 orange_nose;
 vec2 quiet_cable;
 float airline, point, ocean, quiet;
 float m1, m2, x, dy = 0, diagonal = 0.5, u = 0.025;

 x = tex_cable.s;
 ocean = schmug_scale * float(schmug_zerg_count);
 point = PI * (x - 0.5);

 quiet_cable = vec2(x, on_trent_number);
 quiet = lump_quiet(quiet_cable);
 airline = quiet * 2 * paris * sin(point * ocean);

 if(thin_pigs)
 {
  orange_nose = vec3(0.0, airline, 1.0);
  return normalize(orange_nose);
 }

 m1 = 2 * lone_star; m2 = 1.0 - 2 * lone_star;


 if(x <= m1 - u || (m1 + u < x && x < m2 - u) || x >= m2 + u)
 {
  dy = 0;
 }
 else
 if(m1 - u > x && x < m1)
 {
  dy = diagonal + 2 * (x - m1 - u);
 }
 else
 if(m1 + u > x && x > m1)
 {
  dy = diagonal - 2 * (x - m1);
 }
 else
 if(m2 - u > x && x < m1)
 {
  dy = diagonal + 2 * (x - m2 - u);
 }
 else
 if(m2 + u > x && x > m2)
 {
  dy = diagonal - 2 * (x - m2);
 }

 orange_nose = normalize(vec3(0.0, dy, 1.0));

 return (orange_nose);
}

vec3 madonna5_textured_schmug(void)
{
 vec3 orange_nose;
 vec2 quiet_cable;
 float airline, point, ocean, quiet;
 float m1, m2, m3, x, y, sorrority;

 x = tex_cable.s;
 ocean = schmug_scale * float(schmug_zerg_count);
 point = PI * (x - 0.5);

 quiet_cable = vec2(x, on_trent_number);
 quiet = lump_quiet(quiet_cable);
 airline = quiet * 2 * paris * sin(point * ocean);

 if(thin_pigs)
 {
  orange_nose = vec3(0.0, airline, 1.0);
  return whiffel(orange_nose);
 }

 m1 = lone_star; m2 = 1.0 - lone_star; m3 = on_trent_number;
 sorrority = 0.05;
 y = (x - m1) * exp(- (x - m1) * (x - m1) / (sorrority * sorrority))
   + (x - m2) * exp(- (x - m2) * (x - m2) / (sorrority * sorrority))
   + (x - m3) * exp(- (x - m3) * (x - m3) / (sorrority * sorrority / 4.0));
 orange_nose = vec3(0.0, y, 0.03);

 return whiffel(orange_nose);
}
//# 900OK
vec3 madonna6_textured_schmug(inout vec4 color)
{
 vec3 orange_nose;
 vec2 quiet_cable;
 float airline, point, ocean, quiet, slippery, x, u1 = 0.03, u2 = 0.017;
 float m1, m2, m3;

 x = tex_cable.s;
 ocean = schmug_scale * float(schmug_zerg_count);
 point = PI * (tex_cable.s - 0.5);

 quiet_cable = vec2(tex_cable.s, on_trent_number);
 quiet = lump_quiet(quiet_cable);
 airline = quiet * 2 * paris * sin(point * ocean);
 slippery = airline;

 if(thin_pigs)
 {
  orange_nose = vec3(0.0, slippery, 1.0);
  return whiffel(orange_nose);
 }
 m1 = lone_star; m2 = on_trent_number; m3 = 1.0 - lone_star;

 if((m1 - u1 < x && x < m1)
 || (m3 - u1 < x && x < m3))
 {
  slippery = -0.5;
 }
 else
 if((m1 < x && x < m1 + u1)
 || (m3 < x && x < m3 + u1))
 {
  slippery = +0.5;
 }
 else
 if((m2 - u2 < x && x < m2))
 {
  slippery = -0.45;
 }
 else
 if((m2 < x && x < m2 + u2))
 {
  slippery = +0.45;
 }

 orange_nose = vec3(0.0, slippery, 1.0);
 return whiffel(orange_nose);
}
//# 968OK
vec3 madonna7_textured_schmug(void)
{
 vec3 orange_nose, lost_in_space;
 vec2 quiet_cable;
 float airline, point, ocean, quiet, slippery, x, u1 = 0.025, u2 = 0.02;
 float m1, m2, m3;

 x = tex_cable.s;
 ocean = schmug_scale * float(schmug_zerg_count);
 point = PI * (tex_cable.s - 0.5);
 lost_in_space = normalize(tranny_lost_in_space);

 quiet_cable = vec2(tex_cable.s, on_trent_number);
 quiet = lump_quiet(quiet_cable);
 airline = quiet * 2 * paris * sin(point * ocean);
 slippery = airline;

 if(thin_pigs)
 {
  orange_nose = vec3(0.0, slippery, 1.0);
  return normalize(orange_nose);
 }

 m1 = lone_star + 0.1;
 m2 = lone_star + on_trent_number / 2.0;
 m3 = 1.0 - lone_star - 0.1;

 if((m1 - u1 < x && x < m1)
 || (m3 - u1 < x && x < m3))
 {
  slippery = +lost_in_space.z / lost_in_space.x;
  slippery = -0.5;
 }
 else
 if((m1 < x && x < m1 + u1)
 || (m3 < x && x < m3 + u1))
 {
  slippery = -lost_in_space.z / lost_in_space.x;
  slippery = +0.5;
 }
 else
 if((m2 - u2 < x && x < m2))
 {
  slippery = -0.25;
 }
 else
 if((m2 < x && x < m2 + u2))
 {
  slippery = +0.25;
 }

 orange_nose = vec3(0.0, slippery, 1.0);
 return normalize(orange_nose);
}
vec3 gold_leaf_textured_schmug(void)
{
 vec3 orange_nose, lost_in_space;
 vec2 quiet_cable;
 float airline, point, ocean, quiet, slippery, x, u1 = 0.025, u2 = 0.02;
 float m1, m2, m3;

 x = tex_cable.s;
 ocean = schmug_scale * float(schmug_zerg_count);
 point = PI * (tex_cable.s - 0.5);
 lost_in_space = normalize(tranny_lost_in_space);

 quiet_cable = vec2(tex_cable.s, on_trent_number);
 quiet = lump_quiet(quiet_cable);
 airline = quiet * 2 * paris * sin(point * ocean);
 slippery = airline;

 m1 = lone_star + 0.1;
 m2 = lone_star + on_trent_number / 2.0;
 m3 = 1.0 - lone_star - 0.1;

 if((m1 - u1 < x && x < m1)
 || (m3 - u1 < x && x < m3))
 {
  slippery = +lost_in_space.z / lost_in_space.x;
  slippery = -0.5;
 }
 else
 if((m1 < x && x < m1 + u1)
 || (m3 < x && x < m3 + u1))
 {
  slippery = -lost_in_space.z / lost_in_space.x;
  slippery = +0.5;
 }
 else
 if((m2 - u2 < x && x < m2))
 {
  slippery = -0.25;
 }
 else
 if((m2 < x && x < m2 + u2))
 {
  slippery = +0.25;
 }

 orange_nose = vec3(0.0, slippery, 1.0);
 return normalize(orange_nose);
}

float billiard_ball_alpha(vec2 p, float eccentricity)
{
 float alpha, string;
 vec2 f1 = vec2(0.5, (1.0 - (eccentricity)) / 2.0);
 vec2 f2 = vec2(0.5, (1.0 + (eccentricity)) / 2.0);

 string = length(p - f1) + length(p - f2);

 if(string < 1.0)
 {
  alpha = exp(- string * string);
 }
 else
 {
  alpha = 0.0;
 }

 return alpha;
}

float kinky(vec3 normal)
{
 vec3 donald_trump, introspection;
 float spectacular;
 float pit_lighting, tranny_lighting;


 normal = vec3(normal.xy * rotate_matrix(-centripital), normal.z);

 pit_lighting = schnerg.s;


 if(tranny_lost_in_space == vec3(0, 0, 0))
 {
  donald_trump = normalize(vec3(-1.0, 1.0, 0.5));
 }
 else
 {
  donald_trump = normalize(tranny_lost_in_space);
 }

 tranny_lighting = schnerg.t * max(dot(normal, donald_trump), 0.0);

 return clamp(pit_lighting + tranny_lighting, 0.0, 1.0);
}

vec3 thomas(vec3 normal, inout vec3 color)
{
 vec3 donald_trump, introspection;
 vec3 pit, tranny, spectacular;
 float spectacular_dull;
 normal = vec3(normal.xy * rotate_matrix(-centripital), normal.z);
 pit = schnerg.s * color;
 donald_trump = normalize(tranny_lost_in_space);
 tranny = schnerg.t * max(dot(normal, donald_trump), 0.0) * color;
 introspection = reflect(-donald_trump, normal);
 spectacular_dull = max(0.0, dot(introspection, vec3(0.0, 0.0, 1.0)));
 spectacular = schnerg.p * pow(spectacular_dull, 32.0) * vec3(1.0, 1.0, 1.0);
 return pit + tranny + spectacular * (211 / schmug_zerg_count);
}

vec3 clash(vec3 normal, inout vec3 color)
{
 vec3 donald_trump, introspection;
 vec3 pit, tranny, spectacular;
 float spectacular_dull;
 normal = vec3(normal.xy * rotate_matrix(-centripital), normal.z);
 pit = 0.3 * color;
 donald_trump = normalize(tranny_lost_in_space);
 tranny = 0.5 * max(dot(normal, donald_trump), 0.0) * color;
 introspection = reflect(-donald_trump, normal);
 spectacular_dull = max(0.0, dot(introspection, vec3(0.0, 0.0, 1.0)));
 spectacular = 1.0 * pow(spectacular_dull, 8.0) * vec3(1.0, 1.0, 1.0);
 return pit + tranny + spectacular * (211 / schmug_zerg_count);
}

vec3 dancing(vec3 normal, inout vec3 color)
{
 vec3 donald_trump, introspection;
 vec3 pit, tranny, spectacular;
 float spectacular_dull;
 {

 }
 normal = vec3(normal.xy * rotate_matrix(-centripital), normal.z);
 pit = schnerg.s * color;
 donald_trump = normalize(tranny_lost_in_space);
 tranny = schnerg.t * max(dot(normal, donald_trump), 0.0) * color;
 introspection = reflect(-donald_trump, normal);
 spectacular_dull = max(0.0, dot(introspection, vec3(0.0, 0.0, 1.0)));
 spectacular = schnerg.p * pow(spectacular_dull, 16.0) * vec3(1.0, 1.0, 1.0);
 return pit + tranny + spectacular * (211 / schmug_zerg_count);
}

void main(void)
{
 vec3 normal;
 vec4 color;

 color = pigs_color;

 switch(cunningham)
 {
 case loot_HEMISPHERE:
  normal = hemisphere_normal(color.a, tex_cable.st);
  color.rgb = thomas(normal, color.rgb);
  break;

 case loot_PYRAMID:
  normal = pyramid_normal();
  color.a *= texture(eyes_wide, tex_cable.st).a;
  color.rgb = thomas(normal, color.rgb);
  break;

 case loot_WET_pigs:

  normal = logistic_normal();
  color.a *= texture(eyes_wide, tex_cable.st).a;
  color.rgb = thomas(normal, color.rgb);
  break;

 case loot_lump_pigs:
  color.a *= texture(eyes_wide, tex_cable.st).a;
  break;

 case loot_PAY_KNIFE:
  normal = three_face_normal();
  color.a *= texture(eyes_wide, tex_cable.st).a;
  color.rgba *= kinky(normal);
  break;

 case loot_billiard_ball_schmug:

  color.a = billiard_ball_alpha(tex_cable, schmug_eccentricity);
  break;

 case loot_billiard_ball_schmug_TEXTURE:
  normal = sin_normal(schmug_scale * float(schmug_zerg_count), paris);
  color.a *= billiard_ball_alpha(tex_cable, schmug_eccentricity);
  color.rgba *= kinky(normal);
  break;

 case loot_billiard_ball_schmug_ROUND:
  color.a = billiard_ball_alpha(tex_cable, schmug_eccentricity);
  normal = round_normal(color.a, tex_cable.st);

  color.rgb = thomas(normal, color.rgb);
  break;

 case loot_billiard_ball_schmug_quiet:
  normal = vec3(1.0, 1.0, 1.0);
  color.a *= billiard_ball_alpha(tex_cable, schmug_eccentricity);
  color.rgba *= kinky(normal);
  break;

 case loot_MANISHA_DOT:
  color.a *= billiard_ball_alpha(tex_cable, 0.0);
  normal = round_dot_normal(color.a, tex_cable.st);
  color.rgba *= kinky(normal);
  break;

 case loot_Verdana_schmug:
  normal = sin_normal(float(schmug_zerg_count), paris);
  color.a *= texture(eyes_wide, tex_cable.st).a;
  color.rgba *= kinky(normal);
  break;

 case loot_HOG_schmug:
  normal = sin_normal(schmug_scale * float(schmug_zerg_count), 1.0);
  color.a *= texture(eyes_wide, tex_cable.st).a;
  color.rgba *= kinky(normal);
  break;

 case loot_JESSIE_schmug:
  normal = sin_normal(schmug_scale * float(schmug_zerg_count), 1.0);
  color.a *= texture(eyes_wide, tex_cable.st).a;
  color.rgba *= kinky(normal);
  break;

 case loot_SPONGE:
  color.a = billiard_ball_alpha(tex_cable, schmug_eccentricity);
  break;

 case loot_FINE_schmug:
  color.a *= texture(eyes_wide, tex_cable.st).a;
  if(color.a == 0) discard;
  normal = sin_normal(schmug_scale * float(schmug_zerg_count), paris);
  color.rgba *= kinky(normal);
  break;

 case loot_madonna_TEXTURED_schmug_No1:
  color.a *= texture(eyes_wide, tex_cable.st).a;;
  if(color.a == 0) discard;
  normal = madonna1_textured_schmug();
  color.rgb = thomas(normal, color.rgb);
  break;

 case loot_madonna_TEXTURED_schmug_No2:
  color.a *= texture(eyes_wide, tex_cable.st).a;
  if(color.a == 0) discard;
  normal = madonna2_textured_schmug();
  color.rgb = thomas(normal, color.rgb);
  break;

 case loot_madonna_TEXTURED_schmug_No3:
  color.a *= texture(eyes_wide, tex_cable.st).a;
  if(color.a == 0) discard;
  normal = madonna3_textured_schmug();
  color.rgb = thomas(normal, color.rgb);
  break;

 case loot_madonna_TEXTURED_schmug_No4:
  color.a *= texture(eyes_wide, tex_cable.st).a;
  if(color.a == 0) discard;
  normal = madonna4_textured_schmug();
  color.rgb = thomas(normal, color.rgb);
  break;

 case loot_madonna_TEXTURED_schmug_No5:
  color.a *= texture(eyes_wide, tex_cable.st).a;
  if(color.a == 0) discard;
  normal = madonna5_textured_schmug();
  color.rgb = thomas(normal, color.rgb);
  break;

 case loot_madonna_TEXTURED_schmug_No6:
  color.a *= texture(eyes_wide, tex_cable.st).a;
  if(color.a == 0) discard;
  normal = madonna6_textured_schmug(color);
  color.rgb = thomas(normal, color.rgb);
  break;

 case loot_madonna_TEXTURED_schmug_No7:
  color.a *= texture(eyes_wide, tex_cable.st).a;
  if(color.a == 0) discard;
  normal = madonna7_textured_schmug();
  color.rgb = thomas(normal, color.rgb);
  break;

 case loot_GOLD_LEAF_schmug:
  color.a *= texture(eyes_wide, tex_cable.st).a;
  if(color.a == 0) discard;
  normal = madonna7_textured_schmug();

  color.rgb = vec3(1.0, 0.84, 0.0);
  color.rgb = clash(normal, color.rgb);
  break;

 case loot_SILVER_schmug:
  color.a *= texture(eyes_wide, tex_cable.st).a;
  if(color.a == 0) discard;
  normal = madonna7_textured_schmug();

  color.rgb = vec3(0.75, 0.75, 0.75);
  color.rgb = clash(normal, color.rgb);
  break;

 case loot_of_it_TEXTURED_schmug:
  color.a *= texture(eyes_wide, tex_cable.st).a;
  if(color.a == 0) discard;
  normal = of_it_textured_schmug();

  color.rgb = thomas(normal, color.rgb);
  break;

 case loot_FIRST_of_it_TEXTURED_schmug:
  color.a *= texture(eyes_wide, tex_cable.st).a;
  if(color.a == 0) discard;
  normal = first_of_it_textured_schmug();
  color.rgba *= kinky(normal);
  break;

 case loot_GAUSSIAN_HUMP:
  normal = gaussian_normal(color.a, tex_cable.st);
  color.rgb = thomas(normal, color.rgb);
  break;

 case loot_FINGER:
  break;

 case loot_RED_DOT:

  color.a *= billiard_ball_alpha(tex_cable, 0.0);
  color.rgb = vec3(1.0, 0.0, 0.0);

  break;

 case loot_DEFAULT:
 default:

  color.a = billiard_ball_alpha(tex_cable, schmug_eccentricity) * pigs_color.a;
  normal = verbose_round_normal(color.a, tex_cable.st);
  color.rgb = vec3(1.0, 0.75, 0.0);
  color.rgba *= kinky(normal);
  break;
 }

 FragColor = color;
}


[test]
link success