Sorry your browser is not supported!

function Media_MergeImage(imageOne, imageTwo)
   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
   Delete Image imageOne
   make image from memblock ImageOne,Memblock3
   delete memblock Memblock1
   delete memblock Memblock2
   delete memblock Memblock3
endfunction

DARKSDK LPDIRECT3DTEXTURE9 MakeFormat ( int iID, int iWidth, int iHeight, D3DFORMAT d3dformat, DWORD dwUsage )
{
	// make a new image
	// mike : can specify iID of -1 which means image is added to list (internal use only)

	// variable declarations
	tagData*	test = NULL;		// pointer to data structure
	HRESULT		hr;					// used for error checking
	
	// create a new block of memory
	test = new tagData;
	memset(test, 0, sizeof(tagData));

	// check the memory was created
	if ( test == NULL )
		return NULL;

	// clear out the memory
	memset ( test, 0, sizeof ( tagData ) );

	D3DPOOL dwPool = D3DPOOL_MANAGED;
	if ( dwUsage!=0 ) dwPool=D3DPOOL_DEFAULT;

	// create a new texture
	hr = D3DXCreateTexture ( 
							  m_pD3D,
							  iWidth,
							  iHeight,
							  1,
							  dwUsage,
							  d3dformat,
							  dwPool,
							  &test->lpTexture
					       );

	if ( FAILED ( hr ) )
	{
		Error ( "Failed to create new image" );
		return NULL;
	}

	// setup properties
	test->iHeight = iHeight;		// store the width
	test->iWidth  = iWidth;		// store the height
	test->iDepth  = GetBitDepthFromFormat ( d3dformat );
	test->bLocked = false;			// set locked to false

	// get actual dimensions of texture/image
	D3DSURFACE_DESC imageddsd;
	test->lpTexture->GetLevelDesc(0, &imageddsd);
//	test->fTexUMax=(float)((double)test->iWidth/(double)imageddsd.Width);
//	test->fTexVMax=(float)((double)test->iHeight/(double)imageddsd.Height);
	test->fTexUMax=(float)test->iWidth/(float)imageddsd.Width;
	test->fTexVMax=(float)test->iHeight/(float)imageddsd.Height;

	// Ensure smalltextres are handled
	if(test->fTexUMax>1.0f) test->fTexUMax=1.0f;
	if(test->fTexVMax>1.0f) test->fTexVMax=1.0f;

	// add to the list
	m_List.Add ( iID, ( VOID* ) test, 0, 1 );

	// ensure sprites all updated
	g_Update_All_Sprites();

	return test->lpTexture;
}

open imageblock "image.blk", 0 `write mode
exclude from imageblock "false_data" `for this to work we have to exclude something after opening the imageblock in write mode
`note that when we create a image block we can use the same image id for all images
load image "cubeface.bmp", 1
load image "cubeface2.bmp", 1
close imageblock

print "Imageblock created. Press any key to exit."

wait key

open imageblock "image.blk", 1 ` read mode
load image "cubeface.bmp", 1
load image "cubeface2.bmp", 2
close imageblock

paste image 1, 0, 32
paste image 2, 128, 32

print "Press any key to exit."
wait key