[DBP] - Rotate a sprite about its center

developer forums

Code Snippets / [DBP] - Rotate a sprite about its center

Author

Message

Rapidrory

Years of Service

User Offline

Joined: 21st Aug 2009

Location:

Posted: 23rd Apr 2012 22:01 Edited at: 24th Apr 2012 00:39

Link

I'm sure's this has probably been done before, but here is a useful little function to rotate a sprite around it's centre regardless of it's shape. I've included a bit of demo code to give you an idea how to use it.

+ Code Snippet

sync rate 50
cls rgb(255,255,255)
get image 1,0,0,10,100,1

do
cls 0
if leftkey()=1 then dec ang#
if rightkey()=1 then inc ang#
ang#=wrapvalue(ang#)
updatesprite(1,mousex(),mousey(),ang#,1)
loop

Function updatesprite(sn,sx#,sy#,ang#,imnum)
if sprite exist(sn)=0
sprite sn,sx#-image width(imnum)/2,sy#-image height(imnum)/2,imnum
endif
X#=sprite x(sn)
Y#=sprite y(sn)
R#=sqrt(((x#+sprite width(sn)/2)-x#)^2+((y#+sprite height(sn)/2)-y#)^2)
ofsetang#=atanfull((x#+sprite width(sn)/2)-x#,(y#+sprite height(sn)/2)-y#)
nx#=sx#-sin(-ang#+ofsetang#)*r#
ny#=sy#-cos(-ang#+ofsetang#)*r#
sprite sn,nx#,ny#,imnum
rotate sprite sn,ang#
endfunction

EDIT:
Alternatively it turns out you just use:

+ Code Snippet

Offset sprite 1,sprite width(1)/2,sprite height(1)/2

...Well this is embarrassing

Profile PM

Server time is: 2024-04-24 18:24:14
Your offset time is: 2024-04-24 18:24:14

Sorry your browser is not supported!

Code Snippets / [DBP] - Rotate a sprite about its center