added raden launch

library/lib_lazcalc.ks

@@ -0,0 +1,101 @@
+// lib_lazcalc.ks - provides the user with a launch azimuth based on a desired target orbit altitude and inclination and can continued to be used throughout ascent to update the heading. It bases this calculation on the vessel's launch and current geoposition.
+// Copyright © 2015,2017,2023 KSLib team 
+// Lic. MIT
+
+//~~Version 2.2~~
+//~~Created by space-is-hard~~
+//~~Updated by TDW89~~
+//~~Auto north/south switch by undercoveryankee~~
+
+//To use: RUN LAZcalc.ks. SET data TO LAZcalc_init([desired circular orbit altitude in meters],[desired orbital inclination; negative if launching from descending node, positive otherwise]). Then loop SET myAzimuth TO LAZcalc(data).
+
+@LAZYGLOBAL OFF.
+@CLOBBERBUILTINS OFF.
+
+FUNCTION LAZcalc_init {
+    PARAMETER
+        desiredAlt, //Altitude of desired target orbit (in *meters*)
+        desiredInc. //Inclination of desired target orbit
+
+    PARAMETER autoNodeEpsilon IS 10. // How many m/s north or south
+        // will be needed to cause a north/south switch. Pass zero to disable
+        // the feature.
+    SET autoNodeEpsilon to ABS(autoNodeEpsilon).
+    
+    //We'll pull the latitude now so we aren't sampling it multiple times
+    LOCAL launchLatitude IS SHIP:LATITUDE.
+    
+    LOCAL data IS LIST().   // A list is used to store information used by LAZcalc
+    
+    //Orbital altitude can't be less than sea level
+    IF desiredAlt <= 0 {
+        PRINT "Target altitude cannot be below sea level".
+        SET launchAzimuth TO 1/0.		//Throws error
+    }.
+    
+    //Determines whether we're trying to launch from the ascending or descending node
+    LOCAL launchNode TO "Ascending".
+    IF desiredInc < 0 {
+        SET launchNode TO "Descending".
+        
+        //We'll make it positive for now and convert to southerly heading later
+        SET desiredInc TO ABS(desiredInc).
+    }.
+    
+    //Orbital inclination can't be less than launch latitude or greater than 180 - launch latitude
+    IF ABS(launchLatitude) > desiredInc {
+        SET desiredInc TO ABS(launchLatitude).
+        HUDTEXT("Inclination impossible from current latitude, setting for lowest possible inclination.", 10, 2, 30, RED, FALSE).
+    }.
+    
+    IF 180 - ABS(launchLatitude) < desiredInc {
+        SET desiredInc TO 180 - ABS(launchLatitude).
+        HUDTEXT("Inclination impossible from current latitude, setting for highest possible inclination.", 10, 2, 30, RED, FALSE).
+    }.
+    
+    //Does all the one time calculations and stores them in a list to help reduce the overhead or continuously updating
+    LOCAL equatorialVel IS (2 * CONSTANT():Pi * BODY:RADIUS) / BODY:ROTATIONPERIOD.
+    LOCAL targetOrbVel IS SQRT(BODY:MU/ (BODY:RADIUS + desiredAlt)).
+    data:ADD(desiredInc).       //[0]
+    data:ADD(launchLatitude).   //[1]
+    data:ADD(equatorialVel).    //[2]
+    data:ADD(targetOrbVel).     //[3]
+    data:ADD(launchNode).       //[4]
+    data:ADD(autoNodeEpsilon).  //[5]
+    RETURN data.
+}.
+
+FUNCTION LAZcalc {
+    PARAMETER
+        data. //pointer to the list created by LAZcalc_init
+    LOCAL inertialAzimuth IS ARCSIN(MAX(MIN(COS(data[0]) / COS(SHIP:LATITUDE), 1), -1)).
+    LOCAL VXRot IS data[3] * SIN(inertialAzimuth) - data[2] * COS(data[1]).
+    LOCAL VYRot IS data[3] * COS(inertialAzimuth).
+    
+    // This clamps the result to values between 0 and 360.
+    LOCAL Azimuth IS MOD(ARCTAN2(VXRot, VYRot) + 360, 360).
+
+    IF data[5] {
+        LOCAL NorthComponent IS VDOT(SHIP:VELOCITY:ORBIT, SHIP:NORTH:VECTOR).
+        IF NorthComponent > data[5] {
+            SET data[4] TO "Ascending".
+        } ELSE IF NorthComponent < -data[5] {
+            SET data[4] to "Descending".
+        }.
+    }.
+    
+    //Returns northerly azimuth if launching from the ascending node
+    IF data[4] = "Ascending" {
+        RETURN Azimuth.
+        
+    //Returns southerly azimuth if launching from the descending node
+    } ELSE IF data[4] = "Descending" {
+        IF Azimuth <= 90 {
+            RETURN 180 - Azimuth.
+            
+        } ELSE IF Azimuth >= 270 {
+            RETURN 540 - Azimuth.
+            
+        }.
+    }.
+}.