TheGameCreators - CodeBase - Image and memblock

Return to the CodeBase listing

Category: Image

Version: 1.0

Information

Uploaded: 12th Mar 2004 09:15

Modified: 12th Mar 2004 09:22

Author: Dostej

Summary

This is the more advanced version of the image and memblock code. It has a flip, mirror and a scale command.

Full Description

While cleaning my HD I found this. It is nearly the same as other image and memblock.<br /> It is more advanced.<br /> Maybe s1 can make use of it.<br /> It is NOT a finished thing. It was Work_in_Progres and I stoped it and realize my image functions with PureBasic and made a dll out of it.<br /> So there are some german comments in it - sorry for that.

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

sync on

cls

remstart

global sw

global sh

global sw2

global sh2

global c

global c1

global c2

global t1

global t2

global t3

global t4

global sfx#

global sfy#

remend

t1 = timer()

`load image "c:darkbasictemptest1.jpg", 5

load bitmap "c:darkbasictemptest1.jpg", 5

t2 = timer()

MAKE MEMBLOCK FROM BITMAP 1, 5

t3 = timer()

make image 1, 1024, 768

t4 = timer()

lock image 1

` Fix it with random colours

for y=0 to get locked image height()-1

Addr = get locked image pointer() + (y * get locked image pitch())

for x=0 to get locked image width()-1

*Addr = rgb(rnd(255), rnd(255), rnd(255))

inc Addr, 4

next x

next y

unlock image

t5 = timer()

`copy bitmap 5, 0

paste image 1, 100, 40

set current bitmap 0

ink RGB(255,255,255), 1

set cursor 1, 1

print "time1/2: ";t2-t1

print "time2/3: ";t3-t2

print "time3/4: ";t4-t3

print "time4/5: ";t5-t4

print "time1/5: ";t5-t1

sync

if mouseclick() = 2 then exit

loop

end

rem  paste image 5, 0, 0

remstart

box 0, 0, 300, 200, RGB(255,0,0), RGB(255,255,0), RGB(0,128,255), RGB(0,255,0)

ink RGB(255,255,255), 1

line 0, 0, 0, 200

line 0, 0, 300, 0

line 0, 200, 300, 200

line 300, 0, 300, 200

get image 5, 0, 0, 301, 201, 1

remend

create bitmap 5, 1024, 768

t1 = timer()

rem cut_image(5, 6, 10, 10, 200, 150)

paste image 5, 0, 0

get image 6, 10, 10, 200, 150, 1

t2 = timer()

set current bitmap 0

ink 1, 1

a = point(10, 10)

set cursor 0, 0

print sw

print sh

print sw2

print sh2

print "time1: ";t1

print "time2: ";t2

print "time: ";t2-t1

paste image 5, 100, 10

paste image 6, 300, 300

sync

if mouseclick() = 2 then exit

loop

end

remstart

`This function rotates an image using memblocks

function rotate_image(imgnr, dg)

neue hÃ¶he und breite berechenn cos, sin

danach memblock machen

punkte umberechnen

make memblock from image 1, imgnr

make memblock 2, get memblock size(1)

sw = memblock dword(1, 0) : `width

sh = memblock dword(1, 4) : `height

fill memory get memblock ptr(2), 0, get memblock size(2)

write memblock dword 2, 0, memblock dword(1, 0) : `Ã¼bertrÃ¤gt breite

write memblock dword 2, 4, memblock dword(1, 4) : `Ã¼bertrÃ¤gt hÃ¶he

write memblock dword 2, 8, memblock dword(1, 8) : `Ã¼bertrÃ¤gt farbtiefe

for a = 0 to sh - 1

for b = 0 to sw - 1

c = memblock dword(1, 12 + b * 4 + a * sw* 4)

write memblock dword 2, 12 + b*4 + (sh - 1 - a) * sw* 4, c

next b

next a

make image from memblock imgnr, 2

delete memblock 1

delete memblock 2

endfunction

remend

`This function cut an image from another using memblocks

`The borders are part of the new image

function cut_image(imgnr1, imgnr2, xo, yo, xu, yu)

if image exist(imgnr1)

make memblock from image 1, imgnr1

t1 = get memblock size(1)

sw = memblock dword(1, 0) : `width

sh = memblock dword(1, 4) : `height

`Check borders

if xo < 0 then xo = 0

if yo < 0 then yo = 0

if xu > sw then xu = sw

if yu > sh then yu = sh

sw2 = xu - xo+1

sh2 = yu - yo+1

`Make new memblock

make memblock 2, 12 + sw * sh * 4

write memblock dword 2, 0, sw2 : `Ã¼bertrÃ¤gt breite

write memblock dword 2, 4, sh2 : `Ã¼bertrÃ¤gt hÃ¶he

write memblock dword 2, 8, memblock dword(1, 8) : `Ã¼bertrÃ¤gt farbtiefe

`Ã¼bertragen der Farbwerte

for a = yo to yu

for b = xo to xu

c = memblock dword(1, 12 + b * 4 + a * sw* 4)

write memblock dword 2, 12 + (b-xo) * 4 + (a-yo) * sw2 * 4, c

next b

next a

make image from memblock imgnr2, 2

delete memblock 1

delete memblock 2

endif

endfunction

`This function flips an image using memblocks

function flip_image(imgnr)

if image exist(imgnr)

make memblock from image 1, imgnr

make memblock 2, get memblock size(1)

sw = memblock dword(1, 0) : `width

sh = memblock dword(1, 4) : `height

write memblock dword 2, 0, memblock dword(1, 0) : `Ã¼bertrÃ¤gt breite

write memblock dword 2, 4, memblock dword(1, 4) : `Ã¼bertrÃ¤gt hÃ¶he

write memblock dword 2, 8, memblock dword(1, 8) : `Ã¼bertrÃ¤gt farbtiefe

for a = 0 to sh-1

for b = 0 to sw-1

c = memblock dword(1, 12 + b * 4 + a * sw* 4)

write memblock dword 2, 12 + b*4 + (sh - 1 - a) * sw* 4, c

next b

next a

make image from memblock imgnr, 2

delete memblock 1

delete memblock 2

endif

endfunction

`This function mirrors an image using memblocks

function mirror_image(imgnr)

if image exist(imgnr)

make memblock from image 1, imgnr

make memblock 2, get memblock size(1)

sw = memblock dword(1, 0) : `width

sh = memblock dword(1, 4) : `height

write memblock dword 2, 0, memblock dword(1, 0) : `Ã¼bertrÃ¤gt breite

write memblock dword 2, 4, memblock dword(1, 4) : `Ã¼bertrÃ¤gt hÃ¶he

write memblock dword 2, 8, memblock dword(1, 8) : `Ã¼bertrÃ¤gt farbtiefe

for a = 0 to sh-1

for b = 0 to sw-1

c = memblock dword(1, 12 + b * 4 + a * sw* 4)

write memblock dword 2, 12 + (sw - 1 - b)*4 + a * sw* 4, c

next b

next a

make image from memblock imgnr, 2

delete memblock 1

delete memblock 2

endif

endfunction

function clone_image(simgnr, dimgnr)

if image exist(imgnr)

make memblock from image 1, simgnr

make image from memblock dimgnr, 1

delete memblock 1

endif

endfunction

`This function scales an image using memblocks

function scale_image(imgnr, sx, sy)

if image exist(imgnr)

make memblock from image 1, imgnr

sw = memblock dword(1, 0) : `width

sh = memblock dword(1, 4) : `height

sw2 = (memblock dword(1, 0) * sx ) / 100 : `width

sh2 = (memblock dword(1, 4) * sy) / 100 : `height

make memblock 2, 12 + sw2 * sh2 * 4

write memblock dword 2, 0, sw2 : `Ã¼bertrÃ¤gt breite

write memblock dword 2, 4, sh2 : `Ã¼bertrÃ¤gt hÃ¶he

write memblock dword 2, 8, memblock dword(1, 8) : `Ã¼bertrÃ¤gt farbtiefe

sfx# = sw*1.0 / sw2

sfy# = sh*1.0 / sh2

`Ã¼bertragen der Farbwerte

for a = 0 to sh2 - 1

for b = 0 to sw2 - 1

c = memblock dword(1, 12 + int(b*sfx#) * 4 + int(a*sfy#) * sw* 4)

write memblock dword 2, 12 + b * 4 + a * sw2* 4, c

next b

next a

make image from memblock 5, 2

delete memblock 1

delete memblock 2

endif

endfunction

function image_width(imgnr)

if image exist(imgnr)

sprite 900, 0, 0, imgnr

back = sprite width(900)

delete sprite 900

endif

endfunction back

function image_height(imgnr)

if image exist(imgnr)

sprite 900, 0, 0, imgnr

back = sprite height(900)

delete sprite 900

endif

endfunction back

rem TODO

Download

Please login to download

Comments

No comments yet.

CodeBase - Image and memblock - more advanced

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	Dostej
CodeBase Entries:	3