Sorry your browser is not supported!

CurrentAlpha# = 1.0
IK Set Image Brightness Image01, 1.0, 1.0, 1.0, 1.0
IK Paste Image On Image Image01, Final, 0, 0

IK Set Image Brightness Image02, 1.0, 1.0, 1.0, Clamp#( CurrentAlpha#, 0.0, 1.0 )
IK Paste Image On Image Image02, Final, 0, 0

IK Set Image Brightness Image03, 1.0, 1.0, 1.0, Clamp#( CurrentAlpha# - 1.0, 0.0, 1.0 )
IK Paste Image On Image Image03, Final, 0, 0

Paste Image Final, 0, 0 : ` This is just an example.
End
Function Clamp#( Value#, Minimum#, Maximum# )
   If Value# < Minimum# Then Value# = Minimum#
   If Value# > Maximum# Then Value# = Maximum#
EndFunction Value#

`Mages method to merge images.
function Media_MergeImage(imageOne, imageTwo, FinalImage, alphaTwo#)
   If imageOne < 1 then ExitFunction
   If Image Exist(imageOne) = 0 then ExitFunction
   If imageTwo < 1 then ExitFunction
   If Image Exist(imageTwo) = 0 then ExitFunction

   `Find unused memblocks
   Memblock1 = 1
   repeat
      inc Memblock1
   until memblock exist(Memblock1) = 0
   Memblock2 = 2
   repeat
      inc Memblock2
   until memblock exist(Memblock2) = 0

   Memblock3 = 3
   repeat
      inc Memblock3
   until memblock exist(Memblock3) = 0

  `Set up variables
   Width as Dword
   Height as Dword
   Depth as Dword
   Red as Byte
   Green as Byte
   Blue as Byte
   Alpha as Byte

   `Do it!
   make memblock from image Memblock1, imageOne
   Width = memblock dword(Memblock1,0)
   Height = memblock dword(Memblock1,4)
   Depth = memblock dword(Memblock1,8)
   make memblock from image Memblock2, imageTwo
   Width2 = memblock dword(Memblock2,0)
   Height2 = memblock dword(Memblock2,4)
   Make Memblock Memblock3, GET MEMBLOCK SIZE(Memblock1)

   If Width = 0 then ExitFunction
   If Width2 = 0 then ExitFunction
   If Height = 0 then ExitFunction
   If Height2 = 0 then ExitFunction

   w1# = Width
   w2# = Width2
   h1# = Height
   h2# = Height2

   xMod# = w2# / w1#
   yMod# = h2# / h1#

   Position = 12 `skip header
   
   `Copy The header off of Image one onto the final Image.
   For i = 0 to Position
       write memblock Dword Memblock3, i, memblock byte(Memblock1, i)
   Next i
   
   mCounter = 1
   for y = 1 to Height `Height
      for x = 1 to Width`Width
            xPos = (x * xMod#)
            yPos = (y * yMod#)
            If xPos > Width2 then xPos = Width2
            If yPos > Height2 then yPos = Height2
            If xPos < 1 then xPos = 1
            If yPos < 1 then yPos = 1
                        
            mPosition = int((((yPos - 1) * Width2) * 4) + ((xPos - 1) * 4) + 12)
            
            
            Alpha = memblock byte(Memblock1, Position+3)
            Blue = memblock byte(Memblock1,Position)
            Green = memblock byte(Memblock1,Position+1)
            Red = memblock byte(Memblock1,Position+2)

            oAlpha = memblock byte(Memblock2, mPosition+3)
            oBlue = memblock byte(Memblock2,mPosition)
            oGreen = memblock byte(Memblock2,mPosition+1)
            oRed = memblock byte(Memblock2,mPosition+2)
            
            oAlpha = Int(oAlpha * alphaTwo#)

            If oAlpha > 0
               Blue = Blue + ((oAlpha * (oBlue - Blue)) / 255.0)
               Green = Green + ((oAlpha * (oGreen - Green)) / 255.0)
               Red = Red + ((oAlpha * (oRed - Red)) / 255.0)
               Alpha = 255 `Alpha + oAlpha  `Override Alpha to be completely opaque
            EndIf

            newCol = (Alpha << 24) + (Red << 16) + (Green << 8) + Blue `//argb
            write memblock Dword Memblock3,Position, newCol
            inc Position,4
      next x
   next y
   
   make image from memblock FinalImage,Memblock3
   delete memblock Memblock1
   delete memblock Memblock2
   delete memblock Memblock3
endfunction

float4x4 WorldViewProjection : WorldViewProjection;
matrix World : World;   
float4 CameraPosition : CameraPosition;

float BlendAmount <
	string SasUIControl = "slider";
	float SasUIMax = 2.0;
	float SasUIMin = 0.0;
	float SasUIStep = 0.01;
> = 0.0f;

texture Layer1Tex <
	string Name = ""; 
	string Type = "Cube"; 
>;
texture Layer2Tex <
	string Name = ""; 
	string Type = "Cube"; 
>;
texture Layer3Tex <
	string Name = ""; 
	string Type = "Cube"; 
>;

samplerCUBE Layer1Samp = sampler_state
{
	Texture = (Layer1Tex);
	MinFilter = Linear;
	MagFilter = Linear;
	MipFilter = Linear;
	AddressU = Wrap; AddressV = Wrap;
};
samplerCUBE Layer2Samp = sampler_state
{
	Texture = (Layer2Tex);
	MinFilter = Linear;
	MagFilter = Linear;
	MipFilter = Linear;
	AddressU = Wrap;
	AddressV = Wrap;
};
samplerCUBE Layer3Samp = sampler_state
{
	Texture = (Layer3Tex);
	MinFilter = Linear;
	MagFilter = Linear;
	MipFilter = Linear;
	AddressU = Wrap;
	AddressV = Wrap;
};

struct app_in
{
	float4 pos : POSITION;
	float3 normal : NORMAL;	
};

struct vs_out
{
	float4 oPos : POSITION;
	float4 pos : TEXCOORD0;
	float3 normal : TEXCOORD1;
};

vs_out SkyBlend_VS(app_in IN)
{
	vs_out OUT;
	
	OUT.oPos = mul(IN.pos, WorldViewProjection); 
	float3 normal = mul(IN.normal, World);
	OUT.normal = normalize(normal);
	OUT.pos = mul(IN.pos, World); 
		
	return OUT;
}

float4 SkyBlend_PS(vs_out IN) : COLOR
{
	float3 dir = normalize(IN.pos.xyz - CameraPosition.xyz);
	if (blendAmount < 1.0f) {
		return lerp(texCUBE(Layer1Samp, dir), texCUBE(Layer2Samp, dir), blendAmount);
	}
	else {
		return lerp(texCUBE(Layer2Samp, dir), texCUBE(Layer3Samp, dir), blendAmount - 1.0f);
	}
}

technique SkyBlend
{
	pass p0
	{
		VertexShader = compile vs_2_0 SkyBlend_VS( );
		PixelShader = compile ps_2_0 SkyBlend_PS( );
	}
}

Set Effect Constant Float FX, "slider", Amount#

Function Media_MergeImage(imageOne, imageTwo, FinalImage, alphaTwo#)
    `Create Sprite For Image One
    Sprite imageOne, 0, 0, imageOne
    Hide Sprite imageOne
    
    `Create Sprite For Image Two and Tweak the alpha for blending.
    Sprite imageTwo, 0, 0, imageTwo
    Set Sprite Alpha imageTwo, Int(255 * alphaTwo#)
    Hide Sprite imageTwo
    
    `Stretch SpriteTwo To Fit Sprite One
    s1Width# = Image Width(imageOne)
    s2Width# = Image Width(imageTwo)
    s1Height# = Image Height(imageOne)
    s2Height# = Image Height(imageTwo)
    Stretch Sprite imageTwo, ceil(s1Width# / s2Width# * 100.0), ceil(s1Height# / s2Height# * 100.0)

    `Find an unused bitmap.
    bitmapNum = 50
    While Bitmap Exist(bitmapNum) = 1
        Inc bitmapNum
    EndWhile
    
    `Create the bitmap.    
    Create Bitmap bitmapNum, Image Width(imageOne), Image Height(imageOne)
    Set Current Bitmap bitmapNum
    
    `Merge the images onto the bitmap and extract a flattened image.
    Paste Sprite imageOne, 0, 0
    Paste Sprite imageTwo, 0, 0
    Get Image FinalImage, 0, 0, Image Width(imageOne), Image Height(imageOne)
    
    `Delete the sprites and bitmap.
    Set Current Bitmap 0
    Delete Sprite imageOne
    Delete Sprite imageTwo
    Delete Bitmap bitmapNum
EndFunction

Function Media_MergeSprite(imageOne, imageTwo, FinalImage, alphaTwo#)
    `Create Sprite For Image One
    Sprite imageOne, 0, 0, imageOne
    Hide Sprite imageOne
    
    `Create Sprite For Image Two and Tweak the alpha for blending.
    Sprite imageTwo, 0, 0, imageTwo
    Set Sprite Alpha imageTwo, Int(255 * alphaTwo#)
    Hide Sprite imageTwo
    
    `Stretch SpriteTwo To Fit Sprite One
    s1Width# = Image Width(imageOne)
    s2Width# = Image Width(imageTwo)
    s1Height# = Image Height(imageOne)
    s2Height# = Image Height(imageTwo)
    Stretch Sprite imageTwo, ceil(s1Width# / s2Width# * 100.0), ceil(s1Height# / s2Height# * 100.0)

    `Find an unused Camera.
    bitmapNum = 50
    While Camera Exist(bitmapNum) = 1
        Inc bitmapNum
    EndWhile
    `Create and link camera to output image
    Make Camera bitmapnum
    Set Camera To Image bitmapnum, FinalImage, Image Width(imageOne), Image Height(imageOne)
    
    `Set the bitmap.    
    Set Current Bitmap -1 * bitmapNum
    
    `Merge the images onto the bitmap and extract a flattened image.
    Paste Sprite imageOne, 0, 0
    Paste Sprite imageTwo, 0, 0
        
    `Delete the sprites and camera
    Set Current Bitmap 0
    Delete Camera 50
    Delete Sprite imageOne
    Delete Sprite imageTwo
EndFunction

   Set Camera Range 1.0, ( CamRange# * 6.0 )
   
   Set Ambient Light 0 : Color Light 0, RGB( 128, 128, 128 )

   Sky( 1 ).Object = GetBlankObjNo()
   Make Object Cube Sky( 1 ).Object, 125000.0
   Texture Object Sky( 1 ).Object, 0, LoadCubeImage( "./Media/Skys/" + Path$ + "/Overcast.dds" )

   If Engine.EnableShaders = 1
      Texture Object Sky( 1 ).Object, 1, LoadCubeImage( "./Media/Skys/" + Path$ + "/Middle.dds" )
      Texture Object Sky( 1 ).Object, 2, LoadCubeImage( "./Media/Skys/" + Path$ + "/Sunny.dds" )
      SkyEffect = GetBlankFXNo()
      Load Effect "./Media/Shaders/Skybox.fx", SkyEffect, 0, 1
      Set Object Effect Sky( 1 ).Object, SkyEffect
      Set Effect Constant Float SkyEffect, "BlendAmount", 0.5
   EndIf
   
   KD SetObjectAnisotropicFilteringOn Sky( 1 ).Object
   Set Object Light Sky( 1 ).Object, 0
   Set Object Fog Sky( 1 ).Object, 0
   Set Object Cull Sky( 1 ).Object, 0
   Set Object Transparency Sky( 1 ).Object, 0
   Set Object Texture Sky( 1 ).Object, 2, 0

float4x4 WorldViewProjection : WorldViewProjection;
matrix World : World;   
float4 CameraPosition : CameraPosition;

float BlendAmount <
	string SasUIControl = "slider";
	float SasUIMax = 2.0;
	float SasUIMin = 0.0;
	float SasUIStep = 0.01;
> = 0.0f;

texture Layer1Tex <
	string Name = ""; 
	string Type = "Cube"; 
>;
texture Layer2Tex <
	string Name = ""; 
	string Type = "Cube"; 
>;
texture Layer3Tex <
	string Name = ""; 
	string Type = "Cube"; 
>;

samplerCUBE Layer1Samp = sampler_state
{
	Texture = (Layer1Tex);
	MinFilter = Linear;
	MagFilter = Linear;
	MipFilter = Linear;
	AddressU = Wrap; AddressV = Wrap;
};
samplerCUBE Layer2Samp = sampler_state
{
	Texture = (Layer2Tex);
	MinFilter = Linear;
	MagFilter = Linear;
	MipFilter = Linear;
	AddressU = Wrap;
	AddressV = Wrap;
};
samplerCUBE Layer3Samp = sampler_state
{
	Texture = (Layer3Tex);
	MinFilter = Linear;
	MagFilter = Linear;
	MipFilter = Linear;
	AddressU = Wrap;
	AddressV = Wrap;
};

struct app_in
{
	float4 pos : POSITION;
	float3 normal : NORMAL;	
};

struct vs_out
{
	float4 oPos : POSITION;
	float4 pos : TEXCOORD0;
	float3 normal : TEXCOORD1;
};

vs_out SkyBlend_VS(app_in IN)
{
	vs_out OUT;
	
	OUT.oPos = mul(IN.pos, WorldViewProjection); 
	float3 normal = mul(IN.normal, World);
	OUT.normal = normalize(normal);
	OUT.pos = mul(IN.pos, World); 
		
	return OUT;
}

float4 SkyBlend_PS(vs_out IN) : COLOR
{
	float3 dir = normalize(IN.pos.xyz - CameraPosition.xyz);
	if (BlendAmount < 1.0f) {
		return lerp(texCUBE(Layer1Samp, dir), texCUBE(Layer2Samp, dir), BlendAmount);
	}
	else {
		return lerp(texCUBE(Layer2Samp, dir), texCUBE(Layer3Samp, dir), BlendAmount - 1.0f);
	}
}

technique SkyBlend
{
	pass p0
	{
		VertexShader = compile vs_2_0 SkyBlend_VS( );
		PixelShader = compile ps_2_0 SkyBlend_PS( );
	}
}

set display mode 1024, 768, 32
set window on
set window title "Sky blend test"

disable escapeKey

sync on
sync rate 60
sync

load effect "F:\Program Files\The Game Creators\Dark Shader\Data\Shaders\SkyBlend.dbs", 1, 0

load image "F:\Program Files\The Game Creators\Dark Shader\Data\Textures\Cube Maps\Alien.dds", 1, 2
load image "F:\Program Files\The Game Creators\Dark Shader\Data\Textures\Cube Maps\Canyon.dds", 2, 2
load image "F:\Program Files\The Game Creators\Dark Shader\Data\Textures\Cube Maps\Coast.dds", 3, 2

make object sphere 1, 100.0
scale object 1, -100.0, -100.0, -100.0
texture object 1, 0, 1
texture object 1, 1, 2
texture object 1, 2, 3
set object effect 1, 1

position camera 0.0, 0.0, 0.0
rotate camera 0.0, 0.0, 0.0

while (escapeKey() = 0)

    rotate camera camera angle x() + mouseMoveY(), camera angle y() + mouseMoveX(), 0.0

    set effect constant float 1, "BlendAmount", sin(timer() * 0.1) + 1.0

    sync

endWhile

end