First commit

Contains a bootloader + an orbiter and a stager program

boot/boot.ks

@@ -0,0 +1,12 @@
+clearscreen.
+if core:tag:length > 0 {
+	SET bootfile TO core:tag + ".ks".
+	if volume(0):exists(bootfile) {
+		print "Running 0:/"+bootfile.
+		RUNPATH("0:/"+bootfile).
+	} else {
+		print "Bootfile 0:/"+bootfile+" does not exists".
+	}
+} else {
+	print "No tag name. Unable to boot...".
+}

orbit.ks

@@ -0,0 +1,271 @@
+clearscreen.
+
+SET SHIP:CONTROL:PILOTMAINTHROTTLE TO 0.0.
+SET terminal:width TO 41.
+SET terminal:height TO 23.
+SET GETVOICE(0):wave to "triangle".
+SET GETVOICE(0):attack to 0.
+
+WAIT 0.5.
+print "=========================================".
+print "  Launch to orbit program".
+print "    First arg is a target TWR".
+print "    Second arg is target altitude in m".
+print "=========================================".
+print "".
+DECLARE PARAMETER wantedTWR is 2.3, wantedALT is 95000, wantedHEAD is 90, maneuver_prep is 50.
+
+GETVOICE(0):PLAY( NOTE(300, .1) ).wait(0.1).GETVOICE(0):PLAY( NOTE(400, .2) ).wait(0.1).
+
+declare function LocalG {
+	// Return local gravity
+	return ship:body:mu / ship:body:position:mag ^ 2.
+}
+
+declare function getTwrThrust {
+	// Estimate thrust for a given TWR (1.5 by default)
+	DECLARE PARAMETER TWR is 1.5.
+	set m to ship:mass.
+	set w to m * LocalG().
+	set p to ship:sensors:pres / 100.
+	set t to ship:maxthrustat(p).
+	set throt to (TWR * w) / t.
+	if throt <= 1.0 {
+		return throt.
+	} else {
+		return 1.0.
+	}
+}
+
+
+declare function dt {
+	SET dtim TO TIME - start.
+	return dtim:minute+"m"+dtim:second+"s".
+}
+
+declare function spd {
+	if ship:distance < 40000 {
+		return ship:velocity:surface:mag.
+	} else {
+		return ship:velocity:orbit:mag.
+	}
+}
+
+SET ctl TO ship:control.
+
+
+SET ctl:MAINTHROTTLE TO 0.0.
+LOCK throttle TO 0.0.
+print "Ready to orbit at "+wantedALT/1000+"km with TWR " + wantedTWR.
+HUDTEXT("Orbit "+wantedALT/1000+"km sequence ready(TWR "+wantedTWR+")", 10, 2, 20, red, false).
+HUDTEXT("Waiting 1st stage to run", 10, 2, 20, red, false).
+WAIT UNTIL not stage:ready.
+WAIT UNTIL ship:maxthrust() <> 0.
+HUDTEXT("Orbit sequence started. Lift off in 13s", 2, 2, 20, green, false).
+GETVOICE(0):PLAY( LIST(
+			SLIDENOTE(300, 320, 0.45, .5), SLIDENOTE(320, 300, 0.42, 0.5),
+			SLIDENOTE(300, 320, 0.45, .5), SLIDENOTE(320, 300, 0.42, 0.5),
+			SLIDENOTE(300, 320, 0.45, .5), SLIDENOTE(320, 300, 0.42, 0.5))).
+
+
+HUDTEXT("Throttle will be " + round(getTwrThrust(wantedTWR)*100) + "% for TWR " + wantedTWR, 5, 2, 20, green, false).
+print "Throttle at takeoff :" + round(getTwrThrust(wantedTWR)*100) + "% for TWR " + wantedTWR.
+WAIT 2.0.
+HUDTEXT("Moving controls in all directions...", 3, 2, 15, blue, false).
+SET ctl:yaw TO -1.0.
+SET ctl:pitch TO -1.0.
+SET ctl:roll TO -1.0.
+WAIT 1.0.
+HUDTEXT("So cool !", 3, 2, 12, blue, false).
+SET ctl:yaw TO 1.0.
+SET ctl:pitch TO 1.0.
+SET ctl:roll TO 1.0.
+WAIT 1.0.
+SET ctl:yaw TO 0.0.
+SET ctl:pitch TO 0.0.
+SET ctl:roll TO 0.0.
+WAIT 1.0.
+
+DECLARE i TO 10.
+UNTIL i < 1 {
+	HUDTEXT(i, 1, 2, 20, green, false).
+	print i+" " AT (0,7).
+	GETVOICE(0):PLAY( NOTE(300, .2) ).
+	wait(1.0).
+	SET i TO i - 1.
+}
+
+
+lock THROTTLE to getTwrThrust(wantedTWR).
+HUDTEXT("Lift off !", 2, 2, 20, green, false).
+GETVOICE(0):PLAY( NOTE(400, .1) ).wait(0.1).GETVOICE(0):PLAY( NOTE(300, .2) ).
+DECLARE start TO TIME.
+print "-----------------------------------------".
+print dt() + " Lift off !".
+
+UNTIL spd() > 1 {
+	WAIT 0.1.
+}
+
+HUDTEXT(dt()+" Rotation 0", 2, 2, 20, green, false).
+GETVOICE(0):PLAY( NOTE(400, .1) ).wait(0.1).GETVOICE(0):PLAY( NOTE(400, .1) ).
+lock STEERING to HEADING(wantedHEAD,90).
+print dt() + " Heading "+ wantedHEAD.
+
+UNTIL spd() > 50 {
+	WAIT 0.1.
+}
+
+HUDTEXT(dt()+" Rotation 1", 2, 2, 20, green, false).
+GETVOICE(0):PLAY( NOTE(400, .1) ).wait(0.1).GETVOICE(0):PLAY( NOTE(300, .2) ).
+
+SET tgt_spd TO 600.
+print dt() + " Next rotation at "+tgt_spd+" m/s".
+
+lock STEERING to HEADING(wantedHEAD,70).
+
+UNTIL spd() > tgt_spd {
+	WAIT 0.1.
+}
+
+HUDTEXT(dt()+" Rotation 2", 2, 2, 20, green, false).
+GETVOICE(0):PLAY( NOTE(400, .1) ).wait(0.1).GETVOICE(0):PLAY( NOTE(300, .2) ).
+print dt() + " Last rotation 1000 m/s".
+
+//declare function endrot {
+//	return 60 - ((spd() - tgt_spd) * (60 - 10) / (1000 - tgt_spd)).
+//}
+//lock STEERING to HEADING(wantedHEAD,endrot()).
+//WAIT UNTIL spd() > 1000 or SHIP:ORBIT:APOAPSIS > wantedALT.
+//if endrot() >= 10 {
+//	LOCK STEERING to HEADING(wantedHEAD, 10).
+//} else {
+//	LOCK STEERING to ship:prograde.
+//}
+
+UNTIL spd() > 1000 {
+	LOCK STEERING to ship:prograde.
+	WAIT 0.1.
+}
+LOCK STEERING to ship:prograde.
+
+HUDTEXT("Waiting for AP to reach 80km", 5, 2, 20, green, false).
+GETVOICE(0):PLAY( NOTE(400, .1) ).wait(0.1).GETVOICE(0):PLAY( NOTE(300, .2) ).
+print dt() + " Waiting for AP to reach "+wantedALT/1000+"km".
+
+WAIT UNTIL SHIP:ORBIT:APOAPSIS > wantedALT.
+
+HUDTEXT("Apoapsis 100km reached", 5, 2, 20, green, false).
+GETVOICE(0):PLAY( LIST(NOTE(300, .1),NOTE(400, .2),NOTE(400, 0.2), NOTE(220,0.2)) ).
+
+UNLOCK throttle.
+SET ctl:MAINTHROTTLE TO 0.0.
+LOCK THROTTLE to 0.0.
+LOCK steering TO ship:prograde.
+print dt() + " Engine cut-off".
+print dt() + " Waiting for AP. ETA : " + ROUND(ETA:APOAPSIS) + "s".
+
+// TODO : calculate timeout given TWR
+SET ins_alrm TO addAlarm("Maneuver",time:seconds+(ETA:APOAPSIS - maneuver_prep + 0.6), "[kOS] "+(wantedALT/1000)+"km orbit insertion", "Targeting "+(wantedALT/1000)+"km").
+
+WAIT UNTIL MOD(round(eta:apoapsis), 5) = 0.
+UNTIL ETA:APOAPSIS < maneuver_prep {
+	if wantedALT - SHIP:ORBIT:APOAPSIS > 100 {
+		LOCK throttle TO 1.0.
+		WAIT UNTIL SHIP:ORBIT:APOAPSIS > wantedALT.
+		LOCK throttle TO 0.0.
+	}
+	if MOD(round(ETA:APOAPSIS), 5) = 0 {
+		HUDTEXT("Time to apoapsis " + round(eta:apoapsis) + "s", 5, 2, 20, green, false).
+		HUDTEXT("Time to insertion maneuver " + round(eta:apoapsis) - maneuver_prep + "s", 5, 2, 20, green, false).
+	}
+	WAIT .3.
+}
+DELETEALARM(ins_alrm:id).
+
+LOCK steering TO ship:prograde.
+DECLARE prev_ETA to ETA:APOAPSIS.
+LOCK throttle TO 1.0.
+SET throt TO SHIP:CONTROL:MAINTHROTTLE.
+SET throt_min TO 0.7.
+SET throt_brk TO 0.2.
+
+print dt() + " Starting insertion".
+GETVOICE(0):PLAY( NOTE(300, .1) ).wait(0.1).GETVOICE(0):PLAY( NOTE(400, .2) ).
+HUDTEXT("Starting insertion", 5, 2, 20, green, false).
+
+// TODO : Problem occurs when there is stages left to drop
+// causing wrong estimation overtaking AP
+UNTIL SHIP:ORBIT:PERIAPSIS > wantedALT {
+	SET dETA TO ETA:APOAPSIS - prev_ETA.
+	if ETA:APOAPSIS > 120 {
+		print dt() + " AP behind us ! Full thrust to safe orbit !".
+		HUDTEXT("AP behind us ! Full thrust for orbit !", 0.1 ,2,20, red, false).
+		SET throt TO 1.0.
+		WAIT UNTIL SHIP:ORBIT:PERIAPSIS > 68000.
+		HUDTEXT("Wrong orbitreached "+dt(), 25, 2, 20, red, false).
+		break.
+	} else {
+		if dETA < 0 {
+			SET throt to throt + 0.0005.
+			if throt > 1.0 {
+				print dt() + "Node approach, notenough thrust !!".
+				SET throt TO 1.0.
+				WAIT 1.0.
+			}
+			if throt < throt_min - throt_brk {
+				GETVOICE(0):PLAY( SLIDENOTE(220,250, .3, .3) ).
+				set throt to throt_min.
+			} else {
+				//GETVOICE(0):PLAY( NOTE(300 + ((throt - .5) * 500), .1) ).
+			}
+		}
+		if dETA > 0 {
+			SET throt TO throt - 0.0005.
+			if throt < 0.0 {
+				print "Failing ! Node escape, WTF !!".
+				SET throt TO 0.
+			} else {
+				if throt < throt_min - throt_brk AND ETA:APOAPSIS > 10
+				{
+					// Breaking !
+					GETVOICE(0):PLAY( SLIDENOTE(250, 220, .3, .3) ).
+					SET throt TO 0.
+					LOCK throttle TO 0.
+					print "AP ETA " + round(ETA:APOAPSIS,1) + "s throttle BREAK" AT (0, terminal:height - 1).
+					if ETA:APOAPSIS > 20 {
+						WAIT((ETA:APOAPSIS / 3.5)-0.1).
+					} else {
+						if ETA:APOAPSIS > 10 {
+							WAIT 1.0.
+						}
+					}
+				} else {
+					//GETVOICE(0):PLAY( NOTE(300 + ((throt - .5) * 500), .1) ).
+				}
+			}
+		}
+	}
+	//SET SHIP:CONTROL:MAINTHROTTLE TO throt.
+	//SET SHIP:CONTROL:PILOTMAINTHROTTLE TO throt.
+	LOCK throttle TO throt.
+	//LOCK throttle TO throt.
+	SET prev_ETA to ETA:APOAPSIS.
+	print "AP ETA " + round(ETA:APOAPSIS,1) + "s throttle "+ round(throt * 100) + "%   " AT (0, terminal:height - 1).
+	//HUDTEXT("AP ETA " + ETA:APOAPSIS + "s throttle "+ throt * 100 + "%", 0.1,2,20, green, false).
+	WAIT 0.
+}
+
+
+print dt() + " Orbiting !".
+HUDTEXT("Orbiting after "+dt(), 15, 2, 20, green, false).
+HUDTEXT("programs exiting...", 15, 2, 20, red, false).
+GETVOICE(0):PLAY( LIST(
+			SLIDENOTE(300, 320, 0.3, .3), SLIDENOTE(320, 300, 0.3, 0.3),
+			SLIDENOTE(300, 320, 0.3, .3), SLIDENOTE(320, 300, 0.3, 0.3),
+			SLIDENOTE(300, 320, 0.3, .3), SLIDENOTE(320, 300, 0.3, 0.3))).
+
+unlock STEERING.
+unlock throttle.
+SET SHIP:CONTROL:MAINTHROTTLE TO 0.0.
+SET SHIP:CONTROL:PILOTMAINTHROTTLE TO 0.0.

stager.ks

@@ -0,0 +1,55 @@
+clearscreen.
+declare function dt {
+	SET dtim TO TIME - start.
+	return dtim:minute+"m"+dtim:second+"s".
+}
+
+SET terminal:width TO 22.
+SET terminal:height TO 12.
+
+SET GETVOICE(1):wave to "sine".
+SET GETVOICE(1):volume to 1.
+SET GETVOICE(1):decay to 0.05.
+SET GETVOICE(1):attack to 0.05.
+SET GETVOICE(1):sustain to 1.0.
+SET GETVOICE(1):release to 0.8.
+
+print "======================".
+print "    Simple stager".
+print "======================".
+
+// TODO : detect launcher stability enhancer
+// TODO : detect empty fuel stages
+
+
+HUDTEXT("Stager ready. Waiting 1st stage...", 10, 2, 20, red, false).
+print "Waiting takeoff...".
+GETVOICE(1):PLAY( LIST(NOTE(400, .1), NOTE(300, .2)) ).
+WAIT UNTIL not stage:ready.
+print "Lets go !".
+DECLARE start TO TIME.
+print dt() + " Stage #"+stage:number.
+
+LIST ENGINES IN elist.
+UNTIL ship:obt:periapsis > 60000 AND stage:number > 0{
+
+	FOR e IN elist {
+		if e:flameout AND e:stage = stage:number
+		{
+			STAGE.
+			GETVOICE(1):PLAY( SLIDENOTE(220,320, 0.6, 0.7) ).
+			PRINT dt() + " Stage #" + stage:number.
+			HUDTEXT(dt() + " Stage #" + stage:number, 3, 2, 15, blue, false).
+			WAIT UNTIL STAGE:READY.
+			WAIT 1.0.
+			GETVOICE(1):PLAY( LIST(NOTE(400, .1), NOTE(300, .2)) ).
+			LIST ENGINES IN elist.
+			WAIT 1.0.
+		}
+	}
+	wait 0.
+}
+
+HUDTEXT("[Stager] Orbit detected. Exiting...", 10, 2, 20, blue, false).
+print dt() + " Orbit detected".
+print "exiting...".

test/hello.ks

@@ -0,0 +1 @@
+print "HELLO WORLD !".

test/orbit1.ks

@@ -0,0 +1,182 @@
+print "===============================".
+print "Ready to orbit ! Liftoff in 15s".
+print "===============================".
+SET wantedTWR TO 1.5.
+
+HUDTEXT("Orbit sequence started. Lift off in 15s", 2, 2, 20, green, false).
+GETVOICE(0):PLAY( NOTE(300, .1) ).wait(0.1).GETVOICE(0):PLAY( NOTE(400, .2) ).
+
+SET GETVOICE(0):wave to "sawtooth".
+
+declare function LocalG {
+	// Return local gravity
+	return ship:body:mu / ship:body:position:mag ^ 2.
+}
+
+declare function getTwrThrust {
+	// Estimate thrust for a given TWR (1.5 by default)
+	DECLARE PARAMETER TWR is 1.5.
+	set m to ship:mass.
+	set w to m * LocalG().
+	set p to ship:sensors:pres / 100.
+	set t to ship:maxthrustat(p).
+	set throt to (TWR * w) / t.
+	return throt.
+}
+
+SET ctl TO ship:control.
+WAIT 2.0.
+SET ctl:yaw TO -1.0.
+SET ctl:pitch TO -1.0.
+SET ctl:roll TO -1.0.
+WAIT 1.0.
+SET ctl:yaw TO 1.0.
+SET ctl:pitch TO 1.0.
+SET ctl:roll TO 1.0.
+HUDTEXT("Wanted TWR = " + wantedTWR, 2, 2, 20, green, false).
+WAIT 1.0.
+SET ctl:yaw TO 0.0.
+SET ctl:pitch TO 0.0.
+SET ctl:roll TO 0.0.
+set ctl:MAINTHROTTLE TO 0.0.
+WAIT 1.0.
+lock THROTTLE to 0.0.
+
+DECLARE i TO 10.
+UNTIL i < 1 {
+	HUDTEXT(i, 1, 2, 20, green, false).
+	print i.
+	GETVOICE(0):PLAY( NOTE(300, .2) ).
+	wait(1.0).
+	SET i TO i - 1.
+	if i = 2 {
+		// Stage 2s before lift off
+		STAGE.
+		print "Stage !".
+		HUDTEXT("Throttle set to " + round(getTwrThrust(wantedTWR)*100) + "% for TWR " + wantedTWR, 2, 2, 20, green, false).
+		print "Throttle set to " + round(getTwrThrust(wantedTWR)*100) + "% for TWR " + wantedTWR.
+	}
+}
+
+
+
+
+
+HUDTEXT("Lift off !", 2, 2, 20, green, false).
+GETVOICE(0):PLAY( NOTE(400, .1) ).wait(0.1).GETVOICE(0):PLAY( NOTE(300, .2) ).
+
+
+print "Lift off !".
+lock THROTTLE to getTwrThrust(wantedTWR).
+
+
+
+UNTIL SHIP:VERTICALSPEED > 20 {
+	WAIT 0.1.
+}
+
+HUDTEXT("Rotation 0", 2, 2, 20, green, false).
+GETVOICE(0):PLAY( NOTE(400, .1) ).wait(0.1).GETVOICE(0):PLAY( NOTE(400, .1) ).
+lock STEERING to HEADING(90,90).
+
+UNTIL SHIP:VERTICALSPEED > 50 {
+	WAIT 0.1.
+}
+
+HUDTEXT("Rotation 1", 2, 2, 20, green, false).
+GETVOICE(0):PLAY( NOTE(400, .1) ).wait(0.1).GETVOICE(0):PLAY( NOTE(300, .2) ).
+print "Next rotation at speed 600".
+
+lock STEERING to HEADING(90,70).
+
+UNTIL SHIP:GROUNDSPEED + SHIP:VERTICALSPEED > 600 {
+	WAIT 0.1.
+}
+
+HUDTEXT("Rotation 2", 2, 2, 20, green, false).
+GETVOICE(0):PLAY( NOTE(400, .1) ).wait(0.1).GETVOICE(0):PLAY( NOTE(300, .2) ).
+
+declare function endrot {
+	set spd to SHIP:GROUNDSPEED + SHIP:VERTICALSPEED.
+	return 60 - ((spd - 600) * 60 / 1000)
+}
+lock STEERING to HEADING(90,endrot()).
+
+UNTIL SHIP:GROUNDSPEED + SHIP:VERTICALSPEED > 1000 {
+	WAIT 0.1.
+}
+lock STEERING to HEADING(90,0).
+
+HUDTEXT("Rotation 3", 2, 2, 20, green, false).
+GETVOICE(0):PLAY( NOTE(400, .1) ).wait(0.1).GETVOICE(0):PLAY( NOTE(300, .2) ).
+lock steering to HEADING(90,30).
+print "Waiting for AP to reach 80km".
+
+UNTIL SHIP:ORBIT:APOAPSIS > 80000 {
+	WAIT 0.1.
+}
+
+HUDTEXT("Apoapsis 100km reached", 5, 2, 20, green, false).
+GETVOICE(0):PLAY( NOTE(300, .1) ).wait(0.1).GETVOICE(0):PLAY( NOTE(400, .2) ).
+
+lock THROTTLE to 0.0.
+set ctl:MAINTHROTTLE TO 0.0.
+print "Waiting for AP".
+print ETA:APOAPSIS.
+
+UNTIL ETA:APOAPSIS < 50 {
+	print "Time to apoapsis : ".
+	HUDTEXT("Time to apoapsis", 5, 2, 20, green, false).
+	HUDTEXT(ETA:APOASPSIS, 5, 2, 20, green, false).
+	print ETA:APOAPSIS.
+	WAIT 10.0.
+}
+
+
+HUDTEXT("Preparing insertion", 5, 2, 20, green, false).
+GETVOICE(0):PLAY( NOTE(300, .1) ).wait(0.1).GETVOICE(0):PLAY( NOTE(400, .2) ).
+
+LOCK steering TO ship:prograde.
+
+UNTIL ETA:APOAPSIS < 30 {
+	print "Time to apoapsis : ".
+	print ETA:APOAPSIS.
+	WAIT 1.0.
+}
+
+
+DECLARE prev_ETA to ETA:APOAPSIS.
+SET aETA TO ETA:APOAPSIS.
+
+SET SHIP:CONTROL:PILOTMAINTHROTTLE TO 1.0.
+SET throt TO SHIP:CONTROL:PILOTMAINTHROTTLE.
+
+UNTIL SHIP:ORBIT:PERIAPSIS > 80000 {
+	if aETA - prev_ETA < 0 {
+		if throt = 1.0 {
+			print "Failing ! Node approach, notenough thrust !!".
+		} else {
+			LOCK throttle TO throt + 0.1.
+			GETVOICE(0):PLAY( NOTE(300, .1) ).
+		}
+	}
+	if aETA - prev_ETA > 0 {
+		if throt = 0.0 {
+			print "Failing ! Node escape, WTF !!".
+		} else {
+			LOCK throttle TO throt - 0.1.
+			GETVOICE(0):PLAY( NOTE(400, .1) ).
+		}
+	}
+	WAIT 0.1.
+}
+
+HUDTEXT("Orbiting :D", 5, 2, 20, green, false).
+GETVOICE(0):PLAY( NOTE(300, .1) ).wait(0.1).
+GETVOICE(0):PLAY( NOTE(300, .1) ).wait(0.1).
+GETVOICE(0):PLAY( NOTE(400, .2) ).
+
+unlock STEERING.
+set ctl:MAINTHROTTLE TO 0.0.
+unlock THROTTLE.
+