Sorry your browser is not supported!

technique MyTechnique {
     pass p0     {
         VertexShader = null;
         PixelShader = compile ps_2_0 EffectProcess();
     }
 }

string Description = "This shader takes two textures and blends them by the blend factor, then tints the output with a diffuse color";
string Thumbnail = "BlendShader.png";

float4x4 WorldViewProj : WorldViewProjection;

float4 diffuse
<
	string SasUIControl = "color picker";
> = {1.0,1.0,1.0,0.0};

float blend 
<
	string SasUIControl = "slider";
	float SasUIMax = 1.0;
	float SasUIMin = 0.0;
	float SasUIStep = 0.01;
> = 0.5;

texture Texture1 
< 
	string ResourceName = ""; 
>;

sampler texture1 = sampler_state
{
	Texture = <Texture1>;
	MinFilter = Linear; MagFilter = Linear; MipFilter = Linear;
	AddressU = Wrap; AddressV = Wrap;
};

struct app_in
{
	float4 pos : POSITION;
	float2 uv : TEXCOORD0;
};

struct vs_out
{
	float4 pos : POSITION;
	float2 uv : TEXCOORD0;
};

float4 BlendPS( vs_out IN ) : COLOR
{
	return diffuse * tex2D( texture1, IN.uv )*float4 (0.0, 0.0, 1.0, 1.0);
}

technique MyShader
{
	pass p0
	{
		VertexShader = null;
		PixelShader = compile ps_2_0 BlendPS( );
	}
}

Function makePerlinWithGPU(seed, startingRes, totalOctaves, sampling)
    
    Randomize Seed
    Local color as Dword
    
    //Generate a single noise function at the highest resolution
    
       memblockID  = memperlin
       if bitmap exist(1) then delete bitmap 1
       create bitmap 1, startingres, startingres
       make memblock from bitmap memblockID, 1

       for x = 0 to startingres-1
           for y = 0 to startingres-1
               r=rnd(255)
               color = rgb(r,r,r)
               Write Memblock Dword memblockID, 12+(x + y*startingres)*4, color
           next
       next
       
       make image from memblock memperlin, memblockID
       save image "perlinnoiseIN.bmp", memperlin

       //Create camera effect using shader and export to image       
       make camera 1
       if camera effect exist(2) then delete camera effect 2
       load camera effect "shaders\perlinnoisePS.fx", 2, memperlin
       set camera effect 1, 2, memperlin+1     
       sync camera 1
       remove camera effect 2
       delete camera 1
       
       save image "perlinnoiseOUT.bmp", memperlin+1 
 
    
ENDFUNCTION

//Generates Perlin Noise

texture inputTexture : RENDERCOLORTARGET
< 
	string ResourceName = "";
	float2 ViewportRatio = { 1.0, 1.0 };
>;

sampler2D inputTextureSample = sampler_state {
    Texture = < inputTexture >;
    MinFilter = Linear; 
    MagFilter = Linear; 
    MipFilter = Linear;
    AddressU = Wrap; 
    AddressV = Wrap;
};


struct inputData
{    
    float4 Position         : POSITION;
    float2 TextureCoords    : TEXCOORD0;
};

struct outputData
{    
    float4 Position         : POSITION;
    float2 TextureCoords    : TEXCOORD0;
};


//Vertex Shader passes on data to pixel shader
outputData PerlinVS(inputData IN)
{    
    outputData OUT;
    
    OUT.Position = IN.Position;
    OUT.TextureCoords = IN.TextureCoords;
    
    return OUT;    
}

//Pixel Shader combines weighted and scaled interpolated (smoothed) versions of texture

float4 PerlinPS(outputData IN, uniform sampler2D srcTex): COLOR
{   
    
    float4 perlin = tex2D(srcTex, (IN.TextureCoords))/2;
    perlin += tex2D(srcTex, (IN.TextureCoords)*2)/4;
    perlin += tex2D(srcTex, (IN.TextureCoords)*4)/8;
    perlin += tex2D(srcTex, (IN.TextureCoords)*8)/16;
    perlin += tex2D(srcTex, (IN.TextureCoords)*16)/32;
    perlin += tex2D(srcTex, (IN.TextureCoords)*32)/32;

    return perlin;   
}


technique PerlinNoise
<
    //specify the starting image where the original scene will be drawn
    string RenderColorTarget = "inputTexture";
>
{


    //Out texture creatured by pass
    pass Pass0 	<
		//blank target indicates this is the final pass and should be drawn to the final results image
		string RenderColorTarget = "";
	>
    {

	// Setup render states
	ZWriteEnable     = FALSE;
	ZEnable          = FALSE;
	AlphaBlendEnable = FALSE;

        VertexShader = compile vs_2_0 PerlinVS();
        PixelShader = compile ps_2_0 PerlinPS( inputTextureSample );
    }
}

DBProFloat# = Get Effect Parameter Float Value("GlobalShaderFloat")