Problem with sprite anim [DBP] - GameCreators Forum

Author

Message

MrBlack

20

Years of Service

User Offline

Joined: 17th Jun 2004

Location: Switzerland

Posted: 1st Aug 2004 03:54

Link

Hi,

I have this code to animate and move left/right a little character made of 10 JPG files. Here is the code :

rem Set screen and display
sync on
sync rate 40
set display mode 1024,768,32

rem Load images
load image "01.jpg",1,1
load image "02.jpg",2,1
load image "03.jpg",3,1
load image "04.jpg",4,1
load image "05.jpg",5,1
load image "06.jpg",6,1
load image "07.jpg",7,1
load image "08.jpg",8,1
load image "09.jpg",9,1
load image "10.jpg",10,1

rem Declare global var
global posX
global posY
global speedX
global currentAnim

rem Assign values
posX=512
posY=600
speedX=0
currentAnim=1
sprite 1,posx,posy,currentAnim

rem Main loop
do
	cls

MoveCharacter()
   
	sync
loop

function MoveCharacter()

rem move to the right
	if rightkey()=1 and posX < 1000
		if currentAnim <= 9
			currentAnim=currentAnim+1
		else
			currentAnim=1
		endif
		
		if sprite mirrored(1)=1 then mirror sprite 1 
		
		posX=posX+10
	endif

rem move to the left
	if leftkey()=1 and posX > 24
		if currentAnim <= 9
			currentAnim = currentAnim+1
		else
			currentAnim=1
		endif
		
		if sprite mirrored(1) = 0 then mirror sprite 1 
		
		posX=posX-10
	endif
	
	rem Draw sprite
	sprite 1,posX,posY,currentAnim
	
endfunction

+ Code Snippet

rem Set screen and display
sync on
sync rate 40
set display mode 1024,768,32

rem Load images
load image "01.jpg",1,1
load image "02.jpg",2,1
load image "03.jpg",3,1
load image "04.jpg",4,1
load image "05.jpg",5,1
load image "06.jpg",6,1
load image "07.jpg",7,1
load image "08.jpg",8,1
load image "09.jpg",9,1
load image "10.jpg",10,1

rem Declare global var
global posX
global posY
global speedX
global currentAnim

rem Assign values
posX=512
posY=600
speedX=0
currentAnim=1
sprite 1,posx,posy,currentAnim

rem Main loop
do
	cls

   	MoveCharacter()
   
	sync
loop


function MoveCharacter()

	rem move to the right
	if rightkey()=1 and posX < 1000
		if currentAnim <= 9
			currentAnim=currentAnim+1
		else
			currentAnim=1
		endif
		
		if sprite mirrored(1)=1 then mirror sprite 1 
		
		posX=posX+10
	endif

	rem move to the left
	if leftkey()=1 and posX > 24
		if currentAnim <= 9
			currentAnim = currentAnim+1
		else
			currentAnim=1
		endif
		
		if sprite mirrored(1) = 0 then mirror sprite 1 
		
		posX=posX-10
	endif
	
	rem Draw sprite
	sprite 1,posX,posY,currentAnim
	
endfunction

When I run it and move the character, the image of him running is very "blurry". It seems out of focus when the anim runs.

If you wanna test for yourself (english not being my mothertongue, I have problems explaining my question

), you can download the 10 JPG there (25 KB) : http://www.inlogicstudio.com/divers/runner.zip

Thanx for your help !

You have failed me for the last time

Back to top

Profile PM Website

SandraD

20

Years of Service

User Offline

Joined: 30th May 2004

Location: Down on the corner, out in the street.

Posted: 2nd Aug 2004 20:37

Link

Well first, the CLS command in the loop is rather worthless, it just slows things down. Not really that important right now for your program, it may become so later.

Second, JPG is a lousy format for animated graphics, because the compression used by them "bleeds" and "blurs" all over the place. Try bitmaps instead. Yes, they are larger, but they are cleaner.
S.

Any truly great code should be indisguishable from magic.

Back to top

Profile PM

MrBlack

20

Years of Service

User Offline

Joined: 17th Jun 2004

Location: Switzerland

Posted: 3rd Aug 2004 03:45

Link

Thank you. I'll try with BMP. Just have to say that the JPG used there are 100% quality / 0% compression level.

The CLS, I use not to have a blue screen behind the sprite.

You have failed me for the last time

Back to top

Profile PM Website

SandraD

20

Years of Service

User Offline

Joined: 30th May 2004

Location: Down on the corner, out in the street.

Posted: 3rd Aug 2004 05:33

Link

Well, you see, the jpeg standard only "approximates" the pixels actually used in the image, while sprites in particular are sensitive to every pixel being drawn. It's a bit of a bother, but since they are usually small it's no big worry...
S.

Any truly great code should be indisguishable from magic.

Back to top

Profile PM

Paul Johnston

TGC Developer

21

Years of Service

User Offline

Joined: 16th Nov 2002

Location: United Kingdom

Posted: 4th Aug 2004 07:46

Link

It might simply be the case that you're moving him too fast or updating his image too quickly.

Does this look any better:

rem Set screen and display
sync on
sync rate 60
set display mode 1024,768,32

rem Load images
load image "01.jpg",1,1
load image "02.jpg",2,1
load image "03.jpg",3,1
load image "04.jpg",4,1
load image "05.jpg",5,1
load image "06.jpg",6,1
load image "07.jpg",7,1
load image "08.jpg",8,1
load image "09.jpg",9,1
load image "10.jpg",10,1

rem Declare global var
global posX
global posY
global speedX
global currentAnim
global changetimer
global delay

rem this sets the delay between switching frames, try changing it. (1000 = 1 second)
delay=50

rem Assign values
posX=512
posY=600
speedX=0
currentAnim=1
sprite 1,posx,posy,currentAnim

rem Main loop
do
	cls

MoveCharacter()
   
	sync
loop

function MoveCharacter()

rem move to the right
	if rightkey()=1 and posX<1000 
		rem this code checks to see if enough time has passed to change the image
		if changetimer+delay<timer()
			changetimer=timer()
			if currentAnim <= 9
				currentAnim=currentAnim+1
			else
				currentAnim=1
			endif
		endif
		
		if sprite mirrored(1)=1 then mirror sprite 1 
		
		posX=posX+3
	endif

rem move to the left
	if leftkey()=1 and posX>24 
		if changetimer+delay<timer()
			changetimer=timer()
			if currentAnim <= 9
				currentAnim = currentAnim+1
			else
				currentAnim=1
			endif
		endif			
		if sprite mirrored(1) = 0 then mirror sprite 1 
		
		posX=posX-3
	endif
	
	rem Draw sprite
	sprite 1,posX,posY,currentAnim
	
endfunction

+ Code Snippet

rem Set screen and display
sync on
sync rate 60
set display mode 1024,768,32

rem Load images
load image "01.jpg",1,1
load image "02.jpg",2,1
load image "03.jpg",3,1
load image "04.jpg",4,1
load image "05.jpg",5,1
load image "06.jpg",6,1
load image "07.jpg",7,1
load image "08.jpg",8,1
load image "09.jpg",9,1
load image "10.jpg",10,1

rem Declare global var
global posX
global posY
global speedX
global currentAnim
global changetimer
global delay

rem this sets the delay between switching frames, try changing it. (1000 = 1 second)
delay=50

rem Assign values
posX=512
posY=600
speedX=0
currentAnim=1
sprite 1,posx,posy,currentAnim

rem Main loop
do
	cls

   	MoveCharacter()
   
	sync
loop


function MoveCharacter()

	rem move to the right
	if rightkey()=1 and posX<1000 
		rem this code checks to see if enough time has passed to change the image
		if changetimer+delay<timer()
			changetimer=timer()
			if currentAnim <= 9
				currentAnim=currentAnim+1
			else
				currentAnim=1
			endif
		endif
		
		if sprite mirrored(1)=1 then mirror sprite 1 
		
		posX=posX+3
	endif

	rem move to the left
	if leftkey()=1 and posX>24 
		if changetimer+delay<timer()
			changetimer=timer()
			if currentAnim <= 9
				currentAnim = currentAnim+1
			else
				currentAnim=1
			endif
		endif			
		if sprite mirrored(1) = 0 then mirror sprite 1 
		
		posX=posX-3
	endif
	
	rem Draw sprite
	sprite 1,posX,posY,currentAnim
	
endfunction

Back to top

Profile PM Email

MrBlack

20

Years of Service

User Offline

Joined: 17th Jun 2004

Location: Switzerland

Posted: 4th Aug 2004 15:31

Link

Fantastic Sparky ! It looks excellent this way.

Many thanx

You have failed me for the last time

Back to top

Profile PM Website

Sorry your browser is not supported!

Newcomers DBPro Corner / Problem with sprite anim [DBP]