YPIX = 100 (slider from 0 to 200, step 1)
outT: y = 7 * YPIX
XPIX = 100 (slider from 0 to 200, step 1)
weight = 0 (slider from -100 to 100, step 1)
outR: x = XPIX * 5 + weight / 100 * XPIX
XQTR_S = 29 (slider from 0 to 100, step 1)
YQTR_S = 29 (slider from 0 to 100, step 1)
A = Intersect(outR, xAxis)
B = Intersect(outT, yAxis)
C = Midpoint(B, A)
D = Intersect(outR, outT)
c = Ray(C, D)
E: D - ((1 + XQTR_S / 100) * XPIX, 0)
F: D - (0, (1 + YQTR_S / 100) * YPIX)
d = Segment(E, F)
G = Intersect(c, d)
e = Line(G, yAxis)
OutMid = Distance(C, e)
OutRad = Distance(C, outR)
inR: x = 4 * XPIX
inT: y = 6 * YPIX
H = Intersect(inR, inT)
f = Ray(C, H)
I: H - (0, (1 - YQTR_S / 100) * YPIX)
J: H - ((1 - XQTR_S / 100) * XPIX, 0)
g = Segment(I, J)
K = Intersect(f, g)
h = Line(K, yAxis)
InRad = Distance(C, inR)
InMid = Distance(C, h)
OutCurv: OutMid / OutRad
InCurv: InMid / InRad
Speed: OutCurv / InCurv
DiagWidth = Distance(g, d)
poly1, i, e_1, f_1, j, k, i_1, j_1, l = Polygon(Intersect[yAxis, outT], E, F, Intersect[xAxis, outR], Intersect[xAxis, inR], I, J, Intersect[yAxis, inT])
text1: "OutCurv = " + OutCurv + ""
text2: "Speed = " + Speed + ""
text3: "InCurv = " + InCurv + ""