paste small image into big image using memblocks

Author

Message

CJB

Valued Member

20

Years of Service

User Offline

Joined: 10th Feb 2004

Location: Essex, UK

Posted: 1st Dec 2015 23:21

Link

Does anyone have a function that will let you paste a small image into a larger image with an x/y offset using memblocks to allow for really big atlas textures to be created? I have hit the device dimension barrier using the GetImage method.

I'll start working on a solution and will post my function here unless someone beats me to it

Thanks!

V2 T1 (Mostly)
Phone Tap!
Uzmadesign

Back to top

Profile PM Email Website

CJB

Valued Member

20

Years of Service

User Offline

Joined: 10th Feb 2004

Location: Essex, UK

Posted: 2nd Dec 2015 00:35

Link

Okay! I have come up with the following 2 functions which fulfill my needs:

newimage = createblankimage(width,height)
newimage = pastetoimage(source, destination, x offset, y offset)

+ Code Snippet


function pastetoimage(sourceimage as integer, destimage as integer, xoffset as integer, yoffset as integer)
	newimageblock = creatememblockfromimage(destimage)
	smallimageblock = CreateMemblockFromImage(sourceimage)
	swidth = GetMemblockInt(smallimageblock, 0)
	sheight = GetMemblockInt(smallimageblock, 4)
	dwidth = GetMemblockInt(newimageblock,0)
	xoff=xoffset*4
	yoff=yoffset*dwidth*4
	for y = 0 to sheight-1
		dlin=dwidth*y*4
		CopyMemblock(smallimageblock,newimageblock,(y*swidth*4)+12,xoff+yoff+dlin+12,swidth*4)
	next y
	newimage = CreateImageFromMemblock(newimageblock)
	DeleteMemblock(newimageblock)
	Deletememblock(smallimageblock)
endfunction newimage

function createblankimage(swidth as integer, sheight as integer)
	newblock = CreateMemblock((swidth*sheight*4)+12)
	SetMemblockInt(newblock,0,swidth)
	Setmemblockint(newblock,4,sheight)
	SetMemblockInt(newblock,8,32)
	newimage = CreateImageFromMemblock(newblock)
	DeleteMemblock(newblock)
endfunction newimage

These will probably need a little optimisation and some checks to make sure we don't paste an image outside the area of the destination image. Feel free to use/change these if they are of any use to you.

V2 T1 (Mostly)
Phone Tap!
Uzmadesign

Back to top

Profile PM Email Website

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 24th Feb 2016 20:09

Link

That's great CJB

do you have to do anything else to get it to update with a background sprite with the new pasted images attached

+ Code Snippet

SetWindowTitle( "test" )
SetWindowSize( 480, 320, 0 )
SetVirtualResolution(480,320)
SetOrientationAllowed( 0,0, 1, 1 ) 
Loadimage (1,"1.png")
LoadImage (2,"2.png")
createSprite(1,1)
pastetoimage(2,1,250,0)

do
 

 Sync ()
loop
end

//functions same as yours above

fubar

Back to top

Profile PM Email Website

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 24th Feb 2016 21:45

Link

Oh I got that working now CJB thanks

Quote: "(4 am coding is bad for you lol that's why I do it)"

but I'm trying to convert some old dbpro code of mine that pastes allot of different images to the background (ie cards)
now I don't want sprites for everyone hence why I went looking for pasting abilities

but the problem is when I use your great pasttoimage function it only seems to show the first newimage and not the other pasted images

thinking it might be a syncing issue but when I went crazy with syncing it never seemed to help

there must be something I'm missing

+ Code Snippet

newimage=pastetoimage(cards[count].number,newimage,3,25)
   SetSpriteImage(10,newimage):render()


later down the code

newimage=pastetoimage(cards[count].number,newimage,3,501)
   SetSpriteImage(10,newimage):render()

fubar

Back to top

Profile PM Email Website

CJB

Valued Member

20

Years of Service

User Offline

Joined: 10th Feb 2004

Location: Essex, UK

Posted: 24th Feb 2016 22:38

Link

I''m guessing it's something to do with the pastetoimage function creating a new image rather than updating the image passed to it... Try using a new newimage later down the code (i.e. newimage2 = etc... then SetSpriteImage(10,newimage2)).

V2 T1 (Mostly)
Phone Tap!
Uzmadesign

Back to top

Profile PM Email Website

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 25th Feb 2016 13:23

Link

Thanks CJB you are a legend
I seriously have to learn to use memblocks

+ Code Snippet

destimage=5
loadimage (1,"FeltTable4.png")
loadimage (destimage,"FeltTable4.png")




//can use the following as many times as i want now, changing new image to what i desire etc
destimage=pastetoimage(imagetopaste,destimage,3,25) 
SetSpriteImage(10,destimage):sync()

//etc
destimage=pastetoimage(imagetopaste,destimage,3,25) 
SetSpriteImage(10,destimage):sync()



//to restore the image i do this
destimage=pastetoimage(1,destimage,0,0)
SetSpriteImage(10,destimage):sync()

it was an update thing, I'm using sync() way too much but il fix that later if I can
but just wanted to post its working and my program is pretty much done aswell
but I need to do some resizing as its quite small just cosmetics, I am working in the
virtual resolution 800 * 600 as that's the resolution I used to use in old dbpro programs
and the c version for compatability but my other phone apps I did I used 480 by 320

fubar

Back to top

Profile PM Email Website

BatVink

Moderator

21

Years of Service

User Offline

Joined: 4th Apr 2003

Location: Gods own County, UK

Posted: 26th Feb 2016 08:45

Link

nice snippet, thanks!

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Quidquid latine dictum sit, altum sonatur
TutCity is being rebuilt

Back to top

Profile PM Email

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 27th Feb 2016 20:05

Link

When pasting an image onto another, remember to preserve transparency. If you copy it over bit by bit, you could erase potentially visible data.

"I like offending people, because I think people who get offended should be offended." - Linus Torvalds

Back to top

Profile PM Email Website

CJB

Valued Member

20

Years of Service

User Offline

Joined: 10th Feb 2004

Location: Essex, UK

Posted: 28th Feb 2016 10:27

Link

Quote: "When pasting an image onto another, remember to preserve transparency. If you copy it over bit by bit, you could erase potentially visible data."

Agreed. There's probably lots of tweaks and improvements to be made to those functions. I only built them for one purpose: to paste tiles of images into a larger image in order create an atlas image. If you make any improvements, please post 'em here

V2 T1 (Mostly)
Phone Tap!
Uzmadesign

Back to top

Profile PM Email Website

Sorry your browser is not supported!

AppGameKit Classic Chat / paste small image into big image using memblocks