Lua Script for Orbit Stabilization

-- Lua script for chapter 2 of "Go Play in Space" - Orbit Stabilization

-- -- Author: David Murley

-- Date: 7/01/2019

-- Version: 1.1

--

--

term.out('Script invoked')

-- Get access to the Delta Gliders GL-01 and GL-02. With the interface handles

-- obtained, access to various controls and flight data are acquired.

hGL1=vessel.get_interface('GL-01')

hGL2=vessel.get_interface('GL-02')

-- Wait until vessels are docked before continuing with script

term.out ('Waiting until vessels are docked before')

term.out (' executing remainder of script')

continue = true

hDckPort = hGL1:get_dockhandle(0)

continue=true

while continue do

hDckStatus=hGL1:get_dockstatus(hDckPort)

 if hDckStatus ~= nil then

   continue = false

 else

   proc.wait_simdt(5)

 end

end

-- Kill Rotation

term.out('Kill Rotation')

hGL1:set_navmode(NAVMODE.KILLROT)

proc.wait_simdt(10)

-- Undock

term.out('Undock')

hGL1:undock(ALLDOCKS)

-- Set RCS mode on GL-01 to Translation

term.out('Set RCS mode to translate.')

hGL1:set_rcsmode(RCSMODE.LIN)

-- Thrust away from GL-02. The resulting distance from GL-02 is about 35 meters.

term.out('Separation of GL-01 and GL-02 to +/-35 meters')

-- oapi.set_tacc(10)

thrstGrpHdl1=hGL1:get_thrustergrouphandle(THGROUP.ATT_BACK)

hGL1:set_thrustergrouplevel(THGROUP.ATT_BACK,.1)

proc.wait_simdt(11.237)

hGL1:set_thrustergrouplevel(THGROUP.ATT_BACK,0)

proc.wait_simdt(52.777)

thrstGrpHdl2=hGL1:get_thrustergrouphandle(THGROUP.ATT_FORWARD)

hGL1:set_thrustergrouplevel(THGROUP.ATT_FORWARD,.1)

proc.wait_simdt(18.733)

hGL1:set_thrustergrouplevel(THGROUP.ATT_FORWARD,0)

-- oapi.set_tacc(1)

term.out('Separation completed.')

-- Set the prograde autopilot for both vessels to on.

term.out('Set prograde autopilot for both vessels.')

hGL1:set_navmode(NAVMODE.PROGRADE)

hGL2:set_navmode(NAVMODE.PROGRADE)

proc.wait_simdt(25)

-- The following 14 lines set up the annotations that are used to display

-- time to apoapsis for both vessels

hApT1Label = oapi.create_annotation()

hApT1Label:set_pos(0.7,0.7,1,1)

hApT1Label:set_colour({r=1, g=0.7, b=0.3})

hApT1Label:set_text ('ApT (GL-01): ')

hApT1 = oapi.create_annotation()

hApT1:set_pos(0.8,0.7,1,1)

hApT1:set_colour({r=1, g=0.7, b=0.3})

hApT2Label = oapi.create_annotation()

hApT2Label:set_pos(0.7,0.75,1,1)

hApT2Label:set_colour({r=1, g=0.7, b=0.3})

hApT2Label:set_text ('ApT (GL-02): ')

hApT2 = oapi.create_annotation()

hApT2:set_pos(0.8,0.75,1,1)

hApT2:set_colour({r=1, g=0.7, b=0.3})

-- Wait until +/- 20 seconds before apoapsis, then slow time acceleration to 1x.

-- Ignition of main engines on both vessels occurs around +/- 10 seconds before

-- apoapsis. Time acceleration during the waiting period is set to 100x to

-- reduce waiting time for those who are easily bored.

term.out ('Wait until +/- 10 seconds from aoapis. Then fire')

term.out (' main engines to stabilize orbit')

oapi.set_tacc(100)

continue = true

while continue do

 el,op = hGL1:get_elementsex()

 TimeToApoapsis= op.ApT

 hApT1:set_text(TimeToApoapsis)

 el,op=hGL2:get_elementsex()

 TimeToAposis=op.ApT

 hApT2:set_text(TimeToApoapsis)

 if TimeToApoapsis < 20 then

    continue=false

 end

 proc.wait_simdt(1)

end

oapi.set_tacc(1)

-- Track time to apoapsis from time=+/-20 sec in 1x time.

continue=true

while continue do

 el,op = hGL1:get_elementsex()

 TimeToApoapsis1 =op.ApT

 hApT1:set_text(TimeToApoapsis1)

 el,op = hGL2:get_elementsex()

 TimeToApoapsis2=op.ApT

 hApT2:set_text(TimeToApoapsis2)

 if TimeToApoapsis1 <= 10 then

   continue=false

   oapi.del_annotation(hApT1)

   oapi.del_annotation(hApT1Label)

   oapi.del_annotation(hApT2)

   oapi.del_annotation(hApT2Label)

 else

   proc.wait_simdt(1)

 end

end

-- Set up annotations to show orbit eccentricities

hEcc1Label = oapi.create_annotation()

hEcc1Label:set_pos(0.7,0.7,1,1)

hEcc1Label:set_colour({r=1, g=0.7, b=0.3})

hEcc1Label:set_text ('Ecc (GL-01): ')

hEcc1 = oapi.create_annotation()

hEcc1:set_pos(0.8,0.7,1,1)

hEcc1:set_colour({r=1, g=0.7, b=0.3})

hEcc2Label = oapi.create_annotation()

hEcc2Label:set_pos(0.7,0.75,1,1)

hEcc2Label:set_colour({r=1, g=0.7, b=0.3})

hEcc2Label:set_text ('Ecc (GL-02): ')

hEcc2 = oapi.create_annotation()

hEcc2:set_pos(0.8,0.75,1,1)

hEcc2:set_colour({r=1, g=0.7, b=0.3})

-- Stabilize orbits

term.out('Start Stabilization of Orbits')

hGL1:set_thrustergrouplevel(THGROUP.MAIN, 1)

hGL2:set_thrustergrouplevel(THGROUP.MAIN, 1)

continue1=true

continue2 = true

while continue1 or continue2 do

 el=hGL1:get_elements()

 e1 = el.e

 hEcc1:set_text(e1)

 if e1 <= .005 then
   hGL1:set_thrustergrouplevel (THGROUP.MAIN, 0)

   continue1 = false

 end 

 el = hGL2:get_elements()

 e2 = el.e

 hEcc2:set_text(e2)

 if e2 <= .005 then

   hGL2:set_thrustergrouplevel (THGROUP.MAIN, 0)

   continue2 = false

 end

 proc.wait_simdt(1)

end

term.out ('Orbits stabilized.')

term.out ()

term.out ()

-- Wait a few seconds and then delete eccentricity annotations

proc.wait_simdt(10)

oapi.del_annotation(hEcc1)

oapi.del_annotation(hEcc1Label)

oapi.del_annotation(hEcc2)

oapi.del_annotation(hEcc2Label)

term.out ('End Script')