Free Code - Image Joiner - GameCreators Forum

Author

Message

baxslash

Valued Member

Bronze Codemaster

17

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 23rd Mar 2013 23:03 Edited at: 24th Mar 2013 23:14

Link

This is some memblock code I haven't fully tested yet but I'm going to use it for spritesheet creation in my Character Workshop.

All it does it join 2 images together either horizontally or vertically into one image. I haven't tested it much but it seems to work and I'll share any future fixes too

EDIT: code updated

function joinImages(img1,img2,Hor)
    rem turn first image into memblock
    mem1 = createMemblockFromImage(img1)
    w1   = GetMemblockByte(mem1,0)+GetMemblockByte(mem1,1)*256
    h1   = GetMemblockByte(mem1,4)+GetMemblockByte(mem1,5)*256
    d1   = GetMemblockByte(mem1,8)
    s1   = GetMemblockSize(mem1)
    
    rem turn second image into memblock
    mem2 = createMemblockFromImage(img2)
    w2   = GetMemblockByte(mem2,0)+GetMemblockByte(mem2,1)*256
    h2   = GetMemblockByte(mem2,4)+GetMemblockByte(mem2,5)*256
    d2   = GetMemblockByte(mem2,8)
    s2   = GetMemblockSize(mem2)
    
    rem create a third memblock to store the final image
    if Hor>0
        mem3 = createMemblock(s1+s2-12)
        w3 = w1+w2
        h3 = h1
    else
        mem3 = createMemblock(s1+s2-12)
        w3 = w1
        h3 = h1+h2
    endif
    
    rem loop through and join the pixel data together
    rem save width and height
    setMemblockByte(mem3,0,mod(w3,256))
    setMemblockByte(mem3,1,w3/256)
    setMemblockByte(mem3,4,mod(h3,256))
    setMemblockByte(mem3,5,h3/256)
    for i=8 to 11
        rem save bit depth as image 1 bit depth
        setMemblockByte(mem3,i,GetMemblockbyte(mem1,i))
    next
    `transfer image data
    d1 = 11
    d2 = 11
    d3 = 11
    if Hor>0
        for y=1 to h1
            for x=1 to w1
                for p=0 to 3
                    inc d1
                    inc d3
                    SetMemblockByte(mem3,d3,GetMemblockByte(mem1,d1))
                next
            next
            for x=1 to w2
                for p=0 to 3
                    inc d2
                    inc d3
                    SetMemblockByte(mem3,d3,GetMemblockByte(mem2,d2))
                next
            next
        next
    else
        for y=1 to h1
            for x=1 to w1
                for p=0 to 3
                    inc d1
                    inc d3
                    SetMemblockByte(mem3,d3,GetMemblockByte(mem1,d1))
                next
            next
        next
        for y=1 to h2
            for x=1 to w2
                for p=0 to 3
                    inc d2
                    inc d3
                    SetMemblockByte(mem3,d3,GetMemblockByte(mem2,d2))
                next
            next
        next
    endif
    
    rem create combined image
    img3 = CreateImageFromMemblock(mem3)
    
    deleteMemblock(mem1)
    deleteMemblock(mem2)
    deleteMemblock(mem3)
endfunction img3

+ Code Snippet

function joinImages(img1,img2,Hor)
    rem turn first image into memblock
    mem1 = createMemblockFromImage(img1)
    w1   = GetMemblockByte(mem1,0)+GetMemblockByte(mem1,1)*256
    h1   = GetMemblockByte(mem1,4)+GetMemblockByte(mem1,5)*256
    d1   = GetMemblockByte(mem1,8)
    s1   = GetMemblockSize(mem1)
    
    rem turn second image into memblock
    mem2 = createMemblockFromImage(img2)
    w2   = GetMemblockByte(mem2,0)+GetMemblockByte(mem2,1)*256
    h2   = GetMemblockByte(mem2,4)+GetMemblockByte(mem2,5)*256
    d2   = GetMemblockByte(mem2,8)
    s2   = GetMemblockSize(mem2)
    
    rem create a third memblock to store the final image
    if Hor>0
        mem3 = createMemblock(s1+s2-12)
        w3 = w1+w2
        h3 = h1
    else
        mem3 = createMemblock(s1+s2-12)
        w3 = w1
        h3 = h1+h2
    endif
    
    rem loop through and join the pixel data together
    rem save width and height
    setMemblockByte(mem3,0,mod(w3,256))
    setMemblockByte(mem3,1,w3/256)
    setMemblockByte(mem3,4,mod(h3,256))
    setMemblockByte(mem3,5,h3/256)
    for i=8 to 11
        rem save bit depth as image 1 bit depth
        setMemblockByte(mem3,i,GetMemblockbyte(mem1,i))
    next
    `transfer image data
    d1 = 11
    d2 = 11
    d3 = 11
    if Hor>0
        for y=1 to h1
            for x=1 to w1
                for p=0 to 3
                    inc d1
                    inc d3
                    SetMemblockByte(mem3,d3,GetMemblockByte(mem1,d1))
                next
            next
            for x=1 to w2
                for p=0 to 3
                    inc d2
                    inc d3
                    SetMemblockByte(mem3,d3,GetMemblockByte(mem2,d2))
                next
            next
        next
    else
        for y=1 to h1
            for x=1 to w1
                for p=0 to 3
                    inc d1
                    inc d3
                    SetMemblockByte(mem3,d3,GetMemblockByte(mem1,d1))
                next
            next
        next
        for y=1 to h2
            for x=1 to w2
                for p=0 to 3
                    inc d2
                    inc d3
                    SetMemblockByte(mem3,d3,GetMemblockByte(mem2,d2))
                next
            next
        next
    endif
    
    rem create combined image
    img3 = CreateImageFromMemblock(mem3)
    
    deleteMemblock(mem1)
    deleteMemblock(mem2)
    deleteMemblock(mem3)
endfunction img3

this.mess = abs(sin(times#))

Back to top

Profile PM Email

Lucas Tiridath

AGK Developer

16

Years of Service

User Offline

Joined: 28th Sep 2008

Location: Kings Langley, UK

Posted: 24th Mar 2013 16:53

Link

Hey baxslash, thanks for sharing this. Looks like a handy bit of code and the kind of thing that would send me cross eyed writing!

Hope that means your character workshop is going well too. That was looking great last time I checked it out.

Back to top

Profile PM Email Website

baxslash

Valued Member

Bronze Codemaster

17

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 24th Mar 2013 21:09

Link

Thanks Lucas!

Well I'm trying to make a simple set of functions for creating spritesheets from a set of images. The Character Workshop now produces a set of power of two sized frames from any animation so using this I should be able to knock up a spritesheet pretty easily when I get time. I've made a huge set of code for the character workshop for my current project that will take a heck of a lot of time to make completely useful to the general public so what I'm considering is making it a tool for making character spritesheets to start with and add the animation output when it's completely 'tidy'.

The tool is heavily in use now but I'd also like to make the UI much more friendly before putting it out there too.

this.mess = abs(sin(times#))

Back to top

Profile PM Email

baxslash

Valued Member

Bronze Codemaster

17

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 24th Mar 2013 23:12 Edited at: 24th Mar 2013 23:25

Link

Here is a spritesheet I just made using the image joining code which needed a slight adjustment. Really pleased with being able to make full spritesheets from my editor without any hard work positioning characters or using third party software to join images together. Once you've animated your character you just select the number of frames and it exports the current animation to a spritesheet that is power of 2 for each frame. It scales the character down to the highest possible power of 2 frame size automatically.

Original size 3072x3072

I can pretty much tart up the GUI and it will be a really useful tool for programmers like me who aren't great at art

this.mess = abs(sin(times#))

Attachments

Login to view attachments

Back to top

Profile PM Email

lilpissywilly

AGK Developer

14

Years of Service

User Offline

Joined: 10th Sep 2010

Location: Office Chair

Posted: 28th Mar 2013 20:01

Link

That would be useful. Good work.

All you need now is a spreadsheet of Garfield pouncing and thusly beating the living cr*p out of Odie!

My hovercraft is full of eels

Back to top

Profile PM Email Website

Sorry your browser is not supported!

AppGameKit Classic Chat / Free Code - Image Joiner

Attachments