`Create a new project then copy and paste this code. ( It will need the Kaliset.ps shader, in the media folder to run without error)

// Project: Pixel Shader turorial 1
// Created: 2015-01-05 by JammySoft

// set window properties
SetWindowTitle( "Pixel Shader turorial 1" )
SetWindowSize( 1024, 768, 0 )
SetSyncRate(0,0) ` this is unlimited frames per second

// set display properties
SetVirtualResolution( 1024, 768 )
`SetOrientationAllowed( 1, 1, 1, 1 )

` load a shader
` as we are using a sprite to display the shader we can work with pixel shaders and ignore vertex shaders at the moment.
Shader = LoadSpriteShader( "Kaliset.ps" )


` create a full screen sprite to apply the shader
CreateImageColor( 1, 255,0, 0,255 ) `this just creates an image of 1 pixel and colours it.

Sprite=CreateSprite(1) `make a sprite and call it sprite
SetSpritePositionByOffset(Sprite,0,0)

`assign the shader to the sprite.
SetSpriteShader( Sprite, Shader )
SetSpriteSize(Sprite,1024,768) ` make the sprite full screen

SetShaderConstantByName( Shader,"iResolution",1024,768,0,0 ) ` tell the shader the screen resolution
do
SetShaderConstantByName( Shader,"iGlobalTime",Timer()/2,0,0,0 ) `tell the shader what time it is - so it can update its animations
PrintC("F.P.S. = ")
Print( ScreenFPS() )
Sync()
loop

end

//Here is the shader code modified from an original tutorial that was here http://corbinpercy.com/2d-fractals-part-2-fractal-tutorial-using-shadertoy/ (Website unfortunately no longer active).

Copy this code into Notepad and save it as "Kaliset.ps" into your projects media folder.


uniform vec3 iResolution; // viewport resolution (in pixels)
uniform float iGlobalTime; // shader playback time (in seconds)
uniform float iChannelTime[10]; // channel playback time (in seconds)
uniform vec3 iChannelResolution[10]; // channel resolution (in pixels)
uniform vec4 iMouse; // mouse pixel coords. xy: current (if MLB down)
uniform sampler2D iTexture; // input channel 2D
uniform vec4 iDate; // (year, month, day, time in seconds)

const int iterations=12;

void main(void)
{
//this takes the pixel we are working with to determine where it is on the screen
vec2 z = gl_FragCoord.xy / iResolution.xy;

//fixes aspect ratio in favor of symmety. comment it and see what it looks like
z.y*=iResolution.y/iResolution.x;

//gloobywavez
z.x += sin(z.y*2.0+iGlobalTime * .2)/10.0;
//zooom
//z*= 1.2 + sin(iGlobalTime*.15);

//pan
// z+=vec2(sin(iGlobalTime*.2),cos(iGlobalTime*.01));

//rotate
//z=vec2(z.x*cos(iGlobalTime*.2)- z.y*sin(iGlobalTime*.2),z.y*cos(iGlobalTime*.2));

vec2 c=vec2(0.5, 1.1);

float average=0.;
float l=length(z);
float prevl;
for (int i=0; i<iterations; i++)
{
//kaliset base form
z=abs(z)/dot(z,z) -c;

//this is another function that can be iterated to produce some different fractals
//comment out the previous kaliset and experiment with values with this one!!
//z = abs(z)/(z.x*z.y)-c;

prevl=l;
l=length(z);

average+=abs(l-prevl);
}

//get the average length based upon the amount of iterations elapsed. multiply it to adjust "definition"
average/=float(iterations) * 15.;

//color fluctuation
average+=iGlobalTime*0.08;

vec3 myColor=vec3(0.2,0.21,.62);
vec3 finalColor;

//set the colors!
finalColor.r = (fract(float(average)/myColor.r));
finalColor.g = (fract(float(average)/myColor.g));
finalColor.b = (fract(float(average)/myColor.b));

gl_FragColor = vec4(finalColor,1.0);
}