#################################################
### 'stsbdbym' => ###
### ###
### 'Space-Time Singularity Beauty disturbed ###
### by yapping Mother-in-law' ###
### ###
### a 128 byte intro with pc speaker sound by ###
### Kuemmel for Outline 2017 ###
#################################################
| |
| ..."I am such a perfect & beautiful space-time|
| singularity, but those visits of my yapping |
| mother-in-law get onto my nerves like hell" |
| |
| - runs on DOSBox (best at 40000 cycles) |
| - assembles with Flat Assembler |
| |
| A quick port of an idea derived from a |
| GLSL shader code (See file 'shader_code'). |
| Then some bytes were left and I thought to |
| exploit Hellmood's pc speaker usage |
| introduction on www.sizecoding.org. |
| That gave some funny sounds and I chose a |
| product title that would make some sense out |
| of that ;-) ...äh...kind of... |
| |
| Sorry for no double buffering or vsync and |
| some other dirty tricks which may prevent it |
| to run on real hardware. The cycle setting at |
| 40000 is the only thing to be set in the |
| DOSBox settings. |
| |
| Cheers, |
| |
| Kuemmel |
| |
| Special thanks to HellMood and Sensenstahl |
| for continuous support and greetings to all |
| the others in the tiny intro coder world ! |
| |
#################################################
### e-mail: michael.kuebel@googlemail.com ###
### web...: www.mikusite.de ###
#################################################
Try at http://glslsandbox.com
#ifdef GL_ES
precision highp float;
#endif
uniform float time;
uniform vec2 resolution;
void main( void ) {
vec2 p = (gl_FragCoord.xy*2.0-resolution)/resolution.y;
float r = sqrt(dot(p,p));
float a = atan(p.y,p.x);
float s = sin(time*.2)*4.+sin(12.*a);
float c = abs(sin(r*s));
gl_FragColor = vec4(c);
}