Get image from another image? - GameCreators Forum

Author

Message

Goz3rr

16

Years of Service

User Offline

Joined: 27th Mar 2010

Location:

Posted: 30th Apr 2011 17:23 Edited at: 30th Apr 2011 17:26

Link

Basically, i got this 512x512 image that has 1024 16x16 squares on it.
Now what i want to do, is specify a size (1x1 = 16x16 pixels, some textures will be 32x32 instead of 16x16 so these have a size of 2x2 squares). And a number, where the first line is 0-15, second line is 16-31 etc. and i already got this code:

+ Code Snippet


global image = 8
id = FREE_IMAGE()
load image "terrain.png",id
make memblock from image 1,id

function FREE_IMAGE()
	repeat
	inc image
	until image exist(image) = 0
endfunction image

function LOAD_TEXTURE(num,xsize,ysize)
id = FREE_IMAGE()
make memblock 2,16*16*4+12
write memblock dword 2,0,xsize*16
write memblock dword 2,4,ysize*16
write memblock dword 2,8,32

for x = 1 to 16
	for y = 1 to 16
		
		rem Here it should read from the big image
		
		writelocation = ((y-1)*16 + x - 1)*4 + 12
		write memblock dword 2,writelocation,rgb(rnd(255),rnd(255),rnd(255))
	next y
next x

make image from memblock id,2
delete memblock 2
endfunction id

And then a texture would be created like:
dirt = LOAD_TEXTURE(0,1,1)
^ would load the first image, top left, in the file, dirt is the id of the image holding the texture

I've attached the terrain.png with 2 tiles filled in.

...

Back to top

Profile PM

Jimmy

22

Years of Service

User Offline

Joined: 20th Aug 2003

Location: Back in the USA

Posted: 30th Apr 2011 19:15

Link

I understand why you would want to use memblocks, and I almost went the same route until I saw that SvenB's Image Kit plugin has the IK Copy Image command, which, if you pass it the right parameters, allows you to copy just sections of an image, rather than the entire thing. It preserves transparency and is pretty fast to boot.

Example:

+ Code Snippet

Function CutImage(sourceImg, x, y, width, height)
    img = FreeImage(5001)
    IK Copy Image img, sourceImg, x, y, x+width, y+height
EndFunction img

May 10th / Geek Culture / Jerico2day-OBese87 / VOTE

Back to top

Profile PM Website

IanM

Retired Moderator

23

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 30th Apr 2011 19:33

Link

You can also do something similar with DBPro's rendering to images (although it's a little fiddly), or with my own plug-ins too, so there's lots of choice.

I used 32x32 images here simply so that I could fit the numbers entirely within a cell:

sync on
sync rate 0

cls rgb(255,0,0)

InitialImage()

paste image 1000, 0, 0

repeat
    sync
until scancode()

ox = -1
oy = -1
x = 0
y = 0
lastkey = 0

make image 1, 32, 32

do
    cls rgb(0, 0, 255)

if scancode()
        if lastkey <> scancode()
            lastkey = scancode()
            if leftkey() and x > 0 then dec x
            if rightkey() and x < 15 then inc x
            if upkey() and y > 0 then dec y
            if downkey() and y < 15 then inc y
    
            if ox <> x or oy <> y
                draw to image 1
                paste image 1000, x * -32, y * -32
                draw to bitmap 0
                ox = x
                oy = y
            endif
        endif
    else
        lastkey = 0
    endif

paste image 1, 0, 0

sync
loop

end

function InitialImage()
    create bitmap 1, 512, 512
    i = 0
    for y = 0 to 15
        for x = 0 to 15
            text x * 32, y * 32, str$(i)
            inc i
        next
    next
    
    get image 1000, 0, 0, 512, 512, 1
    
    delete bitmap 1
endfunction

+ Code Snippet

sync on
sync rate 0

cls rgb(255,0,0)

InitialImage()

paste image 1000, 0, 0

repeat
    sync
until scancode()

ox = -1
oy = -1
x = 0
y = 0
lastkey = 0

make image 1, 32, 32

do
    cls rgb(0, 0, 255)

    if scancode()
        if lastkey <> scancode()
            lastkey = scancode()
            if leftkey() and x > 0 then dec x
            if rightkey() and x < 15 then inc x
            if upkey() and y > 0 then dec y
            if downkey() and y < 15 then inc y
    
            if ox <> x or oy <> y
                draw to image 1
                paste image 1000, x * -32, y * -32
                draw to bitmap 0
                ox = x
                oy = y
            endif
        endif
    else
        lastkey = 0
    endif

    paste image 1, 0, 0

    sync
loop

end

function InitialImage()
    create bitmap 1, 512, 512
    i = 0
    for y = 0 to 15
        for x = 0 to 15
            text x * 32, y * 32, str$(i)
            inc i
        next
    next
    
    get image 1000, 0, 0, 512, 512, 1
    
    delete bitmap 1
endfunction

Get the latest Matrix1Utility plug-ins (20-APR-2011)

Back to top

Profile PM Email Website

Goz3rr

16

Years of Service

User Offline

Joined: 27th Mar 2010

Location:

Posted: 30th Apr 2011 19:47

Link

Thanks jimmy, i've been eager with non TGC plugins, but ill have a look into image kit as it definitely looks interesting!

Thanks for the snippet IanM, but it looks like that draws to the screen and then gets a part from it, and that is something i don't really want.

...

Back to top

Profile PM

IanM

Retired Moderator

23

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 30th Apr 2011 20:04

Link

If it looks like that, then you're reading the code incorrectly. The only place it's using GET IMAGE is when I build the numbered image - you'd replace that whole function with a single LOAD IMAGE command.

The important bits are the DRAW TO IMAGE, PASTE IMAGE, and then switching rendering back to the display with DRAW TO BITMAP - right in the centre of the code.

Get the latest Matrix1Utility plug-ins (20-APR-2011)

Back to top

Profile PM Email Website

Goz3rr

16

Years of Service

User Offline

Joined: 27th Mar 2010

Location:

Posted: 30th Apr 2011 20:31

Link

Oh, i knew (and saw) that there was such a draw to image command. My fault!

...

Back to top

Profile PM

Goz3rr

16

Years of Service

User Offline

Joined: 27th Mar 2010

Location:

Posted: 30th Apr 2011 20:36 Edited at: 30th Apr 2011 20:48

Link

Another problem, IK Copy image takes two points, the second will be just the first + size, the y of the first i got like:
if num < 15 then
y = 0
else if num < 31 then
y = 16
etc.

How would i get the x? :\

Edit: full code, probably could be done better with a for loop but whatever.

+ Code Snippet

function get_y(row)
if row < 16 then
num = 0
else if row < 32
num = 16
else if row < 48
num = 32
else if row < 64
num = 48
else if row < 80
num = 64
else if row < 96
num = 80
else if row < 112
num = 96
else if row < 128
num = 112
else if row < 144
num = 128
else if row < 160
num = 144
else if row < 176
num = 160
else if row < 192
num = 176
else if row < 208
num = 192
else if row < 224
num = 208
else if row < 240
num = 224
else
num = 240
endfunction num

This (should) return the y coord for a number. (Between 0 and 1024, the max tiles atm)

Edit: I'll just do the same for x i guess.. lol

...

Back to top

Profile PM

Jimmy

22

Years of Service

User Offline

Joined: 20th Aug 2003

Location: Back in the USA

Posted: 30th Apr 2011 21:02

Link

What I would do for that is a little math:

y = (num/16)*16

Because you're dividing integers, the compiler is going to round down for you. So if num is 14, it's going to calculate num/16 as 0. 20/16 is 1, and so on.

You can do the same thing with x.

Also, I decided to slap together an image cutting function using memblocks, just for fun

Check it oouuutttt:

+ Code Snippet

Function MemblockCutImage(img, x, y, w, h)
    mem = img
    Make Memblock From Image mem, img

    newMem = img+1
    Make Memblock newMem, w*h*4+12
    Write Memblock Dword newMem, 0, w
    Write Memblock Dword newMem, 4, h
    Write Memblock Dword newMem, 8, 32
    
    memPos = 12+(Image Width(img)*y*4+x*4)
    newMemPos = 12
    
    For i = 1 To w
        For j = 1 To h
            For k = 1 To 4
                Write Memblock Byte newMem, newMemPos, Memblock Byte(mem, memPos)
                Inc memPos
                Inc newMemPos
            Next k
        Next j
        Inc memPos, (Image Width(img)-w)*4
    Next i
    


    newImg = newMem
    Make Image From MemBlock newImg, newMem
    Delete Memblock newMem
    Delete Memblock mem
EndFunction newImg

May 10th / Geek Culture / Jerico2day-OBese87 / VOTE

Back to top

Profile PM Website

Goz3rr

16

Years of Service

User Offline

Joined: 27th Mar 2010

Location:

Posted: 30th Apr 2011 21:14

Link

Awesome snipped, once again!

...

Back to top

Profile PM

Goz3rr

16

Years of Service

User Offline

Joined: 27th Mar 2010

Location:

Posted: 30th Apr 2011 21:16

Link

But the y = (num/16)*16, that divides by 16, then multiplies, basically doing nothing... ?

...

Back to top

Profile PM

Jimmy

22

Years of Service

User Offline

Joined: 20th Aug 2003

Location: Back in the USA

Posted: 30th Apr 2011 21:23

Link

It would, except that it rounds down the division, so any number between 0 and 15 that gets divided by 16 is going to result in 0.

Ok, in the real world 14/16 is 0.875, which multiplied by 16 is 14 again, but when you jam 0.875 into the integer 'y' DBP is going to round it down to 0, because integers can't handle decimal values.

Does that make sense?

May 10th / Geek Culture / Jerico2day-OBese87 / VOTE

Back to top

Profile PM Website

Goz3rr

16

Years of Service

User Offline

Joined: 27th Mar 2010

Location:

Posted: 30th Apr 2011 21:27

Link

Why does 0.875 round to 0 instead of 1 (Normal logic..)

But if it does what you are saying, how would i use this for the x axis? 0 gives 0 with that formula, but 1 too which should be 16 for the x axis..

...

Back to top

Profile PM

IanM

Retired Moderator

23

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 30th Apr 2011 21:37

Link

Integer division always truncates the result, or in other words, it always throws away the remainder.

Get the latest Matrix1Utility plug-ins (20-APR-2011)

Back to top

Profile PM Email Website

Jimmy

22

Years of Service

User Offline

Joined: 20th Aug 2003

Location: Back in the USA

Posted: 30th Apr 2011 21:42

Link

I guess "rounding" is the wrong word to use. It's not so much rounding as it is ignoring everything after the decimal.

Is it not the same for the x-axis? x<16 = 0, x<32 = 1?

May 10th / Geek Culture / Jerico2day-OBese87 / VOTE

Back to top

Profile PM Website

Goz3rr

16

Years of Service

User Offline

Joined: 27th Mar 2010

Location:

Posted: 30th Apr 2011 21:48 Edited at: 30th Apr 2011 21:50

Link

0: x = 0
1: x = 16
2: x = 32
...
16: x = 0
etc.

Wait. Is there no make image?

Ill just create a blank image from a memblock..

...

Back to top

Profile PM

Jimmy

22

Years of Service

User Offline

Joined: 20th Aug 2003

Location: Back in the USA

Posted: 30th Apr 2011 21:54

Link

Make Image is one of IanM's commands from his matrix utils plugins.

May 10th / Geek Culture / Jerico2day-OBese87 / VOTE

Back to top

Profile PM Website

Goz3rr

16

Years of Service

User Offline

Joined: 27th Mar 2010

Location:

Posted: 30th Apr 2011 22:02

Link

Why does

load image "terrain.png",1
load image "blank.png",2
IK Copy image 2,1,x,y,x+xsize,y+ysize

Give a image not exist on the IK Copy image line>

...

Back to top

Profile PM

Jimmy

22

Years of Service

User Offline

Joined: 20th Aug 2003

Location: Back in the USA

Posted: 30th Apr 2011 22:03 Edited at: 30th Apr 2011 22:06

Link

As for your formula, it was a little tricky, but I got:

x = 16*(num Mod 16)

If you're unfamiliar with Mod, what it does is give you the remainder of the first number divided by the second, so 1 Mod 16 is 1, 24 Mod 16 is 8. No matter how high you go, num Mod 16 will always give you a number between 0 and 15.

Quote: "Why does

load image "terrain.png",1
load image "blank.png",2
IK Copy image 2,1,x,y,x+xsize,y+ysize

Give a image not exist on the IK Copy image line>
"

IK Copy Image creates a new image rather than actually copying to an existing one, so it's just complaining that image 2 already exists.

May 10th / Geek Culture / Jerico2day-OBese87 / VOTE

Back to top

Profile PM Website

Goz3rr

16

Years of Service

User Offline

Joined: 27th Mar 2010

Location:

Posted: 30th Apr 2011 22:04

Link

Yea, i know of modulus, its % in C++ but i couldnt find it for db

...

Back to top

Profile PM

Jimmy

22

Years of Service

User Offline

Joined: 20th Aug 2003

Location: Back in the USA

Posted: 30th Apr 2011 22:06

Link

Quote: "Yea, i know of modulus, its % in C++ but i couldnt find it for db "

Now u hav it

May 10th / Geek Culture / Jerico2day-OBese87 / VOTE

Back to top

Profile PM Website

Goz3rr

16

Years of Service

User Offline

Joined: 27th Mar 2010

Location:

Posted: 30th Apr 2011 22:07

Link

Any solution to the IK Copy thing? runtime error 502..

...

Back to top

Profile PM

Goz3rr

16

Years of Service

User Offline

Joined: 27th Mar 2010

Location:

Posted: 30th Apr 2011 22:09

Link

O shiz, didnt read reply that it makes a new image. Testing..

...

Back to top

Profile PM

Goz3rr

16

Years of Service

User Offline

Joined: 27th Mar 2010

Location:

Posted: 30th Apr 2011 22:10

Link

id = FREE_IMAGE()
IK Copy image id,1,x,y,x+xsize,y+ysize

Still gives a image doesn't exist.

...

Back to top

Profile PM

Goz3rr

16

Years of Service

User Offline

Joined: 27th Mar 2010

Location:

Posted: 30th Apr 2011 22:13

Link

Okay this really makes no sense, moving the load image into the function makes it work fine..

+ Code Snippet

function LOAD_TEXTURE(num,xsize,ysize)
id = FREE_IMAGE()
id2 = FREE_IMAGE()
x = get_x(num)
y = get_y(num)
load image "terrain.png",id2
IK Copy image id,id2,x,y,x+xsize,y+ysize
endfunction id

...

Back to top

Profile PM

Goz3rr

16

Years of Service

User Offline

Joined: 27th Mar 2010

Location:

Posted: 30th Apr 2011 22:13

Link

God i'm stupid, i did LOAD_TEXTURE before load image..

...

Back to top

Profile PM

Jimmy

22

Years of Service

User Offline

Joined: 20th Aug 2003

Location: Back in the USA

Posted: 30th Apr 2011 22:14

Link

That's strange... the only thing I could think is that maybe image 1 is empty? Dunno, tho

May 10th / Geek Culture / Jerico2day-OBese87 / VOTE

Back to top

Profile PM Website

Goz3rr

16

Years of Service

User Offline

Joined: 27th Mar 2010

Location:

Posted: 30th Apr 2011 22:16 Edited at: 30th Apr 2011 22:16

Link

I love you both guys <3

I'll give you credit if my game ever finishes.

@Jimmy: I called the custom LOAD_TEXTURE function before loading image 1.

...

Back to top

Profile PM

Jimmy

22

Years of Service

User Offline

Joined: 20th Aug 2003

Location: Back in the USA

Posted: 30th Apr 2011 22:21

Link

Yeah!

time!

May 10th / Geek Culture / Jerico2day-OBese87 / VOTE

Back to top

Profile PM Website

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Get image from another image?