Problem with Size Image Function

Author

Message

Caleb1994

16

Years of Service

User Offline

Joined: 10th Oct 2008

Location: The Internet you idiot!

Posted: 5th Apr 2009 22:39

Link

Here's the function i'm using

rem Create a demo image. It'll be a green square with a red line in the middle.
create bitmap 1,256,256
ink rgb(0,255,0),0
for l = 0 to 100
   if L>30 and L<70 then ink rgB(255,0,0),0 else ink rgb(0,255,0),0
   line 0,l,100,l
next l
get image 1,0,0,256,256
delete bitmap 1

rem Paste the image and some text
sync
set cursor 300,300
print "ORIGINAL SIZE."
paste image 1,0,0
sync
suspend for key

rem Clear the screen.
cls

rem Resize the image using our function.
ResizeImage(1,64,64)

rem Show the reduced size.
sync
set cursor 300,300
print "SMALLER SIZE."
paste image 1,0,0
sync
suspend for key

rem End of program.
end

rem Declare our function.
function ResizeImage(IMAGE,SizeX,SizeY)
rem Check for free/unused bitmap numbers.
R_B=0
repeat
inc R_B
until Bitmap Exist(R_B)=0

rem Check for free/unused sprite numbers.
R_S=0
repeat
inc R_S
until Sprite Exist(R_S)=0

rem Create a bitmap using out free bitmap number.
Create Bitmap R_B,4000,4000

rem Create a sprite from the image using our free sprite number.
Sprite R_S,0,0,IMAGE

rem Resize the sprite to the size specified.
Size sprite R_S,SizeX,SizeY

rem Put our new resized sprite on the bitmap.
paste sprite R_S,0,0

rem Overwrite the old image with our new one.
Get Image IMAGE,0,0,SizeX,SizeY

rem Delete the extra-media that this function made.
delete sprite R_S
delete bitmap R_B

rem End of function.
endfunction

+ Code Snippet

rem Create a demo image. It'll be a green square with a red line in the middle.
create bitmap 1,256,256
ink rgb(0,255,0),0
for l = 0 to 100
   if L>30 and L<70 then ink rgB(255,0,0),0 else ink rgb(0,255,0),0
   line 0,l,100,l
next l
get image 1,0,0,256,256
delete bitmap 1

rem Paste the image and some text
sync
set cursor 300,300
print "ORIGINAL SIZE."
paste image 1,0,0
sync
suspend for key

rem Clear the screen.
cls

rem Resize the image using our function.
ResizeImage(1,64,64)

rem Show the reduced size.
sync
set cursor 300,300
print "SMALLER SIZE."
paste image 1,0,0
sync
suspend for key

rem End of program.
end


rem Declare our function.
function ResizeImage(IMAGE,SizeX,SizeY)
rem Check for free/unused bitmap numbers.
R_B=0
repeat
inc R_B
until Bitmap Exist(R_B)=0

rem Check for free/unused sprite numbers.
R_S=0
repeat
inc R_S
until Sprite Exist(R_S)=0

rem Create a bitmap using out free bitmap number.
Create Bitmap R_B,4000,4000

rem Create a sprite from the image using our free sprite number.
Sprite R_S,0,0,IMAGE

rem Resize the sprite to the size specified.
Size sprite R_S,SizeX,SizeY

rem Put our new resized sprite on the bitmap.
paste sprite R_S,0,0

rem Overwrite the old image with our new one.
Get Image IMAGE,0,0,SizeX,SizeY

rem Delete the extra-media that this function made.
delete sprite R_S
delete bitmap R_B

rem End of function.
endfunction

This doesn't work right but it should. i don't know why. any help?

Is there a good way to size image with memblocks?

New Site! Check it out \/

Back to top

Profile PM Website

TheComet

17

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 5th Apr 2009 22:49

Link

Are you sure you can just overwrite the image by creating a new one in its number? I added a few things to your function, let me know if it works...

+ Code Snippet

rem Declare our function.
function ResizeImage(IMAGE,SizeX,SizeY)

   rem Check for free/unused bitmap numbers.
   R_B=0
   repeat
      inc R_B
   until Bitmap Exist(R_B)=0

   rem Check for free/unused sprite numbers.
   R_S=0
   repeat
      inc R_S
   until Sprite Exist(R_S)=0

   rem Create a bitmap using out free bitmap number.
   Create Bitmap R_B,SizeX,SizeY

   rem Create a sprite from the image using our free sprite number.
   Sprite R_S,0,0,IMAGE

   rem Resize the sprite to the size specified.
   Size sprite R_S,SizeX,SizeY

   rem delete the old image
   delete image IMAGE

   rem set current bitmap
   set current bitmap R_B

   rem get a new image in place of the old image
   Get Image IMAGE,0,0,SizeX,SizeY

   rem Delete the extra-media that this function made.
   delete sprite R_S
   delete bitmap R_B

rem End of function.
endfunction

TheComet

Peachy, and the Chaos of the Gems

Back to top

Profile PM Email Website

Caleb1994

16

Years of Service

User Offline

Joined: 10th Oct 2008

Location: The Internet you idiot!

Posted: 5th Apr 2009 23:59

Link

like that it doesn't show up with anything.... hmmm thats weird?

New Site! Check it out \/

Back to top

Profile PM Website

Libervurto

19

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 6th Apr 2009 04:03

Link

I would keep the original image separate, scaling will distort it so its best to use the original in the function every time.
I'm pretty sure there's a scale image or bitmap command?

@Latch (if he happens to come by)
You made a function to rotate images a while ago, now I have a different pc (not new) I dont have it any more, could you direct me to it.
I'll do a search and edit this if I find it.

can't read?

Back to top

Profile PM Email

Caleb1994

16

Years of Service

User Offline

Joined: 10th Oct 2008

Location: The Internet you idiot!

Posted: 6th Apr 2009 04:49

Link

no scale bitmap or image. just sprite. thats the problem.
Get image doesn't capture sprites well somehow (i think it was u who made this function i found it in codebase) someone got it to

New Site! Check it out \/

Back to top

Profile PM Website

Latch

19

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 6th Apr 2009 21:25 Edited at: 7th Apr 2009 03:09

Link

@Obese
Rotate Image

@Caleb
Like Obese wrote, if you are going to use a sprite from an image and such, it's best to keep the original separate. You can unintentionally corrupt the image when you are resizing it as a sprite and deleting/changing the image from the same sprite/image that the sprite/image was made from. If a sprite is made by a certain image, changing the image changes the sprite etc... It all has to do with timing.

A less corruptive method is to either use separate images for the source and result, or use a method of blitting a new image. Blitting an image is a block transfer of pixel information; you know it better as COPY BITMAP. By using the size parameters of copy bitmap, you can effectively scale your image (or any part of it) however you want.

rem scale image
rem by latch
rem 4/6/2009

set display mode 800,600,32
sync on
sync rate 0

rem make a potted flower
ink rgb(64,64,64),0
box 0,0,128,128
ink rgb(200,200,255),0
box 4,4,124,124
ink rgb(0,160,0),0
box 60,38,68,124
for xr=0 to 11
   for yr=0 to 6
      ellipse 77,72,xr,yr
      ellipse 51,72,xr,yr
   next yr
next xr
anginc#=360.0/6.0
ang#=0-anginc#
ink RGB(255,255,0),0
for f=1 to 6
   inc ang#,anginc#
   x=16*cos(ang#)+64
   y=16*sin(ang#)+34
   for r=0 to 10
      circle x,y,r
      circle x,y-1,r
   next r
next f
ink rgb(10,10,10),0
for r=0 to 11
   circle 64,34,r
   circle 63,34,r
next r
ink RGB(128,0,0),0
box 48,96,80,124
get image 1,0,0,129,129,1

sync

rem create a bitmap to copy the original image to
create bitmap 1,131,131

rem create a second bitmap to stretch the image on
create bitmap 2,1000,1000

rem stretch the original image to the big bitmap
set current bitmap 1
paste image 1,0,0
copy bitmap 1,0,0,129,129,2,0,0,999,999
set current bitmap 2
get image 2,0,0,1000,1000
sync

set current bitmap 0
paste image 1,0,0
paste image 2,100,100
sync
wait key

+ Code Snippet

rem scale image
rem by latch
rem 4/6/2009

set display mode 800,600,32
sync on
sync rate 0

rem make a potted flower
ink rgb(64,64,64),0
box 0,0,128,128
ink rgb(200,200,255),0
box 4,4,124,124
ink rgb(0,160,0),0
box 60,38,68,124
for xr=0 to 11
   for yr=0 to 6
      ellipse 77,72,xr,yr
      ellipse 51,72,xr,yr
   next yr
next xr
anginc#=360.0/6.0
ang#=0-anginc#
ink RGB(255,255,0),0
for f=1 to 6
   inc ang#,anginc#
   x=16*cos(ang#)+64
   y=16*sin(ang#)+34
   for r=0 to 10
      circle x,y,r
      circle x,y-1,r
   next r
next f
ink rgb(10,10,10),0
for r=0 to 11
   circle 64,34,r
   circle 63,34,r
next r
ink RGB(128,0,0),0
box 48,96,80,124
get image 1,0,0,129,129,1

sync

rem create a bitmap to copy the original image to
create bitmap 1,131,131

rem create a second bitmap to stretch the image on
create bitmap 2,1000,1000

rem stretch the original image to the big bitmap
set current bitmap 1
paste image 1,0,0
copy bitmap 1,0,0,129,129,2,0,0,999,999
set current bitmap 2
get image 2,0,0,1000,1000
sync

set current bitmap 0
paste image 1,0,0
paste image 2,100,100
sync
wait key

Enjoy your day.

Back to top

Profile PM

Caleb1994

16

Years of Service

User Offline

Joined: 10th Oct 2008

Location: The Internet you idiot!

Posted: 6th Apr 2009 22:21 Edited at: 6th Apr 2009 22:24

Link

oh! i didn't know that copy bitmap could stretch/shrink a image! thanks!

i'm not using sprites for the program i'm using images i was just trying to use sprites to scale the image

New Site! Check it out \/

Back to top

Profile PM Website

That1Smart Guy

16

Years of Service

User Offline

Joined: 26th Feb 2009

Location: Somewhere...... yep

Posted: 7th Apr 2009 01:35

Link

@latch u need a sync right b4 the wait key, it didnt show the big image, heres ur code fixed:

rem by latch, edited by that1smartguy
rem 4/6/2009

set display mode 800,600,32
sync on
sync rate 0

rem make a potted flower
ink rgb(64,64,64),0
box 0,0,128,128
ink rgb(200,200,255),0
box 4,4,124,124
ink rgb(0,160,0),0
box 60,38,68,124
for xr=0 to 11
   for yr=0 to 6
      ellipse 77,72,xr,yr
      ellipse 51,72,xr,yr
   next yr
next xr
anginc#=360.0/6.0
ang#=0-anginc#
ink RGB(255,255,0),0
for f=1 to 6
   inc ang#,anginc#
   x=16*cos(ang#)+64
   y=16*sin(ang#)+34
   for r=0 to 10
      circle x,y,r
      circle x,y-1,r
   next r
next f
ink rgb(10,10,10),0
for r=0 to 11
   circle 64,34,r
   circle 63,34,r
next r
ink RGB(128,0,0),0
box 48,96,80,124
get image 1,0,0,129,129,1

sync

rem create a bitmap to copy the original image to
create bitmap 1,131,131

rem create a second bitmap to stretch the image on
create bitmap 2,1000,1000

rem stretch the original image to the big bitmap
set current bitmap 1
paste image 1,0,0
copy bitmap 1,0,0,129,129,2,0,0,999,999
set current bitmap 2
get image 2,0,0,1000,1000
sync

set current bitmap 0
paste image 1,0,0
paste image 2,100,100
sync

wait key

+ Code Snippet

rem by latch, edited by that1smartguy
rem 4/6/2009

set display mode 800,600,32
sync on
sync rate 0

rem make a potted flower
ink rgb(64,64,64),0
box 0,0,128,128
ink rgb(200,200,255),0
box 4,4,124,124
ink rgb(0,160,0),0
box 60,38,68,124
for xr=0 to 11
   for yr=0 to 6
      ellipse 77,72,xr,yr
      ellipse 51,72,xr,yr
   next yr
next xr
anginc#=360.0/6.0
ang#=0-anginc#
ink RGB(255,255,0),0
for f=1 to 6
   inc ang#,anginc#
   x=16*cos(ang#)+64
   y=16*sin(ang#)+34
   for r=0 to 10
      circle x,y,r
      circle x,y-1,r
   next r
next f
ink rgb(10,10,10),0
for r=0 to 11
   circle 64,34,r
   circle 63,34,r
next r
ink RGB(128,0,0),0
box 48,96,80,124
get image 1,0,0,129,129,1

sync

rem create a bitmap to copy the original image to
create bitmap 1,131,131

rem create a second bitmap to stretch the image on
create bitmap 2,1000,1000

rem stretch the original image to the big bitmap
set current bitmap 1
paste image 1,0,0
copy bitmap 1,0,0,129,129,2,0,0,999,999
set current bitmap 2
get image 2,0,0,1000,1000
sync

set current bitmap 0
paste image 1,0,0
paste image 2,100,100
sync

wait key

There are only 10 kinds of people in the world, those who understand binary and those who dont

Back to top

Profile PM Email

Latch

19

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 7th Apr 2009 02:00

Link

Good lookin' out!

Enjoy your day.

Back to top

Profile PM

Caleb1994

16

Years of Service

User Offline

Joined: 10th Oct 2008

Location: The Internet you idiot!

Posted: 7th Apr 2009 03:03

Link

Thanks i was just about to run that and i didn't notice haha

New Site! Check it out \/

Back to top

Profile PM Website

Sorry your browser is not supported!

DarkBASIC Discussion / Problem with Size Image Function