MR.REBOP

GLSL + SuperCollider :: REBOP

Clicca sul link qui sotto e metti le mani davanti alla webcam :

https://www.shadertoy.com/view/WtjGDz

// This is a rework of https://www.shadertoy.com/view/lssGDj,
// created by movAX13h, with sound, by Radical Ed

float character(int n, vec2 p)
{
p = floor(p*vec2(4.0, -4.0) + 2.5);
if (clamp(p.x, 0.0, 4.0) == p.x)
{
if (clamp(p.y, 0.0, 4.0) == p.y)
{
int a = int(round(p.x) + 5.0 * round(p.y));
if (((n >> a) & 1) == 1) return 1.0;
}
}
return 0.0;
}

void mainImage( out vec4 fragColor, in vec2 fragCoord )

{

// create pixel coordinates
vec2 uv = fragCoord.xy / iResolution.xy;

// the sound texture is 512x2
int tx = int(uv.x*512.0);

// second row is the sound wave, one texel is one mono sample
float wave = texelFetch( iChannel0, ivec2(tx,1), 0 ).x;
vec2 pix = fragCoord.xy;
vec3 col = texture(iChannel0, floor(pix/8.0)*8.0/iResolution.xy).rgb;

float gray = 0.3 * col.r + 0.59 * col.g + 0.11 * col.b;

int n = 4096; // .
if (gray > 0.2) n = 65600; // :
if (gray > 0.3) n = 332772; // *
if (gray > 0.4) n = 15255086; // o
if (gray > 0.5) n = 23385164; // &
if (gray > 0.6) n = 15252014; // 8
if (gray > 0.7) n = 13199452; // @
if (gray > 0.8) n = 11512810; // #

vec2 p = mod(pix/4.0, 2.0) - vec2(1.0);

if (iMouse.z > 0.5) col = gray*vec3(character(n, p));
else col = col*character(n, p);

fragColor = vec4(col+ 1.0 - smoothstep( 0.0, 0.15, abs(wave - uv.y) ), 1.0);
}

OpenGL Shading Language - Water Mites Beta

#define PERIOD 2.
#define REPETITIONS 2

uniform float time;
uniform vec2 resolution;
uniform vec2 mouse;
uniform vec3 spectrum;

const float PI = 3.1415926535;

float box(in vec2 _st, in vec2 _size){
_size = vec2(0.5) - _size*0.5;
vec2 uv = smoothstep(_size,
_size+vec2(0.001),
_st);
uv *= smoothstep(_size,
_size+vec2(0.001),
vec2(1.0)-_st);
return uv.x*uv.y;
}

float cross(in vec2 _st, float _size){
return box(_st, vec2(_size,_size/4.)) +
box(_st, vec2(_size/4.,_size));
}

vec3 shadeBlob(vec2 p, float index, float value, float scale)
{
float screenRatio = resolution.x / resolution.y;
vec2 pc = vec2(0.1 + (screenRatio - 0.2) * value, index);

float d = length(pc - p) / 0.015*scale/0.3;

return vec3(3. * vec3(0.2, 0.5, 0.7) / (max(d * d, 1.)));
}

float step_interp(float x) {
return step(0.5, x);
}

float linear_interp(float x) {
float c = clamp(x, 0., 1.);

return c;
}

float cosine_interp(float x) {
float c = clamp(x, 0., 1.);

return 0.5 * (1. - cos(PI * c));
}

float smoothstep_interp(float x) {
// return smoothstep(0., 1., x);

float c = clamp(x, 0., 1.);

return c * c * (3. - 2. * c);
}

float quintic_interp(float x) {
float c = clamp(x, 0., 1.);

return c * c * c * ((6. * c - 15.) * c + 10.);
}

void main(void)
{
vec2 p = gl_FragCoord.xy / resolution.yy;
vec2 q = gl_FragCoord.xy / resolution.yy;

vec3 spec = .1+spectrum;

vec2 translate = vec2(cos(time),sin(time));
vec2 translate2 = vec2(sin(time),cos(time));
p += translate*0.35*sin(time);
q += translate2*1.35*sin(time);

float t = abs(2. * fract(time / PERIOD) - 1.);

vec3 col = vec3(0.0 + 0.000 * mod(floor(p.x * 10.0) + floor(p.y * 10.0), 2.0));
vec3 col2 = vec3(0.0 + 0.000 * mod(floor(q.y * 5.0) + floor(q.x * 5.0), 2.0));

col += shadeBlob(p, 0.1, smoothstep_interp(t)*spec.x+0.5, spec.x/0.1);
col2 += shadeBlob(q, 0.3+spec.z, linear_interp(t)*spec.y+0.5, spec.z);
col += shadeBlob(p, 0.5+spec.x, cosine_interp(t)*spec.z+0.7, spec.z/0.3);
col2 += shadeBlob(q, 0.7, smoothstep_interp(t)*spec.z+0.1, spec.x/0.6);
col += shadeBlob(p, 0.9-spec.y, quintic_interp(t)*spec.z+0.3, spec.z/0.9);

col = pow(col, vec3(0.45));
col2 = pow(col2, vec3(0.45));

gl_FragColor = vec4(col+col2, 1.0);
}

OpenGL Shading Language - Live Shader

#ifdef GL_ES
precision mediump float;
#endif

uniform vec2 resolution;
uniform vec2 mouse;
uniform vec3 spectrum;
uniform float time;

// Plot a line on Y using a value between 0.0-1.0
float plot(vec2 st, float pct){
return smoothstep( pct-0.01, pct, st.y) -
smoothstep( pct, pct+0.01, st.y);
}

void main() {
vec2 st = gl_FragCoord.xy/resolution;

float y = st.x;

vec3 color = vec3(0,0,0);
vec3 spec = spectrum*27.0;

// Plot a line
float pct = plot(st,spec.x);

color = (1.0-pct)*color+pct*vec3(0,1,1);

gl_FragColor = vec4(color,1.0);
}

------- Parabola

#ifdef GL_ES
precision mediump float;
#endif

#define PI 3.14159265359

uniform vec2 resolution;
uniform vec2 mouse;
uniform vec3 spectrum;
uniform float time;

// Plot a line on Y using a value between 0.0-1.0
float plot(vec2 st, float pct){
return smoothstep( pct-0.01, pct, st.y) -
smoothstep( pct, pct+0.01, st.y);
}

float impulse( float k, float x )
{
float h = k*x;
return h*exp(1.0-h);
}

float parabola( float x, float k )
{
return pow( 4.0*x*(1.0-x), k );
}

void main() {
vec2 st = gl_FragCoord.xy/resolution;

float y=parabola(st.x,2.0);

vec3 color = vec3(0,0,0);
vec3 spec = .1+spectrum;

// Plot a line
float pct = plot(st*spec.x,y*spec.y);

color = (1.0-pct)*color+pct*vec3(0.3,0.3,0.3);

gl_FragColor = vec4(color,1.0);

}

MR.REBOP

Pages

GLSL + SuperCollider :: REBOP

GLSL - ASCII Music

OpenGL Shading Language - 71337 Water Mites

OpenGL Shading Language - Water Mites Beta

OpenGL Shading Language - Live Shader

Visualizzazioni totali

Informazioni personali

Archivio blog