kOS listings

/me set terminal:height to 15.
{ std
    set x to 90. set r to 0. set p to 90. lock steering to heading(x,p)*R(0,0,r).
    set x to 90. set r to 0. set p to 6. lock steering to heading(x,p)*R(0,0,r).
    function tr {parameter v. lock throttle to v.}.
    function vx {parameter v. set x to v.}.
    function vp {parameter v. set p to v.}.
    function vr {parameter v. set r to v.}.
    function br { toggle brakes. }.
    set tb to {toggle brake.}.
    set tg to {toggle gear.}.
    set tl to {toggle lights.}.
}

{ math
    set lerp to {parameter s. parameter e. parameter v. return s + (e-s) * v.}.
    set clamp to { parameter s. parameter e. parameter v. if(v <= s){return s.} else if(v > e) {return e.} else { return v.} }.
    set lerpc to {parameter s. parameter e. parameter v. return clamp(s, e, s + (e-s) * v). }.
}
{ cam
    !camera yaw = 90
    !camera pitch = 20
    !camera chase
}

{ navector
    set spot to ship:geoposition.
    set spot to latlng(-1.517,-71.89).

    set vds to vecdrawargs(v(0,0,0), v(0,0,0), red, "", 1, true, 0.3).

    set bvds to false.
    function navon
    {
        if(bvds) { print "Nav is already set. Use [navoff() | navto(lt,lg)]." }
        set bvds to true.
        on (alt:radar)
        {
            set vds:vec to spot:altitudeposition(spot:terrainheight-280).
            set vds:label to round(spot:distance)/100+" km".
            if(bvds){ return true.} else { print "Isle_navi_off". set vds to 0. return false. }
        }
    }

    // disable nav vector
    function navoff { set bvds to false. }

    // set nav directly to the geoposition of (lt,lg)
    function navto { parameter lt. parameter lg. set spot to latlng(lt,lg). }

    // set nav directly to "ltg" geoposition
    function navto { parameter ltg. set spot to ltg. }
}

//set runw to latlng(-0.05,-74.72).
//set vdr to vecdrawargs(v(0,0,0),v(0,0,0), green, (spot:distance:tostring), 1, true, 0.3).
//on (alt:radar) { set vdr:vec to runw:altitudeposition(spot:terrainheight-80). preserve. }

{ test
    set gui to gui(200).
    set gui:x to -100.

    set rtl to gui:addlabel("alt").
    set rtl:style:align to "left".
    set rtl:style:richtext to true.

    gui:show().

    set rtl:text to "<size=20><b>Lt:"+round(ship:latitude,4)+"</b></size>".
    set rtl:style:textcolor to rgba(1,0.4,0.4,1).

}

{ orbidata
    set gui to gui(200).
    set gui:x to -100.

    set rtl to gui:addlabel("alt").
    set rtl:style:align to "left".
    set rtl:style:richtext to true.

    set rta to gui:addlabel("ap").
    set rta:style:align to "left".
    set rta:style:richtext to true.

    set rtp to gui:addlabel("pe").
    set rtp:style:align to "left".
    set rtp:style:richtext to true.

    set rtt to gui:addlabel("lat").
    set rtt:style:align to "left".
    set rtt:style:richtext to true.

    gui:show().

    set guiswitch to true.

    on alt:radar {
    set rtt:text to "<size=20><b>Lt:"+round(ship:latitude,4)+"</b></size>".
    set rtt:style:textcolor to .
    set rtl:text to "<size=20><b>Ar:"+round(alt:radar,4)+"</b></size>".
    set rta:text to "<size=20><b>Ap:"+round(apoapsis,4)+"</b></size>".
    set rtp:text to "<size=20><b>Pe:"+round(periapsis,4)+"</b></size>".
    return guiswitch. }

    function trackoff { set guiswitch to false. }
    /me on (ship:electriccharge) { set ec1 to ec2. set ec2 to ship:electriccharge. }
}

{ track latlng

    set lgt to gui(200).
    set lgt:x to -100.
    set lgt:y to 200.

    set rtl to lgt:addlabel("LT").
    set rtl:style:align to "left".
    set rtl:style:richtext to true.

    set rta to lgt:addlabel("LG").
    set rta:style:align to "left".
    set rta:style:richtext to true.

    lgt:show().

    set lgswitch to true.

    on alt:radar {
        set rtl:text to "<size=20><b>Lt:"+round(ship:latitude,4)+"</b></size>".
        set rta:text to "<size=20><b>Lg:"+round(ship:longitude,4)+"</b></size>".
        return lgswitch.
    }

    function lgtrackoff { set lgswitch to false. }
}

{ gui console
    set mc to gui(350).
    set mc:x to -100.
    set mc:y to 100.

    set mcl to mc:addlabel("").
    set mcl:style:align to "left".
    set mcl:style:richtext to true.
    set mcl:text to "<size=15><b>"+ship:parts+"</b></size>".

    mc:show().

    function wr {parameter v.
    set mcl:text to "<size=15><b>"+v+"</b></size>".  }
}

/me set wheel to ship:parts[4].
set hl to highlight(wheel, red).
set hl:enabled to true.
wheel:getmodule("modulewheelsteering"):doaction("toggle steering", true).