Sorry your browser is not supported!

                distance = Random(0, GetSpriteWidth(planet_sprite)/2)
                angle# = 10
                Message("Dist " + Str(angle#))

                button_x# = (GetSpriteX(planet_sprite) + GetSpriteWidth(planet_sprite)/2) + cos(angle#)*distance
                button_y# = (GetSpriteY(planet_sprite) + GetSpriteHeight(planet_sprite)/2) + sin(angle#)*distance

                SetSpritePosition(button_sprite, button_x#, button_y#)

                distanceX# = GetSpriteX(button_sprite) - (GetSpriteX(planet_sprite) + GetSpriteWidth(planet_sprite)/2)
                distanceY# = GetSpriteY(button_sprite) - (GetSpriteY(planet_sprite) + GetSpriteHeight(planet_sprite)/2)
                distanceTotal = Sqrt(distanceX# * distanceX# + distanceY# * distanceY#)

                planet_sprite_x# =  (GetSpriteX(planet_sprite) + GetSpriteWidth(planet_sprite)/2) + cos(planet_angle#)*distanceTotal
                planet_sprite_y# = (GetSpriteY(planet_sprite) + GetSpriteHeight(planet_sprite)/2) + sin(planet_angle#)*distanceTotal

                //SetSpritePosition(button_sprite, planet_sprite_x#, planet_sprite_y#)
                angle# = ATanFull(GetSpriteX(button_sprite) - planet_sprite_x#, GetSpriteY(button_sprite) - planet_sprite_y#)
                Message(Str(angle#))

#option_explicit

SetWindowTitle( "Orbits" )
SetVirtualResolution ( 1024, 768 )
SetSyncRate ( 60, 1 )

#constant EARTHDISTANCE = 300
#constant MOONDISTANCE = 70

global sunx as float = 512.0
global sunz as float = 384.0
global earthx as float
global earthz as float
global moonx as float
global moonz as float
global earthangle# as float
global moonangle# as float
global angle#
global anglemoon#
global angle_calcul#
global distanceX#
global distanceY#
global distanceTotal

angle# = 0
anglemoon#=0

global testx
global testz
testx  = sunx + cos ( earthangle# ) * EARTHDISTANCE
testz  = sunz + sin ( earthangle# ) * EARTHDISTANCE


repeat
    earthangle# = angle#
    moonangle# = anglemoon#
    //earthangle  = fmod ( earthangle + 0.5, 360.0 )
    //moonangle   = fmod ( moonangle + 1.5, 360.0 )

    earthx  = sunx + cos ( earthangle# ) * EARTHDISTANCE
    earthz  = sunz + sin ( earthangle# ) * EARTHDISTANCE
    moonx   = earthx + cos ( moonangle# ) * MOONDISTANCE
    moonz   = earthz + sin ( moonangle# ) * MOONDISTANCE

    DrawEllipse ( testx, testz, 45, 45, MakeColor ( 255, 0, 0 ), MakeColor ( 255, 255, 0 ), 1 )
    DrawEllipse ( sunx, sunz, 45, 45, MakeColor ( 255, 0, 0 ), MakeColor ( 255, 255, 0 ), 1 )
    DrawEllipse ( earthx, earthz, 20, 20, MakeColor ( 0, 0, 255 ), MakeColor ( 0, 255, 255 ), 1 )
    DrawEllipse ( moonx, moonz, 8, 8, MakeColor ( 255, 255, 255 ), MakeColor ( 100, 100, 100 ), 1 )

    distanceX# = sunx - earthx
    distanceY# = sunz - earthz
    distanceTotal = Sqrt(distanceX# * distanceX# + distanceY# * distanceY#)

    //SetSpritePosition(button_sprite, planet_sprite_x#, planet_sprite_y#)
    angle_calcul# = ATanFull(testx - earthx, testz - earthz)

    angle#=angle#+0.5
    anglemoon#=anglemoon#+1

    if angle# > 360
    angle#=0
    endif
    if anglemoon# > 360
    anglemoon#=0
    endif

    Print(angle#)
    Print(anglemoon#)
    Print(angle_calcul#)
    Print(distanceTotal)
    Sync()
until GetRawKeyPressed ( 57 ) or getrawkeypressed ( 27 )
end

planet_a = CreateSprite(0)
planet_b = CreateSprite(0)
 
SetSpritePositionByOffset(planet_a,50,50)

distance# = 20
angle#= 10.0

SetPrintColor(255,0,0)

do

	SetSpritePositionByOffset(planet_b,GetSpriteXByOffset(planet_a)- sin(angle#)*distance#,GetSpriteyByOffset(planet_a)+ cos(angle#)*distance#)
	
	dx#=GetSpriteXByOffset(planet_a)-GetSpriteXByOffset(planet_b)
	dy#=GetSpriteyByOffset(planet_a)-GetSpriteyByOffset(planet_b)
	
	print(angle#)
	print(ATanFull(dx#,dy#))
	
	angle# = angle# + 180.0 / 60.0 
	if angle# > 360.0 then angle#=angle#-360.0
	
	sync()
	
loop
end

SetWindowSize(500, 500, 0)
planet_a = CreateSprite(0)
planet_b = CreateSprite(0)

SetSpriteSize(planet_a, 1, 1)
SetSpritePositionByOffset(planet_a,50,50)

distance# = 20
angle#= 10.0

SetPrintColor(255,0,0)

do
    SetSpritePosition(planet_b,GetSpriteXByOffset(planet_a) + sin(angle#)*distance# - GetSpriteWidth(planet_b)/2,GetSpriteYByOffset(planet_a) + cos(angle#)*distance# - GetSpriteHeight(planet_b)/2)

    point = CreateSprite(0)
    SetSpriteSize(point, 1, 1)
    SetSpritePosition(point, GetSpriteXByOffset(planet_b), GetSpriteYByOffset(planet_b))

    dx#=GetSpriteXByOffset(planet_a)-GetSpriteXByOffset(planet_b)
    dy#=GetSpriteYByOffset(planet_a)-GetSpriteYByOffset(planet_b)
    distanceTotal = Sqrt(dx# * dx# + dy# * dy#)

    print(angle#)
    print(360 - ATanFull(dx#,dy#))
    print(distanceTotal)

    angle# = angle# + 1

    if angle# > 360.0
    //Message(Str(angle#) + " - " + Str(ATanFull(dx#,dy#)))
    endif
    if angle# > 360.0 then angle#=angle#-360.0

    sync()

loop
end