Sorry your browser is not supported!

// Positions and rotates a sprite relative to its parent sprite
// spr is the sprite to be positioned relative to its parent
// x,y are the relative offset of spr1 to the parent 
// parent is the sprite toposition relative to
function SetSpritePositionRelative(spr as integer, x as float, y as float, parent as integer)

	// First copy the rotation angle
	SetSpriteAngle(spr,GetSpriteAngle(parent))

	// set sprite position
	SetSpritePositionByOffset(spr,GetWorldXFromSprite( parent, x, y ),GetWorldYFromSprite( parent, x, y ))

endfunction

parent = createSprite(0)
setSpriteSize(parent, 200, 200)
setSpriteColor(parent, 255,255,0,255)
child = createSprite(0)
setSpriteSize(child, 50, 50)
setSpriteColor(child, 255,0,0,255)

setSpriteOffset(child, 90, 90)

a# = 0

do
	
	inc a#, 2
	x = 200 + cos(a#)*200
	y = 100 + sin(a#)*200
	
	setSpritePosition(parent, x, y)
	setSpritePosition(child, x+10, y+10)
	
	setSpriteAngle(parent, getSpriteAngle(parent)+3)
	setSpriteAngle(child, getSpriteAngle(parent)+3)
	

	
	sync()
loop

// Project: SpriteRelativeMovement 
// Created: 2018-07-18

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "SpriteRelativeMovement" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 60, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts


spr1 = CreateSprite(0)
SetSpriteColor(spr1,255,255,0,255)
SetSpriteSize(spr1,200,200)

spr2 = CreateSprite(0)
SetSpriteColor(spr2,0,0,255,255)
SetSpriteSize(spr2,20,20)



do
	// Spin the parent sprite
	inc angle#,GetFrameTime()*180
	if angle#>360 then angle# =0
	
	// Rotate and move the parent sprite
    SetSpriteAngle(spr1,angle#)
	SetSpritePositionByOffset(spr1,GetRawMouseX(),GetRawMouseY())

	// Keep the second sprite with its parent
	SetSpritePositionRelative(spr2, -80,-80,spr1)

    Print( ScreenFPS() )
    Sync()

loop


function SetSpritePositionRelative(spr as integer, x as float, y as float, parent as integer)
 
    // First copy the rotation angle
    SetSpriteAngle(spr,GetSpriteAngle(parent))
 
    // set sprite position
    SetSpritePositionByOffset(spr,GetWorldXFromSprite( parent, x, y ),GetWorldYFromSprite( parent, x, y ))
 
endfunction