TheGameCreators - CodeBase - Join Two Images

Return to the CodeBase listing

Category: Functions

Version: 1.0

Information

Uploaded: 8th Sep 2016 01:23

Modified: 8th Sep 2016 01:25

Author: ShaunRW

Summary

Two functions to join two images together: Vertically and Horizontally.

Full Description

Two functions to join two images together: Vertically and Horizontally. The two functions are JoinImageVertical( TopImageID, BottomImageID ) and JoinImageHorizontal( LeftImageID, RightImageID ). When joining Vertically, both images should have the same width. And when joining Horizontally, both images should have the same height. This is to stop unwanted patterns showing up. This could be fixed by modifying the functions, but I didn't need to.

AGKV2 BASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

// Joins to image .

Function JoinImageVertical( TopImage as integer, BottomImage as integer )

// Define Variables

IntSize as integer

X as integer

Y as integer

Pixel as integer

NewImage as integer

NewMemblock as integer

NewByteSize as integer

NewWidth as integer

NewHeight as integer

NewDepth as integer

NewOffset as integer

TopMemblock as integer

TopWidth as integer

TopHeight as integer

TopOffset as integer

BottomMemblock as integer

BottomWidth as integer

BottomHeight as integer

BottomOffset as integer

// Setup reference variables

IntSize = 4

// Gather required data from the Top image

TopMemblock = CreateMemblockFromImage( TopImage )

TopWidth = GetImageWidth( TopImage )

TopHeight = GetImageHeight( TopImage )

TopOffset = 12

// Gather required data from the Bottom image

BottomMemblock = CreateMemblockFromImage( BottomImage )

BottomWidth = GetImageWidth( BottomImage )

BottomHeight = GetImageHeight( BottomImage )

BottomOffset = 12

// Setup New memblock for new image

NewByteSize = 12 + ((TopWidth*TopHeight)*IntSize) + ((BottomWidth*BottomHeight)*IntSize)

// Calculate new width

NewHeight = TopHeight+BottomHeight

// calculate new height

if(TopWidth > BottomWidth)

NewWidth = TopWidth

else

NewWidth = BottomWidth

endif

// Set depth

NewDepth = 32

// set first offset

NewOffset = 12

// Create the memblock and set header parameters

NewMemblock = CreateMemblock( NewByteSize )

SetMemblockInt( NewMemblock, 0*IntSize, NewWidth )

SetMemblockInt( NewMemblock, 1*IntSize, NewHeight )

SetMemblockInt( NewMemblock, 2*IntSize, NewDepth )

// Add the top image

for Y=1 to TopHeight

for X=1 to TopWidth

// get the pixel from the Top image

Pixel = GetMemblockInt( TopMemblock, TopOffset )

TopOffset = TopOffset + IntSize

// apply the pixel on new image

SetMemblockInt( NewMemblock, NewOffset, Pixel )

NewOffset = NewOffset + IntSize

Next X

next Y

// Add the bottom image

for Y=1 to BottomHeight

for X=1 to BottomWidth

// get the pixel from the Bottom image

Pixel = GetMemblockInt( BottomMemblock, BottomOffset )

BottomOffset = BottomOffset + IntSize

// apply the pixel on new image

SetMemblockInt( NewMemblock, NewOffset, Pixel )

NewOffset = NewOffset + IntSize

Next X

next Y

// Create an image from the new memblock

NewImage = CreateImageFromMemblock( NewMemblock )

EndFunction NewImage

// Joins to image side by side.

Function JoinImageHorizontal( LeftImage as integer, RightImage as integer )

// Define Variables

IntSize as integer

X as integer

Y as integer

Pixel as integer

NewImage as integer

NewMemblock as integer

NewByteSize as integer

NewWidth as integer

NewHeight as integer

NewDepth as integer

NewOffset as integer

LeftMemblock as integer

LeftWidth as integer

LeftHeight as integer

LeftOffset as integer

RightMemblock as integer

RightWidth as integer

RightHeight as integer

RightOffset as integer

// Setup reference variables

IntSize = 4

// Gather required data from the left image

LeftMemblock = CreateMemblockFromImage( LeftImage )

LeftWidth = GetImageWidth( LeftImage )

LeftHeight = GetImageHeight( LeftImage )

LeftOffset = 12

// Gather required data from the right image

RightMemblock = CreateMemblockFromImage( RightImage )

RightWidth = GetImageWidth( RightImage )

RightHeight = GetImageHeight( RightImage )

RightOffset = 12

// Setup New memblock for new image

NewByteSize = 12 + ((LeftWidth*LeftHeight)*IntSize) + ((RightWidth*RightHeight)*IntSize)

// Calculate new width

NewWidth = LeftWidth+RightWidth

// calculate new height

if(LeftHeight > RightHeight)

NewHeight = LeftHeight

else

NewHeight = RightHeight

endif

// Set depth

NewDepth = 32

// set first offset

NewOffset = 3*IntSize

// Create the memblock and set header parameters

NewMemblock = CreateMemblock( NewByteSize )

SetMemblockInt( NewMemblock, 0*IntSize, NewWidth )

SetMemblockInt( NewMemblock, 1*IntSize, NewHeight )

SetMemblockInt( NewMemblock, 2*IntSize, NewDepth )

// Join the 2 memblocks together

for Y=1 to NewHeight

// Add Row from the left image

for X=1 to LeftWidth

// get the pixel from the left image

Pixel = GetMemblockInt( LeftMemblock, LeftOffset )

LeftOffset = LeftOffset + IntSize

// apply the pixel on new image

SetMemblockInt( NewMemblock, NewOffset, Pixel )

NewOffset = NewOffset + IntSize

Next X

// Add Row from the right image

for X=1 to RightWidth

// get the pixel from the right image

Pixel = GetMemblockInt( RightMemblock, RightOffset )

RightOffset = RightOffset + IntSize

// apply the pixel on new image

SetMemblockInt( NewMemblock, NewOffset, Pixel )

NewOffset = NewOffset + IntSize

Next X

next Y

// Create an image from the new memblock

NewImage = CreateImageFromMemblock( NewMemblock )

EndFunction NewImage

Download

Please login to download

Comments

No comments yet.

Author Name:	ShaunRW
CodeBase Entries:	2

CodeBase - Join Two Images

Information

Summary

Full Description

AGKV2 BASIC Source Code

Download

Screen Shot

Author

Comments